新建行会自动收人功能脚本示例(Gom引擎)

[@MAIN]
#IF
#ACT
MOV N$差距人数限制 3
MOV N$战士最低攻击 450000
MOV N$法师最低魔法 100
MOV N$道士最低道术 100
MOV N$入会等级限制1 320
MOV N$入会等级限制2 330
MOV N$入会等级限制3 340
MOV N$入会等级限制4 359
MOV N$红方总人数 <$GLOBAL(红方人数1)>
INC N$红方总人数 <$GLOBAL(红方人数2)>
INC N$红方总人数 <$GLOBAL(红方人数3)>
INC N$红方总人数 <$GLOBAL(红方人数4)>
MOV N$蓝方总人数 <$GLOBAL(蓝方人数1)>
INC N$蓝方总人数 <$GLOBAL(蓝方人数2)>
INC N$蓝方总人数 <$GLOBAL(蓝方人数3)>
INC N$蓝方总人数 <$GLOBAL(蓝方人数4)>
MOV S$红方总人数 <$STR(N$红方总人数)>人
MOV S$蓝方总人数 <$STR(N$蓝方总人数)>人
MOV S$红方人数1 <$GLOBAL(红方人数1)>人
MOV S$红方人数2 <$GLOBAL(红方人数2)>人
MOV S$红方人数3 <$GLOBAL(红方人数3)>人
MOV S$红方人数4 <$GLOBAL(红方人数4)>人
MOV S$蓝方人数1 <$GLOBAL(蓝方人数1)>人
MOV S$蓝方人数2 <$GLOBAL(蓝方人数2)>人
MOV S$蓝方人数3 <$GLOBAL(蓝方人数3)>人
MOV S$蓝方人数4 <$GLOBAL(蓝方人数4)>人
SETSTRINGBLANK S$红方总人数 5 0
SETSTRINGBLANK S$蓝方总人数 5 0
SETSTRINGBLANK S$红方人数1 5 0
SETSTRINGBLANK S$红方人数2 5 0
SETSTRINGBLANK S$红方人数3 5 0
SETSTRINGBLANK S$红方人数4 5 0
SETSTRINGBLANK S$蓝方人数1 5 0
SETSTRINGBLANK S$蓝方人数2 5 0
SETSTRINGBLANK S$蓝方人数3 5 0
SETSTRINGBLANK S$蓝方人数4 5 0
#act
OPENMERCHANTBIGDLG 90 131 1 4 0 -30 0
#say
<IMGEX:57:487:488:489:416:-9/@exit>\
\ \
<>                  <合区之后清理行会.且禁止创建行会！/SCOLOR=250>\
<>  <双方总人数相差5人，沙城奖励减半.不能退出行会 一旦退出 将不能入会！/SCOLOR=242>\
<><--------------------------------------------------------------------/SCOLOR=244>\
;<>  <20:30之后关闭入会功能,请上线YY,没在YY频道的,将不会发红包！/SCOLOR=243>\
<>       <请选择点击下方/SCOLOR=246> <红方行会/SCOLOR=249> <或者/SCOLOR=246> <蓝方行会/SCOLOR=154> <进行攻城行会选择！/SCOLOR=246>\ \
;<>  <红方YY频道：17478/SCOLOR=249>  
<>              <点击加入红方行会/@加入红方>  <当前攻沙红方人数/SCOLOR=230>{<$STR(S$红方总人数)>/SCOLOR=249}\ \
;<>  <蓝方YY频道：17478/SCOLOR=154>  
<>              <点击加入蓝方行会/@加入蓝方>  <当前攻沙蓝方人数/SCOLOR=230>{<$STR(S$蓝方总人数)>/SCOLOR=154}\ \
<>                <入会及攻城条件:等级350 + 沙捐 + 狂暴/SCOLOR=243>\
<>         <攻沙胜利行会获得60%的奖励/SCOLOR=243>     <攻沙失败行会获得40%的奖励/SCOLOR=243>\ \
<>                      <★★★查看指挥奖励★★★|^249#红方指挥“８８”由沙奖励抽取^-^154#蓝方指挥“６８”由沙奖励抽取^-^255#指挥起步的红包标准，人数越多指挥红包越高！/SCOLOR=253>\


[@加入红方]
#IF
#ACT
MOV N$加入阵营颜色 249
MOV S$加入阵营名称 红方
MOV S$对方阵营名称 蓝方
MOV N$加入阵营变量1 341
MOV N$加入阵营变量2 342
MOV N$加入阵营变量3 343
MOV N$加入阵营变量4 344
GOTO @加入行会检测
BREAK

[@加入蓝方]
#IF
#ACT
MOV N$加入阵营颜色 252
MOV S$加入阵营名称 蓝方
MOV S$对方阵营名称 红方
MOV N$加入阵营变量1 351
MOV N$加入阵营变量2 352
MOV N$加入阵营变量3 353
MOV N$加入阵营变量4 354
GOTO @加入行会检测
BREAK

[@加入行会检测]
#IF
HAVEGUILD
#ACT
MESSAGEBOX \提示：您已经加入过行会了！
BREAK

#IF
NOT SMALL <$HOUR> 21
#ACT
MESSAGEBOX \提示：20:00之后禁止入会！
BREAK

#IF
CHECKLEVELEX < <$STR(N$入会等级限制1)>
#ACT
MESSAGEBOX \提示：等级未达到要求！
BREAK


#IF
CHECKLEVELEX < 350
#ACT
MESSAGEBOX 对不起！需350级才可以参加攻城战！
break

#IF
CHECK [115] 0
#ACT
MESSAGEBOX 对不起！需沙捐才可以参加攻城战！
break

#IF
NOT CHECKTITLE 狂暴之力
#ACT
MessageBox 对不起！需开启狂暴模式才可以参加攻城战！
Break


#IF
CHECKJOB WARRIOR
SMALL <$MAXDC> <$STR(N$战士最低攻击)>
#ACT
MESSAGEBOX \提示：攻击力未达到要求！
BREAK

#IF
#ACT
MOV N$加入行会计时 0
MOV S$加入行会动画1 ■
MOV S$加入行会动画2 □
MOV S$加入行会动画3
MOV S$加入行会动画4 □□□□□□□□□□□□□□□□□□□□
GOTO @加入行会延时页面
BREAK

[@加入行会延时页面]
#IF
SMALL N$加入行会计时 100
#ACT
INC N$加入行会计时 5
INC S$加入行会动画3 <$STR(S$加入行会动画1)>
DEC S$加入行会动画4 1 2
DELAYGOTO 50 @加入行会延时页面
BREAK
#SAY
\ \ \
<正在加入/SCOLOR=70>【{<$STR(S$加入阵营名称)>阵营/SCOLOR=<$STR(N$加入阵营颜色)>}】：\ \
<加入进度/SCOLOR=70>：{<$STR(S$加入行会动画3)><$STR(S$加入行会动画4)> <$STR(N$加入行会计时)>%/SCOLOR=250}\ \
<取消加入/@取消加入行会>\
#IF
#ACT
GOTO @加入行会开始
BREAK

[@取消加入行会]
#IF
#ACT
CLEARDELAYGOTO 0
GOTO @MAIN
BREAK

[@加入行会开始]
#IF
CHECKLEVELEX < <$STR(N$入会等级限制2)>
#ACT
MOV N$加入阵营变量 <$STR(N$加入阵营变量1)>
GOTO @加入梯队1
BREAK
#IF
CHECKLEVELEX < <$STR(N$入会等级限制3)>
#ACT
MOV N$加入阵营变量 <$STR(N$加入阵营变量2)>
GOTO @加入梯队2
BREAK
#IF
CHECKLEVELEX < <$STR(N$入会等级限制4)>
#ACT
MOV N$加入阵营变量 <$STR(N$加入阵营变量3)>
GOTO @加入梯队3
BREAK
#IF
#ACT
MOV N$加入阵营变量 <$STR(N$加入阵营变量4)>
GOTO @加入梯队4
BREAK

[@加入梯队1]
#IF
#ACT
MOV N$检测人数 <$STR(N$差距人数限制)>
INC N$检测人数 <$GLOBAL(<$STR(S$对方阵营名称)>人数1)>
#IF
CHECKVAR GLOBAL <$STR(S$加入阵营名称)>人数1 > <$STR(N$检测人数)>
#ACT
MESSAGEBOX \提示：同等级梯队双方相差人数不能大于<$STR(N$差距人数限制)>！
GOTO @MAIN
BREAK
#IF
#ACT
RESET [341] 4
RESET [351] 4
SET [<$STR(N$加入阵营变量)>] 1
CALCVAR GLOBAL <$STR(S$加入阵营名称)>人数1 + 1
SAVEVAR GLOBAL <$STR(S$加入阵营名称)>人数1 ..\QuestDiary\QQ80558881\首沙红包系统\01红蓝方变量SAVE.txt
ADDGUILDMEMBER <$STR(S$加入阵营名称)> <$USERNAME>
MESSAGEBOX \提示：成功加入<$STR(S$加入阵营名称)>阵营！
SETONTIMER 166 1
GOTO @MAIN
BREAK
[@加入梯队2]
#IF
#ACT
MOV N$检测人数 <$STR(N$差距人数限制)>
INC N$检测人数 <$GLOBAL(<$STR(S$对方阵营名称)>人数2)>
#IF
CHECKVAR GLOBAL <$STR(S$加入阵营名称)>人数2 > <$STR(N$检测人数)>
#ACT
MESSAGEBOX \提示：同等级梯队双方相差人数不能大于<$STR(N$差距人数限制)>！
GOTO @MAIN
BREAK
#IF
#ACT
RESET [341] 4
RESET [351] 4
SET [<$STR(N$加入阵营变量)>] 1
CALCVAR GLOBAL <$STR(S$加入阵营名称)>人数2 + 1
SAVEVAR GLOBAL <$STR(S$加入阵营名称)>人数2 ..\QuestDiary\QQ80558881\首沙红包系统\01红蓝方变量SAVE.txt
ADDGUILDMEMBER <$STR(S$加入阵营名称)> <$USERNAME>
MESSAGEBOX \提示：成功加入<$STR(S$加入阵营名称)>阵营！
SETONTIMER 166 1
GOTO @MAIN
BREAK
[@加入梯队3]
#IF
#ACT
MOV N$检测人数 <$STR(N$差距人数限制)>
INC N$检测人数 <$GLOBAL(<$STR(S$对方阵营名称)>人数3)>
#IF
CHECKVAR GLOBAL <$STR(S$加入阵营名称)>人数3 > <$STR(N$检测人数)>
#ACT
MESSAGEBOX \提示：同等级梯队双方相差人数不能大于<$STR(N$差距人数限制)>！
GOTO @MAIN
BREAK
#IF
#ACT
RESET [341] 4
RESET [351] 4
SET [<$STR(N$加入阵营变量)>] 1
CALCVAR GLOBAL <$STR(S$加入阵营名称)>人数3 + 1
SAVEVAR GLOBAL <$STR(S$加入阵营名称)>人数3 ..\QuestDiary\QQ80558881\首沙红包系统\01红蓝方变量SAVE.txt
ADDGUILDMEMBER <$STR(S$加入阵营名称)> <$USERNAME>
MESSAGEBOX \提示：成功加入<$STR(S$加入阵营名称)>阵营！
SETONTIMER 166 1
GOTO @MAIN
BREAK
[@加入梯队4]
#IF
#ACT
MOV N$检测人数 <$STR(N$差距人数限制)>
INC N$检测人数 <$GLOBAL(<$STR(S$对方阵营名称)>人数4)>
#IF
CHECKVAR GLOBAL <$STR(S$加入阵营名称)>人数4 > <$STR(N$检测人数)>
#ACT
MESSAGEBOX \提示：同等级梯队双方相差人数不能大于<$STR(N$差距人数限制)>！
GOTO @MAIN
BREAK
#IF
#ACT
RESET [341] 4
RESET [351] 4
SET [<$STR(N$加入阵营变量)>] 1
CALCVAR GLOBAL <$STR(S$加入阵营名称)>人数4 + 1
SAVEVAR GLOBAL <$STR(S$加入阵营名称)>人数4 ..\QuestDiary\QQ80558881\首沙红包系统\01红蓝方变量SAVE.txt
ADDGUILDMEMBER <$STR(S$加入阵营名称)> <$USERNAME>
MESSAGEBOX \提示：成功加入<$STR(S$加入阵营名称)>阵营！
SETONTIMER 166 1
GOTO @MAIN
BREAK

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

很专业的很全面的gm论坛

这个帖子不回对不起自己！

很专业的很全面的gm论坛

传奇论坛里面相对来说比较好的一个！

传奇论坛里面相对来说比较好的一个！

这个帖子不回对不起自己！

谢谢楼主！

很专业的很全面的gm论坛

谢谢楼主！