;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@CheckBoss]
{
#IF
#SAY
Hi, you can now check to see if the Boss\
you want is Alive.. saves running.. :)\
The Cost is 5 Integral\\
Select a Boss\\
<[ AncientEmperor ]/@CheckBoss1(AncientEmperor,ATKR2,5)>\
<[ AncientSoul ]/@CheckBoss1(AncientSoul,ATKR1,5)>\
<[ ApeKing ]/@CheckBoss1(ApeKing,D904,5)>\
<[ BlackKing ]/@CheckBoss1(BlackKing,D1305,5)>\
<[ BoarKing ]/@CheckBoss1(BoarKing,D705,5)>\
<[ BoneLord ]/@CheckBoss1(BoneLord,D605,5)>\
<[ DeadSoul ]/@CheckBoss1(DeadSoul,D2107,5)>\
<[ DemonicNecro ]/@CheckBoss1(DemonicNecro,D004,5)>\
<[ DemonicUnderlord ]/@CheckBoss1(DemonicUnderlord,D2004,5)>\
<[ DemonicUnderlord ]/@CheckBoss1(DemonicUnderlord,D2005,5)>\
<[ EvilCentipede ]/@CheckBoss1(EvilCentipede,D805,5)>\
<[ EvilEmperor ]/@CheckBoss1(EvilEmperor,D1406,5)>\
<[ ForbiddenKing ]/@CheckBoss1(ForbiddenKing,FBIKR,5)>\
<[ Ghoul ]/@CheckBoss1(Ghoul,D203,5)>\
<[ GreatDarkArachnid ]/@CheckBoss1(GreatDarkArachnid,D001,5)>\
<[ GreatNumaMonk ]/@CheckBoss(GreatNumaMonk,D002,5)>\
<[ MinotaurKing ]/@CheckBoss1(MinotaurKing,D1012,5)>\
<[ OmaKing ]/@CheckBoss1(OmaKing,10,5)>\
<[ RedMoonEvil ]/@CheckBoss1(RedMoonEvil,D905,5)>\
<[ ToxinOma ]/@CheckBoss1(ToxinOma,D2205,5)>\
<[ WoomaTaurus ]/@CheckBoss1(WoomaTaurus,D504,5)>\
<[ Tadanga ]/@CheckBoss1(Tadanga,D1506,5)>\
<[ ZumaTaurus ]/@CheckBoss1(ZumaTaurus,D1106,5)>\
<[ Demon ]/@CheckBoss1(Demon1,D2900,5)>\\
<[ Integral Main Menu ]/@IntegralMainMenu>\\\

[@CheckBoss1()]
#ACT
   MOV  A0   %ARG(1)
   MOV  A1   %ARG(2)
   MOV  D3   %ARG(3)
#SAY
Are you sure?\
<[ Check It ]/@CheckBoss12>\
<[ Back ]/@IntegralMainMenu>\

[@CheckBoss12]
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckBoss22]
[@CheckBoss22()]
#IF
#ACT
   mov    D2      %ARG(2)
#IF
   Esmall D3 %D2
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   mov   A8     %A9
   dec   D2     %D3
   mov   D4     %D2
   FormatStr "FLD_INTEGRAL='%s'" %D4
   UPDATEVALUESQL "TBL_INTEGRAL" %A8 %A9
   mov     A7  ""
   AddStr  A7 %USERNAME
   AddStr  A7 ",CheckBoss,"
   AddStr  A7 %A0
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#Elsesay
You do not have enough Integral Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>
#ELSEACT
Break

#IF
Checkmonmap %A1 1 %A0
#SAY
<$OUTPUT(A0)> {FCOLOR/10}Alive{FCOLOR/12}\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>
#ELSESAY
<$OUTPUT(A0)> {FCOLOR/1}Dead{FCOLOR/12}\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>

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