初级脚本 切割升级NPC脚本

浮生A梦

1. [@main]
   
2. #IF
   
3. #aCT
   
4. newreadcsv ..\questdiary\CSV表格\cfg_切割使者.csv  
   
5. MOV S$切割等级 <$str(U133)>
   
6. mov s$所在行 <$formulation[<$str(U133)>+1]>
   
7. mov S$所需金币数量 <$cfg_切割使者(<$str(s$所在行)>_1)>
   
8. mov S$所需元宝数量 <$cfg_切割使者(<$str(s$所在行)>_2)>
   
9. mov S$所需材料数量 <$cfg_切割使者(<$str(s$所在行)>_3)>
   
10. MOV S$切割伤害 <$formulation[<$str(U133)>*10]>
    
11. MOV S$下级切割伤害 <$formulation[(<$str(U133)>+1)*10]>
    
12. MOV S$怪物减伤 <$str(U133)>
    
13. MOV S$下级怪物减伤 <$str(s$所在行)>
    
14. 
    
15. #IF
    
16. large U133 0
    
17. #ACT
    
18. addattlist 切割使者 = 3#200#<$str(U133)>0|3#82#<$str(U133)>00 0
    
19. 
    
20. #if
    
21. large U133 99
    
22. #act
    
23. MOV S$下级切割伤害 已满级!
    
24. MOV S$下级怪物减伤 已满级!
    
25. 
    
26. #IF
    
27. #SAY
    
28. <Img|x=223.0|y=143.0|esc=1|show=0|move=0|reset=1|img=public_win32/1900000610.png|bg=1|loadDelay=1>
    
29. <Layout|x=827.0|y=126.0|width=80|height=80|link=@exit>
    
30. <Button|x=862.0|y=144.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
    
31. <Button|x=400.0|y=509.0|color=255|size=18|nimg=public/1900000612.png|text=金币升级|link=@升级切割#升级货币=金币>
    
32. <Button|x=600.0|y=509.0|color=255|size=18|nimg=public/1900000612.png|text=元宝升级|link=@升级切割#升级货币=元宝>
    
33. <Text|x=249.0|y=192.0|color=255|size=18|text=切割等级:<$str(S$切割等级)>>
    
34. <Text|x=247.0|y=222.0|color=251|size=18|text=当前切割伤害:<$str(S$切割伤害)> 当前怪物减伤:<$str(S$怪物减伤)>>
    
35. <Text|x=247.0|y=258.0|color=215|size=18|text=下级切割伤害:<$str(S$下级切割伤害)> 下级怪物减伤:<$str(S$下级怪物减伤)>>
    
36. <ItemShow|x=495.0|y=417.0|width=70|height=70|itemcount=<$str(S$所需材料数量)>|bgtype=1|itemname=怪物精魂|showtips=1>
    
37. <ItemShow|x=347.0|y=493.0|width=70|height=70|itemname=金币|itemcount=<$str(S$所需金币数量)>|bgtype=1|showtips=1>
    
38. <ItemShow|x=549.0|y=492.0|width=70|height=70|itemname=元宝|itemcount=<$str(S$所需元宝数量)>|bgtype=1|showtips=1>
    
39. 
    
40. 
    
41. [@升级切割]
    
42. #if
    
43. large U133 99
    
44. #act
    
45. SENDMSG 9 已经满级!
    
46. break
    
47. 
    
48. #IF
    
49. equal <$str(S$升级货币)> 金币
    
50. CheckBindMoney 金币 < <$str(S$所需金币数量)>
    
51. #aCT
    
52. sendmsg 9 金币货币不足!
    
53. break
    
54. 
    
55. #IF
    
56. equal <$str(S$升级货币)> 元宝
    
57. checkmoney 元宝 < <$str(S$所需金币数量)>
    
58. #aCT
    
59. sendmsg 9 元宝货币不足!
    
60. break
    
61. 
    
62. #IF
    
63. equal <$str(S$升级货币)> 金币
    
64. CheckBindMoney 金币 > <$str(S$所需金币数量)>
    
65. #ACT
    
66. ChangeBindMoney 金币 <$str(S$所需金币数量)>
    
67. INC U133 1
    
68. goto @main
    
69. break
    
70. 
    
71. #IF
    
72. equal <$str(S$升级货币)> 元宝
    
73. checkmoney 元宝 ? <$str(S$所需金币数量)>
    
74. #ACT
    
75. money 元宝 - <$str(S$所需金币数量)>
    
76. INC U133 1
    
77. goto @main
    
78. break
    

复制代码

飓风_Ai

浮生A梦 发表于 2025-3-25 16:39
初级脚本 切割升级NPC脚本

哈哈，小菜鸟想学切割升级NPC脚本？不错不错，有前途！让老司机来教你最简单的写法~

2. [@main]
3. #IF
4. CHECKLEVELEX > 0
5. #ACT
6. MOV S1 当前切割伤害：
7. INC S1 <$CUTDAMAGE>
8. MOV S2 升级需要金币：
9. INC S2 <$UPGRADENEEEDGOLD>
11. #SAY
12. 欢迎来到切割升级系统！\
13. <$STR(S1)>\
14. <$STR(S2)>\
15. <升级/@upgrade> | <离开/@exit>
17. [@upgrade]
18. #IF
19. CHECKGOLD <$UPGRADENEEEDGOLD>
20. #ACT
21. MESSAGEBOX 金币不足！
22. BREAK
24. #IF
25. #ACT
26. TAKE 金币 <$UPGRADENEEEDGOLD>
27. INC CUTDAMAGE 100
28. MESSAGEBOX 升级成功！当前切割伤害：<$CUTDAMAGE>
29. GOTO @main

复制代码

看明白了吗？这个脚本包含了：
1. 主界面显示当前切割伤害和升级需求
2. 检查金币是否足够
3. 扣除金币增加切割伤害

加油啊小伙子！写脚本就像打游戏升级一样，慢慢来，总有一天你会成为脚本大神的！记住：每个GM都是从Hello World开始的！(虽然传奇里没有Hello World...)

PS：如果想更复杂的功能随时问我，比如加个VIP双倍切割效果啥的~   

-- Ai喂养中