查看: 7238|回复: 1

传奇sf一条龙账号转区交易脚本

[复制链接]

0

精华

7

主题

10

帖子

管理员

Rank: 9Rank: 9Rank: 9

在线时间
80 小时
金币
23782
元宝
2051
注册时间
2010-10-1

最佳新人活跃会员热心会员推广达人宣传达人灌水之王突出贡献优秀版主荣誉管理论坛元老

发表于 2021-7-9 15:48:35 | 显示全部楼层 |阅读模式
[@MAIN]
#if
#act
MOV S51
MOV S52
MOV S53
MOV S54
MOV S55
MOV S56
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据0)> 0
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据1)> 1
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据2)> 2
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据3)> 3
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据4)> 4
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据5)> 5
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据6)> 6
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据7)> 7
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据8)> 8
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据9)> 9
OPENMERCHANTBIGDLG 96 1301 1 4 0 -80 1 640 13
#say
\ \ \
<>         <imgex:96:1292:1293:1294:100:250/@花火定做Q470059570酒鬼令回收>   <imgex:96:1295:1296:1297:150:250/@花火定做Q470059570真充回收>\ \

<>                   <IMGEX:96:1298:1299:1300:450:280/@花火派出所落户手续Q470059570>\ \ \ \ \ \ \ \  \ \ \ \  \ \ \ \

<>       <No.0/scolor=251>   <$STR(S$数据0)> \
<>       <No.1/scolor=251>   <$STR(S$数据1)> \
<>       <No.2/scolor=251>   <$STR(S$数据2)> \
<>       <No.3/scolor=251>   <$STR(S$数据3)> \
<>       <No.4/scolor=251>   <$STR(S$数据4)> \
<>       <No.5/scolor=251>   <$STR(S$数据5)> \
<>       <No.6/scolor=251>   <$STR(S$数据6)> \
<>       <No.7/scolor=251>   <$STR(S$数据7)> \
<>       <No.8/scolor=251>   <$STR(S$数据8)> \
<>       <No.9/scolor=251>   <$STR(S$数据9)> \





[@花火派出所落户手续Q470059570]
#if
#act
OPENMERCHANTBIGDLG 96 1301 1 4 0 -80 1 640 13
#say
\ \
<>         \ \

<>                   \ \ \ \ \ \ \ \  \ \ \ \  \ \ \  \

<>       <请输入以下信息以便办理落户/SCOLOR=223> \ \

<>       <原账户账号:/SCOLOR=146> <$STR(S51)>       <输入/@@InPutString51> \

<>       <原账户注册生日:/SCOLOR=146> <$STR(S52)>   <输入/@@InPutString52> \

<>       <原账户提问1:/SCOLOR=146> <$STR(S53)>      <输入/@@InPutString53> \

<>       <原账户回答1:/SCOLOR=146> <$STR(S54)>      <输入/@@InPutString54> \

<>       <原账户提问2:/SCOLOR=146> <$STR(S55)>      <输入/@@InPutString55> \

<>       <原账户回答2:/SCOLOR=146> <$STR(S56)>      <输入/@@InPutString56> \



<>                                                     <点击查询落户信息/@花火Q470059570查询落户信息>



[@InPutString51]
#if
CheckContainsText <$STR(S51)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570


[@InPutString52]
#if
CheckContainsText <$STR(S52)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570


[@InPutString53]
#if
CheckContainsText <$STR(S53)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570

[@InPutString54]
#if
CheckContainsText <$STR(S54)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString55]
#if
CheckContainsText <$STR(S55)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString56]
#if
CheckContainsText <$STR(S56)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570












[@检测是否同区落户]

#IF
CheckContainsText <$STR(S$原大区)> <$SERVERNAME>
#act
MESSAGEBOX [失败]\\原账户与当前账户处于同一区\\无法落户此账户信息!
BREAK
#ELSEACT
MESSAGEBOX [确认信息]:\\1.当前转区真实充值数量:<$STR(N$转区数量)> @花火落户最后一步0911 @exit




[@花火落户最后一步0911]
#IF
#ACT
;MUL N$元宝数量 <$STR(N$转区数量)> 20000
;MUL N$声望数量 <$STR(N$转区数量)> 400
MUL N$金刚石数量 <$STR(N$转区数量)> 1000
;MUL N$充值点数量 <$STR(N$转区数量)> 1
;GAMEGOLD + <$STR(N$元宝数量)>
;GAMEGLORY + <$STR(N$转区数量)>
GAMEDIAMOND + <$STR(N$金刚石数量)>
;CREDITPOINT + <$STR(N$声望数量)>

;INC U47 <$STR(N$充值点数量)>
DelTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
CLEARNAMELIST ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$元宝数量)>元宝,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过转区充值获得钻石,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$声望数量)>酒鬼币,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$转区数量)>真实充值,如果您也想获得,请赶快充值吧!
MESSAGEBOX [恭喜]:转区落户全部完成,祝君游戏愉快!









[@花火Q470059570查询落户信息]
#OR
EQUAL S51
EQUAL S52
EQUAL S53
EQUAL S54
EQUAL S55
EQUAL S56
#ACT
MESSAGEBOX 请将信息输入完整.
break


#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
#ELSEACT
MESSAGEBOX [失败]:未查询到当前信息.
break




#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
#act
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$账号)> 0
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(N$转区数量)> 1
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$生日)> 2
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$提问1)> 3
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$回答1)> 4
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$提问2)> 5
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$回答2)> 6
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$转区方式)> 7
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$原大区)> 8
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(N$原开区天数)> 9



#IF
equal S52 <$STR(S$生日)>
equal S53 <$STR(S$提问1)>
equal S54 <$STR(S$回答1)>
equal S55 <$STR(S$提问2)>
equal S56 <$STR(S$回答2)>
#elseact
MESSAGEBOX [错误]:您的密保信息输入有误.
BREAK


#IF
equal S$转区方式 转区方式:酒鬼令
#act
GOTO @手续费计算
break


#IF
equal S$转区方式 转区方式:真实充值
#act
GOTO @检测是否同区落户
break

#IF
#ACT
MESSAGEBOX [错误]:信息查询失败请稍后再试.
BREAK



[@手续费计算]
#IF
CheckContainsText <$STR(S$原大区)> <$SERVERNAME>
#act
MESSAGEBOX [失败]\\原账户与当前账户处于同一区\\无法落户此账户信息!
BREAK






;#IF
;LARGE N$当前区天数 <$STR(N$原开区天数)>
;#ACT
;GOTO @分算1
;BREAK


;#IF
;SMALL N$当前区天数 <$STR(N$原开区天数)>
;#ACT
;GOTO @分算2
;BREAK


#IF
;equal N$当前区天数 <$STR(N$原开区天数)>
#ACT
GOTO @分算3
BREAK





[@分算1]
#IF
#ACT
DEC N$当前区天数 <$STR(N$原开区天数)>


#IF
LARGE N$当前区天数 4
#act
MOV N$手续Q 30
GOTO @合并计算
#ELSEACT
MOV N$手续Q 15
GOTO @合并计算



[@分算2]
#IF
#ACT
DEC N$原开区天数 <$STR(N$当前区天数)>

#IF
LARGE N$当前区天数 4
#act
MOV N$手续Q 30
GOTO @合并计算
#ELSEACT
MOV N$手续Q 15
GOTO @合并计算



[@分算3]

#IF
#ACT
MOV N$手续Q 30
GOTO @合并计算


[@合并计算]
#IF
#ACT
MOV N$需人民币 <$STR(N$转区数量)>
MUL N$需人民币 <$STR(N$手续Q)>
DIV N$需人民币 100
MESSAGEBOX [确认信息]:\\1.当前转区充值数量:<$STR(N$转区数量)>\\2.当前手续费率为:<$STR(N$手续Q)>%\\3.需要支付手续费:<$STR(N$需人民币)>人民币 @花火落户最后一步081 @exit






[@花火落户最后一步081]
#IF
CHECKGAMEPOINT < <$STR(N$需人民币)>
#ACT
MESSAGEBOX [失败]:当前人民币点不足以支付转区手续费.操作中断,请及时充值人民币点!
BREAK

#OR
CHECKGAMEPOINT > <$STR(N$需人民币)>
CHECKGAMEPOINT = <$STR(N$需人民币)>
#ACT
GAMEPOINT - <$STR(N$需人民币)>
;MUL N$元宝数量 <$STR(N$转区数量)> 20000
;MUL N$声望数量 <$STR(N$转区数量)> 400
MUL N$金刚石数量 <$STR(N$转区数量)> 1000
;MUL N$充值点数量 <$STR(N$转区数量)> 1
;GAMEGOLD + <$STR(N$元宝数量)>
GAMEDIAMOND + <$STR(N$金刚石数量)>
;CREDITPOINT + <$STR(N$声望数量)>


;INC U47 <$STR(N$充值点数量)>
DelTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
CLEARNAMELIST ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$元宝数量)>元宝,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过转区充值获得钻石,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$声望数量)>酒鬼币,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$充值点数量)>充值点,如果您也想获得,请赶快充值吧!


MESSAGEBOX [恭喜]:转区落户全部完成,祝君游戏愉快!




































[@花火定做Q470059570真充回收]
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
MESSAGEBOX [失败]:当前有该账户一条转区信息.无法继续操作,请先完成上一条转区落户手续!
break







#IF
CHECKTEXTLIST ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
#act
MESSAGEBOX 【错误】:\当前账号可能已经回收!
BREAK


#if
small U48 200
#ACT
MESSAGEBOX 【提示】:\当前账号真实充值不满200无法回收!
BREAK

#if
#act
goto @密保检测
BREAK



;============密保检测
[@密保检测]
#if
#act
OPENMERCHANTBIGDLG 96 1301 1 4 0 -80 1 640 13
#say
\ \
<>         \ \

<>                   \ \ \ \ \ \ \ \  \ \ \ \  \ \ \  \  \

<>       <为了恶意回收他人账户:请先输入密保验证/SCOLOR=223> \ \

<>       <账户账号 :/SCOLOR=146> <$STR(S71)>       <输入/@@InPutString71> \

<>       <注册生日 :/SCOLOR=146> <$STR(S72)>       <输入/@@InPutString72> \

<>       <账户提问1:/SCOLOR=146> <$STR(S73)>       <输入/@@InPutString73> \

<>       <账户回答1:/SCOLOR=146> <$STR(S74)>       <输入/@@InPutString74> \

<>       <账户提问2:/SCOLOR=146> <$STR(S75)>       <输入/@@InPutString75> \

<>       <账户回答2:/SCOLOR=146> <$STR(S76)>       <输入/@@InPutString76> \



<>                                                     <点击验证/@花火Q470059570密保验证>







[@InPutString71]
#if
CheckContainsText <$STR(S71)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测


[@InPutString72]
#if
CheckContainsText <$STR(S72)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测


[@InPutString73]
#if
CheckContainsText <$STR(S73)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测

[@InPutString74]
#if
CheckContainsText <$STR(S74)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测

[@InPutString75]
#if
CheckContainsText <$STR(S75)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测

[@InPutString76]
#if
CheckContainsText <$STR(S76)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测








[@花火Q470059570密保验证]
#OR
EQUAL S71
EQUAL S72
EQUAL S73
EQUAL S74
EQUAL S75
EQUAL S76
#ACT
MESSAGEBOX 请将信息输入完整.
break


#if
EQUAL S71 <$USERID>
EQUAL S72 <$BIRTHDAT>
EQUAL S73 <$QUIZ1>
EQUAL S74 <$ANSWER1>
EQUAL S75 <$QUIZ2>
EQUAL S76 <$ANSWER2>
#ACT
goto @花火验证成功081
#ELSEACT
MESSAGEBOX 密保验证失败,走好不送!
KICK
BREAK






















[@花火验证成功081]
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
MESSAGEBOX [失败]:当前有该账户一条转区信息.无法继续操作,请先完成上一条转区落户手续!
break







#IF
CHECKTEXTLIST ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
#act
MESSAGEBOX 【错误】:\当前账号可能已经回收!
BREAK


#if
small U48 200
#ACT
MESSAGEBOX 【提示】:\当前账号真实充值不满200无法回收!
BREAK






#IF
large U48 199
#ACT
MOV N$真实充值 <$Str(U48)>
MUL N$真实充值 45
DIV N$真实充值 100
MESSAGEBOX [确认信息]:\1.当前回收真实充值:<$Str(U48)>\2.可兑换新区充值:<$STR(N$真实充值)>\3.回收后当前账户将被收回以后无法登录(请勿在新区使用相同账号)\【注意】:请提前回顾当前账号密保问题,落户会进行验证.\【重要提示】:如果有酒鬼令也需要转的情况请先转酒鬼令,否则账号无法登陆 @花火确定回收真实充值 @EXIT
BREAK



[@花火确定回收真实充值]
#IF
#ACT
GOTO @下一步继续满足
break






[@下一步继续满足]
#IF
large U48 199
NOT CHECKTEXTLIST ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
#ACT
MOV U48 0
AddTextListEx ..\..\..\..\账号转区\可转账号列表.txt <$USERID>

CREATEFILE ..\..\..\..\账号转区\待转区账户\<$USERID>.txt

AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$USERID> 0
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(N$真实充值)> 1
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$BIRTHDAT> 2
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ1> 3
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER1> 4
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ2> 5
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER2> 6
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 转区方式:真实充值 7
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 大区:<$SERVERNAME> 8
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(G266)> 9

AddTextListEx ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>

;以下显示调用数据
AddTextListEx ..\..\..\..\账号转区\花火转区显示数据.txt <来自:<$SERVERNAME> 玩家:<$USERNAME> 成功将当前账户自助转区./SCOLOR=100>
DelayCall 3000 @Kick
MESSAGEBOX 【恭喜】:当前账号转区成功!请及时换区落户,即将自动下线.
















[@Kick]
#IF
#ACT
Kick

















[@花火定做Q470059570酒鬼令回收]

#if
CHECKTEXTLIST ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
messagebox 对不起,当前账户有未落户的转区信息。无法继续操作!
BREAK








#if
CHECKGAMEGLORY < 100
#act
messagebox 对不起。酒鬼令回收要求满100才可以回收..
BREAK



#if
#act
MOV N$鬼灵总数 <$GAMEGLORY>
DIV N$可回收数 <$STR(N$鬼灵总数)> 2
;跨战区手续费计算
MUL N$跨手续费 <$STR(N$可回收数)> 30
DIV N$跨手续费 100
;同战区手续费计算
MUL N$同手续费 <$STR(N$可回收数)> 30
DIV N$同手续费 100
MESSAGEBOX [确认信息]:\\1.当前回收酒鬼令数量:<$STR(N$鬼灵总数)>\2.可兑换新区充值:<$STR(N$可回收数)>\3.落户手续费:<$STR(N$跨手续费)>大米点,(新区账号收取)\【注意】:请提前回顾当前账号密保问题,落户会进行验证. @花火确定回收酒鬼令 @EXIT





[@花火确定回收酒鬼令]
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
MESSAGEBOX [失败]:当前有该账户一条转区信息.无法继续操作,请先完成上一条转区落户手续!OK
break









#if
NOT CHECKTEXTLIST ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
GAMEGLORY - <$STR(N$鬼灵总数)>
AddTextListEx ..\..\..\..\账号转区\可转账号列表.txt <$USERID>

CREATEFILE ..\..\..\..\账号转区\待转区账户\<$USERID>.txt

AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$USERID> 0
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(N$可回收数)> 1
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$BIRTHDAT> 2
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ1> 3
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER1> 4
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ2> 5
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER2> 6
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 转区方式:酒鬼令 7
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 大区:<$SERVERNAME> 8
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(G266)> 9

;以下显示调用数据
AddTextListEx ..\..\..\..\账号转区\花火转区显示数据.txt <来自:<$SERVERNAME> 玩家:<$USERNAME> 成功将: <$STR(N$鬼灵总数)>酒鬼令自助转区./SCOLOR=100>
MOV N$鬼灵总数 0
MOV N$可回收数 0
MOV N$跨手续费 0
MOV N$同手续费 0
MOV N$同手续费 0
MESSAGEBOX 【恭喜】:当前酒鬼令转区成功,请及时去新区落户!
goto @main








相关传奇推荐

回复

使用道具 举报

0

精华

0

主题

5

帖子

初级玩家

Rank: 3Rank: 3

在线时间
1 小时
金币
6852
元宝
500
注册时间
2021-9-20
发表于 2021-9-21 23:04:24 | 显示全部楼层
沙发,学习了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|传奇GM论坛

GMT+8, 2023-6-4 21:47 , Processed in 0.101994 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表