|
GOM引擎行会自动收人脚本
GOM引擎行会自动收人脚本示例
新建一个自动收人.txt，加入以下脚本
[@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
|
关注官方微信 
加入技术交流群
赣公网安备36050202000600号