;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntRedShout]
{
#IF
#ACT
mov  A0 ""
mov  D7 20
mov  A7 ""
#SAY
Fancy Shouting Like a GM?\
{FCOLOR/10}Price: <$OUTPUT(D7)> Integral{FCOLOR/12}\
<[ I want to SHOUT ]/@RedShout>\
<[ Back ]/@IntegralMainMenu>\

[@RedShout]
#IF
#SAY
Please Enter what you want to SHOUT\
<[ Enter Shout ]/@@RedShout1>\
<[ Back ]/@IntegralMainMenu>\

[@@RedShout1]
#ACT
   mov  A0  %INPUTSTR
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckExIntRedShout1]
[@CheckExIntRedShout1()]
#IF
#ACT
   mov    D5      %ARG(2)
   mov    A2      %USERNAME
#IF
   Esmall D7 %D5
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   mov   A8     %A9
   dec   D5     %D7
   mov   D4     %D5
   FormatStr "FLD_INTEGRAL='%s'" %D4
   UPDATEVALUESQL "TBL_INTEGRAL" %A8 %A9
   lineMsg [Grobal] "(!)<$OUTPUT(A2)> (Integral) : <$OUTPUT(A0)>"  
   AddStr  A7 %USERNAME
   AddStr  A7 ","
   AddStr  A7 %D7
   AddStr  A7 ",RedShout,"
   AddStr  A7 %A0
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#SAY
Shout Compeleted\\
You have spent {FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12} Integral\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>
#ELSESAY
You do not have enough Integral Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;