GOM引擎传奇元宝商行脚本

admin

为自己的传奇版本新增一个功能咯，看起来蛮有特色的样子！

[@main]
#IF
EQUAL G11 0
#act
MOV G11 1
MOV G12 50000000
MOV G13 0


#IF
#ACT
CloseBigDialogBox
OPENMERCHANTBIGDLG 14 382 1 4 1 1 1 488 44
#SAY
   

<>　 <因老板元宝稀缺困恼和散人打金玩家的权益，特此推出限购商行/SCOLOR=250>
<>　 <本商行可使用RMB点限购元宝和回收元宝，单区购买额度为500万/SCOLOR=254>
<>　 <玩家购买元宝数量等于提供给玩家回收的数量，由此循环！/SCOLOR=254>
<>　 <商行回收价格为600万元宝=100RMB，够买元宝为100RMB=500万元宝/SCOLOR=253>
<>　 <新区开区后开启商行/SCOLOR=253>  

<>　 <购买元宝/@购111> <10RMB点=50万元宝/SCOLOR=250>   <当前可够买额度为：<$STR(G12)>元宝/SCOLOR=251>
<>　 <购买元宝/@购110> <100RMB点=500万元宝/SCOLOR=250>   

<>　 <回收元宝/@回121> <60万元宝=10RMB点/SCOLOR=250>   <当前可回收额度为：<$STR(G13)>元宝/SCOLOR=251>
<>　 <回收元宝/@回120> <600万元宝=100RMB点/SCOLOR=250>   


[@购111]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：　测试区无法使用此功能!
break

#IF
CHECKGamePoint < 9
#act
MESSAGEBOX [操作失败]：　你当前Rmb点不够.
BREAK

#IF
SMALL G12 500000
#act
MESSAGEBOX [操作失败]：　商行当前购买额度不够.
BREAK

#IF
LARGE G12 499999
CHECKGamePoint > 9
#act
GameGold + 500000
GamePoint - 10
DEC G12 500000
INC G13 500000
INC G16 10
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行购买50万元宝！
Break


[@购110]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：　测试区无法使用此功能!
break

#IF
CHECKGamePoint < 99
#act
MESSAGEBOX [操作失败]：　你当前Rmb点不够.
BREAK

#IF
SMALL G12 5000000
#act
MESSAGEBOX [操作失败]：　商行当前购买额度不够.
BREAK

#IF
LARGE G12 4999999
CHECKGamePoint > 99
#act
GameGold + 5000000
GamePoint - 100
DEC G12 5000000
INC G13 5000000
INC G16 100
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行购买500万元宝！
Break

[@回121]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：　测试区无法使用此功能!
break

#IF
CHECKGameGold < 600000
#act
MESSAGEBOX [操作失败]：　你当前元宝不够.
BREAK

#IF
SMALL G13 600000
#act
MESSAGEBOX [操作失败]：　商行当前可回收额度不足.
BREAK

#IF
LARGE G13 599999
CHECKGameGold > 599999
#act
GameGold - 600000
GamePoint + 10
INC G12 600000
DEC G13 600000
INC G17 10
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行回收60万元宝获得10RMB点！
Break

[@回120]
#if
CheckContainsText <$SERVERNAME> 测试
#ACT
MESSAGEBOX [操作失败]：　测试区无法使用此功能!
break

#IF
CHECKGameGold < 6000000
#act
MESSAGEBOX [操作失败]：　你当前元宝不够.
BREAK

#IF
SMALL G13 6000000
#act
MESSAGEBOX [操作失败]：　商行当前可回收额度不足.
BREAK

#IF
LARGE G13 5999999
CHECKGameGold > 5999999
#act
GameGold - 6000000
GamePoint + 100
INC G12 6000000
DEC G13 6000000
INC G17 100
goto @main
SENDMSG 0 恭喜玩家：[<$USERNAME>]通过商行回收600万元宝获得100RMB点！
Break

danieljobs

既然你诚信诚意的推荐了，那我就勉为其难的看看吧！淘传奇gm基地不走平凡路。

371514614

好东西啊，值得收藏

wumingliu

好东西啊，值得收藏

yyaimaomi

楼主太厉害了！楼主，I*老*虎*U！我觉得淘传奇gm基地真是个好地方！