2024-05-07
(@@InPutInteger @@InPutString @InPutInteger @InPutString @storage @getback @getnextpage @getPreviouspage)
[@main]
#if
#ACT
CloseBigDialogBox
#SAY
★━━━━★ <※ 忘忧行会自助招人系统 ※/SCOLOR=253>
┃<行/SCOLOR=253> ■ <会/SCOLOR=253>┃ ╔─────╗╔─────╗╔─────╗
┃ ■ ■ ┃ │<加入该行会/@加入>││ <参加竞标/@我也要竞标> ││ <管理选项/@竞标台管理> │
┃<招/SCOLOR=253> ■ <募/SCOLOR=253>┃ ╚─────╝╚─────╝╚─────╝
★━━━━★
<(新的竟得行会)：/SCOLOR=250><$STR(A109)>
<(竟价元宝数量)：/SCOLOR=250><$STR(G130)>
<(入会等级要求)：/SCOLOR=250><$STR(g108)> <(收人状态)：/SCOLOR=250><$STR(s1)>
<要想您的行会出现在此页面，需要比当前竟价多出10000元宝即可！/SCOLOR=249>
[@我也要竞标]
#IF
HAVEGUILD
ISGUILDMASTER
CHECKGAMEGOLD > <$STR(G130)>
#ACT
INC G130 10000
GAMEGOLD - <$STR(G130)>
mov A109 <$GUILDNAME>
mov A121 <$USERNAME>
mov G108 0
Messagebox [成功]：你在行会竞价板上花了【<$STR(G130)>】个元宝竞得。
SENDMSG 0 恭喜【<$USERNAME>】在行会竞价板为行会【<$STR(A130)>】招兵买马，大家赶快加入这个实力行会!
GOTO @MAIN
BREAK
#ELSEACT
Messagebox [失败]：你的元宝不足或者你没有行会或者你不是行会老大！
[@jrxh]
#IF
equal G132 1
#ACT
AddGuildMember <$STR(A130)> <$USERNAME>
Messagebox [成功]：恭喜【<$USERNAME>】加入了行会【<$STR(A130)>】。
BREAK
#ELSEACT
Messagebox [失败]：目前没有行会竞得行会竞价板
[@加入]
#if
equal A109
#act
SENDMSG 6 [对不起,暂时还没有行会在此竞标呢.....]
goto @main
break
#if
equal g109 1
#act
messagebox 对不起，本行会暂时不收人
break
#IF
HAVEGUILD
#ACT
MESSAGEBOX [失败]:您已经有行会了。无法申请!请先退出你当前的行会！
break
#if
CHECKLEVELEX < <$STR(g108)>
#act
messagebox 等级不够！
break
#if
#act
AddGuildMember <$STR(A109)> <$USERNAME>
GuildNoticeMsg 250 0 恭喜【<$USERNAME>】通过【天下一号会】NPC计入行会【<$STR(A109)>】
GuildNoticeMsg 250 0 恭喜【<$USERNAME>】通过【天下一号会】NPC计入行会【<$STR(A109)>】
GuildNoticeMsg 250 0 恭喜【<$USERNAME>】通过【天下一号会】NPC计入行会【<$STR(A109)>】
goto @main
[@竞标台管理]
#if
ISGUILDMASTER
equal a109 <$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
#say
?
;→<修改公告内容/@@InPutString11> 当前公告内容:<$STR(A119)>
→<修改等级要求/@@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 35
small n71 300
#act
mov g108 <$STR(n71)>
messagebox 设定成功，加入你的行会的低等级要求是<$STR(n71)>级！
goto @竞标台管理
#elseact
messagebox 请输入一个35－300间的整数！
goto @竞标台管理
[@InPutString11]
#if
equal s11
#act
messagebox 非法字符
#elseact
mov a119 <$STR(s11)>
messagebox 修改成功
goto @竞标台管理
上一篇:
仅限一位城主传奇新区老区沙城给予脚本
下一篇:
非常漂亮的GOM引擎传奇开区网站列表格式文本
