藏宝游传奇

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 130|回复: 0

[游戏修改] 传奇脚本:天下第一(上线提高1.5倍全属性)

[复制链接]
  • TA的每日心情
    开心
    2020-12-29 20:57
  • 签到天数: 3 天

    [LV.2]圆转纯熟

    4332

    主题

    4336

    帖子

    26万

    积分

    超级版主

    Rank: 8Rank: 8

    积分
    265717
    发表于 2020-2-27 16:25:40 | 显示全部楼层 |阅读模式
    1. [@main]
    2. #IF
    3. ISADMIN
    4. #SAY
    5. \ \
    6.   <经典制作,超级耐玩/AUTOCOLOR=253,250,254,249>\
    7.    <----------------------------------------------------------/SCOLOR=13>\
    8.   <点此申请天下第一男战士/@男战>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(男战名字)>/SCOLOR=254}<」/SCOLOR=7>\
    9.   <点此申请天下第一女战士/@女战>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(女战名字)>/SCOLOR=254}<」/SCOLOR=7>\
    10.   <点此申请天下第一男法师/@男法>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(男法名字)>/SCOLOR=254}<」/SCOLOR=7>\
    11.   <点此申请天下第一女法师/@女法>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(女法名字)>/SCOLOR=254}<」/SCOLOR=7>\
    12.   <点此申请天下第一男道士/@男道>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(男道名字)>/SCOLOR=254}<」/SCOLOR=7>\
    13.   <点此申请天下第一女道士/@女道>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(女道名字)>/SCOLOR=254}<」/SCOLOR=7>\
    14.   <----------------------------------------------------------/SCOLOR=13>\
    15.   <提醒:/SCOLOR=250><天下第一将提高全身1.5倍的属性/SCOLOR=58>  <清理数据/@清理>。

    16. #ELSESAY
    17. \ \
    18.   <2017最火爆传奇私服,龙骨小极品,经典制作,超级耐玩/AUTOCOLOR=253,250,254,249>\
    19.   <----------------------------------------------------------/SCOLOR=13>\
    20.   <点此申请天下第一男战士/@男战>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(男战名字)>/SCOLOR=254}<」/SCOLOR=7>\
    21.   <点此申请天下第一女战士/@女战>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(女战名字)>/SCOLOR=254}<」/SCOLOR=7>\
    22.   <点此申请天下第一男法师/@男法>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(男法名字)>/SCOLOR=254}<」/SCOLOR=7>\
    23.   <点此申请天下第一女法师/@女法>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(女法名字)>/SCOLOR=254}<」/SCOLOR=7>\
    24.   <点此申请天下第一男道士/@男道>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(男道名字)>/SCOLOR=254}<」/SCOLOR=7>\
    25.   <点此申请天下第一女道士/@女道>  <目前王者归属为:「/SCOLOR=7>{<$GLOBAL(女道名字)>/SCOLOR=254}<」/SCOLOR=7>\
    26.   <----------------------------------------------------------/SCOLOR=13>\
    27.   <提醒:/SCOLOR=250><天下第一将提高全身1.5倍的属性/SCOLOR=58>  每3个小时清理数据。



    28. [@清理]
    29. #ACT
    30. CALCVAR GLOBAL 男战名字 = 暂无入榜
    31. CALCVAR GLOBAL 男战等级 = 0
    32. CALCVAR GLOBAL 男战经验 = 0
    33. CALCVAR GLOBAL 男战行会 = 暂无
    34. CALCVAR GLOBAL 男战时间 =   
    35. SAVEVAR GLOBAL 男战名字 ..\QuestDiary\重要数据\天下第一数据.txt
    36. SAVEVAR GLOBAL 男战等级 ..\QuestDiary\重要数据\天下第一数据.txt
    37. SAVEVAR GLOBAL 男战经验 ..\QuestDiary\重要数据\天下第一数据.txt
    38. SAVEVAR GLOBAL 男战行会 ..\QuestDiary\重要数据\天下第一数据.txt
    39. SAVEVAR GLOBAL 男战时间 ..\QuestDiary\重要数据\天下第一数据.txt
    40. CALCVAR GLOBAL 女战名字 = 暂无入榜
    41. CALCVAR GLOBAL 女战等级 = 0
    42. CALCVAR GLOBAL 女战经验 = 0
    43. CALCVAR GLOBAL 女战行会 = 暂无
    44. CALCVAR GLOBAL 女战时间 =   
    45. SAVEVAR GLOBAL 女战名字 ..\QuestDiary\重要数据\天下第一数据.txt
    46. SAVEVAR GLOBAL 女战等级 ..\QuestDiary\重要数据\天下第一数据.txt
    47. SAVEVAR GLOBAL 女战经验 ..\QuestDiary\重要数据\天下第一数据.txt
    48. SAVEVAR GLOBAL 女战行会 ..\QuestDiary\重要数据\天下第一数据.txt
    49. SAVEVAR GLOBAL 女战时间 ..\QuestDiary\重要数据\天下第一数据.txt
    50. CALCVAR GLOBAL 女法名字 = 暂无入榜
    51. CALCVAR GLOBAL 女法等级 = 0
    52. CALCVAR GLOBAL 女法经验 = 0
    53. CALCVAR GLOBAL 女法行会 = 暂无
    54. CALCVAR GLOBAL 女法时间 =   
    55. SAVEVAR GLOBAL 女法名字 ..\QuestDiary\重要数据\天下第一数据.txt
    56. SAVEVAR GLOBAL 女法等级 ..\QuestDiary\重要数据\天下第一数据.txt
    57. SAVEVAR GLOBAL 女法经验 ..\QuestDiary\重要数据\天下第一数据.txt
    58. SAVEVAR GLOBAL 女法行会 ..\QuestDiary\重要数据\天下第一数据.txt
    59. SAVEVAR GLOBAL 女法时间 ..\QuestDiary\重要数据\天下第一数据.txt
    60. CALCVAR GLOBAL 男法名字 = 暂无入榜
    61. CALCVAR GLOBAL 男法等级 = 0
    62. CALCVAR GLOBAL 男法经验 = 0
    63. CALCVAR GLOBAL 男法行会 = 暂无
    64. CALCVAR GLOBAL 男法时间 =   
    65. SAVEVAR GLOBAL 男法名字 ..\QuestDiary\重要数据\天下第一数据.txt
    66. SAVEVAR GLOBAL 男法等级 ..\QuestDiary\重要数据\天下第一数据.txt
    67. SAVEVAR GLOBAL 男法经验 ..\QuestDiary\重要数据\天下第一数据.txt
    68. SAVEVAR GLOBAL 男法行会 ..\QuestDiary\重要数据\天下第一数据.txt
    69. SAVEVAR GLOBAL 男法时间 ..\QuestDiary\重要数据\天下第一数据.txt
    70. CALCVAR GLOBAL 男道名字 = 暂无入榜
    71. CALCVAR GLOBAL 男道等级 = 0
    72. CALCVAR GLOBAL 男道经验 = 0
    73. CALCVAR GLOBAL 男道行会 = 暂无
    74. CALCVAR GLOBAL 男道时间 =   
    75. SAVEVAR GLOBAL 男道名字 ..\QuestDiary\重要数据\天下第一数据.txt
    76. SAVEVAR GLOBAL 男道等级 ..\QuestDiary\重要数据\天下第一数据.txt
    77. SAVEVAR GLOBAL 男道经验 ..\QuestDiary\重要数据\天下第一数据.txt
    78. SAVEVAR GLOBAL 男道行会 ..\QuestDiary\重要数据\天下第一数据.txt
    79. SAVEVAR GLOBAL 男道时间 ..\QuestDiary\重要数据\天下第一数据.txt
    80. CALCVAR GLOBAL 女道名字 = 暂无入榜
    81. CALCVAR GLOBAL 女道等级 = 0
    82. CALCVAR GLOBAL 女道经验 = 0
    83. CALCVAR GLOBAL 女道行会 = 暂无
    84. CALCVAR GLOBAL 女道时间 =   
    85. SAVEVAR GLOBAL 女道名字 ..\QuestDiary\重要数据\天下第一数据.txt
    86. SAVEVAR GLOBAL 女道等级 ..\QuestDiary\重要数据\天下第一数据.txt
    87. SAVEVAR GLOBAL 女道经验 ..\QuestDiary\重要数据\天下第一数据.txt
    88. SAVEVAR GLOBAL 女道行会 ..\QuestDiary\重要数据\天下第一数据.txt
    89. SAVEVAR GLOBAL 女道时间 ..\QuestDiary\重要数据\天下第一数据.txt



    90. [@男战]
    91. #ACT
    92. MOV S0 <
    93. MOV S1 <
    94. MOV S2 <
    95. MOV S3 <
    96. MOV S4 <
    97. INC S0 <$GLOBAL(男战名字)>
    98. INC S1 <$GLOBAL(男战行会)>
    99. INC S2 <$GLOBAL(男战经验)>
    100. INC S3 <$GLOBAL(男战时间)>
    101. INC S4 <$GLOBAL(男战等级)>
    102. INC S0 /SCOLOR=255>
    103. INC S1 /SCOLOR=255>
    104. INC S2 /SCOLOR=255>
    105. INC S3 /SCOLOR=255>
    106. INC S4 级/SCOLOR=255>
    107. CloseBigDialogBox
    108. #SAY
    109. <╔/SCOLOR=249><──────────/SCOLOR=151>\
    110. <│/SCOLOR=151><天下第一男战/SCOLOR=250>:<[/SCOLOR=254><$STR(S0)><]/SCOLOR=254>   <【/SCOLOR=242><申请天下第一/@申请第一男战><】/SCOLOR=242>\
    111. <│/SCOLOR=151><上榜时间/SCOLOR=250>:<[/SCOLOR=254><$STR(S3)><]/SCOLOR=254>\
    112. <│/SCOLOR=151><所属行会/SCOLOR=250>:<[/SCOLOR=254><$STR(S1)><]/SCOLOR=254>\
    113. <│/SCOLOR=151><当时等级/SCOLOR=250>:<[/SCOLOR=254><$STR(S4)><]/SCOLOR=254>\
    114. <│/SCOLOR=151><当时经验/SCOLOR=250>:<[/SCOLOR=254><$STR(S2)><]/SCOLOR=254>\
    115.  <温馨提示/SCOLOR=253>:                      <│/SCOLOR=151>\
    116.     45级以上可申请.享受<全身属性攻道魔1.2倍属性  │/SCOLOR=151>\
    117.                   <──────────/SCOLOR=151><╝/SCOLOR=249>\ \ \

    118. [@申请第一男战]
    119. #IF
    120. CheckVar GLOBAL 女战名字 = <$USERNAME>
    121. #act
    122. MessageBox 伟大的王者神!正式宣布您已经是天下第一女战了
    123. break
    124. #IF
    125. CHECKLEVEL 45
    126. #elseact
    127. messagebox 您的级别太低,45级以上才可以申请天下第一。
    128. BREAK
    129. #IF
    130. GENDER MAN
    131. #ELSEACT
    132. messagebox 喂喂喂...你一个MM跑来想冒充帅哥啊
    133. break
    134. #IF
    135. CheckJob Taoist
    136. #ACT
    137. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    138. break
    139. #IF
    140. CheckJob Wizard
    141. #ACT
    142. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    143. break
    144. #if
    145. CHECKVAR GLOBAL 男战名字 = <$USERNAME>
    146. #ACT
    147. CALCVAR GLOBAL 男战等级 = <$LEVEL>
    148. CALCVAR GLOBAL 男战经验 = <$EXP>
    149. CALCVAR GLOBAL 男战行会 = <$GUILDNAME>
    150. SENDMSG 6 您的信息已经更新
    151. Gmexecute 开始提问 @男战还原
    152. SET [235] 1
    153. GOTO @main
    154. BREAK
    155. #IF
    156. CHECKLEVELEX > <$GLOBAL(男战等级)>
    157. #ACT
    158. CALCVAR GLOBAL 男战名字 = <$USERNAME>
    159. CALCVAR GLOBAL 男战等级 = <$LEVEL>
    160. CALCVAR GLOBAL 男战经验 = <$EXP>
    161. CALCVAR GLOBAL 男战行会 = <$GUILDNAME>
    162. CALCVAR GLOBAL 男战时间 = <$DATETIME>
    163. SAVEVAR GLOBAL 男战名字 ..\QuestDiary\重要数据\天下第一数据.txt
    164. SAVEVAR GLOBAL 男战等级 ..\QuestDiary\重要数据\天下第一数据.txt
    165. SAVEVAR GLOBAL 男战经验 ..\QuestDiary\重要数据\天下第一数据.txt
    166. SAVEVAR GLOBAL 男战行会 ..\QuestDiary\重要数据\天下第一数据.txt
    167. SAVEVAR GLOBAL 男战时间 ..\QuestDiary\重要数据\天下第一数据.txt
    168. SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了風雲天下第一男战士! 1
    169. messagebox 为为止数据出错,请小退给于天下第一属性!
    170. Gmexecute 开始提问 @男战还原
    171. SET [235] 1
    172. GOTO @main
    173. break
    174. #IF
    175. CHECKLEVELEX = <$GLOBAL(男战等级)>
    176. CHECKEXP > <$GLOBAL(男战经验)>
    177. #ACT
    178. CALCVAR GLOBAL 男战名字 = <$USERNAME>
    179. CALCVAR GLOBAL 男战等级 = <$LEVEL>
    180. CALCVAR GLOBAL 男战经验 = <$EXP>
    181. CALCVAR GLOBAL 男战行会 = <$GUILDNAME>
    182. CALCVAR GLOBAL 男战时间 = <$DATETIME>
    183. SAVEVAR GLOBAL 男战名字 ..\QuestDiary\重要数据\天下第一数据.txt
    184. SAVEVAR GLOBAL 男战等级 ..\QuestDiary\重要数据\天下第一数据.txt
    185. SAVEVAR GLOBAL 男战经验 ..\QuestDiary\重要数据\天下第一数据.txt
    186. SAVEVAR GLOBAL 男战行会 ..\QuestDiary\重要数据\天下第一数据.txt
    187. SAVEVAR GLOBAL 男战时间 ..\QuestDiary\重要数据\天下第一数据.txt
    188. SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了風雲天下第一男战士! 1
    189. messagebox 为为止数据出错,请小退给于天下第一属性!
    190. Gmexecute 开始提问 @男战还原
    191. SET [235] 1
    192. GOTO @main
    193. break
    194. #ELSEACT
    195. messagebox 对不起,申请失败。\您的等级未超越天下第一男战士的等级\或者您的等级和天下第一男战士相同\但经验未超过目前天下第一男战士的[<$GLOBAL(男战经验)>]经验!



    196. [@女战]
    197. #ACT
    198. MOV S0 <
    199. MOV S1 <
    200. MOV S2 <
    201. MOV S3 <
    202. MOV S4 <
    203. INC S0 <$GLOBAL(女战名字)>
    204. INC S1 <$GLOBAL(女战行会)>
    205. INC S2 <$GLOBAL(女战经验)>
    206. INC S3 <$GLOBAL(女战时间)>
    207. INC S4 <$GLOBAL(女战等级)>
    208. INC S0 /SCOLOR=255>
    209. INC S1 /SCOLOR=255>
    210. INC S2 /SCOLOR=255>
    211. INC S3 /SCOLOR=255>
    212. INC S4 级/SCOLOR=255>
    213. CloseBigDialogBox
    214. #SAY
    215. <╔/SCOLOR=249><──────────/SCOLOR=151>\
    216. <│/SCOLOR=151><天下第一女战/SCOLOR=250>:<[/SCOLOR=254><$STR(S0)><]/SCOLOR=254>   <【/SCOLOR=242><申请天下第一/@申请第一女战><】/SCOLOR=242>\
    217. <│/SCOLOR=151><上榜时间/SCOLOR=250>:<[/SCOLOR=254><$STR(S3)><]/SCOLOR=254>\
    218. <│/SCOLOR=151><所属行会/SCOLOR=250>:<[/SCOLOR=254><$STR(S1)><]/SCOLOR=254>\
    219. <│/SCOLOR=151><当时等级/SCOLOR=250>:<[/SCOLOR=254><$STR(S4)><]/SCOLOR=254>\
    220. <│/SCOLOR=151><当时经验/SCOLOR=250>:<[/SCOLOR=254><$STR(S2)><]/SCOLOR=254>\
    221.  <温馨提示/SCOLOR=253>:                      <│/SCOLOR=151>\
    222.     45级以上可申请.享受<全身属性攻道魔1.2倍属性│/SCOLOR=151>\
    223.                   <──────────/SCOLOR=151><╝/SCOLOR=249>\ \ \

    224. [@申请第一女战]
    225. #IF
    226. CheckVar GLOBAL 男战名字 = <$USERNAME>
    227. #act
    228. MessageBox 伟大的王者神!正式宣布您已经是天下第一男战了
    229. break
    230. #IF
    231. CHECKLEVEL 45
    232. #elseact
    233. messagebox 您的级别太低,45级以上才可以申请天下第一。
    234. BREAK
    235. #IF
    236. GENDER MAN
    237. #ACT
    238. messagebox 喂喂喂...你一个帅哥跑来想冒充MM啊!
    239. break
    240. #IF
    241. CheckJob Taoist
    242. #ACT
    243. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    244. break
    245. #IF
    246. CheckJob Wizard
    247. #ACT
    248. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    249. break
    250. #if
    251. CHECKVAR GLOBAL 女战名字 = <$USERNAME>
    252. #ACT
    253. CALCVAR GLOBAL 女战等级 = <$LEVEL>
    254. CALCVAR GLOBAL 女战经验 = <$EXP>
    255. CALCVAR GLOBAL 女战行会 = <$GUILDNAME>
    256. SENDMSG 6 您的信息已经更新
    257. GOTO @main
    258. BREAK
    259. #IF
    260. CHECKLEVELEX > <$GLOBAL(女战等级)>
    261. #ACT
    262. CALCVAR GLOBAL 女战名字 = <$USERNAME>
    263. CALCVAR GLOBAL 女战等级 = <$LEVEL>
    264. CALCVAR GLOBAL 女战经验 = <$EXP>
    265. CALCVAR GLOBAL 女战行会 = <$GUILDNAME>
    266. CALCVAR GLOBAL 女战时间 = <$DATETIME>
    267. SAVEVAR GLOBAL 女战名字 ..\QuestDiary\重要数据\天下第一数据.txt
    268. SAVEVAR GLOBAL 女战等级 ..\QuestDiary\重要数据\天下第一数据.txt
    269. SAVEVAR GLOBAL 女战经验 ..\QuestDiary\重要数据\天下第一数据.txt
    270. SAVEVAR GLOBAL 女战行会 ..\QuestDiary\重要数据\天下第一数据.txt
    271. SAVEVAR GLOBAL 女战时间 ..\QuestDiary\重要数据\天下第一数据.txt
    272. SendCenterMsg 161 249   恭喜“<$USERNAME>”成功申请成为了風雲天下第一女战士! 1
    273. messagebox 为为止数据出错,请小退给于天下第一属性!
    274. Gmexecute 开始提问 @女战还原
    275. SET [236] 1
    276. GOTO @main
    277. break
    278. #IF
    279. CHECKLEVELEX = <$GLOBAL(女战等级)>
    280. CHECKEXP > <$GLOBAL(女战经验)>
    281. #ACT
    282. CALCVAR GLOBAL 女战名字 = <$USERNAME>
    283. CALCVAR GLOBAL 女战等级 = <$LEVEL>
    284. CALCVAR GLOBAL 女战经验 = <$EXP>
    285. CALCVAR GLOBAL 女战行会 = <$GUILDNAME>
    286. CALCVAR GLOBAL 女战时间 = <$DATETIME>
    287. SAVEVAR GLOBAL 女战名字 ..\QuestDiary\重要数据\天下第一数据.txt
    288. SAVEVAR GLOBAL 女战等级 ..\QuestDiary\重要数据\天下第一数据.txt
    289. SAVEVAR GLOBAL 女战经验 ..\QuestDiary\重要数据\天下第一数据.txt
    290. SAVEVAR GLOBAL 女战行会 ..\QuestDiary\重要数据\天下第一数据.txt
    291. SAVEVAR GLOBAL 女战时间 ..\QuestDiary\重要数据\天下第一数据.txt
    292. SendCenterMsg 161 249   恭喜“<$USERNAME>”成功申请成为了風雲天下第一女战士! 1
    293. messagebox 为为止数据出错,请小退给于天下第一属性!
    294. Gmexecute 开始提问 @女战还原
    295. SET [236] 1
    296. GOTO @main
    297. break
    298. #ELSEACT
    299. messagebox 对不起,申请失败。\您的等级未超越天下第一女战士的等级\或者您的等级和天下第一女战士相同\但经验未超过目前天下第一女战士的[<$GLOBAL(女战经验)>]经验!



    300. [@男道]
    301. #ACT
    302. MOV S0 <
    303. MOV S1 <
    304. MOV S2 <
    305. MOV S3 <
    306. MOV S4 <
    307. INC S0 <$GLOBAL(男道名字)>
    308. INC S1 <$GLOBAL(男道行会)>
    309. INC S2 <$GLOBAL(男道经验)>
    310. INC S3 <$GLOBAL(男道时间)>
    311. INC S4 <$GLOBAL(男道等级)>
    312. INC S0 /SCOLOR=255>
    313. INC S1 /SCOLOR=255>
    314. INC S2 /SCOLOR=255>
    315. INC S3 /SCOLOR=255>
    316. INC S4 级/SCOLOR=255>
    317. CloseBigDialogBox
    318. #SAY
    319. <╔/SCOLOR=249><──────────/SCOLOR=151>\
    320. <│/SCOLOR=151><天下第一男道/SCOLOR=250>:<[/SCOLOR=254><$STR(S0)><]/SCOLOR=254>   <【/SCOLOR=242><申请天下第一/@申请第一男道><】/SCOLOR=242>\
    321. <│/SCOLOR=151><上榜时间/SCOLOR=250>:<[/SCOLOR=254><$STR(S3)><]/SCOLOR=254>\
    322. <│/SCOLOR=151><所属行会/SCOLOR=250>:<[/SCOLOR=254><$STR(S1)><]/SCOLOR=254>\
    323. <│/SCOLOR=151><当时等级/SCOLOR=250>:<[/SCOLOR=254><$STR(S4)><]/SCOLOR=254>\
    324. <│/SCOLOR=151><当时经验/SCOLOR=250>:<[/SCOLOR=254><$STR(S2)><]/SCOLOR=254>\
    325.  <温馨提示/SCOLOR=253>:                      <│/SCOLOR=151>\
    326.     45级以上可申请.享受<全身属性攻道魔1.2倍属性│/SCOLOR=151>\
    327.                   <──────────/SCOLOR=151><╝/SCOLOR=249>\ \ \

    328. [@申请第一男道]
    329. #IF
    330. CheckVar GLOBAL 女道名字 = <$USERNAME>
    331. #act
    332. MessageBox 伟大的神!正式宣布您已经是天下第一女道了
    333. break
    334. #IF
    335. GENDER MAN
    336. #ELSEACT
    337. messagebox 喂喂喂...你一个MM跑来想冒充帅哥啊
    338. break
    339. #IF
    340. CheckJob Warrior
    341. #ACT
    342. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    343. break
    344. #IF
    345. CheckJob Wizard
    346. #ACT
    347. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    348. break
    349. #IF
    350. GENDER MAN
    351. #ELSEACT
    352. messagebox 喂喂喂...你一个MM跑来想冒充帅哥啊
    353. break
    354. #IF
    355. CheckJob Wizard
    356. #ACT
    357. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    358. break
    359. #if
    360. CHECKVAR GLOBAL 男道名字 = <$USERNAME>
    361. #ACT
    362. CALCVAR GLOBAL 男道等级 = <$LEVEL>
    363. CALCVAR GLOBAL 男道经验 = <$EXP>
    364. CALCVAR GLOBAL 男道行会 = <$GUILDNAME>
    365. SENDMSG 6 您的信息已经更新
    366. GOTO @main
    367. BREAK
    368. #IF
    369. CHECKLEVELEX > <$GLOBAL(男道等级)>
    370. #ACT
    371. CALCVAR GLOBAL 男道名字 = <$USERNAME>
    372. CALCVAR GLOBAL 男道等级 = <$LEVEL>
    373. CALCVAR GLOBAL 男道经验 = <$EXP>
    374. CALCVAR GLOBAL 男道行会 = <$GUILDNAME>
    375. CALCVAR GLOBAL 男道时间 = <$DATETIME>
    376. SAVEVAR GLOBAL 男道名字 ..\QuestDiary\重要数据\天下第一数据.txt
    377. SAVEVAR GLOBAL 男道等级 ..\QuestDiary\重要数据\天下第一数据.txt
    378. SAVEVAR GLOBAL 男道经验 ..\QuestDiary\重要数据\天下第一数据.txt
    379. SAVEVAR GLOBAL 男道行会 ..\QuestDiary\重要数据\天下第一数据.txt
    380. SAVEVAR GLOBAL 男道时间 ..\QuestDiary\重要数据\天下第一数据.txt
    381. SendCenterMsg 161 249   恭喜“<$USERNAME>”成功申请成为了風雲天下第一男道士! 1
    382. messagebox 为为止数据出错,请小退给于天下第一属性!
    383. Gmexecute 开始提问 @男道还原
    384. SET [237] 1
    385. GOTO @main
    386. break
    387. #IF
    388. CHECKLEVELEX = <$GLOBAL(男道等级)>
    389. CHECKEXP > <$GLOBAL(男道经验)>
    390. #ACT
    391. CALCVAR GLOBAL 男道名字 = <$USERNAME>
    392. CALCVAR GLOBAL 男道等级 = <$LEVEL>
    393. CALCVAR GLOBAL 男道经验 = <$EXP>
    394. CALCVAR GLOBAL 男道行会 = <$GUILDNAME>
    395. CALCVAR GLOBAL 男道时间 = <$DATETIME>
    396. SAVEVAR GLOBAL 男道名字 ..\QuestDiary\重要数据\天下第一数据.txt
    397. SAVEVAR GLOBAL 男道等级 ..\QuestDiary\重要数据\天下第一数据.txt
    398. SAVEVAR GLOBAL 男道经验 ..\QuestDiary\重要数据\天下第一数据.txt
    399. SAVEVAR GLOBAL 男道行会 ..\QuestDiary\重要数据\天下第一数据.txt
    400. SAVEVAR GLOBAL 男道时间 ..\QuestDiary\重要数据\天下第一数据.txt
    401. SendCenterMsg 161 249   恭喜“<$USERNAME>”成功申请成为了風雲天下第一男道士! 1
    402. messagebox 为为止数据出错,请小退给于天下第一属性!
    403. Gmexecute 开始提问 @男道还原
    404. SET [237] 1
    405. GOTO @main
    406. break
    407. #ELSEACT
    408. messagebox 对不起,申请失败。\您的等级未超越天下第一男道士的等级\或者您的等级和天下第一男道士相同\但经验未超过目前天下第一男道士的[<$GLOBAL(男道经验)>]经验!







    409. [@女道]
    410. #ACT
    411. MOV S0 <
    412. MOV S1 <
    413. MOV S2 <
    414. MOV S3 <
    415. MOV S4 <
    416. INC S0 <$GLOBAL(女道名字)>
    417. INC S1 <$GLOBAL(女道行会)>
    418. INC S2 <$GLOBAL(女道经验)>
    419. INC S3 <$GLOBAL(女道时间)>
    420. INC S4 <$GLOBAL(女道等级)>
    421. INC S0 /SCOLOR=255>
    422. INC S1 /SCOLOR=255>
    423. INC S2 /SCOLOR=255>
    424. INC S3 /SCOLOR=255>
    425. INC S4 级/SCOLOR=255>
    426. CloseBigDialogBox
    427. #SAY
    428. <╔/SCOLOR=249><──────────/SCOLOR=151>\
    429. <│/SCOLOR=151><天下第一女道/SCOLOR=250>:<[/SCOLOR=254><$STR(S0)><]/SCOLOR=254>   <【/SCOLOR=242><申请天下第一/@申请第一女道><】/SCOLOR=242>\
    430. <│/SCOLOR=151><上榜时间/SCOLOR=250>:<[/SCOLOR=254><$STR(S3)><]/SCOLOR=254>\
    431. <│/SCOLOR=151><所属行会/SCOLOR=250>:<[/SCOLOR=254><$STR(S1)><]/SCOLOR=254>\
    432. <│/SCOLOR=151><当时等级/SCOLOR=250>:<[/SCOLOR=254><$STR(S4)><]/SCOLOR=254>\
    433. <│/SCOLOR=151><当时经验/SCOLOR=250>:<[/SCOLOR=254><$STR(S2)><]/SCOLOR=254>\
    434.  <温馨提示/SCOLOR=253>:                      <│/SCOLOR=151>\
    435.     45级以上可申请.享受<全身属性攻道魔1.2倍属性│/SCOLOR=151>\
    436.                   <──────────/SCOLOR=151><╝/SCOLOR=249>\ \ \

    437. [@申请第一女道]
    438. #IF
    439. CheckVar GLOBAL 男道名字 = <$USERNAME>
    440. #act
    441. MessageBox 伟大的王者神!正式宣布您已经是天下第一男道了
    442. break
    443. #IF
    444. CHECKLEVEL 45
    445. #elseact
    446. messagebox 您的级别太低,45级以上才可以申请天下第一。
    447. BREAK
    448. #IF
    449. GENDER MAN
    450. #ACT
    451. messagebox 喂喂喂...你一个帅哥跑来想冒充MM啊!
    452. break
    453. #IF
    454. CheckJob Warrior
    455. #ACT
    456. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    457. break
    458. #IF
    459. CheckJob Wizard
    460. #ACT
    461. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    462. break
    463. #if
    464. CHECKVAR GLOBAL 女道名字 = <$USERNAME>
    465. #ACT
    466. CALCVAR GLOBAL 女道等级 = <$LEVEL>
    467. CALCVAR GLOBAL 女道经验 = <$EXP>
    468. CALCVAR GLOBAL 女道行会 = <$GUILDNAME>
    469. SENDMSG 6 您的信息已经更新
    470. GOTO @main
    471. BREAK
    472. #IF
    473. CHECKLEVELEX > <$GLOBAL(女道等级)>
    474. #ACT
    475. CALCVAR GLOBAL 女道名字 = <$USERNAME>
    476. CALCVAR GLOBAL 女道等级 = <$LEVEL>
    477. CALCVAR GLOBAL 女道经验 = <$EXP>
    478. CALCVAR GLOBAL 女道行会 = <$GUILDNAME>
    479. CALCVAR GLOBAL 女道时间 = <$DATETIME>
    480. SAVEVAR GLOBAL 女道名字 ..\QuestDiary\重要数据\天下第一数据.txt
    481. SAVEVAR GLOBAL 女道等级 ..\QuestDiary\重要数据\天下第一数据.txt
    482. SAVEVAR GLOBAL 女道经验 ..\QuestDiary\重要数据\天下第一数据.txt
    483. SAVEVAR GLOBAL 女道行会 ..\QuestDiary\重要数据\天下第一数据.txt
    484. SAVEVAR GLOBAL 女道时间 ..\QuestDiary\重要数据\天下第一数据.txt
    485. SendCenterMsg 161 249 恭喜“<$USERNAME>”成功申请成为了風雲天下第一女道士! 1
    486. messagebox 为为止数据出错,请小退给于天下第一属性!
    487. Gmexecute 开始提问 @女道还原
    488. SET [238] 1
    489. GOTO @main
    490. break
    491. #IF
    492. CHECKLEVELEX = <$GLOBAL(女道等级)>
    493. CHECKEXP > <$GLOBAL(女道经验)>
    494. #ACT
    495. CALCVAR GLOBAL 女道名字 = <$USERNAME>
    496. CALCVAR GLOBAL 女道等级 = <$LEVEL>
    497. CALCVAR GLOBAL 女道经验 = <$EXP>
    498. CALCVAR GLOBAL 女道行会 = <$GUILDNAME>
    499. CALCVAR GLOBAL 女道时间 = <$DATETIME>
    500. SAVEVAR GLOBAL 女道名字 ..\QuestDiary\重要数据\天下第一数据.txt
    501. SAVEVAR GLOBAL 女道等级 ..\QuestDiary\重要数据\天下第一数据.txt
    502. SAVEVAR GLOBAL 女道经验 ..\QuestDiary\重要数据\天下第一数据.txt
    503. SAVEVAR GLOBAL 女道行会 ..\QuestDiary\重要数据\天下第一数据.txt
    504. SAVEVAR GLOBAL 女道时间 ..\QuestDiary\重要数据\天下第一数据.txt
    505. SendCenterMsg 161 249 恭喜“<$USERNAME>”成功申请成为了風雲天下第一女道士! 1
    506. messagebox 为为止数据出错,请小退给于天下第一属性!
    507. Gmexecute 开始提问 @女道还原
    508. SET [238] 1
    509. GOTO @main
    510. break
    511. #ELSEACT
    512. messagebox 对不起,申请失败。\您的等级未超越天下第一女道士的等级\或者您的等级和天下第一女道士相同\但经验未超过目前天下第一女道士的[<$GLOBAL(女道经验)>]经验!




    513. [@男法]
    514. #ACT
    515. MOV S0 <
    516. MOV S1 <
    517. MOV S2 <
    518. MOV S3 <
    519. MOV S4 <
    520. INC S0 <$GLOBAL(男法名字)>
    521. INC S1 <$GLOBAL(男法行会)>
    522. INC S2 <$GLOBAL(男法经验)>
    523. INC S3 <$GLOBAL(男法时间)>
    524. INC S4 <$GLOBAL(男法等级)>
    525. INC S0 /SCOLOR=255>
    526. INC S1 /SCOLOR=255>
    527. INC S2 /SCOLOR=255>
    528. INC S3 /SCOLOR=255>
    529. INC S4 级/SCOLOR=255>
    530. CloseBigDialogBox
    531. #SAY
    532. <╔/SCOLOR=249><──────────/SCOLOR=151>\
    533. <│/SCOLOR=151><天下第一男法/SCOLOR=250>:<[/SCOLOR=254><$STR(S0)><]/SCOLOR=254>   <【/SCOLOR=242><申请天下第一/@申请第一男法><】/SCOLOR=242>\
    534. <│/SCOLOR=151><上榜时间/SCOLOR=250>:<[/SCOLOR=254><$STR(S3)><]/SCOLOR=254>\
    535. <│/SCOLOR=151><所属行会/SCOLOR=250>:<[/SCOLOR=254><$STR(S1)><]/SCOLOR=254>\
    536. <│/SCOLOR=151><当时等级/SCOLOR=250>:<[/SCOLOR=254><$STR(S4)><]/SCOLOR=254>\
    537. <│/SCOLOR=151><当时经验/SCOLOR=250>:<[/SCOLOR=254><$STR(S2)><]/SCOLOR=254>\
    538.  <温馨提示/SCOLOR=253>:                      <│/SCOLOR=151>\
    539.     45级以上可申请.享受<全身属性攻道魔1.2倍属性│/SCOLOR=151>\
    540.                   <──────────/SCOLOR=151><╝/SCOLOR=249>\ \ \
    541. [@申请第一男法]
    542. #IF
    543. CheckVar GLOBAL 女法名字 = <$USERNAME>
    544. #act
    545. MessageBox 伟大的王者神!正式宣布您已经是天下第一女法了
    546. break
    547. #IF
    548. CHECKLEVEL 45
    549. #elseact
    550. messagebox 您的级别太低,45级以上才可以申请天下第一。
    551. BREAK
    552. #IF
    553. GENDER MAN
    554. #ELSEACT
    555. messagebox 喂喂喂...你一个MM跑来想冒充帅哥啊
    556. break
    557. #IF
    558. CheckJob Warrior
    559. #ACT
    560. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    561. break
    562. #IF
    563. CheckJob Taoist
    564. #ACT
    565. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    566. break
    567. #if
    568. CHECKVAR GLOBAL 男法名字 = <$USERNAME>
    569. #ACT
    570. CALCVAR GLOBAL 男法等级 = <$LEVEL>
    571. CALCVAR GLOBAL 男法经验 = <$EXP>
    572. CALCVAR GLOBAL 男法行会 = <$GUILDNAME>
    573. SENDMSG 6 您的信息已经更新
    574. GOTO @main
    575. BREAK
    576. #IF
    577. CHECKLEVELEX > <$GLOBAL(男法等级)>
    578. #ACT
    579. CALCVAR GLOBAL 男法名字 = <$USERNAME>
    580. CALCVAR GLOBAL 男法等级 = <$LEVEL>
    581. CALCVAR GLOBAL 男法经验 = <$EXP>
    582. CALCVAR GLOBAL 男法行会 = <$GUILDNAME>
    583. CALCVAR GLOBAL 男法时间 = <$DATETIME>
    584. SAVEVAR GLOBAL 男法名字 ..\QuestDiary\重要数据\天下第一数据.txt
    585. SAVEVAR GLOBAL 男法等级 ..\QuestDiary\重要数据\天下第一数据.txt
    586. SAVEVAR GLOBAL 男法经验 ..\QuestDiary\重要数据\天下第一数据.txt
    587. SAVEVAR GLOBAL 男法行会 ..\QuestDiary\重要数据\天下第一数据.txt
    588. SAVEVAR GLOBAL 男法时间 ..\QuestDiary\重要数据\天下第一数据.txt
    589. SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了風雲天下第一男法师! 1
    590. messagebox 为为止数据出错,请小退给于天下第一属性!
    591. Gmexecute 开始提问 @男法还原
    592. SET [239] 1
    593. GOTO @main
    594. break
    595. #IF
    596. CHECKLEVELEX = <$GLOBAL(男法等级)>
    597. CHECKEXP > <$GLOBAL(男法经验)>
    598. #ACT
    599. CALCVAR GLOBAL 男法名字 = <$USERNAME>
    600. CALCVAR GLOBAL 男法等级 = <$LEVEL>
    601. CALCVAR GLOBAL 男法经验 = <$EXP>
    602. CALCVAR GLOBAL 男法行会 = <$GUILDNAME>
    603. CALCVAR GLOBAL 男法时间 = <$DATETIME>
    604. SAVEVAR GLOBAL 男法名字 ..\QuestDiary\重要数据\天下第一数据.txt
    605. SAVEVAR GLOBAL 男法等级 ..\QuestDiary\重要数据\天下第一数据.txt
    606. SAVEVAR GLOBAL 男法经验 ..\QuestDiary\重要数据\天下第一数据.txt
    607. SAVEVAR GLOBAL 男法行会 ..\QuestDiary\重要数据\天下第一数据.txt
    608. SAVEVAR GLOBAL 男法时间 ..\QuestDiary\重要数据\天下第一数据.txt
    609. SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了風雲天下第一男法师! 1
    610. messagebox 为为止数据出错,请小退给于天下第一属性!
    611. Gmexecute 开始提问 @男法还原
    612. SET [239] 1
    613. GOTO @main
    614. break
    615. #ELSEACT
    616. messagebox 对不起,申请失败。\您的等级未超越天下第一男法师的等级\或者您的等级和天下第一男法师相同\但经验未超过目前天下第一男法师的[<$GLOBAL(男法经验)>]经验!




    617. [@女法]
    618. #ACT
    619. MOV S0 <
    620. MOV S1 <
    621. MOV S2 <
    622. MOV S3 <
    623. MOV S4 <
    624. INC S0 <$GLOBAL(女法名字)>
    625. INC S1 <$GLOBAL(女法行会)>
    626. INC S2 <$GLOBAL(女法经验)>
    627. INC S3 <$GLOBAL(女法时间)>
    628. INC S4 <$GLOBAL(女法等级)>
    629. INC S0 /SCOLOR=255>
    630. INC S1 /SCOLOR=255>
    631. INC S2 /SCOLOR=255>
    632. INC S3 /SCOLOR=255>
    633. INC S4 级/SCOLOR=255>
    634. CloseBigDialogBox
    635. #SAY
    636. <╔/SCOLOR=249><──────────/SCOLOR=151>\
    637. <│/SCOLOR=151><天下第一女法/SCOLOR=250>:<[/SCOLOR=254><$STR(S0)><]/SCOLOR=254>   <【/SCOLOR=242><申请天下第一/@申请第一女法><】/SCOLOR=242>\
    638. <│/SCOLOR=151><上榜时间/SCOLOR=250>:<[/SCOLOR=254><$STR(S3)><]/SCOLOR=254>\
    639. <│/SCOLOR=151><所属行会/SCOLOR=250>:<[/SCOLOR=254><$STR(S1)><]/SCOLOR=254>\
    640. <│/SCOLOR=151><当时等级/SCOLOR=250>:<[/SCOLOR=254><$STR(S4)><]/SCOLOR=254>\
    641. <│/SCOLOR=151><当时经验/SCOLOR=250>:<[/SCOLOR=254><$STR(S2)><]/SCOLOR=254>\
    642.  <温馨提示/SCOLOR=253>:                      <│/SCOLOR=151>\
    643.     45级以上可申请.享受<全身属性攻道魔1.2倍属性│/SCOLOR=151>\
    644.                   <──────────/SCOLOR=151><╝/SCOLOR=249>\ \ \
    645. [@申请第一女法]
    646. #IF
    647. CheckVar GLOBAL 男法名字 = <$USERNAME>
    648. #act
    649. MessageBox 伟大的王者神!正式宣布您已经是天下第一男法了
    650. break
    651. #IF
    652. CHECKLEVEL 45
    653. #elseact
    654. messagebox 您的级别太低,45级以上才可以申请天下第一。
    655. BREAK
    656. #IF
    657. GENDER MAN
    658. #ACT
    659. messagebox 喂喂喂...你一个帅哥跑来想冒充MM啊!
    660. break
    661. #IF
    662. CheckJob Warrior
    663. #ACT
    664. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    665. break
    666. #IF
    667. CheckJob Taoist
    668. #ACT
    669. messagebox 额?职业不对口,你想欺骗我这双真诚的眼睛吗?
    670. break
    671. #if
    672. CHECKVAR GLOBAL 女法名字 = <$USERNAME>
    673. #ACT
    674. CALCVAR GLOBAL 女法等级 = <$LEVEL>
    675. CALCVAR GLOBAL 女法经验 = <$EXP>
    676. CALCVAR GLOBAL 女法行会 = <$GUILDNAME>
    677. SENDMSG 6 您的信息已经更新
    678. GOTO @main
    679. BREAK
    680. #IF
    681. CHECKLEVELEX > <$GLOBAL(女法等级)>
    682. #ACT
    683. CALCVAR GLOBAL 女法名字 = <$USERNAME>
    684. CALCVAR GLOBAL 女法等级 = <$LEVEL>
    685. CALCVAR GLOBAL 女法经验 = <$EXP>
    686. CALCVAR GLOBAL 女法行会 = <$GUILDNAME>
    687. CALCVAR GLOBAL 女法时间 = <$DATETIME>
    688. SAVEVAR GLOBAL 女法名字 ..\QuestDiary\重要数据\天下第一数据.txt
    689. SAVEVAR GLOBAL 女法等级 ..\QuestDiary\重要数据\天下第一数据.txt
    690. SAVEVAR GLOBAL 女法经验 ..\QuestDiary\重要数据\天下第一数据.txt
    691. SAVEVAR GLOBAL 女法行会 ..\QuestDiary\重要数据\天下第一数据.txt
    692. SAVEVAR GLOBAL 女法时间 ..\QuestDiary\重要数据\天下第一数据.txt
    693. SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了風雲天下第一女法师! 1
    694. messagebox 为为止数据出错,请小退给于天下第一属性!
    695. Gmexecute 开始提问 @女法还原
    696. SET [240] 1
    697. GOTO @main
    698. break
    699. #IF
    700. CHECKLEVELEX = <$GLOBAL(女法等级)>
    701. CHECKEXP > <$GLOBAL(女法经验)>
    702. #ACT
    703. CALCVAR GLOBAL 女法名字 = <$USERNAME>
    704. CALCVAR GLOBAL 女法等级 = <$LEVEL>
    705. CALCVAR GLOBAL 女法经验 = <$EXP>
    706. CALCVAR GLOBAL 女法行会 = <$GUILDNAME>
    707. CALCVAR GLOBAL 女法时间 = <$DATETIME>
    708. SAVEVAR GLOBAL 女法名字 ..\QuestDiary\重要数据\天下第一数据.txt
    709. SAVEVAR GLOBAL 女法等级 ..\QuestDiary\重要数据\天下第一数据.txt
    710. SAVEVAR GLOBAL 女法经验 ..\QuestDiary\重要数据\天下第一数据.txt
    711. SAVEVAR GLOBAL 女法行会 ..\QuestDiary\重要数据\天下第一数据.txt
    712. SAVEVAR GLOBAL 女法时间 ..\QuestDiary\重要数据\天下第一数据.txt
    713. SendCenterMsg 161 249   恭喜“<$USERNAME>”成功申请成为了風雲天下第一女法师! 1
    714. messagebox 为为止数据出错,请小退给于天下第一属性!
    715. Gmexecute 开始提问 @女法还原
    716. SET [240] 1
    717. GOTO @main
    718. break
    719. #ELSEACT
    720. messagebox 对不起,申请失败。\您的等级未超越天下第一女法师的等级\或者您的等级和天下第一女法师相同\但经验未超过目前天下第一女法师的[<$GLOBAL(女法经验)>]经验!
    复制代码


    回复

    使用道具 举报

    Archiver|手机版|小黑屋|藏宝游

    GMT+8, 2021-10-20 03:07 , Processed in 0.040939 second(s), 22 queries .

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表