传奇私服版本发红包脚本

(@@InPutInteger @@InPutString )
[@main]
#IF
CHECKVAR HUMAN 个人红包名字 =
CHECKVAR HUMAN 个人红包类型 =
#ACT
CALCVAR HUMAN 个人红包名字 = 发全服红包
SAVEVAR HUMAN 个人红包名字 ..QuestDiary红包系统个人变量.txt
CALCVAR HUMAN 个人红包类型 = 拼手气红包
SAVEVAR HUMAN 个人红包类型 ..QuestDiary红包系统个人变量.txt

#IF
CHECKLEVELEX > 0
#ACT
MOV S40
MOV S41
DEC S40 7 500
DEC S41 7 500

#IF
#SAY






：   
： 人数   []
： 元宝   []


[@发起全服红包]
#IF
CHECKVAR HUMAN 个人红包名字 = 发行会红包
#ACT
MessageBox [错误提示]：你选择的是[发行会红包]点错了。
BREAK

#IF
CHECKVAR HUMAN 个人红包人数 < 1
#ACT
MessageBox [错误提示]：抢红包人数必须大于0。
BREAK

#IF
CHECKVAR HUMAN 个人红包金额 < 10000000
#ACT
MessageBox [错误提示]：红包金额必须大于9999999。
BREAK

#IF
CHECKVAR HUMAN 个人红包人数 >
#ACT
MessageBox [错误提示]：人数必须小于红包金额才能发起红包
BREAK

#IF
CHECKVAR GLOBAL 已发红包金额 > 10000000
#ACT
MessageBox [错误提示]：稍等上轮还未结束。系统会在5秒后在次发送红包活动。
CALCVAR GLOBAL 已发红包人数 =
SAVEVAR GLOBAL 已发红包人数 ..QuestDiary红包系统固定变量.txt
DelayCall 5000 @在次提问全服红包
BREAK

#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
CHECKVAR HUMAN 个人红包类型 = 拼手气红包
CHECKGAMEGOLD >
#ACT
gamegold -
CALCVAR GLOBAL 已发红包名字 =
SAVEVAR GLOBAL 已发红包名字 ..QuestDiary红包系统固定变量.txt
CALCVAR GLOBAL 已发红包人数 =
SAVEVAR GLOBAL 已发红包人数 ..QuestDiary红包系统固定变量.txt
CALCVAR GLOBAL 已发红包类型 =
SAVEVAR GLOBAL 已发红包类型 ..QuestDiary红包系统固定变量.txt
CALCVAR GLOBAL 已发红包金额 =
SAVEVAR GLOBAL 已发红包金额 ..QuestDiary红包系统固定变量.txt
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[],总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
GMEXECUTE 开始提问 @全服手气
BREAK

#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
CHECKVAR HUMAN 个人红包类型 = 普通抢红包
CHECKGAMEGOLD >
#ACT
gamegold -
CALCVAR GLOBAL 已发红包名字 =
SAVEVAR GLOBAL 已发红包名字 ..QuestDiary红包系统固定变量.txt
CALCVAR GLOBAL 已发红包人数 =
SAVEVAR GLOBAL 已发红包人数 ..QuestDiary红包系统固定变量.txt
CALCVAR GLOBAL 已发红包类型 =
SAVEVAR GLOBAL 已发红包类型 ..QuestDiary红包系统固定变量.txt
CALCVAR GLOBAL 已发红包金额 =
SAVEVAR GLOBAL 已发红包金额 ..QuestDiary红包系统固定变量.txt
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[],总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,设定人数[]总金额[]元宝，先抢先得。 255 252 8
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
SENDMSG 0 土豪玩家[%s]发起了全服[]抢红包,总金额[] 255 252
GMEXECUTE 开始提问 @全服普通
#ELSEACT
MessageBox [错误提示]：你的元宝不足或者人数不大于0人。

[@发起行会红包]
#IF
HAVEGUILD
#ACT

#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
#ACT
MessageBox [错误提示]：你选择的是[发全服红包]点错了。
BREAK

#IF
CHECKVAR HUMAN 个人红包人数 < 1
#ACT
MessageBox [错误提示]：抢红包人数必须大于0。
BREAK

#IF
CHECKVAR HUMAN 个人红包金额 < 10000000
#ACT
MessageBox [错误提示]：红包金额必须大于9999999。
BREAK

#IF
CHECKVAR HUMAN 个人红包人数 >
#ACT
MessageBox [错误提示]：人数必须小于红包金额才能发起红包
BREAK

#IF
CHECKVAR GUILD 行会红包金额 > 10000000
#ACT
MessageBox [错误提示]：稍等上轮还未结束。系统会在5秒后在次发送红包活动。
CALCVAR GUILD 行会红包人数 =
SAVEVAR GUILD 行会红包人数 ..QuestDiary红包系统行会变量.txt
DelayCall 5000 @在次提问行会红包
BREAK

#IF
CHECKVAR HUMAN 个人红包名字 = 发行会红包
CHECKVAR HUMAN 个人红包类型 = 拼手气红包
CHECKGAMEGOLD >
#ACT
gamegold -
CALCVAR GUILD 行会红包名字 =
SAVEVAR GUILD 行会红包名字 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会红包人数 =
SAVEVAR GUILD 行会红包人数 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会红包类型 =
SAVEVAR GUILD 行会红包类型 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会红包金额 =
SAVEVAR GUILD 行会红包金额 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会行会名字 =
SAVEVAR GUILD 行会行会名字 ..QuestDiary红包系统行会变量.txt
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,设定人数[],总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了行会[]抢红包,总金额[] 255 252
GMEXECUTE 开始提问 @行会手气
BREAK

#IF
CHECKVAR HUMAN 个人红包名字 = 发行会红包
CHECKVAR HUMAN 个人红包类型 = 普通抢红包
CHECKGAMEGOLD >
#ACT
gamegold -
CALCVAR GUILD 行会红包名字 =
SAVEVAR GUILD 行会红包名字 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会红包人数 =
SAVEVAR GUILD 行会红包人数 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会红包类型 =
SAVEVAR GUILD 行会红包类型 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会红包金额 =
SAVEVAR GUILD 行会红包金额 ..QuestDiary红包系统行会变量.txt
CALCVAR GUILD 行会行会名字 =
SAVEVAR GUILD 行会行会名字 ..QuestDiary红包系统行会变量.txt
SENDMSG 0 []行会成员[%s]发起了[]抢红包,设定人数[],总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了[]抢红包,设定人数[]总金额[] 255 252 8
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
SENDMSG 0 []行会成员[%s]发起了[]抢红包,总金额[] 255 252
GMEXECUTE 开始提问 @行会普通
#ELSEACT
MessageBox [错误提示]：你的元宝不足或者人数不大于0人。

[@@InPutInteger36]
#IF
#Act
DelayGoto 1 @InPutInteger36

[@InPutInteger36]
#If
LARGE M36 0
small M36 11
#ACT
CALCVAR HUMAN 个人红包人数 =
SAVEVAR HUMAN 个人红包人数 ..QuestDiary红包系统个人变量.txt
goto @main
#ELSEACT
MessageBox 人数必须多于0人。少于11人！

[@@InPutInteger37]
#IF
CHECKGAMEGOLD > 0
#Act
DelayGoto 1 @InPutInteger37
#ELSEAct
MessageBox 你的元宝数量不足！请冲值。

[@InPutInteger37]
#If
CHECKGAMEGOLD >
small M37 1000000001
LARGE M37
LARGE M37 99999999
#ACT
CALCVAR HUMAN 个人红包金额 =
SAVEVAR HUMAN 个人红包金额 ..QuestDiary红包系统个人变量.txt
goto @main
#ELSEACT
MessageBox 输入的红包金额必须大于人数。红包金额最大1000000000元宝　最小100000000元宝。

[@选择类型]
　   
　     

[@选择红包]
　   
　     


[@拼手气红包]
#ACT
CALCVAR HUMAN 个人红包类型 = 拼手气红包
SAVEVAR HUMAN 个人红包类型 ..QuestDiary红包系统个人变量.txt
goto @main

[@普通抢红包]
#ACT
CALCVAR HUMAN 个人红包类型 = 普通抢红包
SAVEVAR HUMAN 个人红包类型 ..QuestDiary红包系统个人变量.txt
goto @main


[@发全服红包]
#ACT
CALCVAR HUMAN 个人红包名字 = 发全服红包
SAVEVAR HUMAN 个人红包名字 ..QuestDiary红包系统个人变量.txt
goto @main

[@发行会红包]

#IF
HAVEGUILD
check [288] 0
#act
set [288] 1
#CALL [\红包系统行会变量声明.txt] @行会红包声明

#IF
HAVEGUILD
#ACT
CALCVAR HUMAN 个人行会名字 =
SAVEVAR HUMAN 个人行会名字 ..QuestDiary红包系统个人变量.txt
CALCVAR HUMAN 个人红包名字 = 发行会红包
SAVEVAR HUMAN 个人红包名字 ..QuestDiary红包系统个人变量.txt
goto @main
#ELSEACT
MessageBox 你当前没有行会，无法发起行会红包。

[@在次提问行会红包]
#IF
CHECKVAR HUMAN 个人红包名字 = 发行会红包
CHECKVAR HUMAN 个人红包类型 = 普通抢红包
#act
GMEXECUTE 开始提问 @行会普通
BREAK

#IF
CHECKVAR HUMAN 个人红包名字 = 发行会红包
CHECKVAR HUMAN 个人红包类型 = 拼手气红包
#act
GMEXECUTE 开始提问 @行会手气
BREAK

[@在次提问全服红包]
#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
CHECKVAR HUMAN 个人红包类型 = 普通抢红包
#act
GMEXECUTE 开始提问 @全服普通
BREAK

#IF
CHECKVAR HUMAN 个人红包名字 = 发全服红包
CHECKVAR HUMAN 个人红包类型 = 拼手气红包
#act
GMEXECUTE 开始提问 @全服手气
BREAK