GOM引擎带几率抽奖脚本

[@MAIN]
<哈哈！没错，我就是勋章守护人/SCOLOR=250>\ \
<给我想要的东西,就可以在我这里抽取荣誉勋章/SCOLOR=254>\ \
每次抽奖需要消耗10万金币,金币只能靠打怪获得!\ \
<开 始 抽 奖/@Star>          <关 闭 抽 奖/@exit> \ \
<注:>不是百分百获得物品,有一定概率获取勋章失败!   

[@Star]
#If
CheckGold  100000
#act
#ELSEACT
MESSAGEBOX 你的金币不足，无法继续抽奖！
BREAK

#IF
random 5
#ACT
Take 金币 100000
GetRandomText ..\QuestDiary\荣誉勋章\金币抽奖物品.txt S$奖励物品
GIVE <$STR(S$奖励物品)> 1
SENDMSG 0  250 252 恭喜玩家【<$USERNAME>】使用金币抽奖获得【<$STR(S$奖励物品)>】！
GOTO @main
break

#if
#act
Take 金币 100000
SENDMSG 5 很遗憾，你本次抽奖未能获得物品，请再接再厉！
GOTO @main
break