爱上版本库 发表于 2024-1-31 17:23:59

[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
DELAYGOTO20 @全局对比
#ELSEACT
MESSAGEBOX 对不起,您的元宝不足以支付,悬赏费用!

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

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




**** Hidden Message *****



页: [1]
查看完整版本: [GOM]悬赏脚本