传奇版本

变态·大极品GameOfMir引擎智能等级代练系统脚本

[复制链接]
查看2320 | 回复11 | 2018-6-25 21:07:53 | 显示全部楼层 |阅读模式
(@@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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级1 = 0
SAVEVAR GLOBAL 代练者级1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级1 = 0
SAVEVAR GLOBAL 代练到级1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳1 = 0
SAVEVAR GLOBAL 代练酬劳1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间1 = 0
SAVEVAR GLOBAL 剩余时间1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳1)>
AddTextList .\QuestDiary\gm003名单专用\等级代练系统\代练完成.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级1 = 0
SAVEVAR GLOBAL 代练者级1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级1 = 0
SAVEVAR GLOBAL 代练到级1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳1 = 0
SAVEVAR GLOBAL 代练酬劳1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间1 = 0
SAVEVAR GLOBAL 剩余时间1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级2 = 0
SAVEVAR GLOBAL 代练者级2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级2 = 0
SAVEVAR GLOBAL 代练到级2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳2 = 0
SAVEVAR GLOBAL 代练酬劳2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间2 = 0
SAVEVAR GLOBAL 剩余时间2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳2)>
AddTextList .\QuestDiary\gm003名单专用\等级代练系统\代练完成.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级2 = 0
SAVEVAR GLOBAL 代练者级2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级2 = 0
SAVEVAR GLOBAL 代练到级2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳2 = 0
SAVEVAR GLOBAL 代练酬劳2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间2 = 0
SAVEVAR GLOBAL 剩余时间2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级3 = 0
SAVEVAR GLOBAL 代练者级3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级3 = 0
SAVEVAR GLOBAL 代练到级3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳3 = 0
SAVEVAR GLOBAL 代练酬劳3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间3 = 0
SAVEVAR GLOBAL 剩余时间3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳3)>
AddTextList .\QuestDiary\gm003名单专用\等级代练系统\代练完成.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级3 = 0
SAVEVAR GLOBAL 代练者级3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级3 = 0
SAVEVAR GLOBAL 代练到级3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳3 = 0
SAVEVAR GLOBAL 代练酬劳3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间3 = 0
SAVEVAR GLOBAL 剩余时间3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级4 = 0
SAVEVAR GLOBAL 代练者级4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级4 = 0
SAVEVAR GLOBAL 代练到级4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳4 = 0
SAVEVAR GLOBAL 代练酬劳4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间4 = 0
SAVEVAR GLOBAL 剩余时间4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳4)>
AddTextList .\QuestDiary\gm003名单专用\等级代练系统\代练完成.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级4 = 0
SAVEVAR GLOBAL 代练者级4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级4 = 0
SAVEVAR GLOBAL 代练到级4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳4 = 0
SAVEVAR GLOBAL 代练酬劳4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间4 = 0
SAVEVAR GLOBAL 剩余时间4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级5 = 0
SAVEVAR GLOBAL 代练者级5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级5 = 0
SAVEVAR GLOBAL 代练到级5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳5 = 0
SAVEVAR GLOBAL 代练酬劳5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间5 = 0
SAVEVAR GLOBAL 剩余时间5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GOTO @main
#ELSEACT
GAMEGOLD + <$GLOBAL(代练酬劳5)>
AddTextList .\QuestDiary\gm003名单专用\等级代练系统\代练完成.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\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级5 = 0
SAVEVAR GLOBAL 代练者级5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级5 = 0
SAVEVAR GLOBAL 代练到级5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳5 = 0
SAVEVAR GLOBAL 代练酬劳5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间5 = 0
SAVEVAR GLOBAL 剩余时间5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GOTO @main






[@发布者在线]
#if
#SAY
 \
 \
已经有人完成了你的代练!你当前等级[<$LEVEL>]级!\
#ACT
CHANGELEVEL = 1
CHANGELEVEL + <$HUMAN(代练等级)>
CHANGELEVEL - 1
CALCVAR HUMAN 代练酬劳 = 0
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = 0
SAVEVAR HUMAN 代练等级 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.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> <《点击输入》/@@InPutInteger81>\
 \
 \
#ELSEACT
MessageBox  你的等级低于50级,无法发布代练信息!

[@@InPutInteger81]
#ACT
DELAYGOTO 1 @InPutInteger81-1
[@InPutInteger81-1]
#if
LARGE n81  <$LEVEL>
#SAY
 \
 \
<[当前你需要代练到的等级为]:/SCOLOR=172><$STR(n81)>级 \
 \
 \
<请输入代练酬劳/SCOLOR=245> <《点击输入》/@@InPutInteger82>\
 \
 \
<《返回》/@main>
#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元宝广告费)>  <《返回》/@InPutInteger81-1>
#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\gm003名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt

CALCVAR GLOBAL 代练名1 = <$USERNAME>
SAVEVAR GLOBAL 代练名1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级1 = <$LEVEL>
SAVEVAR GLOBAL 代练者级1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级1 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳1 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间1 = 2
SAVEVAR GLOBAL 剩余时间1 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆:[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功,等待别人帮你代练吧,信息显示时间1小时!(到期后无人代练返还酬劳金额)
GOTO @main
BREAK

#if
CHECKVAR GLOBAL 代练到级2 < 50
#ACT
GAMEGOLD - <$STR(n82)>
CALCVAR HUMAN 代练酬劳 = <$STR(n83)>
SAVEVAR HUMAN 代练酬劳 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt

CALCVAR GLOBAL 代练名2 = <$USERNAME>
SAVEVAR GLOBAL 代练名2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级2 = <$LEVEL>
SAVEVAR GLOBAL 代练者级2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级2 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳2 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间2 = 2
SAVEVAR GLOBAL 剩余时间2 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt

CALCVAR GLOBAL 代练名3 = <$USERNAME>
SAVEVAR GLOBAL 代练名3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级3 = <$LEVEL>
SAVEVAR GLOBAL 代练者级3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级3 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳3 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间3 = 2
SAVEVAR GLOBAL 剩余时间3 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt

CALCVAR GLOBAL 代练名4 = <$USERNAME>
SAVEVAR GLOBAL 代练名4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级4 = <$LEVEL>
SAVEVAR GLOBAL 代练者级4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级4 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳4 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间4 = 2
SAVEVAR GLOBAL 剩余时间4 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.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\gm003名单专用\等级代练系统\个人代练数据.txt
CALCVAR HUMAN 代练等级 = <$STR(n81)>
SAVEVAR HUMAN 代练等级 ..\QuestDiary\gm003名单专用\等级代练系统\个人代练数据.txt

CALCVAR GLOBAL 代练名5 = <$USERNAME>
SAVEVAR GLOBAL 代练名5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练者级5 = <$LEVEL>
SAVEVAR GLOBAL 代练者级5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练到级5 = <$STR(n81)>
SAVEVAR GLOBAL 代练到级5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 代练酬劳5 = <$STR(n83)>
SAVEVAR GLOBAL 代练酬劳5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
CALCVAR GLOBAL 剩余时间5 = 2
SAVEVAR GLOBAL 剩余时间5 ..\QuestDiary\gm003名单专用\等级代练系统\系统代练数据.txt
GuildNoticeMsg 166 161 ◆[等级代练通知]◆:[<$USERNAME>],发布了一条代练广告,代练等级[<$STR(n81)>]级,酬劳金额[<$STR(n83)>]个元宝!
MessageBox 发布成功,等待别人帮你代练吧,信息显示时间1小时!(到期后无人代练返还酬劳金额)
GOTO @main
#ELSEACT
GOTO @main
MessageBox  不好意思!没有广告位了,请过会再来吧!





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




ft1000 | 2018-6-25 23:59:25 | 显示全部楼层
变态·大极品GameOfMir引擎智能等级代练系统脚本 [修改]
财神 | 2018-6-26 06:47:54 | 显示全部楼层
11111111111111111111
万事顺 | 2018-9-11 15:49:46 | 显示全部楼层

诚接传奇修改定做高仿,有偿解决一切问题!QQ:260283044
85968181 | 2018-10-6 22:11:43 | 显示全部楼层
45645456456456456456
psufnul | 2018-10-19 20:51:46 | 显示全部楼层
:/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)
manyi5481830 | 2019-3-15 13:57:24 | 显示全部楼层
ssssssssssssssssssssssssssssssss
604144914 | 2019-4-23 19:55:29 | 显示全部楼层
新人来报道
inejeki | 2021-10-5 19:43:04 | 显示全部楼层
城厢地夺在
ly336 | 2022-10-20 10:21:20 | 显示全部楼层
utxutcutciycigcigcy
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则