|
|
(@@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个！
|
|
