Gom引擎脚本-行会收人

[复制链接]
查看1033 | 回复0 | 2017-11-28 10:46:17 | 显示全部楼层 |阅读模式
(@@InPutString @@InPutInteger)
[@main]
#ACT
OPENMERCHANTBIGDLG 0 17 0 0 0 0 0
#SAY
<Img:1:0:460:33/@EXIT>
<Img:18:0:-80:-35>
<Img:19:0:95:70/@jrxh>
<Img:20:0:-3:120/@cyjj>
<Img:21:0:-102:170/@竞标台管理>
<PlayImg:0:22:3:200:-222:78:1>
<PlayImg:0:22:3:200:-114:78:1>
<PlayImg:0:22:3:200:-254:128:1>
<PlayImg:0:22:3:200:-146:128:1>
<PlayImg:0:22:3:200:-286:178:1>
<PlayImg:0:22:3:200:-178:178:1>
\ \
\ \
\ \
\ \
<>                             <当前求贤行会/SCOLOR=254> → <【/SCOLOR=224><$STR(A21)><】/SCOLOR=224>\
<>                             <当前行会掌门/SCOLOR=254> → <【/SCOLOR=224><$STR(A22)><】/SCOLOR=224>\
<>                             <最低等级要求/SCOLOR=253> → <【/SCOLOR=224><$STR(G7)><】/SCOLOR=224>\
<>                             <当前掌门致辞/SCOLOR=251> → <【/SCOLOR=224><$STR(A23)><】/SCOLOR=224>\
<>                             <当前竞标价格/SCOLOR=249> → <【/SCOLOR=249><$STR(G8)><灵石】/SCOLOR=249>\ \
<>                            <支付比竞价多10000灵石即可/AUTOCOLOR=250,253,254>\
<>                            <抢占行会招贤榜壮大您的行会/AUTOCOLOR=250,253,254>\ \
<>                            <进入管理您的行会招贤要求/SCOLOR=210> <也可以更改您的行会招贤致辞/SCOLOR=210>\


[@cyjj]
#IF
HAVEGUILD
ISGUILDMASTER
CHECKGAMEGOLD > <$STR(G8)>
#ACT
INC G8 10000
GAMEGOLD - <$STR(G8)>
mov A21 <$GUILDNAME>
mov A22 <$USERNAME>
set [198] 1
Messagebox [成功]:您在行会竞价板上花了【<$STR(G8)>】个灵石竞得。
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得,大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得,大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得,大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得,大家赶快来加入这个有实力的行会吧!
SENDMSG 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A21)>】竞得,大家赶快来加入这个有实力的行会吧!
GOTO @main
BREAK
#ELSEACT
GOTO @检测提示
break
[@检测提示]
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <竞价失败:>\ \
          <您的灵石不足或者您没有行会.../SCOLOR=151>
[@jrxh]
#if
equal G109 1
#act
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <加入失败:>\ \
          <对不起,本行会暂时不收人.../SCOLOR=151>
#ACT
break

#if
CHECKLEVELEX < <$STR(G7)>
#act
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <加入失败:>\ \
          <对不起,等级不够.../SCOLOR=151>
#ACT
break

#IF
ISGUILDMASTER
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <加入失败:>\ \
          <您现在是行会掌门不能在加入其他行会.../SCOLOR=151>
#ACT
break

#IF
equal A21 <$GUILDNAME>
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <加入失败:>\ \
          <您现在已经是【<$STR(A21)>】的行会成员了.../SCOLOR=151>
#ACT
break
#ELSEACT
goto @jrxh3

[@jrxh3]
#IF
HAVEGUILD
#ACT
Gmexecute 退出行会
DELAYGOTO 3 @jrxh4
#ELSEACT
goto @jrxh4

[@jrxh4]
#IF
equal A21
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <失败:>\ \
       <现在还没行会竟价格.../SCOLOR=151>
#ACT
BREAK
#ELSEACT
AddGuildMember <$STR(A21)>
set [198] 1
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A21)>】
break




[@竞标台管理]
#if
ISGUILDMASTER
equal A21 <$GUILDNAME>
#act
goto @竞标台管理2
#elseact
SENDMSG 5 [只有本行会掌门才可以进行管理]
goto @main

[@竞标台管理2]
#if
equal g109 0
#act
mov s1 <开启/SCOLOR=250>
#if
equal g109 1
#act
mov s1 <关闭>
#if
equal g110 0
#act
mov s2 <允许/SCOLOR=250>
#if
equal g110 1
#act
mov s2 <禁止>
#if
#ACT
OPENMERCHANTBIGDLG 0 17 0 0 0 0 0
#SAY
<Img:1:0:501:20/@EXIT>
<Img:18:0:-80:-35>\
\ \ \ \ \ \
<>                              →<修改公告内容/@@InPutString5> 当前公告内容:<$STR(S5)>\ \
<>                              →<修改等级要求/@@InPutInteger71> 当前等级要求:<$STR(G7)>级\ \
<>                              →<行会收人状态/SCOLOR=254> 当前状态为:<$STR(s1)> [<更改/@gg1>]\ \
<>                              →<提交信息/@竞标4>\ \

[@gg1]
#if
equal g109 0
#act
mov g109 1
goto @竞标台管理
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <提示:>\ \
      <行会收人状态→关闭.../SCOLOR=151>
#ACT
break
#if
equal g109 1
#act
mov g109 0
goto @竞标台管理
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <提示:>\ \
      <行会收人状态→开放.../SCOLOR=151>
#ACT
break
;------------------------------------
[@InPutInteger71]
#if
large n71 400
small n71 5000
#act
mov G7 <$STR(n71)>
goto @竞标台管理2
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <设定成功:>\ \
          <加入你的行会的最低等级要求是<$STR(n71)>级.../SCOLOR=151>
#ACT
BREAK
#elseact
goto @竞标台管理31
[@竞标台管理31]
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <错误提示:>\ \
          <请输入一个500-4000间的整数.../SCOLOR=151>
[@InPutString5]
#if
#act
mov A23 <$STR(S5)>
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <修改成功:>\ \
          <公告内容为<$STR(S5)>.../SCOLOR=151>
#ACT
BREAK
goto @竞标台管理2
#elseact
goto @竞标台管理3
[@竞标台管理3]
#ACT
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <错误提示:>\ \
          <非法字符,请输入一段文本,勿输入其它字符.../SCOLOR=151>

[@竞标4]
#If
small n71 20
#act
goto @竞标3
OPENMERCHANTBIGDLG 0 13 0 4 -20 -100 0 0 0
#SAY
<Img:14:0:215:240/@EXIT>
\ \ \ \ \ \ \ \ \ \ \
 <提示:>\ \
      <请设定招收会员的最低等级要求.../SCOLOR=151>
#ACT
BREAK
#elseact
#ACT
OPENMERCHANTBIGDLG 0 17 0 0 0 0 0
#SAY
<Img:1:0:501:20/@EXIT>
<Img:18:0:-80:-35>\
\ \ \ \
<>                         <以下是你的全部信息,点击确定提交信息:/SCOLOR=250>\
<>                         <行会名称:/SCOLOR=154><$GUILDNAME>\
<>                         <行会掌门:/SCOLOR=154><$USERNAME>\
<>                         <竞标价格:/SCOLOR=154><$STR(G8)>灵石\
<>                         <加入该行会的最低等级要求是:/SCOLOR=154><$STR(n71)>级\
<>                         <公告内容:/SCOLOR=154><$STR(A23)>\ \

<>                         →[<确定提交信息/@竞标5>]              [<返回重新填写/@竞标台管理2>]

[@竞标5]
#if
#act
mov A21 <$GUILDNAME>
mov G7 <$STR(n71)>
mov A23 <$STR(s5)>
SENDMSG 7 修改成功!
close
#elseact
SENDMSG 7 [超时]
goto @main
;------------------------------------------------------------------


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则