传奇世界中州轮回使者(4)

[@传世宝卡]
游戏中杀怪获得的“<COLOR=GREEN 传世宝卡>”可以拿到我这里来兑换奖励，可\
随机兑换到：<COLOR=red 元宝、积分、极品修炼值、声望>！能兑换到什么和\
能兑换多少就要看你的运气了！\\
我要<使用传世宝卡兑换奖励/@兑换宝贝>\\
\\
　　　　　　　　　　　　　　　　　　　　　　　　　　<返回/@main>

[@兑换宝贝]
#ACT
checkitembox 请放入传世宝卡 1 119
break

[@getboxitem119]
#IF
equal $CHECKBOXITEM.NAME 传世宝卡
#ACT
take 传世宝卡 1
MOVR P1 4
INC P1 1
MOV S0 @baoksdui
INC S0 $STR(P1)
GOTO $STR(S0)
break
#ELSEACT
MessageBox 对不起，你放入的物品不是传世宝卡，兑换失败。
break

[@baoksdui1]
#IF
RANDOM 500
#ACT
GAMEGOLD + 30
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝30个！
break
#IF
RANDOM 200
#ACT
GAMEGOLD + 15
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝15个！
break
#IF
RANDOM 160
#ACT
GAMEGOLD + 8
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝8个！
break
#IF
RANDOM 100
#ACT
GAMEGOLD + 5
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝5个！
break
#IF
RANDOM 50
#ACT
GAMEGOLD + 3
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝3个！
break
#IF
RANDOM 10
#ACT
GAMEGOLD + 2
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝2个！
break
#IF
RANDOM 3
#ACT
GAMEGOLD + 1
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了元宝1个！
break
#IF
RANDOM 1
#ACT
CALCVAR HUMAN JFD + 1
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+1
break

[@baoksdui2]
#IF
RANDOM 100
#ACT
CALCVAR HUMAN JFD + 30
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了游戏积分+30
break
#IF
RANDOM 30
#ACT
CALCVAR HUMAN JFD + 10
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 0 (*)恭喜[<$USERNAME>]在红袖处使用传世宝卡成功兑换到了游戏积分+10
break
#IF
RANDOM 15
#ACT
CALCVAR HUMAN JFD + 5
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+5
break
#IF
RANDOM 5
#ACT
CALCVAR HUMAN JFD + 3
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+3
break
#IF
RANDOM 1
#ACT
CALCVAR HUMAN JFD + 1
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了游戏积分+1
break

[@baoksdui3]
#IF
RANDOM 50
#ACT
JPPOINT + 20000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+20000
break
#IF
RANDOM 15
#ACT
JPPOINT + 15000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+15000
break
#IF
RANDOM 5
#ACT
JPPOINT + 10000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+5000
break
#IF
RANDOM 1
#ACT
JPPOINT + 5000
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了极品修炼值+5000
break

[@baoksdui4]
#IF
RANDOM 100
#ACT
CREDITPOINT + 20
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+20
break
#IF
RANDOM 30
#ACT
CREDITPOINT + 10
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+10
break
#IF
RANDOM 15
#ACT
CREDITPOINT + 5
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+5
break
#IF
RANDOM 5
#ACT
CREDITPOINT + 2
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+2
break
#IF
RANDOM 1
#ACT
CREDITPOINT + 1
SENDMSG 5 (*)恭喜你成功使用传世宝卡兑换到了声望值+1
break