烈焰之城，这座充满传奇色彩的城市，正以其独特的魅力吸引着无数探险者。而今天，我们谈论的焦点并不是它的神秘传说，而是其备受瞩目的自动担保交易系统。这是一个为游戏玩家量身打造的自动化平台，旨在实现游戏帐号的快速、安全交易。
烈焰之城自动担保交易系统，欢迎使用游戏帐号自助交易系统，在这里您可以【出售】自己帐号，或购买其他帐号，上架帐号时需填写/验证密保生日、问题、答案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-2023年之间!\月份在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-2023年之间!\月份在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#R点.点：<$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#R点.点：<$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#R点.点：<$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#R点.点：<$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#R点.点：<$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#R点.点：<$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#R点.点：<$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#R点.点：<$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
