|
|
(@@InPutString @@InPutInteger )
[@main]
#if
CHECKVAR GLOBAL 代练到级1 > 49
#act
MOV S1 <←【接手此人代练】/@接手此人代练1>
#ELSEACT
MOV S1
#if
CHECKVAR GLOBAL 代练到级2 > 49
#act
MOV S2 <←【接手此人代练】/@接手此人代练2>
#ELSEACT
MOV S2
#if
CHECKVAR GLOBAL 代练到级3 > 49
#act
MOV S3 <←【接手此人代练】/@接手此人代练3>
#ELSEACT
MOV S3
#if
CHECKVAR GLOBAL 代练到级4 > 49
#act
MOV S4 <←【接手此人代练】/@接手此人代练4>
#ELSEACT
MOV S4
#if
CHECKVAR GLOBAL 代练到级5 > 49
#act
MOV S5 <←【接手此人代练】/@接手此人代练5>
#ELSEACT
MOV S5
#IF
#ACT
OpenBigDialogBox
#SAY
\
<【等级代练系统】/SCOLOR=146>\
\
<【亲爱的玩家】:/SCOLOR=146><$USERNAME><,你好！这里是等级代练发布的地方！/SCOLOR=146> <《开始发布》/@开始发布代练>\
\
<1.[发布者]：> [<$GLOBAL(代练名1)>] <当前他的等级：/SCOLOR=213>[<$GLOBAL(代练者级1)>]级 <$STR(S1)>\
<需要代练到：/SCOLOR=172>[<$GLOBAL(代练到级1)>]级 <代练酬劳：/SCOLOR=245>[<$GLOBAL(代练酬劳1)>]元宝 <剩余时间：/SCOLOR=243>[<$GLOBAL(剩余时间1)>]分钟\
<2.[发布者]：> [<$GLOBAL(代练名2)>] <当前他的等级：/SCOLOR=213>[<$GLOBAL(代练者级2)>]级 <$STR(S2)>\
<需要代练到：/SCOLOR=172>[<$GLOBAL(代练到级2)>]级 <代练酬劳：/SCOLOR=245>[<$GLOBAL(代练酬劳2)>]元宝 <剩余时间：/SCOLOR=243>[<$GLOBAL(剩余时间2)>]分钟\
<3.[发布者]：> [<$GLOBAL(代练名3)>] <当前他的等级：/SCOLOR=213>[<$GLOBAL(代练者级3)>]级 <$STR(S3)>\
<需要代练到：/SCOLOR=172>[<$GLOBAL(代练到级3)>]级 <代练酬劳：/SCOLOR=245>[<$GLOBAL(代练酬劳3)>]元宝 <剩余时间：/SCOLOR=243>[<$GLOBAL(剩余时间3)>]分钟\
<4.[发布者]：> [<$GLOBAL(代练名4)>] <当前他的等级：/SCOLOR=213>[<$GLOBAL(代练者级4)>]级 <$STR(S4)>\
<需要代练到：/SCOLOR=172>[<$GLOBAL(代练到级4)>]级 <代练酬劳：/SCOLOR=245>[<$GLOBAL(代练酬劳4)>]元宝 <剩余时间：/SCOLOR=243>[<$GLOBAL(剩余时间4)>]分钟\
<5.[发布者]：> [<$GLOBAL(代练名5)>] <当前他的等级：/SCOLOR=213>[<$GLOBAL(代练者级5)>]级 <$STR(S5)>\
<需要代练到：/SCOLOR=172>[<$GLOBAL(代练到级5)>]级 <代练酬劳：/SCOLOR=245>[<$GLOBAL(代练酬劳5)>]元宝 <剩余时间：/SCOLOR=243>[<$GLOBAL(剩余时间5)>]分钟\
\
<1.接手代练后,等级将会变成发布者的等级！/SCOLOR=9>\
<2.每条代练广告需要交纳10万元宝.持续1小时/SCOLOR=9>\
<3.发布的等级不能低于50级,发布的酬劳不能低于1万元宝！/SCOLOR=9>\
<4.若发布者离线期间,代练完成或广告到期,系统会在下次登录时处理！/SCOLOR=9>\
[@接手此人代练1]
#if
CHECKVAR GLOBAL 代练名1 = <$USERNAME>
#ACT
MessageBox 不能接手自己的代练！
BREAK
#if
CHECKVAR GLOBAL 代练到级1 > <$LEVEL>
#ACT
MessageBox 你的等级不符合他的要求,需要达到:<$GLOBAL(代练到级1)>级
BREAK
#if
CHECKVAR GLOBAL 代练到级1 < 50
#ACT
GOTO @main
BREAK
#if
CheckOnline <$GLOBAL(代练名1)>
#ACT
GAMEGOLD + <$GLOBAL(代练酬劳1)>
MOV S5 <$GLOBAL(代练名1)>
S5.GOTO @发布者在线
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级1)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名1)>]发布的[<$GLOBAL(代练到级1)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳1)>]个元宝!
CALCVAR GLOBAL 代练名1 =
SAVEVAR GLOBAL 代练名1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级1 = 0
SAVEVAR GLOBAL 代练者级1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级1 = 0
SAVEVAR GLOBAL 代练到级1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳1 = 0
SAVEVAR GLOBAL 代练酬劳1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间1 = 0
SAVEVAR GLOBAL 剩余时间1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳1)>
AddTextList .\QuestDiary\名单专用\等级代练系统\代练完成.txt <$GLOBAL(代练名1)>
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级1)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名1)>]发布的[<$GLOBAL(代练到级1)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳1)>]个元宝!
CALCVAR GLOBAL 代练名1 =
SAVEVAR GLOBAL 代练名1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级1 = 0
SAVEVAR GLOBAL 代练者级1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级1 = 0
SAVEVAR GLOBAL 代练到级1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳1 = 0
SAVEVAR GLOBAL 代练酬劳1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间1 = 0
SAVEVAR GLOBAL 剩余时间1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
[@接手此人代练2]
#if
CHECKVAR GLOBAL 代练名2 = <$USERNAME>
#ACT
MessageBox 不能接手自己的代练！
BREAK
#if
CHECKVAR GLOBAL 代练到级2 > <$LEVEL>
#ACT
MessageBox 你的等级不符合他的要求,需要达到:<$GLOBAL(代练到级2)>级
BREAK
#if
CHECKVAR GLOBAL 代练到级2 < 50
#ACT
GOTO @main
BREAK
#if
CheckOnline <$GLOBAL(代练名2)>
#ACT
GAMEGOLD + <$GLOBAL(代练酬劳2)>
MOV S5 <$GLOBAL(代练名2)>
S5.GOTO @发布者在线
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级2)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名2)>]发布的[<$GLOBAL(代练到级2)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳2)>]个元宝!
CALCVAR GLOBAL 代练名2 =
SAVEVAR GLOBAL 代练名2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级2 = 0
SAVEVAR GLOBAL 代练者级2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级2 = 0
SAVEVAR GLOBAL 代练到级2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳2 = 0
SAVEVAR GLOBAL 代练酬劳2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间2 = 0
SAVEVAR GLOBAL 剩余时间2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳2)>
AddTextList .\QuestDiary\名单专用\等级代练系统\代练完成.txt <$GLOBAL(代练名2)>
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级2)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名2)>]发布的[<$GLOBAL(代练到级2)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳2)>]个元宝!
CALCVAR GLOBAL 代练名2 =
SAVEVAR GLOBAL 代练名2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级2 = 0
SAVEVAR GLOBAL 代练者级2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级2 = 0
SAVEVAR GLOBAL 代练到级2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳2 = 0
SAVEVAR GLOBAL 代练酬劳2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间2 = 0
SAVEVAR GLOBAL 剩余时间2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
[@接手此人代练3]
#if
CHECKVAR GLOBAL 代练名3 = <$USERNAME>
#ACT
MessageBox 不能接手自己的代练！
BREAK
#if
CHECKVAR GLOBAL 代练到级3 > <$LEVEL>
#ACT
MessageBox 你的等级不符合他的要求,需要达到:<$GLOBAL(代练到级3)>级
BREAK
#if
CHECKVAR GLOBAL 代练到级3 < 50
#ACT
GOTO @main
BREAK
#if
CheckOnline <$GLOBAL(代练名3)>
#ACT
GAMEGOLD + <$GLOBAL(代练酬劳3)>
MOV S5 <$GLOBAL(代练名3)>
S5.GOTO @发布者在线
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级3)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名3)>]发布的[<$GLOBAL(代练到级3)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳3)>]个元宝!
CALCVAR GLOBAL 代练名3 =
SAVEVAR GLOBAL 代练名3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级3 = 0
SAVEVAR GLOBAL 代练者级3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级3 = 0
SAVEVAR GLOBAL 代练到级3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳3 = 0
SAVEVAR GLOBAL 代练酬劳3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间3 = 0
SAVEVAR GLOBAL 剩余时间3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳3)>
AddTextList .\QuestDiary\名单专用\等级代练系统\代练完成.txt <$GLOBAL(代练名3)>
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级3)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名3)>]发布的[<$GLOBAL(代练到级3)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳3)>]个元宝!
CALCVAR GLOBAL 代练名3 =
SAVEVAR GLOBAL 代练名3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级3 = 0
SAVEVAR GLOBAL 代练者级3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级3 = 0
SAVEVAR GLOBAL 代练到级3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳3 = 0
SAVEVAR GLOBAL 代练酬劳3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间3 = 0
SAVEVAR GLOBAL 剩余时间3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
[@接手此人代练4]
#if
CHECKVAR GLOBAL 代练名4 = <$USERNAME>
#ACT
MessageBox 不能接手自己的代练！
BREAK
#if
CHECKVAR GLOBAL 代练到级4 > <$LEVEL>
#ACT
MessageBox 你的等级不符合他的要求,需要达到:<$GLOBAL(代练到级4)>级
BREAK
#if
CHECKVAR GLOBAL 代练到级4 < 50
#ACT
GOTO @main
BREAK
#if
CheckOnline <$GLOBAL(代练名4)>
#ACT
GAMEGOLD + <$GLOBAL(代练酬劳4)>
MOV S5 <$GLOBAL(代练名4)>
S5.GOTO @发布者在线
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级4)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名4)>]发布的[<$GLOBAL(代练到级4)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳4)>]个元宝!
CALCVAR GLOBAL 代练名4 =
SAVEVAR GLOBAL 代练名4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级4 = 0
SAVEVAR GLOBAL 代练者级4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级4 = 0
SAVEVAR GLOBAL 代练到级4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳4 = 0
SAVEVAR GLOBAL 代练酬劳4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间4 = 0
SAVEVAR GLOBAL 剩余时间4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳4)>
AddTextList .\QuestDiary\名单专用\等级代练系统\代练完成.txt <$GLOBAL(代练名4)>
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级4)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名4)>]发布的[<$GLOBAL(代练到级4)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳4)>]个元宝!
CALCVAR GLOBAL 代练名4 =
SAVEVAR GLOBAL 代练名4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级4 = 0
SAVEVAR GLOBAL 代练者级4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级4 = 0
SAVEVAR GLOBAL 代练到级4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳4 = 0
SAVEVAR GLOBAL 代练酬劳4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间4 = 0
SAVEVAR GLOBAL 剩余时间4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
[@接手此人代练5]
#if
CHECKVAR GLOBAL 代练名5 = <$USERNAME>
#ACT
MessageBox 不能接手自己的代练！
BREAK
#if
CHECKVAR GLOBAL 代练到级5 > <$LEVEL>
#ACT
MessageBox 你的等级不符合他的要求,需要达到:<$GLOBAL(代练到级5)>级
BREAK
#if
CHECKVAR GLOBAL 代练到级5 < 50
#ACT
GOTO @main
BREAK
#if
CheckOnline <$GLOBAL(代练名5)>
#ACT
GAMEGOLD + <$GLOBAL(代练酬劳5)>
MOV S5 <$GLOBAL(代练名5)>
S5.GOTO @发布者在线
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级5)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名5)>]发布的[<$GLOBAL(代练到级5)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳5)>]个元宝!
CALCVAR GLOBAL 代练名5 =
SAVEVAR GLOBAL 代练名5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级5 = 0
SAVEVAR GLOBAL 代练者级5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级5 = 0
SAVEVAR GLOBAL 代练到级5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳5 = 0
SAVEVAR GLOBAL 代练酬劳5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间5 = 0
SAVEVAR GLOBAL 剩余时间5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳5)>
AddTextList .\QuestDiary\名单专用\等级代练系统\代练完成.txt <$GLOBAL(代练名5)>
CHANGELEVEL = 1
CHANGELEVEL + <$GLOBAL(代练者级5)>
CHANGELEVEL - 1
SENDMSG 0 ◆[等级代练通知]◆：[<$USERNAME>],完成了[<$GLOBAL(代练名5)>]发布的[<$GLOBAL(代练到级5)>]级,代练请求,获得了酬劳金额[<$GLOBAL(代练酬劳5)>]个元宝!
CALCVAR GLOBAL 代练名5 =
SAVEVAR GLOBAL 代练名5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级5 = 0
SAVEVAR GLOBAL 代练者级5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级5 = 0
SAVEVAR GLOBAL 代练到级5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳5 = 0
SAVEVAR GLOBAL 代练酬劳5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间5 = 0
SAVEVAR GLOBAL 剩余时间5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GOTO @main
[@发布者在线]
#if
#SAY
\
\
已经有人完成了你的代练！你当前等级[<$LEVEL>]级!\
#ACT
CHANGELEVEL = 1
CHANGELEVEL + <$HUMAN(代练等级)>
CHANGELEVEL - 1
CALCVAR HUMAN 代练酬劳 = 0
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = 0
SAVEVAR HUMAN 代练等级 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
MessageBox 已经有人完成了你的代练！
[@开始发布代练]
#if
CHECKVAR HUMAN 代练等级 > 49
#ACT
MessageBox 你已经发布过了,请勿重复发布,耐心等它别人帮你代练吧！
BREAK
#if
CHECKVAR GLOBAL 代练到级1 < 50
#ACT
GOTO @可以开始发布代练
BREAK
#if
CHECKVAR GLOBAL 代练到级2 < 50
#ACT
GOTO @可以开始发布代练
BREAK
#if
CHECKVAR GLOBAL 代练到级3 < 50
#ACT
GOTO @可以开始发布代练
BREAK
#if
CHECKVAR GLOBAL 代练到级4 < 50
#ACT
GOTO @可以开始发布代练
BREAK
#if
CHECKVAR GLOBAL 代练到级5 < 50
#ACT
GOTO @可以开始发布代练
#ELSEACT
MessageBox 不好意思！没有广告位了,请过会再来吧！
[@可以开始发布代练]
#if
CHECKLEVELEX > 49
#ACT
MOV N81
MOV N82
#SAY
\
\
<请输入需要代练到的等级/SCOLOR=172> <《点击输入》[url=]/@@InPutInteger81>\[/url]
\
\
#ELSEACT
MessageBox 你的等级低于50级，无法发布代练信息！
[@@InPutInteger81]
#ACT
DELAYGOTO 1 @InPutInteger81-1
[@InPutInteger81-1]
#if
LARGE n81 <$LEVEL>
#SAY
\
\
<[当前你需要代练到的等级为]:/SCOLOR=172><$STR(n81)>级 \
\
\
<请输入代练酬劳/SCOLOR=245> <《点击输入》[url=]/@@InPutInteger82>\[/url]
\
\
<《返回》[url=]/@main[/url]>
#ELSEACT
MessageBox 代练的等级不能低于你现有的等级！
[@@InPutInteger82]
#ACT
DELAYGOTO 1 @InPutInteger82-1
[@InPutInteger82-1]
#if
LARGE n82 10000
#ELSEACT
MessageBox 发布的酬劳最低要1万元宝
BREAK
#if
CHECKGAMEGOLD > <$STR(n82)>
#SAY
\
\
<[当前你需要代练到的等级为]:/SCOLOR=172><$STR(n81)>级 \
\
\
<[当前给与的代练酬劳为]:/SCOLOR=245><$STR(n82)>元宝\
\
\
<《确定发布》/@确定发布代练><(需要额外缴纳10元宝广告费)> <《返回》[url=]/@InPutInteger81-1[/url]>
#ELSEACT
MessageBox 你的元宝不足<$STR(n82)>个啊！
[@确定发布代练]
#if
CHECKLEVELEX > 0
#ACT
MOV N83 <$STR(n82)>
INC N82 100000
#if
CHECKGAMEGOLD > <$STR(n82)>
#ACT
GOTO @发布信息保存
#ELSEACT
MessageBox 你的元宝不足<$STR(n82)>个啊(包含10万广告费)！
[@发布信息保存]
#if
CHECKVAR GLOBAL 代练到级1 < 50
#ACT
GAMEGOLD - <$STR(n82)>
CALCVAR HUMAN 代练酬劳 = <$STR(n83)>
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR GLOBAL 代练名1 = <$USERNAME>
SAVEVAR GLOBAL 代练名1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级1 = <$LEVEL>
SAVEVAR GLOBAL 代练者级1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级1 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳1 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间1 = 2
SAVEVAR GLOBAL 剩余时间1 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆：[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功，等待别人帮你代练吧，信息显示时间1小时！(到期后无人代练返还酬劳金额)
;www.gmqd.com
GOTO @main
BREAK
#if
CHECKVAR GLOBAL 代练到级2 < 50
#ACT
GAMEGOLD - <$STR(n82)>
CALCVAR HUMAN 代练酬劳 = <$STR(n83)>
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR GLOBAL 代练名2 = <$USERNAME>
SAVEVAR GLOBAL 代练名2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级2 = <$LEVEL>
SAVEVAR GLOBAL 代练者级2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级2 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳2 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间2 = 2
SAVEVAR GLOBAL 剩余时间2 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆：[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功，等待别人帮你代练吧，信息显示时间1小时！(到期后无人代练返还酬劳金额)
GOTO @main
BREAK
#if
CHECKVAR GLOBAL 代练到级3 < 50
#ACT
GAMEGOLD - <$STR(n82)>
CALCVAR HUMAN 代练酬劳 = <$STR(n83)>
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR GLOBAL 代练名3 = <$USERNAME>
SAVEVAR GLOBAL 代练名3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级3 = <$LEVEL>
SAVEVAR GLOBAL 代练者级3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级3 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳3 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间3 = 2
SAVEVAR GLOBAL 剩余时间3 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆：[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功，等待别人帮你代练吧，信息显示时间1小时！(到期后无人代练返还酬劳金额)
GOTO @main
BREAK
#if
CHECKVAR GLOBAL 代练到级4 < 50
#ACT
GAMEGOLD - <$STR(n82)>
CALCVAR HUMAN 代练酬劳 = <$STR(n83)>
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR GLOBAL 代练名4 = <$USERNAME>
SAVEVAR GLOBAL 代练名4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级4 = <$LEVEL>
SAVEVAR GLOBAL 代练者级4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级4 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳4 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间4 = 2
SAVEVAR GLOBAL 剩余时间4 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆：[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功，等待别人帮你代练吧，信息显示时间1小时！(到期后无人代练返还酬劳金额)
GOTO @main
BREAK
#if
CHECKVAR GLOBAL 代练到级5 < 50
#ACT
GAMEGOLD - <$STR(n82)>
CALCVAR HUMAN 代练酬劳 = <$STR(n83)>
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\名单专用\等级代练系统\个人代练数据.txt
CALCVAR GLOBAL 代练名5 = <$USERNAME>
SAVEVAR GLOBAL 代练名5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级5 = <$LEVEL>
SAVEVAR GLOBAL 代练者级5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级5 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳5 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间5 = 2
SAVEVAR GLOBAL 剩余时间5 ..\QuestDiary\名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆：[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功，等待别人帮你代练吧，信息显示时间1小时！(到期后无人代练返还酬劳金额)
GOTO @main
#ELSEACT
GOTO @main
MessageBox 不好意思！没有广告位了,请过会再来吧！
完整脚本回复下载：
|
|
[复制链接]
发表于 2016-11-7 17:22:04
发表于 2017-1-10 01:43:04
