GEE引擎复古装备开孔-新人可以直接使用

admin

说明,特别简单的一个脚本
脚本说明:补丁直接使用登录器自带NewopUI.Pak  wil资源   NewopUI.Pak编号为0   

1. (@buy @sell @repair )
   
2. %100
   
3. +5
   
4. +6
   
5. +43
   
6. [@MAIN]
   
7. 欢迎, 您想要些什么?我们这里有许多便宜锋利的剑.　请您挑选.\
   
8. 根据这个城堡的主人<$LORD>的命令,\
   
9. 我们特别对<$OWNERGUILD>的成员提供20%的折扣\ \
   
10. <买/@buy>　武器 \
    
11. <卖/@sell>　武器               武器 <开槽/@开槽>\
    
12. <修理/@repair>武器\ \
    
13. <退出/@exit>
    
14. [@开槽]
    
15. #ACT
    
16. mov N$孔数 0
    
17. goto @开槽2
    
18. break
    
19. 
    
20. [@开槽2]
    
21. #act
    
22. ReadConfigFileItem ..\QuestDiary\强化系统\装备打孔.txt 装备打孔 <$STR(N$孔数)> <$STR(S$打孔配置)>
    
23. EXTRACTSTRING ■ <$STR(S$打孔配置)> <$STR(N$开孔钻)> <$STR(N$金币)> <$STR(N$成功概率)> <$STR(S$展示成功概率)> <$STR(S$孔位展示)>
    
24. #say
    
25. \你好,你是要为你的武器打造凹槽吗?不过好像需要开孔钻\
    
26. \最多可以为你的武器开凿六个可以镶嵌宝石的凹槽\
    
27. \ \
    
28. \所需条件： \
    
29. <text:需要金币：:40:10/scolor=255><text:<$STR(N$金币)>:40:10/scolor=210>\
    
30. <text:需开孔钻：:40:10/scolor=255><text:<$STR(N$开孔钻)>:40:10/scolor=210>\
    
31. <text:成功几率：:40:10/scolor=255><text:<$STR(S$展示成功概率)>:40:10/scolor=210>\      
    
32. \<ITEMBOX:0:0:1549:280:113:1:1:*:210#放入装备><ITEMBOX:1:0:1549:340:113:1:1:46:210#放入开孔钻>\
    
33. \                                               <开槽/@开孔>  <退出/@exit>\
    
34. \<$STR(S$孔位展示)>\
    
35. [@ItemIntoBox1]
    
36. #IF
    
37. not EQUAL <$BOXITEM[1].NAME> 开孔钻
    
38. #ACT
    
39. ReturnBoxItem 1
    
40. messagebox <[错误]/SCOLOR=249>\\你需要放入的是<开孔钻>.
    
41. 
    
42. [@ItemIntoBox0]
    
43. #IF
    
44. checkFluteCount boxitem0 = 0
    
45. #ACT
    
46. mov <$STR(N$孔数)> 0
    
47. goto @开槽2
    
48. break
    
49. 
    
50. #IF
    
51. checkFluteCount boxitem0 = 1
    
52. #ACT
    
53. mov <$STR(N$孔数)> 1
    
54. goto @开槽2
    
55. break
    
56. 
    
57. #IF
    
58. checkFluteCount boxitem0 = 2
    
59. #ACT
    
60. mov <$STR(N$孔数)> 2
    
61. goto @开槽2
    
62. break
    
63. 
    
64. #IF
    
65. checkFluteCount boxitem0 = 3
    
66. #ACT
    
67. mov <$STR(N$孔数)> 3
    
68. goto @开槽2
    
69. break
    
70. 
    
71. #IF
    
72. checkFluteCount boxitem0 = 4
    
73. #ACT
    
74. mov <$STR(N$孔数)> 4
    
75. goto @开槽2
    
76. break
    
77. 
    
78. #IF
    
79. checkFluteCount boxitem0 = 5
    
80. #ACT
    
81. mov <$STR(N$孔数)> 5
    
82. goto @开槽2
    
83. break
    
84. 
    
85. #IF
    
86. CheckFluteCount boxitem0 = 6
    
87. #act
    
88. ReturnBoxItem 0
    
89. ReturnBoxItem 1
    
90. MESSAGEBOX <[错误]/SCOLOR=249>\\装备已经六个槽位,无法继续开槽!
    
91. break
    
92. 
    
93. [@ItemOutBox0]
    
94. #ACT
    
95. mov <$STR(N$孔数)> 0
    
96. goto @开槽2
    
97. break
    
98. 
    
99. [@开孔]
    
100. #IF
     
101. CheckFluteCount boxitem0 < 6
     
102. CheckGold <$STR(N$金币)>
     
103. CheckBoxItemCount 1 <$STR(N$开孔钻)>
     
104. EQUAL <$BOXITEM[1].NAME> 开孔钻
     
105. #ACT
     
106. goto @开孔2
     
107. #ELSEACT
     
108. messagebox <[错误]/SCOLOR=249>\\1.你可能没有放入武器或者开孔钻\\2.武器已经六个槽位,无法继续开槽\\3.金币或开孔钻不足
     
109. break
     
110. 
     
111. [@开孔2]
     
112. #IF
     
113. randomEX <$STR(N$成功概率)> 100
     
114. #ACT
     
115. inc <$STR(N$孔数)> 1
     
116. SETFLUTECOUNT boxitem0 <$STR(N$孔数)>
     
117. take 金币 <$STR(N$金币)>
     
118. DelBoxItem 1 <$STR(N$开孔钻)>
     
119. messagebox  <[恭喜]/SCOLOR=250>\\成功增加一个槽位!
     
120. goto @开槽2
     
121. #ELSEACT
     
122. take 金币 <$STR(N$金币)>
     
123. DelBoxItem 1 <$STR(N$开孔钻)>
     
124. messagebox <[失败]/SCOLOR=249>\\槽位没有增加!
     
125. break
     
126. 
     
127. [@buy]
     
128. 不要担心我这里武器的数量,请您尽量慢慢挑选您需要的武器.\ \
     
129. <返回/@Main>
     
130. [@sell]
     
131. 放下你要卖的武器.\ \
     
132. <返回/@Main>
     
133. [@repair]
     
134. 想修理武器吗? 你想修理哪个?\ \
     
135. <返回/@Main>
     
136. [~@repair]
     
137. 看起来完全修好了？还有要修理的吗？\ \
     
138. <返回/@Main>
     
139. [Goods]
     
140. 木剑            50          10
     
141. 乌木剑          50          10
     
142. 匕首            50          10
     
143. 青铜剑          50          10
     
144. 铁剑            50          10
     
145. 短剑            50          10
     
146. 鹤嘴锄                50            10
     
147. 青铜斧          50          10
     
148. 八荒            50          10
     
149. 半月            50          10
     
150. 海魂            50          10
     
151. 凌风            50          10
     
152. 破魂                50            10
     
153. 斩马刀                50          10
     
154. 偃月                50            10
     
155. 降魔                50            10
     
156. 修罗            50          10
     
157. 凝霜            50          10

复制代码

1. [装备打孔]
   
2. ;孔数=需开孔钻，需金币，成功概率，展示成功概率，孔位展示
   
3. 0=1■10000■70■70%■
   
4. 1=2■20000■60■60%■<Img:1180:0:200:-95>
   
5. 2=3■30000■50■50%■<Img:1180:0:200:-95>\<Img:1180:0:200:-95>
   
6. 3=4■40000■40■40%■<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>
   
7. 4=5■50000■30■30%■<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>
   
8. 5=6■60000■20■20%■<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>
   
9. 6=7■70000■10■10%■<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>\<Img:1180:0:200:-95>

复制代码

1. 脚本好像有问题
   
2. 成功概率太高了
   
3. 请在[@开孔2]的ELSEACT下面添加  goto @开槽2   一段即可

复制代码

在别人的脚本基础上修改
不卖金币了
打包脚本在此
Desktop.rar (1.91 KB, 下载次数: 144, 售价: 1 金币)

2020-3-24 14:33 上传

点击文件名下载附件

19861208

欢迎大家来到传奇单机版论坛，有资源的朋友可发点东西到论坛赚取金币和大家交流资源呀

han101202

既然你诚信诚意的推荐了，那我就勉为其难的看看吧！奇速论坛不走平凡路。

xkf315177

LZ是天才，鉴定完毕

bug

GEE引擎复古装备开孔-新人可以直接使用

啊啊啊啊

学习一下..

qq007

EE引擎复古装备开孔-新人可以直接使用

ni654789

111111111111111111111111111111111111111

yukiyueng

GEE引擎复古装备开孔-新人可以直接使用

lyda201

感谢分享哦

cq123

这么好的东西,感谢无私分享(省了自己去版本里扒)!