[Gm版本库]传奇自动行会招人系统

[复制链接]
查看3480 | 回复0 | 2012-4-27 16:33:46 | 显示全部楼层 |阅读模式

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



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


[@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

回复

使用道具 举报

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

本版积分规则