[GOM]天下第一人脚本

爱上版本库

[@main]

#IF
#ACT
MOV S4 <
MOV S5 <
MOV S6 <
MOV S7 <
MOV S8 <
INC S4 <$GLOBAL(勇士名字)>
INC S5 <$GLOBAL(勇士行会)>
INC S6 <$GLOBAL(勇士经验)>
INC S7 <$GLOBAL(勇士时间)>
INC S8 <$GLOBAL(勇士等级)>
INC S4 /SCOLOR=253>
INC S5 /SCOLOR=253>
INC S6 /SCOLOR=253>
INC S7 /SCOLOR=250>
INC S8 级/SCOLOR=253>
CloseBigDialogBox
#SAY
<天下第一勇士:/SCOLOR=250> <【/SCOLOR=229> <$STR(S4)> <】/SCOLOR=229>\
　　　<所属行会:/SCOLOR=250> <【/SCOLOR=229> <$STR(S5)> <】/SCOLOR=229>\
　　　<当时等级:/SCOLOR=250> <【/SCOLOR=229> <$STR(S8)> <】/SCOLOR=229>\
　　　<当时经验:/SCOLOR=250> <【/SCOLOR=229> <$STR(S6)> <】/SCOLOR=229>\
<═════════════════════════════/SCOLOR=249>\
<从/SCOLOR=243> <$STR(S7)> <至今无人超越他！/SCOLOR=243>\
<温馨提示:/SCOLOR=231> <50级以上可申请.天下第一上线享受1.1倍攻击.特殊封号/SCOLOR=254>\
<申请天下第一/@申请第一>   <虔诚膜拜天下第一/@膜拜第一>
[@申请第一]
#IF
CHECKLEVEL 49
#elseact
messagebox 您的级别太低，50级以上才可以申请天下第一。
BREAK
#if
CHECKVAR GLOBAL 勇士名字 = <$USERNAME>
#ACT
CALCVAR GLOBAL 勇士等级 = <$LEVEL>
CALCVAR GLOBAL 勇士经验 = <$EXP>
CALCVAR GLOBAL 勇士行会 = <$GUILDNAME>
SAVEVAR GLOBAL 勇士等级 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士经验 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士行会 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SENDMSG 6 您的信息已经更新
GOTO @main
BREAK
#IF
CHECKLEVELEX > <$GLOBAL(勇士等级)>
#ACT
CALCVAR GLOBAL 勇士名字 = <$USERNAME>
CALCVAR GLOBAL 勇士等级 = <$LEVEL>
CALCVAR GLOBAL 勇士经验 = <$EXP>
CALCVAR GLOBAL 勇士行会 = <$GUILDNAME>
CALCVAR GLOBAL 勇士时间 = <$DATETIME>
SAVEVAR GLOBAL 勇士名字 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士等级 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士经验 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士行会 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士时间 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
sendmsg 7 恭喜您成功申请天下第一勇士;请您小退重新登陆.否则无法享受1.1倍攻击!!
SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了天下第一勇士！ 1
#CALL [\游戏登陆\封号设置.txt] @封号设置
GOTO @main
break
#IF
CHECKLEVELEX = <$GLOBAL(勇士等级)>
CHECKEXP > <$GLOBAL(勇士经验)>
#ACT
CALCVAR GLOBAL 勇士名字 = <$USERNAME>
CALCVAR GLOBAL 勇士等级 = <$LEVEL>
CALCVAR GLOBAL 勇士经验 = <$EXP>
CALCVAR GLOBAL 勇士行会 = <$GUILDNAME>
CALCVAR GLOBAL 勇士时间 = <$DATETIME>
SAVEVAR GLOBAL 勇士名字 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士等级 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士经验 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士行会 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
SAVEVAR GLOBAL 勇士时间 ..\QuestDiary\子木名单专用\天下第一勇士\第一勇士数据.txt
sendmsg 7 恭喜您成功申请天下第一勇士;请您小退重新登陆.否则无法享受1.1倍攻击!!
SendCenterMsg 161 249  恭喜“<$USERNAME>”成功申请成为了天下第一勇士！ 1
goto @封号设置
GOTO @main
break
#ELSEACT
messagebox 对不起，申请失败。\您的等级未超越天下第一勇士的等级\或者您的等级和天下第一勇士相同\但经验未超过目前天下第一勇士的[<$GLOBAL(勇士经验)>]经验！

[@膜拜第一]
#if
CHECKVAR GLOBAL 勇士名字 = <$USERNAME>
#ACT
messagebox 自己膜拜自己？您怎么这么臭屁！！！。
BREAK

#IF
CHECKNAMELIST ..\QuestDiary\每日膜拜记录\膜拜天下第一.txt
#ACT
MessageBox 每天只能膜拜一次
BREAK

#IF
CHECKLEVELEX > 44
#ACT
addnamelist ..\QuestDiary\每日膜拜记录\膜拜天下第一.txt
CHANGEEXP + 420000000
SENDMSG 0 恭喜[%s]怀着虔诚的心，膜拜了天下第一勇士获得海量经验加成.....
#elseact
messagebox 你的等级低于45级，第一勇士不搭理你~~！


[@初始化]
#IF
ISADMIN
#act
CLEARNAMELIST ..\QuestDiary\每日膜拜记录\膜拜天下第一.txt
SENDMSG 5 天下第一设置已初始化
GOTO @main
#ELSEACT
messagebox 闲杂人等闪开！！！！！！！

游客，如果您要查看本帖隐藏内容请回复