;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntFameInt]
{
#IF
#say
I can transfer Fame Points to Integral\
5 Points = 1 Integral\
<[ Transfer 5 Points ]/@CheckIntFameInt(5,1)>\
<[ Transfer 10 Points ]/@CheckIntFameInt(10,2)>\
<[ Transfer 20 Points ]/@CheckIntFameInt(20,4)>\
<[ Transfer 30 Points ]/@CheckIntFameInt(30,6)>\
<[ Transfer 50 Points ]/@CheckIntFameInt(50,10)>\
<[ Back ]/@IntegralMainMenu>\\
#ELSESAY

[@CheckIntFameInt()]
#ACT
   Mov  D3 %ARG(2)
   Mov  D5 %ARG(1)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckIntFameInt1]
[@CheckIntFameInt1()]
#IF
   CheckFame
#ACT
   mov    D2      %ARG(2)
   Mov D4 %P9
#IF
   ELarge D4 %D5
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   mov   A8     %A9
   Inc   D2     %D3
   mov   D1     %D2
   FormatStr "FLD_INTEGRAL='%s'" %D1
   UPDATEVALUESQL "TBL_INTEGRAL" %A8 %A9
   DEC D4 %D5
   SetFame %D4
   mov     A7  ""
   AddStr  A7 %USERNAME
   AddStr  A7 ",-"
   AddStr  A7 %D3
   AddStr  A7 ",FameTransfer,"
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#SAY
You have transfered your Fame to Integral\\
Your current Integral is {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\
#ELSESAY
You do not have enough Fame Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\

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