[Gm版本库]传奇脚本系列-招兵买马

GM版本库

(@@InPutString)
[@main]
　\
<★━━━━★/FCOLOR=250> 　<━━━━━━行会自助※招人系统━━━━━/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<┃ 行会板 ┃/FCOLOR=249> 　【<$STR(A31)>】正在招收成员,<加入此行会[url=]/@jrxh>\[/url] \
<★━━━━★/FCOLOR=249> 　<━━━━━━━━━━━━━━━━━━━━/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
　\　　　<参加竞价[url=]/@cyjj[/url]>     [竞价元宝数]:<$STR(G30)>→[竞得行会名]:【<$STR(A31)>】　\　\



[@xhdz]
<$USERNAME> <你好，欢迎来到：/FCOLOR=7><$SERVERNAME>\
这里是通往对战皇宫的必由之路，在那里你可以享受PK的激情，\
激情中心不同行会的人物名字会变色，杀人不会红名，但死亡可能爆装备\
进入此地图需收费20000金币。\ \
<知道了，我要进去[url=]/@GOGOGO[/url]>             <考虑以下再说[url=]/@EXIT[/url]>
[@gogogo]
#if
HAVEGUILD
checkgold 20000
#ACT
close
take 金币 20000
give 回城卷 1
mapmove dzhg
SENDMSG 0  玩家<$USERNAME>进入了行会对战地图,为行会做贡献,生的伟大 死的光荣啊!!~
break
#ELSESAY
对不起！你还没有加入行会！
或您的金币少于20000
无法进入行会对战地图！\ \
<算了，不去了[url=]/@exit[/url]>


[@cyjj]
#IF
HAVEGUILD
CHECKGAMEGOLD > <$STR(G30)>
CHECKGAMEGOLD > 500
#ACT
INC G30 500
GAMEGOLD - <$STR(G30)>
mov A31 <$GUILDNAME>
mov G31 1
Messagebox [成功]：你在行会竞价板上花了【<$STR(G30)>】个元宝竞得。
SENDMSG 0 恭喜【<$USERNAME>】在行会竞价板为行会【<$STR(A31)>】竞得，大家赶快来加入这个有实力的行会吧!
GOTO @MAIN
BREAK
#ELSEACT
Messagebox [失败]：你的元宝不足500个或者你没有行会
[@jrxh]
#IF
equal <$STR(A31)> 暂无
#ACT
MESSAGEBOX [失败]:目前没有行会竞得行会竞价板
#ELSEACT
GOTO @jrxh1
BREAK
[@jrxh1]
#IF
HAVEGUILD
#ACT
MESSAGEBOX [失败]:您已经有行会了。无法申请!
#ELSEACT
GOTO @jrxh2
BREAK
[@jrxh2]
#IF
equal G31 1
#ACT
AddGuildMember <$STR(A31)> <$USERNAME>
Messagebox [成功]：恭喜【<$USERNAME>】加入了行会【<$STR(A31)>】。
BREAK
[@InPutString50]
#IF
EQUAL S50
#ACT
Messagebox [失败]：请输入所要发表的文字。不能发空消息。
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD > <$STR(G34)>
#ACT
INC G34 1
GAMEGOLD - <$STR(G34)>
MOV A38 <$STR(S50)>
MOV A36 <$USERNAME>
MOV S3
INC S3 <$STR(S50)>
INC S3 /AUTOCOLOR=
addnamelist  ..\QuestDiary\网蓝检测\颜色.txt S30
INC S3 <$STR(S30)>
INC S3 >
MOV A37 <$STR(S3)>
MOV A39 ╚┄┄┄┄┄┄┄╝\留言者：<$USERNAME>\　\╔┄┄┄┄┄┄┄╗\┊玩家公开留言板┊\
MOV S50
Messagebox [成功]：你在留言板上写下了以下一段话。\　\　　　　<$STR(A38)>
SENDMSG 0 【<$USERNAME>】在留言竞价板留下一句话，大家赶快去查看一下吧!
GOTO @MAIN
BREAK
#ELSEACT
MOV S50
Messagebox [失败]：你的元宝不足！\　\　　　　必须支付比<$STR(G34)>多1个元宝才可以留言。
GOTO @MAIN
BREAK
[@IsInFilterList]
#IF
#ACT
MESSAGEBOX [提示]：输入数据中包含了非法字符，请重新编辑！
BREAK