发红包脚本

老虎长刺

本脚本适用于GOM引擎
抢红包脚本需要用到：自定义按钮，一共4种红包，需要4个自定义按钮，为：17,18,19,20
自定义按钮的红包图片请自己准备，
由于不同游戏分辨率，人物所处的屏幕坐标不同，红包的具体坐标位置，请自己调整
发红包脚本的中的红包图片、输入框图片、发送红包图片也请自己准备
对对话框格式不满意的，请自己调整
脚本中用到的全局变量有G100-G111，A100-A105，用到的个人定时器有Timer80-83
如发现脚本有问题，欢迎指正。www.cfabc.net========================================================================以下是发送红包NPC的脚本：
[@Main]
#IF
#ACT
Mov N10 0
Mov N11 0
Mov S10
Mov S$红包类型 口令红包
Mov S$当前口令
CloseBigDialogBox
Break
#SAY
　<口令红包>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　<口令/@@InPutString10(请输入口令：)>　　 <发送红包/@发送红包>\
　　　　　　　　　　　<清除口令:/@清除口令><$STR(S$当前口令)>\

[@口令红包1]
#IF
#ACT
Mov S$红包个数 <$STR(N10)>
SetStringBlank <$STR(S$红包个数)> 16 1
Break
#SAY
　<口令红包>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><$STR(S$红包个数)>　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　<口令/@@InPutString10(请输入口令：)>　　 <发送红包/@发送红包>\
　　　　　　　　　　　<清除口令:/@清除口令><$STR(S$当前口令)>\

[@口令红包2]
#IF
#ACT
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　<口令/@@InPutString10(请输入口令：)>　　 <发送红包/@发送红包>\
　　　　　　　　　　　<清除口令:/@清除口令><$STR(S$当前口令)>\
[@口令红包3]
#IF
#ACT
Mov S$红包个数 <$STR(N10)>
SetStringBlank <$STR(S$红包个数)> 16 1
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><$STR(S$红包个数)>　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　<口令/@@InPutString10(请输入口令：)>　　 <发送红包/@发送红包>\
　　　　　　　　　　　<清除口令:/@清除口令><$STR(S$当前口令)>\

[@口令红包4]
#SAY
　<口令红包>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　<口令/@@InPutString10(请输入口令：)>　　 <发送红包/@发送红包>\
　　　　　　　　　　　<清除口令:/@清除口令><$STR(S$当前口令)>\

[@全服]
#IF
#ACT
Mov N10 0
Mov N11 0
Mov S$红包类型 全服红包
Break
#SAY
　<口令红包/@Main>　<全服红包> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@全服红包1]
#IF
#ACT
Mov S$红包个数 <$STR(N10)>
SetStringBlank <$STR(S$红包个数)> 16 1
Break
#SAY
　<口令红包/@口令>　<全服红包> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><$STR(S$红包个数)>　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@全服红包2]
#IF
#ACT
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包/@口令>　<全服红包> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\
[@全服红包3]
#IF
#ACT
Mov S$红包个数 <$STR(N10)>
SetStringBlank <$STR(S$红包个数)> 16 1
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包/@口令>　<全服红包> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><$STR(S$红包个数)>　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@行会]
#IF
#ACT
Mov N10 0
Mov N11 0
Mov S$红包类型 行会红包
Break
#SAY
　<口令红包/@Main>　<全服红包/@全服> 　<行会红包>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@行会红包1]
#IF
#ACT
Mov S$红包个数 <$STR(N10)>
SetStringBlank <$STR(S$红包个数)> 16 1
Break
#SAY
　<口令红包/@口令>　<全服红包/@全服> 　<行会红包>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><$STR(S$红包个数)>　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@行会红包2]
#IF
#ACT
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包/@口令>　<全服红包/@全服> 　<行会红包>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><点击输入/@@InPutInteger10(请输入红包个数：)>　　　　　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\
[@行会红包3]
#IF
#ACT
Mov S$红包个数 <$STR(N10)>
SetStringBlank <$STR(S$红包个数)> 16 1
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包/@口令>　<全服红包/@全服> 　<行会红包>　<个人红包/@个人>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<红包个数:/SCOLOR=31><$STR(S$红包个数)>　<清除/@清除个数>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@个人]
#IF
#ACT
Mov N10 0
Mov N11 0
Mov S$红包类型 个人红包
Break
#SAY
　<口令红包/@Main>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<发送对象:/SCOLOR=31><点击输入/@@InPutString11(请输入对象名字：)>　　　　　<清除/@清除名字>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\
[@个人红包1]
#IF
#ACT
Mov S$发送对象 <$STR(S11)>
SetStringBlank <$STR(S$发送对象)> 16 1
Break
#SAY
　<口令红包/@Main>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<发送对象:/SCOLOR=31><$STR(S$发送对象)>　<清除/@清除名字>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><点击输入/@@InPutInteger11(请输入红包金额：)>　　　　　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\

[@个人红包2]
#IF
#ACT
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包/@Main>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<发送对象:/SCOLOR=31><点击输入/@@InPutString11(请输入对象名字：)>　　　　　<清除/@清除名字>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\
[@个人红包3]
#IF
#ACT
Mov S$发送对象 <$STR(S11)>
SetStringBlank <$STR(S$发送对象)> 16 1
Mov S$红包金额 <$STR(N11)>
SetStringBlank <$STR(S$红包金额)> 16 1
Break
#SAY
　<口令红包/@Main>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包>　<红包规则/@规则>\
　(这一行可以把大红包图片和输入框图片放进去)\
　\
　　　　　　　　　　　　<发送对象:/SCOLOR=31><$STR(S$发送对象)>　<清除/@清除名字>\
　\
　　　　　　　　　　　　<红包金额:/SCOLOR=31><$STR(S$红包金额)>　<清除/@清除金额>\
　\
　　　　　　　　　　　　　　　　 <发送红包/@发送红包>\
www.cfabc.net

老虎长刺

[@规则]
#Say
　<口令红包/@Main>　<全服红包/@全服> 　<行会红包/@行会>　<个人红包/@个人>　<红包规则>\
　1.个人红包为固定金额，其他为拼手气红包，红包金额随机！\
　2.口令红包每次收取100元宝手续费，其他类型红包免费！\
　3.每种类型的红包全服只允许同时发送1个！\
　4.红包发送后，玩家头顶出现红包图片，点击图片可抢红包！\
　5.除个人红包之外，发其他红包，发送者自己可以抢！\
　6.抢红包时间为10秒，10秒后未抢完的红包自动返还到账！\
　7.发红包后不要下线，否则未抢完的红包不能返还！\
　8.发红包的玩家下线后，所有未领取的红包将无法领取！\

[@InPutInteger10]
#IF
Large N10 1000
#ACT
MessageBox [提示]：红包最大个数为1000个，请重新输入。
Break
#IF
Equal N10 0
#ACT
Break
#IF
Large N11 0
Large N10 <$STR(N11)>
#ACT
MessageBox [提示]：红包个数大于红包金额，请重新输入。
Break
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令红包界面10
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服红包界面10
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会红包界面10
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人红包界面10
Break

[@口令红包界面10]
#IF
Large N11 0
#ACT
Goto @口令红包3
Break
#ELSEACT
Goto @口令红包1
Break

[@全服红包界面10]
#IF
Large N11 0
#ACT
Goto @全服红包3
Break
#ELSEACT
Goto @全服红包1
Break

[@行会红包界面10]
#IF
Large N11 0
#ACT
Goto @行会红包3
Break
#ELSEACT
Goto @行会红包1
Break

[@个人红包界面10]
#IF
Large N11 0
#ACT
Goto @个人红包3
Break
#ELSEACT
Goto @个人红包1
Break

[@InPutInteger11]
#IF
Small N11 1000000000
#ELSEACT
MessageBox [提示]：红包最大数额为10亿，请重新输入。
Break
#IF
Equal N11 0
#ACT
Break
#IF
Large N10 0
Small N11 <$STR(N10)>
#ACT
MessageBox [提示]：红包金额少于红包个数，请重新输入。
Break
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令红包界面11
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服红包界面11
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会红包界面11
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人红包界面11
Break

[@口令红包界面11]
#IF
Large N10 0
#ACT
Goto @口令红包3
Break
#ELSEACT
Goto @口令红包2
Break

[@全服红包界面11]
#IF
Large N10 0
#ACT
Goto @全服红包3
Break
#ELSEACT
Goto @全服红包2
Break

[@行会红包界面11]
#IF
Large N10 0
#ACT
Goto @行会红包3
Break
#ELSEACT
Goto @行会红包2
Break

[@个人红包界面11]
#IF
CheckStringlength <$STR(S11)> < 1
#ACT
Goto @个人红包2
Break
#ELSEACT
Goto @个人红包3
Break

[@清除个数]
#ACT
Mov N10 0
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令个数清除
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服个数清除
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会个数清除
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人个数清除
Break

[@口令个数清除]
#IF
Large N11 0
#ACT
Goto @口令红包2
Break
#IF
Equal NS10
#ELSEACT
Goto @口令红包4
Break
#IF
#ACT
Goto @Main
Break

[@全服个数清除]
#IF
Large N11 0
#ACT
Goto @全服红包2
Break
#ELSEACT
Goto @全服
Break

[@行会个数清除]
#IF
Large N11 0
#ACT
Goto @行会红包2
Break
#ELSEACT
Goto @行会
Break

[@个人个数清除]
#IF
Large N11 0
#ACT
Goto @个人红包2
Break
#ELSEACT
Goto @个人
Break

[@清除金额]
#ACT
Mov N11 0
#IF
Equal S$红包类型 口令红包
#ACT
Goto @口令金额清除
Break
#IF
Equal S$红包类型 全服红包
#ACT
Goto @全服金额清除
Break
#IF
Equal S$红包类型 行会红包
#ACT
Goto @行会金额清除
Break
#IF
Equal S$红包类型 个人红包
#ACT
Goto @个人金额清除
Break

[@口令金额清除]
#IF
Large N10 0
#ACT
Goto @口令红包1
Break
#IF
Equal S10
#ELSEACT
Goto @口令红包4
Break
#IF
#ACT
Goto @Main
Break

[@全服金额清除]
#IF
Large N10 0
#ACT
Goto @全服红包1
Break
#ELSEACT
Goto @全服
Break

[@行会金额清除]
#IF
Large N10 0
#ACT
Goto @行会红包1
Break
#ELSEACT
Goto @行会
Break

[@个人金额清除]
#IF
CheckStringlength <$STR(S11)> < 1
#ACT
Goto @个人
Break
#ELSEACT
Goto @个人红包1
Break

[@InPutString10]
#IF
CheckStringlength <$STR(S10)> > 32
#ACT
MessageBox [提示]：口令最多包含32个字符或者16个汉字。
Break
#IF
Equal S10
#ELSEACT
Mov S$当前口令 {<$STR(S10)>/SCOLOR=31}
#IF
Large N10 0
Large N11 0
#ACT
Goto @口令红包3
Break
#IF
Large N10 0
#ACT
Goto @口令红包1
Break
#IF
Large N11 0
#ACT
Goto @口令红包2
Break
#IF
#ACT
Goto @口令红包4
Break

[@InPutString11]
#IF
Equal S11
#ACT
Break
#IF
Large N11 0
#ACT
Goto @个人红包3
Break
#ELSEACT
Goto @个人红包1
Break

[@清除口令]
#IF
#ACT
Mov S10
Mov S$当前口令
#IF
Large N10 0
Large N11 0
#ACT
Goto @口令红包3
Break
#IF
Large N10 0
#ACT
Goto @口令红包1
Break
#IF
Large N11 0
#ACT
Goto @口令红包2
Break
#IF
#ACT
Goto @Main
Break

[@清除名字]
#IF
#ACT
Mov S11
#IF
Large N11 0
#ACT
Goto @个人红包2
Break
#ELSEACT
Goto @个人
Break

[@发送红包]
#IF
Not Equal S$红包类型 个人红包
Equal N10 0
#ACT
MessageBox [提示]：请输入红包个数。
Break
#IF
Equal N11 0
#ACT
MessageBox [提示]：请输入红包金额。
Break
#IF
CHECKGAMEGOLD < <$STR(N10)>
#ACT
MessageBox [提示]：您的元宝数量不足，请重新输入。
Break
#IF
Equal S$红包类型 口令红包
Large G100 0
#ACT
MessageBox [提示]：有人正在发口令红包，每次只能由一位玩家发口令红包，\　\　　　　请等待当前口令红包结束。
Break
#IF
Equal S$红包类型 全服红包
Large G102 0
#ACT
MessageBox [提示]：有人正在发全服红包，每次只能由一位玩家发全服红包，\　\　　　　请等待当前全服红包结束。
Break
#IF
Equal S$红包类型 行会红包
Large G104 0
#ACT
MessageBox [提示]：有人正在发行会红包，每次只能由一位玩家发行会红包，\　\　　　　请等待当前行会红包结束。
Break
#IF
Equal S$红包类型 个人红包
CheckStringlength A105 > 1
#ACT
MessageBox [提示]：有人正在发个人红包，每次只能由一位玩家发个人红包，\　\　　　　请等待当前个人红包结束。
Break
#IF
Equal S$红包类型 口令红包
#ACT
Mov G100 <$STR(N10)>
Mov G101 <$STR(N11)>
Mov G108 0
Goto @发送口令红包
Break
#IF
Equal S$红包类型 全服红包
#ACT
Mov G102 <$STR(N10)>
Mov G103 <$STR(N11)>
Mov G109 0
Goto @发送全服红包
Break
#IF
Equal S$红包类型 行会红包
HAVEGUILD
#ACT
Mov G104 <$STR(N10)>
Mov G105 <$STR(N11)>
Mov G110 0
Goto @发送行会红包
Break
#IF
Equal S$红包类型 个人红包
#ACT
Mov G106 <$STR(N10)>
Mov G107 <$STR(N11)>
Goto @发送个人红包
Break
#IF
HAVEGUILD
#ELSEACT
MessageBox [提示]：你没有加入行会。
Break

[@发送口令红包]
#IF
#ACT
Mov P10 <$STR(N11)>
Inc P10 100
#IF
CHECKGAMEGOLD < <$STR(P10)>
#ACT
Mov G100 0
Mov G101 0
MessageBox [提示]：发口令红包需要100元宝的额外费用，\　\　　　　您的元宝数量不足，请重新输入。
Break
#IF
Large G101 9999
#ACT
Sendmsg 5 {[%s]|232:0:1}给全服玩家发放了一个大口令红包，红包金额：{<$STR(G101)>|232:0:1}！
#IF
#ACT
GameGold - <$STR(P10)>
Mov A100 <$STR(S10)>
Mov A101 <$USERNAME>
Gmexecute 开始提问 @口令红包发送
DelayCall 12000 @关闭口令红包
Break

[@发送全服红包]
#IF
Large G103 9999
#ACT
Sendmsg 5 {[%s]|232:0:1}给全服玩家发放了一个大红包！红包金额：{<$STR(G103)>|232:0:1}！
#IF
#ACT
GameGold - <$STR(N11)>
Mov A102 <$USERNAME>
Gmexecute 开始提问 @全服红包发送
DelayCall 12000 @关闭全服红包
Break

[@发送行会红包]
#IF
Large G105 9999
#ACT
Sendmsg 5 {[<$GUILDNAME>]|245:0:1}帮会的{[%s]|232:0:1}发放了一个行会大红包！红包金额：{<$STR(G105)>|232:0:1}！
#IF
#ACT
GameGold - <$STR(N11)>
Mov A103 <$USERNAME>
Mov A104 <$GUILDNAME>
Gmexecute 开始提问 @行会红包发送
DelayCall 12000 @关闭行会红包
Break

[@发送个人红包]
#IF
<$STR(S11)>.checkonline
#ELSEACT
MessageBox [提示]：<$STR(S11)>没有在线。
Break
#IF
#ACT
GameGold - <$STR(N11)>
Mov A105 <$USERNAME>
Mov G111 <$STR(N11)>
DelayCall 12000 @关闭个人红包
HCALL <$STR(S11)> @个人红包发送
Break

[@关闭口令红包]
#IF
Large G101 0
#ACT
<$STR(A101)>.GameGold + <$STR(G101)>
#IF
#ACT
Mov G100 0
Mov G101 0
Mov G108 0
Mov A100
Mov A101
Break

[@关闭全服红包]
#IF
Large G103 0
#ACT
<$STR(A102)>.GameGold + <$STR(G103)>
#IF
#ACT
Mov G102 0
Mov G103 0
Mov G109 0
Mov A102
Break

[@关闭行会红包]
#IF
Large G105 0
#ACT
<$STR(A103)>.GameGold + <$STR(G105)>
#IF
#ACT
Mov G104 0
Mov G105 0
Mov G110
Mov A103
Mov A104
Break

[@关闭个人红包]
#IF
Large G111 0
#ACT
<$STR(A105)>.GameGold + <$STR(N11)>
#IF
#ACT
Mov G111 0
Mov A105
Break

老虎长刺

========================================================================QManage.txt文件中加入如下脚本代码：

[@口令红包发送]
#IF
#ACT
SetOffTimer 80
Mov P11 <$SCREENWIDTH>
Mov P12 <$SCREENHEIGHT>
Div P11 P11 2
Div P12 P12 3
Dec P12 70
#IF
Large G102 0
#ACT
Inc P11 40
#IF
Large G104 0
#ACT
Inc P11 40
#IF
Large G106 0
#ACT
Inc P11 40
#IF
#ACT
ADDBUTTON 2 17 81 83 84 <$STR(P11)> <$STR(P12)> 0 -1 253/点击领取红包\151/口令：<$STR(A100)>
SetOnTimer 80 10
Break

[@全服红包发送]
#IF
#ACT
SetOffTimer 81
Mov P11 <$SCREENWIDTH>
Mov P12 <$SCREENHEIGHT>
Div P11 P11 2
Div P12 P12 3
Dec P12 70
#IF
Large G100 0
#ACT
Inc P11 40
#IF
Large G104 0
#ACT
Inc P11 40
#IF
Large G106 0
#ACT
Inc P11 40
#IF
#ACT
ADDBUTTON 2 18 81 83 84 <$STR(P11)> <$STR(P12)> 0 -1 253/点击领取红包
SetOnTimer 81 10
Break

[@行会红包发送]
#IF
HAVEGUILD
CHECKOFGUILD <$STR(A104)>
#ELSEACT
Break
#IF
#ACT
SetOffTimer 82
Mov P11 <$SCREENWIDTH>
Mov P12 <$SCREENHEIGHT>
Div P11 P11 2
Div P12 P12 3
Dec P12 70
#IF
Large G100 0
#ACT
Inc P11 40
#IF
Large G102 0
#ACT
Inc P11 40
#IF
Large G106 0
#ACT
Inc P11 40
#IF
#ACT
ADDBUTTON 2 19 81 83 84 <$STR(P11)> <$STR(P12)> 0 -1 253/点击领取红包
SetOnTimer 82 10
Break

[@个人红包发送]
#IF
#ACT
SetOffTimer 83
Mov P11 <$SCREENWIDTH>
Mov P12 <$SCREENHEIGHT>
Div P11 P11 2
Div P12 P12 3
Dec P12 70
#IF
Large G100 0
#ACT
Inc P11 40
#IF
Large G104 0
#ACT
Inc P11 40
#IF
Large G102 0
#ACT
Inc P11 40
#IF
#ACT
ADDBUTTON 2 20 81 83 84 <$STR(P11)> <$STR(P12)> 0 -1 253/点击领取红包
SetOnTimer 83 10
Break

[@OnTimer80]
#ACT
DELBUTTON 17
SetOffTimer 80

[@OnTimer81]
#ACT
DELBUTTON 18
SetOffTimer 81

[@OnTimer82]
#ACT
DELBUTTON 19
SetOffTimer 82

[@OnTimer83]
#IF
#ACT
DELBUTTON 20
SetOffTimer 83

========================================================================QFunction-0.txt文件中加入如下脚本

[@ButtonClick17]
#IF
CheckStringlength <$STR(A101)> < 1
#ACT
DELBUTTON 17
SetOffTimer 80
SendMsg 5 发红包的玩家已经下线，本次口令红包无法领取！
Break
#IF
Equal G108 <$STR(G100)>
#ACT
DELBUTTON 17
SetOffTimer 80
SendMsg 5 来晚一步，本次口令红包被领完了！
Break
#IF
Equal A100
#ACT
Goto @InPutString12
Break
#IF
#Say
　\
　{红包口令：<$STR(A100)>/SCOLOR=151}\
　\
　<点击输入口令领取红包/@@InPutString12>\

[@InPutString12]
#IF
Not CheckStringlength A100 < 1
Not CompareText <$STR(S12)> <$STR(A100)>
#ACT
SendMsg 5 口令错误，请重新输入！
Break
#OR
Equal G108 <$STR(G100)>
Equal G101 0
#ACT
SetOffTimer 80
DELBUTTON 17
Close
Sendmsg 5 来晚一步，本次口令红包被领完了！
Break
#IF
Not CheckStringlength A100 < 1
#ACT
SendMsg 1 {「<$USERNAME>」：|232:0:1}{<$STR(A100)>|31:0:1}
Close
#IF
#ACT
Mov P12 <$STR(G100)>
Mov P14 <$STR(G100)>
Mov P15 G108
Dec P12 1
Inc P14 1
Inc P15 1
Mov P13 <$STR(G101)>
Inc P13 2
DELBUTTON 17
SetOffTimer 80
#IF
Small G108 <$STR(P12)>
#ACT
Mov N$最大元宝 <$STR(P13)>
Inc N$最大元宝 <$STR(G108)>
Dec N$最大元宝 <$STR(G100)>
Movr N$元宝 1 <$STR(N$最大元宝)>
Mov N$元宝2 <$STR(N$元宝)>
Movr N$权数 <$STR(P15)> <$STR(P14)>
Div N$元宝 <$STR(N$元宝)> <$STR(G100)>
Mul N$元宝 <$STR(N$元宝)> <$STR(N$权数)>
Mul N$元宝2 <$STR(N$元宝2)> <$STR(N$权数)>
Div N$元宝2 <$STR(N$元宝2)> <$STR(G100)>
#IF
Small N$元宝 1
#ACT
Mov N$元宝 1
#IF
Large N$元宝2 <$STR(N$元宝)>
#ACT
Mov N$元宝 <$STR(N$元宝2)>
#IF
Small G108 <$STR(P12)>
#ACT
Inc G108 1
Dec G101 <$STR(N$元宝)>
GameGold + <$STR(N$元宝)>
Sendmsg 5 领到：<$STR(N$元宝)>个元宝，来自{{[<$STR(A101)>]|232:0:1}的红包
Break
#IF
#ACT
Inc G108 1
GameGold + <$STR(G101)>
Sendmsg 5 领到：<$STR(G101)>个元宝，来自{[<$STR(A101)>]|232:0:1}的红包
Mov G101 0
Break

[@ButtonClick18]
#IF
CheckStringlength <$STR(A102)> < 1
#ACT
DELBUTTON 18
SetOffTimer 81
Sendmsg 5 发红包的玩家已经下线，本次全服红包无法领取！
Break
#OR
Equal G109 <$STR(G102)>
Equal G103 0
#ACT
DELBUTTON 18
SetOffTimer 81
Sendmsg 5 来晚一步，本次全服红包被领完了！
Break
#IF
#ACT
Mov P12 <$STR(G102)>
Mov P14 <$STR(G102)>
Mov P15 G109
Dec P12 1
Inc P14 1
Inc P15 1
Mov P13 <$STR(G103)>
Inc P13 2
DELBUTTON 18
SetOffTimer 81
#IF
Small G109 <$STR(P12)>
#ACT
Mov N$最大元宝 <$STR(P13)>
Inc N$最大元宝 <$STR(G109)>
Dec N$最大元宝 <$STR(G102)>
Movr N$元宝 1 <$STR(N$最大元宝)>
Mov N$元宝2 <$STR(N$元宝)>
Movr N$权数 <$STR(P15)> <$STR(P14)>
Div N$元宝 <$STR(N$元宝)> <$STR(G102)>
Mul N$元宝 <$STR(N$元宝)> <$STR(N$权数)>
Mul N$元宝2 <$STR(N$元宝2)> <$STR(N$权数)>
Div N$元宝2 <$STR(N$元宝2)> <$STR(G102)>
#IF
Small N$元宝 1
#ACT
Mov N$元宝 1
#IF
Large N$元宝2 <$STR(N$元宝)>
#ACT
Mov N$元宝 <$STR(N$元宝2)>
#IF
Small G109 <$STR(P12)>
#ACT
Inc G109 1
Dec G103 <$STR(N$元宝)>
GameGold + <$STR(N$元宝)>
Sendmsg 5 领到：<$STR(N$元宝)>个元宝，来自{[<$STR(A102)>]|232:0:1}的红包
Break
#IF
#ACT
Inc G109 1
GameGold + <$STR(G103)>
Sendmsg 5 领到：<$STR(G103)>个元宝，来自{[<$STR(A102)>]|232:0:1}的红包
Mov G103 0
Break

[@ButtonClick19]
#IF
CheckStringlength <$STR(A103)> < 1
#ACT
DELBUTTON 19
SetOffTimer 82
Sendmsg 5 发红包的玩家已经下线，本次行会红包无法领取！
Break
#OR
Equal G110 <$STR(G104)>
Equal G105 0
#ACT
DELBUTTON 19
SetOffTimer 82
Sendmsg 5 来晚一步，本次行会红包被领完了！
Break
#IF
#ACT
Mov P12 <$STR(G104)>
Mov P14 <$STR(G104)>
Mov P15 G110
Dec P12 1
Inc P14 1
Inc P15 1
Mov P13 <$STR(G105)>
Inc P13 2
DELBUTTON 19
SetOffTimer 82
#IF
Small G110 <$STR(P12)>
#ACT
Mov N$最大元宝 <$STR(P13)>
Inc N$最大元宝 <$STR(G110)>
Dec N$最大元宝 <$STR(G104)>
Movr N$元宝 1 <$STR(N$最大元宝)>
Mov N$元宝2 <$STR(N$元宝)>
Movr N$权数 <$STR(P15)> <$STR(P14)>
Div N$元宝 <$STR(N$元宝)> <$STR(G104)>
Mul N$元宝 <$STR(N$元宝)> <$STR(N$权数)>
Mul N$元宝2 <$STR(N$元宝2)> <$STR(N$权数)>
Div N$元宝2 <$STR(N$元宝2)> <$STR(G104)>
#IF
Small N$元宝 1
#ACT
Mov N$元宝 1
#IF
Large N$元宝2 <$STR(N$元宝)>
#ACT
Mov N$元宝 <$STR(N$元宝2)>
#IF
Small G110 <$STR(P12)>
#ACT
Inc G110 1
Dec G105 <$STR(N$元宝)>
GameGold + <$STR(N$元宝)>
Sendmsg 5 领到：<$STR(N$元宝)>个元宝，来自{[<$STR(A103)>]|232:0:1}的红包
Break
#IF
#ACT
Inc G110 1
GameGold + <$STR(G105)>
Sendmsg 5 领到：<$STR(G105)>个元宝，来自{[<$STR(A103)>]|232:0:1}的红包
Mov G105 0
Break

[@ButtonClick20]
#IF
CheckStringlength <$STR(A105)> < 1
#ACT
DELBUTTON 20
SetOffTimer 83
Sendmsg 5 发红包的玩家已经下线，本次个人红包无法领取！
Break
#IF
#ACT
GameGold + <$STR(G111)>
Sendmsg 5 领到：<$STR(G111)>个元宝，来自{[<$STR(A105)>]|232:0:1}的红包
Mov G111 0
Mov A105
DELBUTTON 20
SetOffTimer 83
Break

[@PlayReconnection]
#IF
Equal A101 <$USERNAME>
#ACT
Mov G100 0
Mov G101 0
Mov G108 0
Mov A100
Mov A101
#IF
Equal A102 <$USERNAME>
#ACT
Mov G102 0
Mov G103 0
Mov G109 0
Mov A102
#IF
Equal A103 <$USERNAME>
#ACT
Mov G104 0
Mov G105 0
Mov G110
Mov A103
Mov A104
#IF
Equal A105 <$USERNAME>
#ACT
Mov G111 0
Mov A105

[@PlayOffline]
#IF
Equal A101 <$USERNAME>
#ACT
Mov G100 0
Mov G101 0
Mov G108 0
Mov A100
Mov A101
#IF
Equal A102 <$USERNAME>
#ACT
Mov G102 0
Mov G103 0
Mov G109 0
Mov A102
#IF
Equal A103 <$USERNAME>
#ACT
Mov G104 0
Mov G105 0
Mov G110
Mov A103
Mov A104
#IF
Equal A105 <$USERNAME>
#ACT
Mov G111 0
Mov A105

蛇皮香蕉

GOM引擎破解版

jmcqmir

传奇版本下载

小小通讯

最新GameofMir引擎破解版

真诚学习

14444444444444kkjjj

大陆

GOM引擎加上一定不错

陈小文

东风谷的奋斗的非郭德纲电饭锅电饭锅

Sanjay_Singhani

传奇素材网真是个好论坛