赌东西脚本

红鹰支付6s98

[@main]
#IF
#ACT
CloseBigDialogBox
#SAY
<装备太多没地方存，高级装备不想出售，不如来赌一把！/SCOLOR=250>\ \
<规则说明/SCOLOR=249>：<包裹内必须有你想赌的装备/SCOLOR=254>\
　　　　　点击开始赌博后输入物品名称\
基础赌博几率<50%/SCOLOR=254>，获得<两/SCOLOR=253>件同等的装备(收费<10000/SCOLOR=243>元宝)\
高级赌博几率<30%/SCOLOR=254>，获得<三/SCOLOR=253>件同等的装备(收费<30000/SCOLOR=243>元宝)\ \
◆<◇/SCOLOR=242>◆<基础赌博[url=]/@@InPutString51>◆<◇/SCOLOR=242[/url]>◆          ◆<◇/SCOLOR=242>◆<高级赌博[url=]/@@InPutString52>◆<◇/SCOLOR=242[/url]>◆

[@CallInPutString51]
#IF
CheckTextList .\QuestDiary\暗黑007\不允许赌博.txt <$STR(S51)>
#Act
MESSAGEBOX 该物品不允许用来赌博，换其他的物品吧！
BREAK
#IF
RANDOM 3
CHECKGAMEGOLD > 9999
checkitem <$STR(S51)> 1
#act
GAMEGOLD - 10009
take <$STR(S51)> 1
give <$STR(S51)> 2
sendmsg 7 运气太好了，恭喜你获得了一件：[<$STR(S51)>]
GuildNoticeMsg 249 251 玩家(%s)在“赌赌赌”那里参加物品搏一搏活动，获得了一件：[<$STR(S51)>]
goto @main
BREAK
#IF
CHECKGAMEGOLD > 9999
checkitem <$STR(S51)> 1
#act
GAMEGOLD - 10000
take <$STR(S51)> 1
sendmsg 5 你的运气不太好，就当你为国贡献了！
goto @main
BREAK
#ELSEACT
sendmsg 5 操作失败：可能你输入的字符不符合物品名称，或者你的元宝不足10000个！

[@CallInPutString52]
#IF
CheckTextList .\QuestDiary\暗黑007\不允许赌博.txt <$STR(S52)>
#Act
MESSAGEBOX 该物品不允许用来赌博，换其他的物品吧！
BREAK
#IF
RANDOM 4
CHECKGAMEGOLD > 29999
checkitem <$STR(S52)> 1
#act
GAMEGOLD - 30000
take <$STR(S52)> 1
give <$STR(S52)> 3
sendmsg 7 运气太好了，恭喜你获得了两件：[<$STR(S52)>]
GuildNoticeMsg 249 251 玩家(%s)在“赌赌赌”那里参加物品搏一搏活动，获得了两件：[<$STR(S52)>]
goto @main
BREAK
#IF
CHECKGAMEGOLD > 29999
checkitem <$STR(S52)> 1
#act
GAMEGOLD - 30000
take <$STR(S52)> 1
sendmsg 5 你的运气不太好，就当你为国贡献了！
goto @main
BREAK
#ELSEACT
sendmsg 5 操作失败：可能你输入的字符不符合物品名称，或者你的元宝不足30000个！
- 本文出自红鹰gm论坛，原文地址：http://www.whsfzx.com/thread-19394-1-1.html