• WAP手机版 RSS订阅 加入收藏  设为首页
传奇脚本

传奇私服自动担保交易系统脚本

时间:2020/3/6 21:52:16   作者:www.4hj.net   来源:网络转载   阅读:9   评论:0
内容摘要:传奇私服自动担保交易系统脚本,欢迎使用游戏帐号自助交易系统,在这里您可以【出售】自己帐号,或购买其他帐号,上架帐号时需填写/验证密保生日、问题、答案1分钟内系统处理完毕,整个交易过程中,接收灵符成功后需要扣除“10%”担保手续费。;(@@InPutString@@InPutInteger)[@main]#IF#ACTm...

传奇私服自动担保交易系统脚本,欢迎使用游戏帐号自助交易系统,在这里您可以【出售】自己帐号,或购买其他帐号,上架帐号时需填写/验证密保生日、问题、答案1分钟内系统处理完毕,整个交易过程中,接收灵符成功后需要扣除“10%”担保手续费。

;
(@@InPutString @@InPutInteger)
 
[@main]
 
 
 
#IF
#ACT
mov S$生日变量 <$BIRTHDAT>
ANSIREPLACETEXT <$STR(S$生日变量)> / -
ANSIREPLACETEXT <$STR(S$生日变量)> / -
MOV T44 <$STR(S$生日变量)>
MOV T45 <$QUIZ1>
MOV T36 <$ANSWER1>
MOV T37 <$QUIZ2>
MOV T48 <$ANSWER2>
 
 
#IF
#ACT
MOV S20 
MOV S21 
MOV S22 
MOV S23 
MOV S24 
MOV S25 
MOV N26 
CloseBigDialogBox
OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
MOV S$账号交易账号 <$USERID> 
MOV S$账号交易角色 <$USERNAME>
MOV S$账号交易元宝 <$GAMEGOLD>
MOV S$账号交易人民币 <$GAMEPOINT>
MOV S$账号交易遮天币 <$GameGlory>
MOV S$账号交易充值数 <$GAMEDIAMOND>
 
 
SetStringBlank <$STR(S$账号交易账号)> 16 1
SetStringBlank <$STR(S$账号交易角色)> 16 1
SetStringBlank <$STR(S$账号交易元宝)> 16 1
SetStringBlank <$STR(S$账号交易人民币)> 16 1
SetStringBlank <$STR(S$账号交易遮天币)> 16 1
SetStringBlank <$STR(S$账号交易充值数)> 16 1
 
#SAY
\   \  \
              <《烈焰之城自动担保交易系统》/FCOLOR=249> \ 
<PlayImg:10:304:1:200:460:-30:0/@exit>  \   \ 
<   /FCOLOR=242>  <出售列表/@出售列表>         <领取出售货款/@领取货款>\ \
 
<   /FCOLOR=242><欢迎使用游戏帐号自助交易系统,在这里您可以/FCOLOR=250><【出售】/FCOLOR=70><自己帐号,或/FCOLOR=250><【购买】/FCOLOR=253><其他帐号/FCOLOR=250> \
<   /FCOLOR=242><上架帐号时需填写/FCOLOR=250><验证密保生日、问题、答案/FCOLOR=242><,1分钟内系统处理完毕。/FCOLOR=250> \
<   /FCOLOR=242><购买帐号前,您可以在帐号交易处查看/FCOLOR=250><离线人物/FCOLOR=22><的装备、货币等信息。/FCOLOR=250> \ \
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40>\ \
 
<   /FCOLOR=242><以下是您的帐号信息,出售后将以/FCOLOR=125><“灵符/FCOLOR=22><的形式发放至您的/FCOLOR=125><“接收帐号”/FCOLOR=22><中,/FCOLOR=125> \
<   /FCOLOR=242><整个交易过程中,接收灵符成功后需要扣除“10%”担保手续费/FCOLOR=125> \ \
 
<   /FCOLOR=242><账 号/FCOLOR=242}> {<$STR(S$账号交易账号)>/FCOLOR=70}
<   /FCOLOR=242><角 色/FCOLOR=242}> {<$STR(S$账号交易角色)>/FCOLOR=70}
<   /FCOLOR=242><元 宝/FCOLOR=242}> {<$STR(S$账号交易元宝)>/FCOLOR=70}\
<   /FCOLOR=242><灵 符/FCOLOR=242}> {<$STR(S$账号交易人民币)>/FCOLOR=70}
<   /FCOLOR=242><烈焰币/FCOLOR=242}> {<$STR(S$账号交易充值数)>/FCOLOR=70}
\ \ 
 
<   /FCOLOR=242><开始出售账号/@开始出售账号>     <查询所购买的帐号,只能查询最近购买的一个帐号/@查询出售账号> \  \
<   /FCOLOR=242><开始下架账号|254#接受账号格式:^_^250#烈焰之城01区zha123/@账号交易下架111>    <合区后账号自动下架!/FCOLOR=125>\
 
 
 
[@开始出售账号]
#if
CHECKLEVELEX < 65
#act
messagebox <等级达到65级才能上架账号!!>
break
 
#IF 
#act
CloseBigDialogBox
OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
#say
\  \   \   \   \
<   /FCOLOR=242><出售账号/@main>  <出售列表/@出售列表>  <领取出售货款/@领取货款>\ \
 
<   /FCOLOR=242><请输入准确的密码保护问题核对通过后才可出售角色> \ \
 
<   /FCOLOR=242><[点击输入您的账号生日 ]|250#生日请严格按照右边的格式输入!!^-^253#如果不按格式输入!后果自负{FCOLOR=151}/@@InPutString20(输入生日请严格按照此格式:1999-1-1)>:<$STR(S20)>    输入格式:1999-1-1\ 
<   /FCOLOR=242><[点击输入您的密码问题1]|151#请填写您的密码问题1^-^{FCOLOR=151}/@@InPutString21>:<$STR(S21)>\
<   /FCOLOR=242><[点击输入您的密码回答1]|151#请填写您的密码回答1^-^{FCOLOR=151}/@@InPutString22>:<$STR(S22)>\ 
<   /FCOLOR=242><[点击输入您的密码问题2]|151#请填写您的密码问题2^-^{FCOLOR=151}/@@InPutString23>:<$STR(S23)>\
<   /FCOLOR=242><[点击输入您的密码回答2]|151#请填写您的密码回答2^-^{FCOLOR=151}/@@InPutString24>:<$STR(S24)>\ \
<   /FCOLOR=242><[点击输入您的接收账号 ]|151#请填写您的接收账号^-^250#账号只能是当前分区的其他账号,^250#请截图保存,以免忘记。{FCOLOR=151}/@@InPutString25>:<$STR(S25)>\ \
<   /FCOLOR=242><[点击输入您的出售价格 ]|151#请填写您的出售价格^-^250#请输入100-99999之间的灵符点数,^-^250#至少出售100W灵符点^-^250#至少出售100W灵符点^-^250#最低卖号价格为100W灵符点{FCOLOR=151}/@@InPutInteger26>:<$STR(N26)>\    \   \  
 
                 <确定出售角色|154#请输入准确的密码保护问题核对通过后才可出售/@开始出售账号555> \
;<$str(T44)>  <$str(T45)>  <$str(T36)>  <$str(T37)>    <$str(T48)>
 
 
[@InPutString20]
#IF
NOT EQUAL S20 <$str(T44)>
#ACT
Messagebox 输入的密保生日错误,请重新输入....
MOV S20 
break
#ELSEACT
goto @开始出售账号
break
 
 
 
#IF
CHECKTEXTLIST ..\QuestDiary\自动担保系统\密保年份.txt <$STR(S$密保年份)>
CHECKTEXTLIST ..\QuestDiary\自动担保系统\密保月份.txt <$STR(S$密保月份)>
CHECKTEXTLIST ..\QuestDiary\自动担保系统\密保日期.txt <$STR(S$密保日期)>
#ACT
GetStringPos ..\QuestDiary\自动担保系统\月份日期1.txt <$STR(S$密保月份)>
INC N0 1
GetListString ..\QuestDiary\自动担保系统\月份日期1.txt <$STR(N0)> S$最高日期
MOV N$检测日期 <$STR(S$密保日期)>
#ELSEACT
messagebox 请确认生日填写正确!\年份在1960-2020年之间!\月份在1-12月之间!\日期在1-30之间!
break
 
#IF
LARGE N$检测日期 <$STR(S$最高日期)>
#ACT
MOV S20
messagebox 日期填写错误,你填写的<$STR(S$密保年份)>年<$STR(S$密保月份)>月有<$STR(N$检测日期)>天?
#ELSEACT
goto @开始出售账号
break
 
[@InPutString21]
#IF
NOT EQUAL S21
#ACT
goto @开始出售账号
#ELSEACT
Messagebox 输入的错误,请重新输入....
MOV S21 
 
 
 
[@InPutString22]
#IF
NOT EQUAL S22
#ACT
goto @开始出售账号
#ELSEACT
Messagebox 输入的错误,请重新输入....
MOV S22 
 
 
 
 
[@InPutString23]
#IF
NOT EQUAL S23
#ACT
goto @开始出售账号
#ELSEACT
Messagebox 输入的错误,请重新输入....
MOV S23 
 
 
 
[@InPutString24]
#IF
NOT EQUAL S24
#ACT
goto @开始出售账号
#ELSEACT
Messagebox 输入的错误,请重新输入....
MOV S24 
 
 
[@InPutString25]
#IF
NOT EQUAL S25
#ACT
goto @开始出售账号
#ELSEACT
Messagebox 输入的错误,请重新输入....
MOV S25 
 
 
 
 
[@InPutInteger26]
#IF
#ACT
MOV N$最低出售人民币 1000000
 
 
#IF
NOT SMALL N26 1000000
#ACT
goto @开始出售账号
#ELSEACT
Messagebox 输入的错误,本服担保交易至少出售100W灵符点....
MOV N26 0
 
 
[@开始出售账号555]
#IF
#ACT
MOV S$验证问题1 <$str(S21)>a
MOV S$验证答案1 <$str(S22)>a
MOV S$验证问题2 <$str(S23)>a
MOV S$验证答案2 <$str(S24)>a
 
#OR
NOT EQUAL S20 <$str(T44)>
NOT EQUAL S$验证问题1 <$str(T45)>a
NOT EQUAL S$验证答案1 <$str(T36)>a
NOT EQUAL S$验证问题2 <$str(T37)>a
NOT EQUAL S$验证答案2 <$str(T48)>a
#ACT
Messagebox 请输入完整的密码保护资料!\或者有密码保护资料提交错误!\多次输入还是提示错误,请小退后重新尝试!
break
 
 
#IF
EQUAL A888 测试区
#ACT
Messagebox 当前为测试区,不能卖号...
break
 
 
#OR
EQUAL S25 
EQUAL N26 0
#ACT
Messagebox 请输入接收账号和出售的灵符数!
break
 
#IF
NOT INSAFEZONE
#ACT
MESSAGEBOX 请返回安全区再进行操作!
BREAK
 
 
#IF
#ACT
MOV S$担保_帐号 <$SERVERNAME><$USERID>
MOV N$担保_金额 <$STR(N26)>
MOV S$担保_接收 <$STR(S25)>
MESSAGEBOX 确认将您当前帐号角色以<$STR(N26)>个灵符进行出售吗?\出售所得将以<灵符>发放至帐号:<$STR(S25)>,请保证该帐号无误!! @确认卖帐号 @取消
 
[@确认卖帐号]
#IF
#ACT
AddTextListEx ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(S$担保_帐号)> 0 1
AddTextList ..\..\..\..\账号交易\<$SERVERNAME>已售账号列表.txt <$STR(S$担保_帐号)> 
AddTextListEx ..\AutoLoadOffline.txt <$USERNAME>##<$USERID> 0
CREATEFILE  ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt
ClearNameList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt  <$SERVERNAME> 
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt  <$USERID>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt  <$USERNAME>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$STR(N26)>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt AA<$STR(S25)>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$LEVEL>级
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt 天赋反射:<$STR(U31)>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$GAMEGIRD>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt 天赋穿透:<$STR(U47)>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$GAMEGOLD>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt 天赋伤害:<$STR(U48)>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$GAMEPOINT>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$X>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt <$Y>
AddTextList ..\..\..\..\账号交易\账号数据\<$STR(S$担保_帐号)>.txt 天赋暴击:<$STR(U8)>
GetRandomText ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt N$全区卖号数量 0 1
INC N$全区卖号数量 1
ClearNameList ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt 1
AddTextListEx ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt <$STR(N$全区卖号数量)> 0 1
MESSAGEBOX 帐号上架成功,此帐号卖出或下架前无法继续登录!\卖出前可联系担保客服进行下架!
AddTextListEx  ..\QuestDiary\自动担保系统\卖号日志记录.txt   【<$USERID>】角色【<$USERNAME>】在<$DATETIME>提交卖号
DELAYGOTO 20 @离线
break
 
 
 
[@离线]
#ACT
map zhjy 
OFFLINEPLAY 1000
break
 
 
 
 
 
[@查询出售账号]
 
 
#IF
NOT equal T49
#ACT
MESSAGEBOX 查询成功,请重新登录查收您购买的帐号[<$STR(T49)>],请记录下来!!!
#ELSEACT
MESSAGEBOX 你还没购买过帐号呢!!!
 
[@账号交易下架111]
#IF 
#act
CloseBigDialogBox
#say
<    /FCOLOR=242><出售账号/@main>  <出售列表/@出售列表>  <领取出售货款/@领取货款>\ \
 
<   /FCOLOR=242><以下为账号下架,请输入区名+账户(合区后自动下架账号)/FCOLOR=242>\
<   /FCOLOR=242><该账号为上架出售的账号,非接收货款的账号)/FCOLOR=242>\ \
<   /FCOLOR=242>{正确格式:区名+账号,例:<$SERVERNAME>zha123:区名+账号/FCOLOR=242}\ \
                    <我要下架账号|254#接受账号格式:^ ^250#烈焰之城首战22号1区123/@@InPutString17>\ \
 
 
[@InPutString17]
#IF
CHECKTextList ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(S17)>
#ACT
GetRandomText ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt N$全区卖号数量 0 1
Dec N$全区卖号数量 1
ClearNameList ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt 1
AddTextListEx ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt <$STR(N$全区卖号数量)> 0 1
DelTextList ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(S17)>
DelTextList ..\..\..\..\账号交易\<$SERVERNAME>已售账号列表.txt <$STR(S17)>
AddTextListEx  ..\QuestDiary\自动担保系统\卖号日志记录.txt   【<$USERID>】角色【<$USERNAME>】在<$DATETIME>提交<$STR(S17)>下架卖号
Messagebox 【<$STR(S17)>】已经成功下架,可以上号游戏了
Goto @main
#ELSEACT
Messagebox 输入的出售账号错误,请重新输入....
break
 
 
[@领取货款]
#IF
CHECKTextList ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$SERVERNAME>AA<$USERID>
#ACT
GetStringPos ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$SERVERNAME>AA<$USERID>
INC N0 1
GetListString ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$STR(N0)> <$STR(S$我的金额)>
MOV N$我的金额 <$STR(S$我的金额)>
#ELSEACT
MOV N$我的金额 0
 
 
#IF
Large N$我的金额 0
#ACT
MUL N$我的金额 9
DIV N$我的金额 10
GAMEPOINT + <$STR(N$我的金额)>
MESSAGEBOX 成功领取<$STR(N$我的金额)>灵符!
DelTextList ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$SERVERNAME>AA<$USERID>
break
#ELSEACT
MESSAGEBOX 没有可领取的人民币!
BREAK
 
 
 
[@出售列表]
#IF
#ACT
GetRandomText ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt N$全区卖号数量 0 1
 
#IF
SMALL N$全区卖号数量 1
#ACT
MESSAGEBOX 暂时没有正在出售的帐号!
break
 
 
#IF
#ACT
MOV N$编号0 0
MOV N$编号1 1
MOV N$编号2 2
MOV N$编号3 3
MOV N$编号4 4
MOV N$编号5 5
MOV N$编号6 6
MOV N$编号7 7
MOV N$出售列表页数 1
Goto @出售列表2
 
[@出售列表2]
#IF
#ACT
MOV S$记录0
MOV S$记录1
MOV S$记录2
MOV S$记录3
MOV S$记录4
MOV S$记录5
MOV S$记录6
MOV S$记录7
 
#IF
#ACT
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号0)> S$记录0 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号1)> S$记录1 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号2)> S$记录2 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号3)> S$记录3 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号4)> S$记录4 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号5)> S$记录5 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号6)> S$记录6 
GetListString ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(N$编号7)> S$记录7 
 
#IF
NOT EQUAL S$记录0  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 0 S$卖家区名0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 1 S$卖家账号0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 2 S$卖家角色0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 3 S$卖家价格0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 4 S$卖家接收0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 5 S$卖家等级0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 6 S$卖家幸运0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 7 S$卖家抽奖0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 8 S$卖家切割0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 9 S$卖家元宝0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 10 S$卖家遮天币0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 11 S$卖家人民币0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 12 S$卖家坐X0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 13 S$卖家坐Y0
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击0
#IF
NOT EQUAL S$记录1  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 0 S$卖家区名1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 1 S$卖家账号1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 2 S$卖家角色1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 3 S$卖家价格1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 4 S$卖家接收1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 5 S$卖家等级1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 6 S$卖家幸运1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 7 S$卖家抽奖1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 8 S$卖家切割1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 9 S$卖家元宝1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 10 S$卖家遮天币1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 11 S$卖家人民币1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 12 S$卖家坐X1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录1)>.txt 13 S$卖家坐Y1
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击1
#IF
NOT EQUAL S$记录2  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 0 S$卖家区名2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 1 S$卖家账号2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 2 S$卖家角色2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 3 S$卖家价格2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 4 S$卖家接收2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 5 S$卖家等级2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 6 S$卖家幸运2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 7 S$卖家抽奖2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 8 S$卖家切割2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 9 S$卖家元宝2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 10 S$卖家遮天币2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 11 S$卖家人民币2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 12 S$卖家坐X2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录2)>.txt 13 S$卖家坐Y2
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击2
 
#IF
NOT EQUAL S$记录3
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 0 S$卖家区名3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 1 S$卖家账号3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 2 S$卖家角色3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 3 S$卖家价格3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 4 S$卖家接收3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 5 S$卖家等级3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 6 S$卖家幸运3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 7 S$卖家抽奖3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 8 S$卖家切割3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 9 S$卖家元宝3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 10 S$卖家遮天币3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 11 S$卖家人民币3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 12 S$卖家坐X3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录3)>.txt 13 S$卖家坐Y3
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击3
#IF
NOT EQUAL S$记录4  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 0 S$卖家区名4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 1 S$卖家账号4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 2 S$卖家角色4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 3 S$卖家价格4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 4 S$卖家接收4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 5 S$卖家等级4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 6 S$卖家幸运4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 7 S$卖家抽奖4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 8 S$卖家切割4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 9 S$卖家元宝4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 10 S$卖家遮天币4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 11 S$卖家人民币4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 12 S$卖家坐X4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录4)>.txt 13 S$卖家坐Y4
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击4
#IF
NOT EQUAL S$记录5  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 0 S$卖家区名5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 1 S$卖家账号5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 2 S$卖家角色5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 3 S$卖家价格5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 4 S$卖家接收5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 5 S$卖家等级5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 6 S$卖家幸运5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 7 S$卖家抽奖5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 8 S$卖家切割5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 9 S$卖家元宝5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 10 S$卖家遮天币5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 11 S$卖家人民币5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 12 S$卖家坐X5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录5)>.txt 13 S$卖家坐Y5
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击5
 
#IF
NOT EQUAL S$记录6  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 0 S$卖家区名6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 1 S$卖家账号6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 2 S$卖家角色6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 3 S$卖家价格6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 4 S$卖家接收6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 5 S$卖家等级6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 6 S$卖家幸运6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 7 S$卖家抽奖6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 8 S$卖家切割6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 9 S$卖家元宝6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 10 S$卖家遮天币6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 11 S$卖家人民币6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 12 S$卖家坐X6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录6)>.txt 13 S$卖家坐Y6
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击6
#IF
NOT EQUAL S$记录7  
#ACT
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 0 S$卖家区名7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 1 S$卖家账号7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 2 S$卖家角色7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 3 S$卖家价格7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 4 S$卖家接收7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 5 S$卖家等级7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 6 S$卖家幸运7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 7 S$卖家抽奖7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 8 S$卖家切割7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 9 S$卖家元宝7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 10 S$卖家遮天币7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 11 S$卖家人民币7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 12 S$卖家坐X7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录7)>.txt 13 S$卖家坐Y7
GetListString ..\..\..\..\账号交易\账号数据\<$STR(S$记录0)>.txt 14 S$卖家暴击7
 
 
#IF
#ACT
DelayGoto 10 @去显示担保列表
break
 
[@账号交易飞到玩家]
#IF
#ACT
map zhjy 
 
 
[@账号交易飞玩家]
#IF
#ACT
map zhjy 
 
 
[@账号交易购买0]
#IF
EQUAL S$卖家账号0
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名0)>
MOV S$购买的账号 <$STR(S$卖家账号0)>
MOV S$购买的角色 <$STR(S$卖家角色0)>
MOV S$购买的价格 <$STR(S$卖家价格0)>
MOV S$购买的接收 <$STR(S$卖家接收0)>
MOV S$显示购买的区名 <$STR(S$卖家区名0)>
MOV S$显示购买的价格 <$STR(S$卖家价格0)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买1]
#IF
EQUAL S$卖家账号1
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名1)>
MOV S$购买的账号 <$STR(S$卖家账号1)>
MOV S$购买的角色 <$STR(S$卖家角色1)>
MOV S$购买的价格 <$STR(S$卖家价格1)>
MOV S$购买的接收 <$STR(S$卖家接收1)>
MOV S$显示购买的区名 <$STR(S$卖家区名1)>
MOV S$显示购买的价格 <$STR(S$卖家价格1)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买2]
#IF
EQUAL S$卖家账号2
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名2)>
MOV S$购买的账号 <$STR(S$卖家账号2)>
MOV S$购买的角色 <$STR(S$卖家角色2)>
MOV S$购买的价格 <$STR(S$卖家价格2)>
MOV S$购买的接收 <$STR(S$卖家接收2)>
MOV S$显示购买的区名 <$STR(S$卖家区名2)>
MOV S$显示购买的价格 <$STR(S$卖家价格2)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买3]
#IF
EQUAL S$卖家账号3
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名3)>
MOV S$购买的账号 <$STR(S$卖家账号3)>
MOV S$购买的角色 <$STR(S$卖家角色3)>
MOV S$购买的价格 <$STR(S$卖家价格3)>
MOV S$购买的接收 <$STR(S$卖家接收3)>
MOV S$显示购买的区名 <$STR(S$卖家区名3)>
MOV S$显示购买的价格 <$STR(S$卖家价格3)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买4]
#IF
EQUAL S$卖家账号4
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名4)>
MOV S$购买的账号 <$STR(S$卖家账号4)>
MOV S$购买的角色 <$STR(S$卖家角色4)>
MOV S$购买的价格 <$STR(S$卖家价格4)>
MOV S$购买的接收 <$STR(S$卖家接收4)>
MOV S$显示购买的区名 <$STR(S$卖家区名4)>
MOV S$显示购买的价格 <$STR(S$卖家价格4)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买5]
#IF
EQUAL S$卖家账号5
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名5)>
MOV S$购买的账号 <$STR(S$卖家账号5)>
MOV S$购买的角色 <$STR(S$卖家角色5)>
MOV S$购买的价格 <$STR(S$卖家价格5)>
MOV S$购买的接收 <$STR(S$卖家接收5)>
MOV S$显示购买的区名 <$STR(S$卖家区名5)>
MOV S$显示购买的价格 <$STR(S$卖家价格5)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买6]
#IF
EQUAL S$卖家账号6
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名6)>
MOV S$购买的账号 <$STR(S$卖家账号6)>
MOV S$购买的角色 <$STR(S$卖家角色6)>
MOV S$购买的价格 <$STR(S$卖家价格6)>
MOV S$购买的接收 <$STR(S$卖家接收6)>
MOV S$显示购买的区名 <$STR(S$卖家区名6)>
MOV S$显示购买的价格 <$STR(S$卖家价格6)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
[@账号交易购买7]
#IF
EQUAL S$卖家账号7
#ACT
MESSAGEBOX 暂时无出售的账号!
break
#ELSEACT
MOV S$购买的区名 <$STR(S$卖家区名7)>
MOV S$购买的账号 <$STR(S$卖家账号7)>
MOV S$购买的角色 <$STR(S$卖家角色7)>
MOV S$购买的价格 <$STR(S$卖家价格7)>
MOV S$购买的接收 <$STR(S$卖家接收7)>
MOV S$显示购买的区名 <$STR(S$卖家区名7)>
MOV S$显示购买的价格 <$STR(S$卖家价格7)>人民币
SetStringBlank S$显示购买的区名 20 1
SetStringBlank S$显示购买的价格 20 1
goto @账号交易购买
 
 
 
[@账号交易购买]
#IF
#ACT
CloseBigDialogBox
OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
#SAY
\  \   \   \   \
<    /FCOLOR=242><出售账号/@main>  <出售列表/@出售列表>  <领取出售货款/@领取货款>\ \ \
 
<   /FCOLOR=242><买号必看事项/FCOLOR=7>\  \
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40>\   \
<   /FCOLOR=242><区  名:/FCOLOR=242}>{<$STR(S$显示购买的区名)>/FCOLOR=70}
<   /FCOLOR=242><角  色:/FCOLOR=242}>{<$STR(S$购买的角色)>/FCOLOR=70} \
<   /FCOLOR=242><价  格:/FCOLOR=242}>{<$STR(S$显示购买的价格)>/FCOLOR=70}
<   /FCOLOR=242><手续费:/FCOLOR=242}>{10%/FCOLOR=70} \
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40>\  \
<   /FCOLOR=242><购买前请核对货币、玩家装备,购买后无法退款!>  <前去查看玩家装备/@账号交易飞到玩家>\ 
<   /FCOLOR=242><您购买的角色的帐号以及密码保护资料,购买完毕后会自动掉线!/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
<   /FCOLOR=242><请重新登录你的购买的账号即可看到你购买的角色,如无法登录请联系担保客服!/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ 
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40>\ \
 
                     <确定购买账号/@继续购买账号>\ 
 
 
[@继续购买账号]
#ACT
CloseBigDialogBox
OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
#SAY
\  \   \   \   \
<    /FCOLOR=242><出售账号/@main>  <出售列表/@出售列表>  <领取出售货款/@领取货款>\ \
 
<   /FCOLOR=242><买号必看事项/FCOLOR=7>\
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40>\
<   /FCOLOR=242><区  名:/FCOLOR=242}>{<$STR(S$显示购买的区名)>/FCOLOR=70}
<   /FCOLOR=242><角  色:/FCOLOR=242}>{<$STR(S$购买的角色)>/FCOLOR=70} \
<   /FCOLOR=242><价  格:/FCOLOR=242}>{<$STR(S$显示购买的价格)>/FCOLOR=70}
<   /FCOLOR=242><手续费:/FCOLOR=242}>{10%/FCOLOR=70} \
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40>\
<   /FCOLOR=242><请输入你要修改的二级密码以及保护问题核对无误后再来购买账号> \  \
<   /FCOLOR=242><[点击输入新的账号生日]|250#生日请严格按照右边的格式输入!!^-^253#如果不按格式输入,^253#购买账号不成功,^253#所损失的灵符自负!{FCOLOR=151}/@@InPutString10(输入生日请严格按照此格式:1999-01-01)>:<$STR(S10)>     输入格式:1999-01-01必须为XXXX/XX/XX否则无法通过\
<   /FCOLOR=242><[点击输入新的密码问题1]|151#请填写新的密码问题1^-^250#填写好新的密保信息后,^250#请截图保存,以免忘记。{FCOLOR=151}/@@InPutString11>:<$STR(S11)>\
<   /FCOLOR=242><[点击输入新的密码回答1]|151#请填写新的密码回答1^-^250#填写好新的密保信息后,^250#请截图保存,以免忘记。{FCOLOR=151}/@@InPutString12>:<$STR(S12)>\
<   /FCOLOR=242><[点击输入新的密码问题2]|151#请填写新的密码问题2^-^250#填写好新的密保信息后,^250#请截图保存,以免忘记。{FCOLOR=151}/@@InPutString13>:<$STR(S13)>\
<   /FCOLOR=242><[点击输入新的密码回答2]|151#请填写新的密码回答2^-^250#填写好新的密保信息后,^250#请截图保存,以免忘记。{FCOLOR=151}/@@InPutString14>:<$STR(S14)>\
<   /FCOLOR=242><[点击输入新的登陆密码]|249#登陆密码最长10位数,^-^7#必须是英文和数字的组合。{FCOLOR=151}/@@InPutString16>:<$STR(S16)>\
<                  /FCOLOR=242><开始购买帐号/@开始购买账号555>\ \
<   /FCOLOR=242><请用手机拍照记录下你修改的二级密码和密码保护问题以免忘记!!否则后果自负!/FCOLOR=70>       \
 
[@InPutString10]
#IF
NOT EQUAL S10
#ACT
MOV S$密保年份 <$str(s10)>
DEC S$密保年份 5 10
MOV S$密保月份 <$str(s10)>
DEC S$密保月份 1 5
DEC S$密保月份 3 5
MOV S$密保日期 <$str(s10)>
DEC S$密保日期 1 8
#ELSEACT
MOV S10
Messagebox 输入的错误,请重新输入....
break
 
 
#IF
CHECKTEXTLIST ..\QuestDiary\自动担保系统\密保年份.txt <$STR(S$密保年份)>
CHECKTEXTLIST ..\QuestDiary\自动担保系统\密保月份.txt <$STR(S$密保月份)>
CHECKTEXTLIST ..\QuestDiary\自动担保系统\密保日期.txt <$STR(S$密保日期)>
#ACT
GetStringPos ..\QuestDiary\自动担保系统\月份日期1.txt <$STR(S$密保月份)>
INC N0 1
GetListString ..\QuestDiary\自动担保系统\月份日期1.txt <$STR(N0)> S$最高日期
MOV N$检测日期 <$STR(S$密保日期)>
#ELSEACT
messagebox 请确认生日填写正确!\年份在1960-2020年之间!\月份在1-12月之间!\日期在1-30之间!
break
 
#IF
LARGE N$检测日期 <$STR(S$最高日期)>
#ACT
MOV S10
messagebox 日期填写错误,你填写的<$STR(S$密保年份)>年<$STR(S$密保月份)>月有<$STR(N$检测日期)>天?
#ELSEACT
goto @继续购买账号
break
 
[@InPutString11]
#OR
EQUAL S11 <$STR(S12)>
EQUAL S11 <$STR(S13)>
EQUAL S11 <$STR(S14)>
EQUAL S11 <$STR(S16)>
#ACT
MOV S11 
Messagebox 密码、保护问题和答案不能相同或者太过简单!\请重新输入!!!
break
 
#OR
CheckStringlength <$STR(S11)> > 10
EQUAL S11 
#ACT
MOV S11 
Messagebox 输入的错误,最多10位字符,请重新输入....
break
#ELSEACT
goto @继续购买账号
 
 
 
 
 
[@InPutString12]
#OR
EQUAL S12 <$STR(S11)>
EQUAL S12 <$STR(S13)>
EQUAL S12 <$STR(S14)>
EQUAL S12 <$STR(S16)>
#ACT
MOV S12 
Messagebox 密码、保护问题和答案不能相同或者太过简单!\请重新输入!!!
break
 
 
#OR
CheckStringlength <$STR(S12)> > 10
EQUAL S12 
#ACT
MOV S12 
Messagebox 输入的错误,最多10位字符,请重新输入....
break
#ELSEACT
goto @继续购买账号
 
 
 
[@InPutString13]
#OR
EQUAL S13 <$STR(S11)>
EQUAL S13 <$STR(S12)>
EQUAL S13 <$STR(S14)>
EQUAL S13 <$STR(S16)>
#ACT
MOV S13 
Messagebox 密码、保护问题和答案不能相同或者太过简单!\请重新输入!!!
break
 
 
#OR
CheckStringlength <$STR(S13)> > 10
EQUAL S13
#ACT
MOV S13 
Messagebox 输入的错误,最多10位字符,请重新输入....
break
#ELSEACT
goto @继续购买账号
 
 
 
 
[@InPutString14]
 
#OR
EQUAL S14 <$STR(S13)>
EQUAL S14 <$STR(S12)>
EQUAL S14 <$STR(S11)>
EQUAL S14 <$STR(S16)>
#ACT
MOV S14 
Messagebox 密码、保护问题和答案不能相同或者太过简单!\请重新输入!!!
break
 
 
#OR
CheckStringlength <$STR(S14)> > 10
EQUAL S14
#ACT
MOV S14 
Messagebox 输入的错误,最多10位字符,请重新输入....
break
#ELSEACT
goto @继续购买账号
 
 
[@InPutString16]
#OR
EQUAL S16 <$STR(S13)>
EQUAL S16 <$STR(S12)>
EQUAL S16 <$STR(S11)>
EQUAL S16 <$STR(S14)>
#ACT
MOV S16 
Messagebox 密码、保护问题和答案不能相同或者太过简单!\请重新输入!!!
break
 
 
#or
CheckContainsText S16 q
CheckContainsText S16 w
CheckContainsText S16 e
CheckContainsText S16 r
CheckContainsText S16 t
CheckContainsText S16 y
CheckContainsText S16 u
CheckContainsText S16 i
CheckContainsText S16 o
CheckContainsText S16 p
CheckContainsText S16 a
CheckContainsText S16 s
CheckContainsText S16 d
CheckContainsText S16 f
CheckContainsText S16 g
CheckContainsText S16 h
CheckContainsText S16 j
CheckContainsText S16 k
CheckContainsText S16 l
CheckContainsText S16 z
CheckContainsText S16 x
CheckContainsText S16 c
CheckContainsText S16 v
CheckContainsText S16 b
CheckContainsText S16 n
CheckContainsText S16 m
#elseact
MOV S16 
MESSAGEBOX 密码不能太过简单!必须包含字母!!!
break
 
 
#OR
CheckStringlength <$STR(S16)> > 10
EQUAL S16
#ACT
MOV S16 
Messagebox 输入的错误,最多10位字符,请重新输入....
break
#ELSEACT
goto @继续购买账号
 
 
 
 
[@开始购买账号555]
#IF
NOT CHECKTEXTLIST ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(S$购买的区名)><$STR(S$购买的账号)> 
#ACT
MESSAGEBOX 暂时无出售的账号!
goto @main
BREAK
 
#OR
EQUAL S11
EQUAL S12
EQUAL S13
EQUAL S10
EQUAL S14
EQUAL S16
#ACT
MESSAGEBOX 请输入完整密保信息资料!
goto @main
BREAK
 
 
 
 
#IF
CheckGAMEPOINT ? <$STR(S$购买的价格)>
#ACT
GAMEPOINT - <$STR(S$购买的价格)>
AddTextListEx  ..\QuestDiary\自动担保系统\买号号日志记录.txt   账号【<$USERID>】角色【<$USERNAME>】在<$DATETIME>提交购买了账号下的【<$STR(S$购买的账号)>】角色【<$STR(S$购买的角色)>】.
<$STR(S$购买的角色)>.KICK
;TextReplace <$STR(S10)> - / S$密码保护生日 0 0
;DELConfigFileItem ..\QuestDiary\自动担保系统\修改资料.txt <$STR(S$购买的账号)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\修改资料.txt <$STR(S$购买的账号)> 账号 <$STR(S$购买的账号)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\修改资料.txt <$STR(S$购买的账号)> 密码 <$STR(S16)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\修改资料.txt <$STR(S$购买的账号)> 生日 <$STR(S$密码保护生日)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\密保变量.txt <$STR(S$购买的账号)> 问题1 <$STR(S11)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\密保变量.txt <$STR(S$购买的账号)> 答案1 <$STR(S12)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\密保变量.txt <$STR(S$购买的账号)> 问题2 <$STR(S13)>
;WriteConfigFileItem ..\QuestDiary\自动担保系统\密保变量.txt <$STR(S$购买的账号)> 答案2 <$STR(S14)>
;AddTextListEx  ..\QuestDiary\自动担保系统\提交修改.txt <$STR(S$购买的账号)>
 
 
MOV S$密码保护生日 <$STR(S10)>
ANSIREPLACETEXT <$STR(S$密码保护生日)> - /
ANSIREPLACETEXT <$STR(S$密码保护生日)> - /
 
 
AddTextListEx  ..\QuestDiary\账号担保\账号提交.txt <$STR(S$购买的账号)>:<$STR(S16)>:<$STR(S$密码保护生日)>:<$STR(S11)>:<$STR(S12)>:<$STR(S13)>:<$STR(S14)>
AddTextListEx  ..\QuestDiary\自动担保系统\已卖出账号.txt <$STR(S$购买的账号)>
DelTextList ..\..\..\..\账号交易\<$SERVERNAME>帐号交易列表.txt <$STR(S$购买的区名)><$STR(S$购买的账号)> 
DelTextList ..\..\..\..\账号交易\<$SERVERNAME>已售账号列表.txt <$STR(S$购买的区名)><$STR(S$购买的账号)> 
MOV T49 <$STR(S$购买的账号)>
GetStringPos ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$SERVERNAME><$STR(S$购买的接收)>
INC N0 1
GetListString ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$STR(N0)> <$STR(S$我的金额11)>
MOV N$过度的价格 <$STR(S$我的金额11)>
INC  N$过度的价格 <$STR(S$购买的价格)>
DelTextList ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$SERVERNAME><$STR(S$购买的接收)>
AddTextList  ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$SERVERNAME><$STR(S$购买的接收)>
AddTextList  ..\..\..\..\账号交易\<$SERVERNAME>待取款变量.txt <$STR(N$过度的价格)>
GetRandomText ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt N$全区卖号数量 0 1
Dec N$全区卖号数量 1
ClearNameList ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt 1
AddTextListEx ..\..\..\..\账号交易\<$SERVERNAME>账号出售数量.txt <$STR(N$全区卖号数量)> 0 1
sendmsg 6 购买成功,请重新登录查收您购买的帐号[<$STR(S$购买的账号)>],请记录下来!!!
sendmsg 6 购买成功,请重新登录查收您购买的帐号[<$STR(S$购买的账号)>],请记录下来!!!
sendmsg 6 购买成功,请重新登录查收您购买的帐号[<$STR(S$购买的账号)>],请记录下来!!!
sendmsg 6 购买成功,请重新登录查收您购买的帐号[<$STR(S$购买的账号)>],请记录下来!!!
MESSAGEBOX 您购买的帐号信息如下,请截图保存除客服外不要发给任何人!\ \帐号:<$STR(S$购买的账号)> 角色:<$STR(S$购买的角色)> 花费:<$STR(S$购买的价格)>灵符\问题一:<$STR(S11)> 答案一:<$STR(S12)>\问题二:<$STR(S13)> 答案二:<$STR(S14)>\生日:<$STR(S10)> 密码:<$STR(S16)> 
#ELSEACT
MESSAGEBOX 购买该帐号需要灵符:<$STR(S$购买的价格)>,您的灵符不足!
BREAK
 
[@去显示担保列表]
#IF
#ACT
MOV S$显示卖家区名0 <$STR(S$卖家区名0)>
MOV S$显示卖家角色0 <$STR(S$卖家角色0)>
MOV S$显示卖家价格0 <$STR(S$卖家价格0)>
SetStringBlank S$显示卖家区名0 19 1
SetStringBlank S$显示卖家角色0 15 1
SetStringBlank S$显示卖家价格0 11 1
MOV S$显示卖家区名1 <$STR(S$卖家区名1)>
MOV S$显示卖家角色1 <$STR(S$卖家角色1)>
MOV S$显示卖家价格1 <$STR(S$卖家价格1)>
SetStringBlank S$显示卖家区名1 19 1
SetStringBlank S$显示卖家角色1 15 1
SetStringBlank S$显示卖家价格1 11 1
MOV S$显示卖家区名2 <$STR(S$卖家区名2)>
MOV S$显示卖家角色2 <$STR(S$卖家角色2)>
MOV S$显示卖家价格2 <$STR(S$卖家价格2)>
SetStringBlank S$显示卖家区名2 19 1
SetStringBlank S$显示卖家角色2 15 1
SetStringBlank S$显示卖家价格2 11 1
MOV S$显示卖家区名3 <$STR(S$卖家区名3)>
MOV S$显示卖家角色3 <$STR(S$卖家角色3)>
MOV S$显示卖家价格3 <$STR(S$卖家价格3)>
SetStringBlank S$显示卖家区名3 19 1
SetStringBlank S$显示卖家角色3 15 1
SetStringBlank S$显示卖家价格3 11 1
MOV S$显示卖家区名4 <$STR(S$卖家区名4)>
MOV S$显示卖家角色4 <$STR(S$卖家角色4)>
MOV S$显示卖家价格4 <$STR(S$卖家价格4)>
SetStringBlank S$显示卖家区名4 19 1
SetStringBlank S$显示卖家角色4 15 1
SetStringBlank S$显示卖家价格4 11 1
MOV S$显示卖家区名5 <$STR(S$卖家区名5)>
MOV S$显示卖家角色5 <$STR(S$卖家角色5)>
MOV S$显示卖家价格5 <$STR(S$卖家价格5)>
SetStringBlank S$显示卖家区名5 19 1
SetStringBlank S$显示卖家角色5 15 1
SetStringBlank S$显示卖家价格5 11 1
MOV S$显示卖家区名6 <$STR(S$卖家区名6)>
MOV S$显示卖家角色6 <$STR(S$卖家角色6)>
MOV S$显示卖家价格6 <$STR(S$卖家价格6)>
SetStringBlank S$显示卖家区名6 19 1
SetStringBlank S$显示卖家角色6 15 1
SetStringBlank S$显示卖家价格6 11 1
MOV S$显示卖家区名7 <$STR(S$卖家区名7)>
MOV S$显示卖家角色7 <$STR(S$卖家角色7)>
MOV S$显示卖家价格7 <$STR(S$卖家价格7)>
SetStringBlank S$显示卖家区名7 19 1
SetStringBlank S$显示卖家角色7 15 1
SetStringBlank S$显示卖家价格7 11 1
 
CloseBigDialogBox
OPENMERCHANTBIGDLG 53 592 1 0 0 20 1 423 5
#SAY
\  \   \   \   \
<    /FCOLOR=242><出售账号/@main>  <出售列表/@出售列表>  <领取出售货款/@领取货款>\ \
<   /FCOLOR=242><区名/FCOLOR=9>        <角色/FCOLOR=9>      <价格(人民币)/FCOLOR=9>\
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40> \  \
<   /FCOLOR=242><$STR(S$显示卖家区名0)><$STR(S$显示卖家角色0)><$STR(S$显示卖家价格0)><角色详情|222#元宝:<$STR(S$卖家元宝0)>^222#RMB.点:<$STR(S$卖家人民币0)>^222#充值点:<$STR(S$卖家抽奖0)>^222#等级:<$STR(S$卖家等级0)>^222#<$STR(S$卖家切割0)>^222#<$STR(S$卖家遮天币0)>^222#<$STR(S$卖家幸运0)>^222#<$STR(S$卖家暴击0)>/@xx0> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买0> \
<   /FCOLOR=242><$STR(S$显示卖家区名1)><$STR(S$显示卖家角色1)><$STR(S$显示卖家价格1)><角色详情|222#元宝:<$STR(S$卖家元宝1)>^222#RMB.点:<$STR(S$卖家人民币1)>^222#充值点:<$STR(S$卖家抽奖1)>^222#等级:<$STR(S$卖家等级1)>^222#<$STR(S$卖家切割1)>^222#<$STR(S$卖家遮天币1)>^222#<$STR(S$卖家幸运1)>^222#<$STR(S$卖家暴击1)>/@xx1> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买1> \
<   /FCOLOR=242><$STR(S$显示卖家区名2)><$STR(S$显示卖家角色2)><$STR(S$显示卖家价格2)><角色详情|222#元宝:<$STR(S$卖家元宝2)>^222#RMB.点:<$STR(S$卖家人民币2)>^222#充值点:<$STR(S$卖家抽奖2)>^222#等级:<$STR(S$卖家等级2)>^222#<$STR(S$卖家切割2)>^222#<$STR(S$卖家遮天币2)>^222#<$STR(S$卖家幸运2)>^222#<$STR(S$卖家暴击2)>/@xx2> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买2> \
<   /FCOLOR=242><$STR(S$显示卖家区名3)><$STR(S$显示卖家角色3)><$STR(S$显示卖家价格3)><角色详情|222#元宝:<$STR(S$卖家元宝3)>^222#RMB.点:<$STR(S$卖家人民币3)>^222#充值点:<$STR(S$卖家抽奖3)>^222#等级:<$STR(S$卖家等级3)>^222#<$STR(S$卖家切割3)>^222#<$STR(S$卖家遮天币3)>^222#<$STR(S$卖家幸运3)>^222#<$STR(S$卖家暴击3)>/@xx3> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买3> \
<   /FCOLOR=242><$STR(S$显示卖家区名4)><$STR(S$显示卖家角色4)><$STR(S$显示卖家价格4)><角色详情|222#元宝:<$STR(S$卖家元宝4)>^222#RMB.点:<$STR(S$卖家人民币4)>^222#充值点:<$STR(S$卖家抽奖4)>^222#等级:<$STR(S$卖家等级4)>^222#<$STR(S$卖家切割4)>^222#<$STR(S$卖家遮天币4)>^222#<$STR(S$卖家幸运4)>^222#<$STR(S$卖家暴击4)>/@xx4> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买4> \
<   /FCOLOR=242><$STR(S$显示卖家区名5)><$STR(S$显示卖家角色5)><$STR(S$显示卖家价格5)><角色详情|222#元宝:<$STR(S$卖家元宝5)>^222#RMB.点:<$STR(S$卖家人民币5)>^222#充值点:<$STR(S$卖家抽奖5)>^222#等级:<$STR(S$卖家等级5)>^222#<$STR(S$卖家切割5)>^222#<$STR(S$卖家遮天币5)>^222#<$STR(S$卖家幸运5)>^222#<$STR(S$卖家暴击5)>/@xx5> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买5>\
<   /FCOLOR=242><$STR(S$显示卖家区名6)><$STR(S$显示卖家角色6)><$STR(S$显示卖家价格6)><角色详情|222#元宝:<$STR(S$卖家元宝6)>^222#RMB.点:<$STR(S$卖家人民币6)>^222#充值点:<$STR(S$卖家抽奖6)>^222#等级:<$STR(S$卖家等级6)>^222#<$STR(S$卖家切割6)>^222#<$STR(S$卖家遮天币6)>^222#<$STR(S$卖家幸运6)>^222#<$STR(S$卖家暴击6)>/@xx6> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买6>\
<   /FCOLOR=242><$STR(S$显示卖家区名7)><$STR(S$显示卖家角色7)><$STR(S$显示卖家价格7)><角色详情|222#元宝:<$STR(S$卖家元宝7)>^222#RMB.点:<$STR(S$卖家人民币7)>^222#充值点:<$STR(S$卖家抽奖7)>^222#等级:<$STR(S$卖家等级7)>^222#<$STR(S$卖家切割7)>^222#<$STR(S$卖家遮天币7)>^222#<$STR(S$卖家幸运7)>^222#<$STR(S$卖家暴击7)>/@xx7> <查找玩家/@账号交易飞到玩家> <购买/@账号交易购买7> \  \
<   /FCOLOR=242><_______________________________________________________________________________/FCOLOR=40> \  \
              <上一页{FCOLOR=251}/@账号交易上一页>    {当前第<$STR(N$出售列表页数)>页/FCOLOR=253}  <下一页{FCOLOR=251}/@账号交易下一页>   <返回{FCOLOR=250}/@main>\
 
 
 
 
 
 
[@账号交易上一页]
#IF
LARGE N$编号5 5
#ACT
DEC N$编号0 8
DEC N$编号1 8
DEC N$编号2 8
DEC N$编号3 8
DEC N$编号4 8
DEC N$编号5 8
DEC N$编号6 8
DEC N$编号7 8
Dec N$出售列表页数 1
Goto @出售列表2
break
 
[@账号交易下一页]
#IF
#ACT
INC N$编号0 8
INC N$编号1 8
INC N$编号2 8
INC N$编号3 8
INC N$编号4 8
INC N$编号5 8
INC N$编号6 8
INC N$编号7 8
INC N$出售列表页数 1
Goto @出售列表2
break
 
[@加载离线位置]
#IF
NOT CheckOffline
#ACT
BREAK
 
 
 
  


相关评论

Copyright © 2020 4Hj.NeT 传奇游戏发布网站 all rights reserved.