GOM引擎天下第一会脚本,传奇版本库添加行会自助收人教程。

GOM引擎天下第一会脚本,传奇版本库添加行会自助收人教程。

20191104165134.png (637.14 KB, 下载次数: 3)

下载附件

2019-11-4 18:20 上传

[@main]

#IF

#ACT

CLOSEMERCHANTBIGDLG

#SAY

<━━━━/SCOLOR=250>  ━━ 行会【<$STR(A95)>】自助招人系统 ━━

<┃/SCOLOR=250>行 <■/AUTOCOLOR=254,250,253,241> 竞<┃/SCOLOR=250>

<┃/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>  <加入该行会的最低等级要求是:/AUTOCOLOR=249><$STR(g71)>级以上

<━━━━/SCOLOR=250>  ━━━━━━━━━━━━━━━━━━━━━

<【行会名称】/SCOLOR=154>:<$STR(A95)>     <行会掌门:/SCOLOR=154><$STR(A81)>

<【竞标价格】/SCOLOR=154>:<$STR(G107)>      <收人状态:/SCOLOR=154><$STR(A85)>

<您支付比目前竞价多1000个元宝,即可让你建的行会成为[天下第一行会]/AUTOCOLOR=250,253,254,241>

#IF

ISADMIN

#act

#say

<GM清空数据/@qingshuju1>

[@qingshuju1]

#IF

ISADMIN

#act

mov A95

mov A81

mov G107

mov A85

mov G71

messagebox 行会已经清除!

[@cyjj]

#IF

HAVEGUILD

ISGUILDMASTER

CHECKGAMEGOLD > <$STR(G107)>

#ACT

INC G107 1000

GAMEGOLD - <$STR(G107)>

mov A95 <$GUILDNAME>

mov A81 <$USERNAME>

Messagebox [成功]:您在行会竞价板上花了【<$STR(G107)>】个元宝竞得。

SendCenterMsg 250 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A95)>】竞得,大家赶快来加入这个有实力的行会吧!

GuildNoticeMsg 250 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A95)>】竞得,大家赶快来加入这个有实力的行会吧!

GuildNoticeMsg 250 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A95)>】竞得,大家赶快来加入这个有实力的行会吧!

GuildNoticeMsg 250 0 【<$USERNAME>】在行会竞价板为行会【<$STR(A95)>】竞得,大家赶快来加入这个有实力的行会吧!

GOTO @main

BREAK

#ELSEACT

Messagebox [失败]:您的元宝不足或者您没有行会

[@jrxh]

#if

equal G109 1

#act

messagebox 对不起,本行会暂时不收人

break

#if

CHECKLEVELEX < <$STR(g71)>

#act

messagebox 等级不够!对方行会掌门设置了【<$STR(G71)>】级才可以加入!

break

#IF

ISGUILDMASTER

#ACT

Messagebox [失败]:您现在是行会掌门不能在加入其他行会!!

break

#IF

equal A95 <$GUILDNAME>

#ACT

Messagebox [失败]:您现在已经是【<$STR(A95)>】的行会成员了!!

break

#ELSEACT

goto @jrxh3

[@jrxh3]

#IF

HAVEGUILD

#ACT

Gmexecute 退出门派

DELAYGOTO 3 @jrxh4

#ELSEACT

goto @jrxh4

[@jrxh4]

#IF

equal A95

#ACT

Messagebox [失败]:现在还没行会竟价格

#ELSEACT

AddGuildMember <$STR(A95)>

SendCenterMsg 250 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A95)>】

GuildNoticeMsg 250 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A95)>】

GuildNoticeMsg 250 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A95)>】

GuildNoticeMsg 250 0 恭喜【<$USERNAME>】通过【天下第一行会】NPC加入了行会【<$STR(A95)>】

break

[@竞标台管理]

#if

ISGUILDMASTER

equal A95 <$GUILDNAME>

#act

goto @竞标台管理2

#elseact

SENDMSG 7 [只有本行会掌门才可以进行管理]

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

#say

?

→<行会收人状态/SCOLOR=254>  当前状态为:<$STR(s1)>  [<更改/@gg1>]

→<返回/@main>

[@gg1]

#if

equal g109 0

#act

mov g109 1

messagebox 行会收人状态→关闭

mov S10 关闭

mov A85 <$STR(S10)>

goto @竞标台管理

break

#if

equal g109 1

#act

mov g109 0

messagebox 行会收人状态→开放

mov S10 开放

mov A85 <$STR(S10)>

goto @竞标台管理

break

[@InPutInteger71]

#if

LARGE n71 120

#act

messagebox 修改等级要求不得大于120级!

BREAK

#if

#act

mov g71 <$STR(n71)>

goto @竞标台管理

messagebox 修改等级要求成功!

break

文章归发布者所有。发布者:爱到深处,转载请注明出处:https://www.anyitu.com

如该内容侵犯您的权利,请及时联系我们

微信公众号