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

[@main2]
我是天關(guān)的寶物之神，掌管著天關(guān)寶物的爆出機(jī)率！\\
當(dāng)前你的天關(guān)天寶是：<$STR(S5)>\\
怎么樣？我說的準(zhǔn)吧！你什么時候出，都是我說了算，最近天界\
也不太好混，到處需要打點耗消！所以呢，如果你給我點好處，\
我可以幫你提高這個寶物爆出的機(jī)率！<COLOR=GREEN 每提高1點需要6個元寶！>\\
<好，我要受賄你，幫我提高1點寶物爆出機(jī)率！/@提高>　<我要去舉報你/@exit>



[@提高]
#ACT
DELAY 2 @提高1
#SAY
我是天關(guān)的寶物之神，掌管著天關(guān)寶物的爆出機(jī)率！\\
當(dāng)前你的天關(guān)天寶是：<$STR(S5)>\\
<COLOR=red 你正在使用6個元寶對天寶神進(jìn)行受賄中...>\\
<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 你目前的寶物爆出機(jī)率已經(jīng)到最高了！\　\就剩最后2點機(jī)率了，你自己去努力一下吧！
break
#ACT
#IF
CHECKGAMEGOLD > 5
random 20
#ACT
GAMEGOLD - 6
CALCVAR HUMAN TGS1 - 1
SAVEVAR HUMAN TGS1 ..\QuestDiary\數(shù)據(jù)文件\TGS1.txt
SENDMSG 0 (*)[<$USERNAME>]在天關(guān)中用6個元寶受賄天界寶神！天界寶神將其天關(guān)寶物的爆出機(jī)率提高了1點！！
GOTO @main
break
#IF
CHECKGAMEGOLD > 5
random 1
#ACT
GAMEGOLD - 6
CALCVAR HUMAN TGS1 - 1
SAVEVAR HUMAN TGS1 ..\QuestDiary\數(shù)據(jù)文件\TGS1.txt
SENDMSG 5 (*)你用6個元寶受賄天界寶神！天界寶神將你的天關(guān)寶物的爆出機(jī)率提高了1點！！
GOTO @main
break
#ELSEACT
MessageBox 你元寶都不夠6個，如何來受賄我？
break