;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntCashInt]
{
#IF
#SAY
I can transfer Cash to Integral\
250,000 Gold = 20 Integral\
<[ Transfer 62,500 Gold ]/@CheckIntCashInt(62500,5)> - 5 Integral\
<[ Transfer 250,000 Gold ]/@CheckIntCashInt(250000,20)> - 20 Integral\
<[ Transfer 1,250,000 Gold ]/@CheckIntCashInt(1250000,100)> - 100 Integral\
<[ Transfer 2,500,000 Gold ]/@CheckIntCashInt(2500000,200)> - 200 Integral\
<[ Transfer 6,250,000 Gold ]/@CheckIntCashInt(6250000,500)> - 500 Integral\
<[ Transfer 12,500,000 Gold ]/@CheckIntCashInt(12500000,1000)> - 1000 Integral\
<[ Transfer 25,000,000 Gold ]/@CheckIntCashInt(25000000,2000)> - 2000 Integral\\
<[ Back ]/@IntegralMainMenu>\\

[@CheckIntCashInt()]
#ACT
   Mov  N1 %ARG(1)
   Mov  D5 %ARG(2)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckIntCashInt1]
[@CheckIntCashInt1()]
#ACT
   Mov D2 %ARG(2)
#IF
   CheckGold %N1
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   Mov   A8     %A9
   Inc   D2     %D5
   FormatStr "FLD_INTEGRAL='%s'" %D2
   UPDATEVALUESQL "TBL_INTEGRAL" %A8 %A9
   Take Gold %N1
   Mov     A7  ""
   AddStr  A7 %USERNAME
   AddStr  A7 ",-"
   AddStr  A7 %N1
   AddStr  A7 ",-"
   AddStr  A7 %D5
   AddStr  A7 ",-"
   AddStr  A7 %D2
   AddStr  A7 ",CashTransfer,"
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#SAY
You have transfered your Cash to Integral\\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\
#ELSESAY
You do not have enough Cash Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;