Gom引擎行会竞标及行会自助招人系统脚本实例

哪吒2017

说明：有些不显示的图标按钮可以自己修改或添加，不影响脚本使用
==================================================================
()
%100
[@main]
#act
#say
<PlayImg::34:31:1:100:515:95/@exit>
\ \ \ \ \ \ \ \ \
<>             <★━━━━★/SCOLOR=250>　　━━━ 行会【<$STR(A50)>】自助招人系统 ━━━\
<>             <┃/SCOLOR=250>行 <■/AUTOCOLOR=254,250,253,241> 竞<┃/SCOLOR=250>　　<加入该行会的最低等级要求是：/AUTOCOLOR=249><$STR(G108)>级以上\
<>             <┃/SCOLOR=250> <■/AUTOCOLOR=250,251,241,254>板<■/AUTOCOLOR=241,250,253,254> <┃/SCOLOR=250> 　　[<加入行会/@jrxh>]　[<参加竞价/@cyjj>]　[<管理选项/@竞标台管理>]\
<>             <┃/SCOLOR=250>会 <■/AUTOCOLOR=250,253,254,241> 价<┃/SCOLOR=250>　　\
<>             <★━━━━★/SCOLOR=250>　　━━━━━━━━━━━━━━━━━━━━━━━\
<>             <【行会名称】/SCOLOR=154>：【<$STR(A50)>】　　　　　<行会掌门：/SCOLOR=154>【<$STR(A52)>】\
<>             <【竞标价格】/SCOLOR=154>：【<$STR(G56)>】\
<>             <【掌门致辞】/SCOLOR=154>：【<$STR(A51)>】\ \ \
<>             <您支付比目前竞价多100万元宝，即可让你建的行会成为[天下第一行会]/AUTOCOLOR=250,253,254,241>\


[@cyjj]
#IF
HAVEGUILD
ISGUILDMASTER
checkgamegold > <$STR(G56)>
#ACT
INC G56 1000000
gamegold - <$STR(G56)>
mov A50 <$GUILDNAME>
mov A52 <$USERNAME>
Messagebox [成功]：您在行会竞价板上花了【<$STR(G56)>】个元宝竞得。
GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
GuildNoticeMsg 5 9 【<$USERNAME>】的行会【<$STR(A50)>】评得实力行会，大家赶快来加入吧!
SENDMSG 6 提示：竞价成功，消费【<$STR(G56)>元宝】！你当前的元宝余额为【<$GAMEGOLD>】！！
BREAK
#ELSEACT
Messagebox [失败]：您的元宝不足或者您没有行会


[@jrxh]
#if
equal G109 1
#act
messagebox 对不起，本行会暂时不收人
break
#if
CHECKLEVELEX < <$STR(G108)>
#act
messagebox 等级不够！
break
#IF
ISGUILDMASTER
#ACT
Messagebox [失败]：您现在是行会掌门不能在加入其他行会！！
break
#IF
equal A50 <$GUILDNAME>
#ACT
Messagebox [失败]：您现在已经是【<$STR(A50)>】的行会成员了！！
break
#ELSEACT
goto @jrxh3


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


[@jrxh4]
#IF
equal A50
#ACT
Messagebox [失败]：现在还没行会竟价格
#ELSEACT
AddGuildMember <$STR(A50)>
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
SENDMSG 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A50)>】
break



[@竞标台管理]
#if
ISGUILDMASTER
equal A50 <$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 34 30 0 4 0 -95 0 0 0 \
#say
<PlayImg::34:31:1:100:515:95/@exit>
\ \ \ \ \ \ \ \ \
<>               →<修改公告内容/@@InPutString5>  当前公告内容:<$STR(S5)>\
<>               →<修改等级要求/@@InPutInteger71>  当前等级要求:<$STR(G108)>级\ \
<>               →<行会收人状态/SCOLOR=254> 当前状态为：<$STR(s1)>  [<更改/@gg1>]\ \
<>               →<返回/@main>


[@gg1]
#if
equal G109 0
#act
mov G109 1
messagebox 行会收人状态→关闭
goto @竞标台管理
break
#if
equal G109 1
#act
mov G109 0
messagebox 行会收人状态→开放
goto @竞标台管理
break


[@InPutInteger71]
#if
large N71 10
small N71 150001
#act
mov G108 <$STR(N71)>
messagebox 设定成功，加入你的行会的最低等级要求是<$STR(N71)>级！
goto @竞标台管理
#elseact
messagebox 【错误提示】:\　\　　　　　　㈠　请输入一个10－150000间的整数！\　\　　　　　　㈡　请输入数字，勿输入其它字符！
goto @竞标台管理



[@InPutString5]
#if
#act
mov A51 <$STR(S5)>
messagebox 修改成功，公告内容为<$STR(S5)>！
goto @竞标台管理
#elseact
messagebox 【错误提示】:非法字符，请输入一段文本，勿输入其它字符！
goto @竞标台管理

我爱我国我家

努力赚币中。。。

泵阀哥

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！

天寿保健护理彰

论坛不能没有像楼主这样的人才啊！我会一直支持GM爱好者：www.gmahz.com

江北渔民

楼主，我太崇拜你了！我想我是一天也不能离开GM爱好者：www.gmahz.com

小水桶

金币我要攒金币！！！

love54092

拿币走人。。。。

哪吒2017

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！

文萱和润禔

其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！

13020020324

楼主，大恩不言谢了！GM爱好者：www.gmahz.com是最棒的！