传奇行会别墅脚本

(@@InPutString @@InPutInteger )
[@main]
#if
haveguild
#elsesay
您还没有加入行会！\
此别墅每120分钟刷一只冰眼魔\
可供行会所有成员练经络经验，并有机率可爆出特殊戒指.\
行会聚会的好场所。内有练经络的经验怪。\
购买者拥有全区唯一顶部流动绿色文字公告权限！\
<封锁[url=]/@exit[/url]>
#elseact
break
#if
equal A46 <$GUILDNAME>
equal A47 <$USERNAME>
#say
当前行会别墅的竞拍最高价格仍然是贵行会的:<$STR(G40)>元宝\
<进入行会别墅./@movein>.\
您当前的元宝数量为：<$GAMEGOLD>元宝.\
您是行会别墅的购买者!消费1个元宝可以全区发送通告哦.\
<发送行会别墅全区通告[url=]/@@InPutString10[/url]>
#act
break
#if
equal A46 <$GUILDNAME>
#say
当前行会别墅的竞拍最高价格仍然是贵行会的:<$STR(G40)>元宝\
<进入行会别墅./@movein>.\
<给购买者赞助元宝[url=]/@@InPutInteger4>.\[/url]
购买者为：<$STR(A47)>
#elsesay
行会别墅现在属于[<$STR(A46)>]行会.\
由[<$STR(A47)>]竞拍购买到使用权.\
您可以在我这里进行竞价购买！\
目前购买价格为<$STR(G40)>元宝,您需要以比<$STR(G40)>元宝高\
的价格才能购买到别墅。\
<购买行会别墅[url=]/@gobuy[/url]> <别墅的好处？[url=]/@help[/url]>
[@InPutString10]
#if
checkgamegold > 0
#elseact
messagebox 您没有足够的元宝！\
goto @main
break

#if
equal A46 <$GUILDNAME>
equal A47 <$USERNAME>
#act
gamegold - 1
SendTopMsg 250 183 (本条消息由玩家发送，与本服务器无关)行会别墅主人[<$USERNAME>]通告大家：<$STR(S10)>
messagebox 发送通告成功！
goto @main
break
#elsesay
您没有权利使用本功能！\
<返回./@main>
[@movein]
#if
equal A46 <$GUILDNAME>
#act
mapmove 220GM06
give 回城卷 1
close
break
#elsesay
对不起，您不是<$STR(A46)>行会成员。\
<返回./@main>
[@InPutInteger4]
#if
checkonline <$STR(A47)>
#elsesay
玩家<$STR(A47)>暂时不在线.\
#elseact
break
#if
checkgamegold ? <$STR(N4)>
#act
gamegold - <$STR(N4)>
<$STR(A47)>.gamegold + <$STR(N4)>
<$STR(A47)>.sendmsg 6 提示：<$USERNAME>给您赠送了<$STR(N4)>个元宝
sendmsg 6 提示：您当前的元宝数量为：<$GAMEGOLD>
sendmsg 1 系统：玩家[<$USERNAME>]给行会别墅购买者:[<$STR(A47)>]赠送了<$STR(N4)>个元宝
messagebox 您成功给<$STR(A47)>赠送<$STR(N4)>个元宝
goto @main
break
#elsesay
您的元宝不够！\
<返回./@main>

[@help]
此别墅每10分钟刷一只冰眼魔\
可供行会所有成员练经络经验，并有机率可爆出特殊戒指.\
行会聚会的好场所。内有练经络的经验怪。\
购买者拥有全区唯一顶部流动绿色文字公告权限！\
<返回./@main>
[@gobuy]
#if
HAVEGUILD
#say
欢迎您的光临，您是[{<$GUILDNAME>=FCOLOR=250}]行会的成员。\
需要为您的行会购买别墅吗？\
只要高于<$STR(G40)>元宝就可以获得使用权哦~\
<输入购买元宝数量[url=]/@@InPutInteger2[/url]> <别墅的好处？[url=]/@help[/url]>
#elsesay
对不起，本功能只为加入行会后的玩家提供！\
[@InPutInteger2]
#if
large N2 <$STR(G40)>
#elsesay
对不起，您输入的元宝数量比他人价格低。\
不能获得使用权.\
<返回./@main>
#elseact
break
#if
checkgamegold ? <$STR(N2)>
#act
gamegold - <$STR(N2)>
mov G40 <$STR(N2)>
mov A46 <$GUILDNAME>
mov A47 <$USERNAME>
sendmsg 1 系统：行会别墅由<$GUILDNAME>的成员<$USERNAME>以<$STR(N2)>元宝的高价购得使用权，<$GUILDNAME>的所有成员均可免费进入！
messagebox 恭喜您购买到行会别墅的使用权。
sendmsg 6 提示：您当前的元宝数量为：<$GAMEGOLD>
close
break
#elsesay
您的元宝不够支付此次交易！\
<返回./@main>
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!