(@@传奇gm命令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)在激情赌装备那里参加物品搏一搏活动，获得了两件：[$ST传奇地图补丁R(S52)] goto @main BREAK #IF CHECKGAMEGOLD 2999 checkitem $ST超级变态传奇私服R(S52) 1 #act GAMEGOLD - 3000 take $STR(S52) 1 sendmsg 5 你的运气不太好，就当你为国贡献了！ goto @main BREAK #ELSEACT sendmsg 5 操作失败：可能你输入的字符不符合物品名称，或者你的元宝不足3000个！