|
|
(@@InPutInteger @@InPutString )
[@main]
#IF
CHECKVAR HUMAN 个人红包名字 =
CHECKVAR HUMAN 个人红包类型 =
#ACT
CALCVAR HUMAN 个人红包金额 = 5000
SAVEVAR HUMAN 个人红包金额 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
CALCVAR HUMAN 个人红包人数 = 1
SAVEVAR HUMAN 个人红包人数 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
CALCVAR HUMAN 个人红包名字 = 发全服红包
SAVEVAR HUMAN 个人红包名字 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
CALCVAR HUMAN 个人红包类型 = 拼手气红包
SAVEVAR HUMAN 个人红包类型 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
#IF
CHECKLEVELEX > 0
#ACT
MOV S40 <$HUMAN(个人红包人数)><$GLOBAL(红包排名空格)>
MOV S41 <$HUMAN(个人红包金额)><$GLOBAL(红包排名空格)>
DEC S40 7 5000
DEC S41 7 5000
#IF
#SAY
<color=clFuchsia 玩家介绍：><color=clOlive 相信大家都玩过微信红包，咱们的玩法与微信一模一样。>\
<color=clOlive 选择要发放的红包后，在选择><color=clLime [拼手气抢红包]><color=clOlive 或者><color=clLime [普通抢红包]><color=clOlive 。>\
<color=clFuchsia 拼手气抢：><color=clOlive 系统会把红包金额分成你设定人数的份数，金额不同>\
<color=clFuchsia 普通红包：><color=clOlive 系统会把红包金额分成你设定人数的份数，金额相同>\
<color=clGreen ------------------------------------------------------------>\
<选择红包/@选择红包>：<color=clFuchsia [> <$HUMAN(个人红包名字)> <color=clFuchsia ]> <color=clAqua 红包两个：><color=clOlive 发全服红包 发行会红包>\
<选择类型/@选择类型>：<color=clFuchsia [> <$HUMAN(个人红包类型)> <color=clFuchsia ]> <color=clAqua 类型两个：><color=clOlive 拼手气红包 普通抢红包>\
<输入人数/@@InPutInteger36>：<color=clFuchsia [> <$STR(S40)>人数 <color=clFuchsia ]> <color=clAqua 人数规定：><color=clOlive 人数最大100> [<发起行会红包/@发起行会红包>]\
<输入金额/@@InPutInteger37>：<color=clFuchsia [> <$STR(S41)>元宝 <color=clFuchsia ]> <color=clAqua 金额介绍：><color=clOlive 红包最少5千> [<发起全服红包/@发起全服红包>]\
[@发起全服红包]
#IF
CHECKVAR HUMAN 个人红包名字 = 发行会红包
#ACT
MessageBox [错误提示]：你选择的是[发行会红包]点错了。
BREAK
#IF
CHECKVAR HUMAN 个人红包人数 < 1
#ACT
MessageBox [错误提示]：抢红包人数必须大于0。
BREAK
#IF
CHECKVAR HUMAN 个人红包金额 < 5000
#ACT
MessageBox [错误提示]：红包金额必须大于4999。
BREAK
#IF
CHECKVAR HUMAN 个人红包人数 > <$HUMAN(个人红包金额)>
#ACT
MessageBox [错误提示]：人数必须小于红包金额才能发起红包
BREAK
#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
CHECKVAR HUMAN 个人红包类型 = 拼手气红包
CHECKGAMEGOLD > <$HUMAN(个人红包金额)>
#ACT
gamegold - <$HUMAN(个人红包金额)>
CALCVAR GLOBAL 已发红包名字 = <$HUMAN(个人红包名字)>
SAVEVAR GLOBAL 已发红包名字 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
CALCVAR GLOBAL 已发红包人数 = <$HUMAN(个人红包人数)>
SAVEVAR GLOBAL 已发红包人数 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
CALCVAR GLOBAL 已发红包类型 = <$HUMAN(个人红包类型)>
SAVEVAR GLOBAL 已发红包类型 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
CALCVAR GLOBAL 已发红包金额 = <$HUMAN(个人红包金额)>
SAVEVAR GLOBAL 已发红包金额 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>],总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
GMEXECUTE 开始提问 @全服手气
BREAK
#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
CHECKVAR HUMAN 个人红包类型 = 普通抢红包
CHECKGAMEGOLD > <$HUMAN(个人红包金额)>
#ACT
gamegold - <$HUMAN(个人红包金额)>
CALCVAR GLOBAL 已发红包名字 = <$HUMAN(个人红包名字)>
SAVEVAR GLOBAL 已发红包名字 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
CALCVAR GLOBAL 已发红包人数 = <$HUMAN(个人红包人数)>
SAVEVAR GLOBAL 已发红包人数 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
CALCVAR GLOBAL 已发红包类型 = <$HUMAN(个人红包类型)>
SAVEVAR GLOBAL 已发红包类型 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
CALCVAR GLOBAL 已发红包金额 = <$HUMAN(个人红包金额)>
SAVEVAR GLOBAL 已发红包金额 ..\QuestDiary\1xlalaCOM红包系统\固定变量.txt
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>],总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
GMEXECUTE 开始提问 @全服普通
#ELSEACT
MessageBox [错误提示]：你的元宝不足或者人数不大于0人。
[@发起行会红包]
#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
#ACT
MessageBox [错误提示]：你选择的是[发全服红包]点错了。
BREAK
#IF
CHECKVAR HUMAN 个人红包人数 < 1
#ACT
MessageBox [错误提示]：抢红包人数必须大于0。
BREAK
#IF
CHECKVAR HUMAN 个人红包金额 < 5000
#ACT
MessageBox [错误提示]：红包金额必须大于4999。
BREAK
#IF
CHECKVAR HUMAN 个人红包人数 > <$HUMAN(个人红包金额)>
#ACT
MessageBox [错误提示]：人数必须小于红包金额才能发起红包
BREAK
#IF
HAVEGUILD
CHECKVAR HUMAN 个人红包名字 = 发行会红包
CHECKVAR HUMAN 个人红包类型 = 拼手气红包
CHECKGAMEGOLD > <$HUMAN(个人红包金额)>
#ACT
MOV A68 <$GUILDNAME>
gamegold - <$HUMAN(个人红包金额)>
CALCVAR GUILD 行会红包名字 = <$HUMAN(个人红包名字)>
SAVEVAR GUILD 行会红包名字 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会红包人数 = <$HUMAN(个人红包人数)>
SAVEVAR GUILD 行会红包人数 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会红包类型 = <$HUMAN(个人红包类型)>
SAVEVAR GUILD 行会红包类型 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会红包金额 = <$HUMAN(个人红包金额)>
SAVEVAR GUILD 行会红包金额 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会行会名字 = <$GUILDNAME>
SAVEVAR GUILD 行会行会名字 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>],总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了行会[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
GMEXECUTE 开始提问 @行会手气
BREAK
#IF
HAVEGUILD
CHECKVAR HUMAN 个人红包名字 = 发行会红包
CHECKVAR HUMAN 个人红包类型 = 普通抢红包
CHECKGAMEGOLD > <$HUMAN(个人红包金额)>
#ACT
MOV A68 <$GUILDNAME>
gamegold - <$HUMAN(个人红包金额)>
CALCVAR GUILD 行会红包名字 = <$HUMAN(个人红包名字)>
SAVEVAR GUILD 行会红包名字 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会红包人数 = <$HUMAN(个人红包人数)>
SAVEVAR GUILD 行会红包人数 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会红包类型 = <$HUMAN(个人红包类型)>
SAVEVAR GUILD 行会红包类型 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会红包金额 = <$HUMAN(个人红包金额)>
SAVEVAR GUILD 行会红包金额 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
CALCVAR GUILD 行会行会名字 = <$GUILDNAME>
SAVEVAR GUILD 行会行会名字 ..\QuestDiary\1xlalaCOM红包系统\行会变量.txt
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>],总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,设定人数[<$HUMAN(个人红包人数)>]总金额[<$HUMAN(个人红包金额)>] 255 252 8
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
SENDMSG 0 [<$HUMAN(个人行会名字)>]行会成员[%s]发起了[<$HUMAN(个人红包类型)>]抢红包,总金额[<$HUMAN(个人红包金额)>] 255 252
GMEXECUTE 开始提问 @行会普通
#ELSEACT
MessageBox [错误提示]：你的元宝不足或者人数不大于0人，或者没有行会。
[@@InPutInteger36]
#IF
#Act
DelayGoto 1 @InPutInteger36
[@InPutInteger36]
#If
LARGE M36 0
#ACT
CALCVAR HUMAN 个人红包人数 = <$STR(M36)>
SAVEVAR HUMAN 个人红包人数 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
goto @main
#ELSEACT
MessageBox 人数必须大于0人。
[@@InPutInteger37]
#IF
CHECKGAMEGOLD > 0
#Act
DelayGoto 1 @InPutInteger37
#ELSEAct
MessageBox 你的元宝数量不足！请冲值。
[@InPutInteger37]
#If
CHECKGAMEGOLD > <$STR(M37)>
small M37 10000000
LARGE M37 <$STR(M36)>
LARGE M37 9999
#ACT
CALCVAR HUMAN 个人红包金额 = <$STR(M37)>
SAVEVAR HUMAN 个人红包金额 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
goto @main
#ELSEACT
MessageBox 输入的红包金额必须大于人数。红包金额最大9999999W元宝 最小10000元宝。
[@选择类型]
\ \ \ \
<拼手气红包/@拼手气红包> <普通抢红包/@普通抢红包>
[@选择红包]
\ \ \ \
<发全服红包/@发全服红包> <发行会红包/@发行会红包>
[@拼手气红包]
#ACT
CALCVAR HUMAN 个人红包类型 = 拼手气红包
SAVEVAR HUMAN 个人红包类型 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
goto @main
[@普通抢红包]
#ACT
CALCVAR HUMAN 个人红包类型 = 普通抢红包
SAVEVAR HUMAN 个人红包类型 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
goto @main
[@发全服红包]
#ACT
CALCVAR HUMAN 个人红包名字 = 发全服红包
SAVEVAR HUMAN 个人红包名字 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
goto @main
[@发行会红包]
#IF
HAVEGUILD
#ACT
CALCVAR HUMAN 个人行会名字 = <$GUILDNAME>
SAVEVAR HUMAN 个人行会名字 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
CALCVAR HUMAN 个人红包名字 = 发行会红包
SAVEVAR HUMAN 个人红包名字 ..\QuestDiary\1xlalaCOM红包系统\个人变量.txt
goto @main
#ELSEACT
MessageBox 你当前没有行会，无法发起行会红包。
[@在次提问全服红包]
#IF
#act
GMEXECUTE 开始提问 @全服普通
|
|
