Gom引擎脚本-天下第一

[@main]
#IF
#act
MOV S$天下第一男战 <$STR(A21)>
MOV S$天下第一女战 <$STR(A24)>
MOV S$天下第一男法 <$STR(A27)>
MOV S$天下第一女法 <$STR(A30)>
MOV S$天下第一男道 <$STR(A33)>
MOV S$天下第一女道 <$STR(A36)>
#IF
Equal A22
#act
MOV A22 00
#IF
Equal A25
#act
MOV A25 00
#IF
Equal A28
#act
MOV A28 00
#IF
Equal A31
#act
MOV A31 00
#IF
Equal A34
#act
MOV A34 00
#IF
Equal A37
#act
MOV A37 00
#IF
Equal A21
#act
MOV S$天下第一男战 暂无申请..
#IF
Equal A24
#act
MOV S$天下第一女战 暂无申请..
#IF
Equal A27
#act
MOV S$天下第一男法 暂无申请..
#IF
Equal A30
#act
MOV S$天下第一女法 暂无申请..
#IF
Equal A33
#act
MOV S$天下第一男道 暂无申请..
#IF
Equal A36
#act
MOV S$天下第一女道 暂无申请..
#IF
Equal A23
#act
MOV A23 暂无行会..
#IF
Equal A26
#act
MOV A26 暂无行会..
#IF
Equal A29
#act
MOV A29 暂无行会..
#IF
Equal A32
#act
MOV A32 暂无行会..
#IF
Equal A35
#act
MOV A35 暂无行会..
#IF
Equal A38
#act
MOV A38 暂无行会..
#IF
#act
SetStringBlank <$STR(S$天下第一男战)> 14 1
SetStringBlank <$STR(S$天下第一女战)> 14 1
SetStringBlank <$STR(S$天下第一男法)> 14 1
SetStringBlank <$STR(S$天下第一女法)> 14 1
SetStringBlank <$STR(S$天下第一男道)> 14 1
SetStringBlank <$STR(S$天下第一女道)> 14 1
SetStringBlank <$STR(A23)> 16 1
SetStringBlank <$STR(A26)> 16 1
SetStringBlank <$STR(A29)> 16 1
SetStringBlank <$STR(A32)> 16 1
SetStringBlank <$STR(A35)> 16 1
SetStringBlank <$STR(A38)> 16 1
#IF
ISADMIN
checkitem 玉玺灵牌 1
#say
<--------------------------------------------------------------/AUTOCOLOR=91>\
<职业类别/AUTOCOLOR=229>     <玩家名字/AUTOCOLOR=254>          <申请等级/AUTOCOLOR=250>   <效忠的行会/AUTOCOLOR=242>    <清空/@清空天下第一>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<第一男战士：/SCOLOR=147>【{<$STR(S$天下第一男战)>/SCOLOR=147}】   {LV.<$STR(A22)>/SCOLOR=95}   【{<$STR(A23)>/SCOLOR=95}】\
<第一女战士：/SCOLOR=147>【{<$STR(S$天下第一女战)>/SCOLOR=147}】   {LV.<$STR(A25)>/SCOLOR=103}   【{<$STR(A26)>/SCOLOR=103}】\
<第一男法师：/SCOLOR=145>【{<$STR(S$天下第一男法)>/SCOLOR=145}】   {LV.<$STR(A28)>/SCOLOR=89}   【{<$STR(A29)>/SCOLOR=89}】\
<第一女法师：/SCOLOR=155>【{<$STR(S$天下第一女法)>/SCOLOR=155}】   {LV.<$STR(A31)>/SCOLOR=93}   【{<$STR(A32)>/SCOLOR=93}】\
<第一男道士：/SCOLOR=156>【{<$STR(S$天下第一男道)>/SCOLOR=156}】   {LV.<$STR(A34)>/SCOLOR=92}   【{<$STR(A35)>/SCOLOR=92}】\
<第一女道士：/SCOLOR=157>【{<$STR(S$天下第一女道)>/SCOLOR=157}】   {LV.<$STR(A37)>/SCOLOR=91}   【{<$STR(A38)>/SCOLOR=91}】\ \ \
<提示：天下第一名单为3小时清空一次，清空后可重新申请！>\
#ELSESAY
<--------------------------------------------------------------/AUTOCOLOR=91>\
<职业类别/AUTOCOLOR=229>     <玩家名字/AUTOCOLOR=254>          <申请等级/AUTOCOLOR=250>   <效忠的行会/AUTOCOLOR=242>    <申请/@申请天下第一>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<第一男战士：/SCOLOR=147>【{<$STR(S$天下第一男战)>/SCOLOR=147}】   {LV.<$STR(A22)>/SCOLOR=95}   【{<$STR(A23)>/SCOLOR=95}】\
<第一女战士：/SCOLOR=147>【{<$STR(S$天下第一女战)>/SCOLOR=147}】   {LV.<$STR(A25)>/SCOLOR=103}   【{<$STR(A26)>/SCOLOR=103}】\
<第一男法师：/SCOLOR=145>【{<$STR(S$天下第一男法)>/SCOLOR=145}】   {LV.<$STR(A28)>/SCOLOR=89}   【{<$STR(A29)>/SCOLOR=89}】\
<第一女法师：/SCOLOR=155>【{<$STR(S$天下第一女法)>/SCOLOR=155}】   {LV.<$STR(A31)>/SCOLOR=93}   【{<$STR(A32)>/SCOLOR=93}】\
<第一男道士：/SCOLOR=156>【{<$STR(S$天下第一男道)>/SCOLOR=156}】   {LV.<$STR(A34)>/SCOLOR=92}   【{<$STR(A35)>/SCOLOR=92}】\
<第一女道士：/SCOLOR=157>【{<$STR(S$天下第一女道)>/SCOLOR=157}】   {LV.<$STR(A37)>/SCOLOR=91}   【{<$STR(A38)>/SCOLOR=91}】\ \ \
<提示：天下第一名单为3小时清空一次，清空后可重新申请！>\

[@清空天下第一]
#IF
ISADMIN
checkitem 玉玺灵牌 1
#act
MOV G21 0
MOV G22 0
MOV G23 0
MOV G24 0
MOV G25 0
MOV G26 0
MOV A21
MOV A22
MOV A23
MOV A24
MOV A25
MOV A26
MOV A27
MOV A28
MOV A29
MOV A30
MOV A31
MOV A32
MOV A33
MOV A34
MOV A35
MOV A36
MOV A37
MOV A38
CLEARNAMELIST ..\QuestDiary\数据文件\天下第一\男战士.txt
CLEARNAMELIST ..\QuestDiary\数据文件\天下第一\女战士.txt
CLEARNAMELIST ..\QuestDiary\数据文件\天下第一\男法师.txt
CLEARNAMELIST ..\QuestDiary\数据文件\天下第一\女法师.txt
CLEARNAMELIST ..\QuestDiary\数据文件\天下第一\男道士.txt
CLEARNAMELIST ..\QuestDiary\数据文件\天下第一\女道士.txt
MESSAGEBOX \\提示：清空成功！\\天下第一系统已经恢复初始化状态！
SENDMSG 1  ╔═══════════════════════════╗
SENDMSG 1  ║═══════.《{天下第一系统已经清空|250:0:1}》.═══════║
SENDMSG 1  ╠═══════════════════════════╣
SENDMSG 1  ║天下第一系统.{[3小时]|151:0:1}清理1次.这次的天下第一将会{属于谁？|229:0:1}║
SENDMSG 1  ╚═══════════════════════════╝
GOTO @MAIN
break


[@申请天下第一]
#IF
random 4
#ACT
GIVE 回城卷
mapmove 0 336 188
break
#IF
random 3
#ACT
GIVE 回城卷
mapmove 0 349 201
break
#IF
random 2
#ACT
GIVE 回城卷
mapmove 0 344 198
break
#IF
random 1
#ACT
GIVE 回城卷
mapmove 0 338 192
break