[@MAIN]
#if
CHECKLEVELEX > 0
#act
#CALL [\子木名单专用\抢红包系统\抢红包常量.INI] @抢红包常量设置


#if
CHECKLEVELEX > 0
#ACT
MOV S$显示个数 
MOV S$显示金额 
MOV S$发送模式 全服红包
GOTO @开始发全服红包

[@开始发全服红包]
#IF
LARGE S$显示个数 0
#ELSEACT
MOV S$显示个数 点击输入个数
#IF
LARGE S$显示金额 0
#ELSEACT
MOV S$显示金额 点击输入金额


#IF
LARGE S$显示个数 0
LARGE S$显示金额 0
#act
OPENMERCHANTBIGDLG 1 28 1 4 20 -60 1 

#say
<ImgEx:0:1823:1824:1825:340:-15/@exit>
\ \
<全服红包/SCOLOR=250>  <行会红包{SCOLOR=253}/@发给行会>  <个人红包{SCOLOR=249}/@发给个人>　\
　\
<红包个数：/SCOLOR=254>　{<$STR(S$显示个数)>/SCOLOR=251}\
　\
<红包金额：/SCOLOR=254>　{<$STR(S$显示金额)>/SCOLOR=251}\
　\
<Img:$(HB-输入框):0:61:-70/@@InPutInteger50>\
<Img:$(HB-输入框):0:61:-55/@@InPutInteger51>\
<Img:$(HB-发送红包):0:70:-30/@确认发送红包>\
#ELSEact
OPENMERCHANTBIGDLG 1 28 1 4 20 -60 1
#ELSESAY
<ImgEx:0:1823:1824:1825:340:-15/@exit>
\ \
<Img:$(HB-红包):0:170:45><Img:$(HB-小元宝):0:150:90>\
<全服红包/SCOLOR=250>  <行会红包{SCOLOR=253}/@发给行会>  <个人红包{SCOLOR=249}/@发给个人>　\
　\
<红包个数：/SCOLOR=254>　{<$STR(S$显示个数)>/SCOLOR=250}\
　\
<红包金额：/SCOLOR=254>　{<$STR(S$显示金额)>/SCOLOR=250}\
　\
<Img:$(HB-输入框):0:61:-70/@@InPutInteger50>\
<Img:$(HB-输入框):0:61:-55/@@InPutInteger51>\


[@确认发送红包]
#IF
LARGE -HB-发送数量- 0
#act
Close
MessageBox 【A450】的红包还在争抢中！请稍等几秒后再来发送！
BREAK

#IF
checkgamegold > <$STR(S$显示金额)>
#act
MOV -HB-发送人- <$USERNAME>
MOV -HB-发送数量- <$STR(S$显示个数)>
MOV -HB-发送金额- <$STR(S$显示金额)>
GAMEGOLD - <$STR(S$显示金额)>
GuildNoticeMsg 251 249 ぐ[<$USERNAME>]向[全服]发送了[<$STR(S$显示个数)>]个红包,共计[<$STR(S$显示金额)>]个元宝!注意抢啊!只限10秒哦!
GuildNoticeMsg 251 249 ぐ[<$USERNAME>]向[全服]发送了[<$STR(S$显示个数)>]个红包,共计[<$STR(S$显示金额)>]个元宝!注意抢啊!只限10秒哦!
Gmexecute $(HB-全服提问) @开始抢红包
Close
#ELSEACT 
Close
MessageBox  你好像元宝不够啊！装什么大款！






;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;行会红包内容
[@发给行会]
#IF
CHECKLEVELEX > 0
#ACT
MOV S$显示个数 
MOV S$显示金额 
MOV S$发送模式 行会红包
GOTO @开始发行会红包

[@开始发行会红包]
#IF
LARGE S$显示个数 0
#ELSEACT
MOV S$显示个数 点击输入个数
#IF
LARGE S$显示金额 0
#ELSEACT
MOV S$显示金额 点击输入金额


#IF
LARGE S$显示个数 0
LARGE S$显示金额 0
#ACT

#say
<Img:$(HB-关闭按钮):0:230:-10/@exit>\
<Img:$(HB-红包):0:170:45><Img:$(HB-小元宝):0:150:90>\
<全服红包{SCOLOR=250}/@main>  <行会红包/SCOLOR=250>  <个人红包{SCOLOR=250}/@发给个人>　\
　\
<红包个数：/SCOLOR=250>　{<$STR(S$显示个数)>/SCOLOR=250}\
　\
<红包金额：/SCOLOR=250>　{<$STR(S$显示金额)>/SCOLOR=250}\
　\
<Img:$(HB-输入框):0:61:-70/@@InPutInteger50>\
<Img:$(HB-输入框):0:61:-55/@@InPutInteger51>\
<Img:$(HB-发送红包):0:70:-30/@确认发送红包行会>\
#ELSEACT

#ELSESAY
<Img:$(HB-关闭按钮):0:230:-10/@exit>\
<Img:$(HB-红包):0:170:45><Img:$(HB-小元宝):0:150:90>\
<全服红包{SCOLOR=250}/@main>  <行会红包/SCOLOR=250>  <个人红包{SCOLOR=250}/@发给个人>　\
　\
<红包个数：/SCOLOR=250>　{<$STR(S$显示个数)>/SCOLOR=250}\
　\
<红包金额：/SCOLOR=250>　{<$STR(S$显示金额)>/SCOLOR=250}\
　\
<Img:$(HB-输入框):0:61:-70/@@InPutInteger50>\
<Img:$(HB-输入框):0:61:-55/@@InPutInteger51>\



[@确认发送红包行会]
#IF
LARGE -HB-发送数量- 0
#act
Close
MessageBox 【A450】的红包还在争抢中！请稍等几秒后再来发送！
BREAK

#IF
  HAVEGUILD
#ELSEact
Close
MessageBox  你没有行会！不能发送行会红包！
BREAK

#IF
checkgamegold > <$STR(S$显示金额)>
#act
MOV -HB-发送行会- <$GUILDNAME>
MOV -HB-发送人- <$USERNAME>
MOV -HB-发送数量- <$STR(S$显示个数)>
MOV -HB-发送金额- <$STR(S$显示金额)>
GAMEGOLD - <$STR(S$显示金额)>
GuildNoticeMsg 251 249 ぐ[<$USERNAME>]向行会[<$STR(-HB-发送行会-)>]发送了[<$STR(S$显示个数)>]个红包,共计[<$STR(S$显示金额)>]个元宝!注意抢啊!只限10秒哦!
GuildNoticeMsg 251 249 ぐ[<$USERNAME>]向行会[<$STR(-HB-发送行会-)>]发送了[<$STR(S$显示个数)>]个红包,共计[<$STR(S$显示金额)>]个元宝!注意抢啊!只限10秒哦!
Close
Gmexecute $(HB-全服提问) @开始抢行会红包
#ELSEACT 
Close
MessageBox  你好像元宝不够啊！装什么大款！




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;个人红包内容

[@发给个人]
#IF
CHECKLEVELEX > 0
#ACT
MOV S$显示对方名字  
MOV S$显示金额 
MOV S$判断个人 0
MOV S$发送模式 个人红包
GOTO @开始发个人红包

[@开始发个人红包]
#IF
EQUAL S$判断个人 0
#ACT
MOV S$显示对方名字 点击输入名字

#IF
LARGE S$显示金额 0
#ELSEACT
MOV S$显示金额 点击输入金额


#IF
LARGE S$显示金额 0
LARGE S$判断个人 0
#ACT
 
#say
<Img:$(HB-关闭按钮):0:230:-10/@exit>\
<Img:$(HB-红包):0:170:45><Img:$(HB-小元宝):0:150:90>\
<全服红包{SCOLOR=250}/@main>  <行会红包{SCOLOR=250}/@发给行会>  <个人红包/SCOLOR=250>　\
　\
<对方名字：/SCOLOR=250>　{<$STR(S$显示对方名字)>/SCOLOR=250}\
　\
<红包金额：/SCOLOR=250>　{<$STR(S$显示金额)>/SCOLOR=250}\
　\
<Img:$(HB-输入框):0:61:-70/@@InPutString50>\
<Img:$(HB-输入框):0:61:-55/@@InPutInteger51>\
<Img:$(HB-发送红包):0:70:-30/@确认发送红包个人>\
#ELSEACT

#ELSESAY
<Img:$(HB-关闭按钮):0:230:-10/@exit>\
<Img:$(HB-红包):0:170:45><Img:$(HB-小元宝):0:150:90>\
<全服红包{SCOLOR=250}/@main>  <行会红包{SCOLOR=250}/@发给行会>  <个人红包/SCOLOR=250>　\
　\
<对方名字：/SCOLOR=250>　{<$STR(S$显示对方名字)>/SCOLOR=250}\
　\
<红包金额：/SCOLOR=250>　{<$STR(S$显示金额)>/SCOLOR=250}\
　\
<Img:$(HB-输入框):0:61:-70/@@InPutString50>\
<Img:$(HB-输入框):0:61:-55/@@InPutInteger51>\



[@确认发送红包个人]
#IF
LARGE -HB-发送数量- 0
#act
Close
MessageBox 【A450】的红包还在争抢中！请稍等几秒后再来发送！
BREAK

#IF
checkgamegold > <$STR(S$显示金额)>
#act
MOV -HB-发送人- <$USERNAME>
MOV -HB-发送数量- 1
MOV -HB-发送金额- <$STR(S$显示金额)>
GAMEGOLD - <$STR(S$显示金额)>
GuildNoticeMsg 251 249 ぐ[<$USERNAME>]向[<$STR(S$显示对方名字)>]发送了1个红包,共计[<$STR(S$显示金额)>]个元宝!
GuildNoticeMsg 251 249 ぐ[<$USERNAME>]向[<$STR(S$显示对方名字)>]发送了1个红包,共计[<$STR(S$显示金额)>]个元宝!
MOV S50 <$STR(S$显示对方名字)>
S50.goto @发送个人红包
DELAYGOTO 10000 @返还红包金额
Close
#ELSEACT 
Close
MessageBox  你好像元宝不够啊！装什么大款！




[@发送个人红包]
#IF
CHECKLEVELEX > 0
#ACT
#CALL [\子木名单专用\抢红包系统\抢红包常量.INI] @抢红包常量设置
ADDBUTTON 0 $(HB-按钮编号1) $(HB-头顶红包图) $(HB-头顶红包图) $(HB-头顶红包图) 360 35 0 -1 点击抢红包！
ADDBUTTON 0 $(HB-按钮编号2) $(HB-头顶红包图特效框) $(HB-头顶红包图特效框) $(HB-头顶红包图特效框) 360 35 0 -1 点击抢红包！
DELAYGOTO 10000 @返还红包金额

[@返还红包金额]
#IF
LARGE -HB-发送数量- 0
#ACT
DELBUTTON $(HB-按钮编号1)
DELBUTTON $(HB-按钮编号2)

#IF
LARGE -HB-发送数量- 0
EQUAL -HB-发送人- <$USERNAME>
#ACT
GAMEGOLD + <$STR(-HB-发送金额-)>
SENDMSG 6 【红包返还提示】:还剩[<$STR(-HB-发送数量-)>]个红包无人领取,共计：[<$STR(-HB-发送金额-)>]个元宝！已返还给你！
SENDMSG 6 【红包返还提示】:还剩[<$STR(-HB-发送数量-)>]个红包无人领取,共计：[<$STR(-HB-发送金额-)>]个元宝！已返还给你！
MOV -HB-发送数量- 0
MOV -HB-发送金额- 0








[@InPutString50]
#IF
CHECKLEVELEX > 0
#ACT
MOV S$显示对方名字 <$STR(s50)>

#IF
EQUAL S$显示对方名字 
#act
MOV S$显示对方名字 
MessageBox  请输入正确的文字！
BREAK
#IF
EQUAL S$显示对方名字 <$USERNAME>
#act
MOV S$显示对方名字 
MessageBox  不能发给自己！
BREAK
#IF
s50.CheckOnline
#act
MOV S$判断个人 1
GOTO @开始发<$STR(S$发送模式)>
#ELSEACT 
MessageBox  [<$STR(S$显示对方名字)>]不在线！无法发送红包！
MOV S$显示对方名字 


[@InPutInteger50]
#IF
CHECKLEVELEX > 0
#ACT
MOV S$显示个数 <$STR(N50)>

#IF
LARGE S$显示个数 0
SMALL S$显示个数 16
#act
GOTO @开始发<$STR(S$发送模式)>
#ELSEACT 
MOV S$显示个数 0
MessageBox  红包的个数必须在1-15之间！


[@InPutInteger51]
#IF
CHECKLEVELEX > 0
#ACT
MOV S$显示金额 <$STR(N51)>

#IF
LARGE S$显示金额 1499
#act
GOTO @开始发<$STR(S$发送模式)>
#ELSEACT 
MOV S$显示金额 0
MessageBox  红包的金额必须在1500以上！





