[GOM]悬赏脚本

爱上版本库

[@MAIN]
#IF
#ACT
OPENMERCHANTBIGDLG 4 0 1 4 -10 -60 0
#SAY
<IMG:2:4:492:-16/@EXIT>\
　\
　\
　                    <堂下/SCOLOR=243>{<$USERNAME>/SCOLOR=249}<:/SCOLOR=243>\
　                    <来开封府有何冤情,不用害怕,速速讲来./SCOLOR=243>\
　                    <我包拯会为你主持公道的./SCOLOR=243>\
　\
　\
　                    <不过办案也需要经费,所以状告之人必须拿出点诚意来./SCOLOR=243>\
　                    <钱不论多少都出自自愿,出钱多折当然办案的人会麻利点./scolor=243>\
　                    <这里有几种货币可以流通,你可以任选其中一种支付./scolor=243>\
　                    <第一种:/SCOLOR=243><元宝>\
　<开封府衙,有冤伸冤/SCOLOR=239>   <第二种:/SCOLOR=243><金币>\
　<有仇报仇.尽量来我/SCOLOR=239>   <第三种:/SCOLOR=243><声望>\
　<这里状告吧./SCOLOR=239>\
　\
　                    <我要伸冤/@伸冤>    \
　    <【退出】/@EXIT>

[@伸冤]
#IF
#ACT
OPENMERCHANTBIGDLG 4 3 1 4 -10 -60 0
#SAY
<IMG:2:4:386:4/@EXIT>\
　\
　　<悬赏可以选择一下几种货币！进行发布./SCOLOR=251>\
　  \
　　<元宝悬赏/@类型元宝>    <金币悬赏/@类型金币>    <声望悬赏/@类型声望>\


[@类型元宝]
#IF
#ACT
MOV S$货币类型 元宝
GOTO @对话检测

[@类型金币]
#IF
#ACT
MOV S$货币类型 金币
GOTO @对话检测

[@类型声望]
#IF
#ACT
MOV S$货币类型 声望
GOTO @对话检测

[@对话检测]
#IF
#ACT
OPENMERCHANTBIGDLG 4 3 1 4 -10 -60 0
#SAY
<IMG:2:4:386:4/@EXIT>\
　\
　　<堂下/SCOLOR=243>{<$USERNAME>/SCOLOR=249}<:/SCOLOR=243>\
　　<你选择的货币为:/SCOLOR=243> {<$STR(S$货币类型)>/SCOLOR=249}\
　　<您想状告何人速速道来./SCOLOR=243>\
　　\
　　\
　　\
　　<我要状告/@@InPutString80(请输入,需要通缉之人名字)>

[@InPutString80]
#IF
EQUAL S80
#ACT
MESSAGEBOX 您的输入有误
BREAK

#IF
EQUAL S80 <$USERNAME>
#ACT
MESSAGEBOX 对不起,不能够自己通缉自己!
BREAK

#IF
<$STR(S80)>.checkonline
#ACT
GOTO @金额对比
#ELSEACT
MESSAGEBOX 对不起.目标没有在线,无法进行悬赏！

[@金额对比]
#IF
#ACT
OPENMERCHANTBIGDLG 4 3 1 4 -10 -60 0
#SAY
<IMG:2:4:386:4/@EXIT>\
　\
　　<堂下/SCOLOR=243>{<$USERNAME>/SCOLOR=249}<:/SCOLOR=243>\
　　<你选择的货币为:/SCOLOR=243> {<$STR(S$货币类型)>/SCOLOR=249}\
　　<您想状告何人速速道来./SCOLOR=243>\
　　\
　　<状告:/SCOLOR=243>\
　　\
　　<悬赏金额/@@InPutInteger32(请输入,悬赏奖金金额)>


[@InPutInteger32]
#IF
large N32 0
#ACT
GOTO @通过1
#ELSEACT
MESSAGEBOX 对不起\\您的输入有误！

[@通过1]
#IF
EQUAL S$货币类型 元宝
#ACT
GOTO @元宝悬赏
break

#IF
EQUAL S$货币类型 金币
#ACT
GOTO @金币悬赏
break

#IF
EQUAL S$货币类型 声望
#ACT
GOTO @声望悬赏
break


[@元宝悬赏]
#IF
CHECKGAMEGOLD ? <$STR(N32)>
#ACT
DELAYGOTO  20 @全局对比
#ELSEACT
MESSAGEBOX 对不起,您的元宝不足以支付,悬赏费用！

[@金币悬赏]
#IF
CHECKGOLD  <$STR(N32)>
#ACT
DELAYGOTO  20 @金币全局
#ELSEACT
MESSAGEBOX 对不起,您的金币不足以支付,悬赏费用！

[@声望悬赏]
#IF
CHECKCREDITPOINT > <$STR(N32)>
#ACT
DELAYGOTO  20 @声望全局
#ELSEACT
MESSAGEBOX 对不起,您的声望不足以支付,悬赏费用！

游客，如果您要查看本帖隐藏内容请回复

lou8323883

这个挺有意思