天关_天界宝神-rtg11.txt

企业版传奇世界本

[@main]
#ACT
MOV S5 <COLOR=GREEN[]
INC S5 $HUMAN(TGM1)
INC S5 >[][]获得机率：<color=purple[]
INC S5 $HUMAN(TGX)
INC S5 >/<color=purple[]
INC S5 $HUMAN(TGS1)
INC S5 >
GOTO @main2

[@main2]
我是天关的宝物之神，掌管着天关宝物的爆出机率！\\
当前你的天关天宝是：<$STR(S5)>\\
怎么样？我说的准吧！你什么时候出，都是我说了算，最近天界\
也不太好混，到处需要打点耗消！所以呢，如果你给我点好处，\
我可以帮你提高这个宝物爆出的机率！<COLOR=GREEN 每提高1点需要6个元宝！>\\
<好，我要受贿你，帮我提高1点宝物爆出机率！/@提高>　<我要去举报你/@exit>



[@提高]
#ACT
DELAY 2 @提高1
#SAY
我是天关的宝物之神，掌管着天关宝物的爆出机率！\\
当前你的天关天宝是：<$STR(S5)>\\
<COLOR=red 你正在使用6个元宝对天宝神进行受贿中...>\\
<COLOR=red 请稍等片刻，等待天宝神的同意...>


[@提高1]
#IF
#ACT
CALCVAR HUMAN SCL = $HUMAN(TGS1)
CALCVAR HUMAN SCL - $HUMAN(TGX)
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKGAMEGOLD < 6
#ACT
MessageBox 你元宝都不够6个，如何来受贿我？
break
#IF
CHECKVAR HUMAN SCL < 3
#ACT
MessageBox 你目前的宝物爆出机率已经到最高了！\　\就剩最后2点机率了，你自己去努力一下吧！
break
#ACT
#IF
CHECKGAMEGOLD > 5
random 20
#ACT
GAMEGOLD - 6
CALCVAR HUMAN TGS1 - 1
SAVEVAR HUMAN TGS1 ..\QuestDiary\数据文件\TGS1.txt
SENDMSG 0 (*)[<$USERNAME>]在天关中用6个元宝受贿天界宝神！天界宝神将其天关宝物的爆出机率提高了1点！！
GOTO @main
break
#IF
CHECKGAMEGOLD > 5
random 1
#ACT
GAMEGOLD - 6
CALCVAR HUMAN TGS1 - 1
SAVEVAR HUMAN TGS1 ..\QuestDiary\数据文件\TGS1.txt
SENDMSG 5 (*)你用6个元宝受贿天界宝神！天界宝神将你的天关宝物的爆出机率提高了1点！！
GOTO @main
break
#ELSEACT
MessageBox 你元宝都不够6个，如何来受贿我？
break