给你的传奇里添加特色装备赌博脚本只能HERO引擎使用

(@@InPutString @@InPutInteger)
[@main]
#IF
#ACT
CloseBigDialogBox
#SAY
<装备太多没地方存，高级装备不想出售，不如来赌一把！/SCOLOR=250>

<规则说明/SCOLOR=249>：<包裹内必须有你想赌的装备/SCOLOR=254>
　　　　　点击开始赌博后输入物品名称
　　　　　基础赌博几率<50%/SCOLOR=254>，获得<两/SCOLOR=253>件同等的装备(收费<1000/SCOLOR=243>元宝)
　　　　　高级赌博几率<30%/SCOLOR=254>，获得<三/SCOLOR=253>件同等的装备(收费<3000/SCOLOR=243>元宝)

◆<◇/SCOLOR=242>◆<基础赌博/@@InPutString51>◆<◇/SCOLOR=242>◆          ◆<◇/SCOLOR=242>◆<高级赌博/@@InPutString52>◆<◇/SCOLOR=242>◆


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


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

激动人心，无法言表！

强烈支持楼主ing……

激动人心，无法言表！

太生气了，无法HOLD啦 >_<......

我只是路过打酱油的。

淡定，淡定，淡定……

淡定，淡定，淡定……

我只是路过打酱油的。

感恩无私的分享与奉献 :)