;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

%100
+52

[@main]
#IF
checkpkpoint 2

#SAY
#INCLUDE [..\Market_Def\00BuySell_Std.txt] @Convert_BuySellStd_PK

#ELSESAY
Hi, My name is {FCOLOR/10}<$NPCNAME>{FCOLOR/12}, how can I help you?\
<[ Sell ]/@sell> Booty\
<[ Exit ]/@exit>\

#IF
ISADMIN
#SAY
<[ Check Boss ]/@CheckBoos>

[@CheckBoos]
#IF
#SAY
Which Boss would you like to Check?\\
<[ Ghoul ]/@BossConfirmInt(Ghoul,D203)>\
<[ GreatNumaMonk ]/@BossConfirmInt(GreatNumaMonk,D002)>\
<[ OmaKing ]/@BossConfirmInt(OmaKing,10)>\
<[ WoomaTaurus ]/@BossConfirmInt(WoomaTaurus,D504)>\
<[ BoarKing ]/@BossConfirmInt(BoarKing,D705)>\
<[ BoneLord ]/@BossConfirmInt(BoneLord,D605)>\
<[ EvilCentipede ]/@BossConfirmInt(EvilCentipede,D805)>\
<[ GreatDarkArachnid ]/@BossConfirmInt(GreatDarkArachnid,D001)>\
<[ ApeKing ]/@BossConfirmInt(ApeKing,D904)>\
<[ MinotaurKing ]/@BossConfirmInt(MinotaurKing,D1012)>\
<[ ZumaTaurus ]/@BossConfirmInt(ZumaTaurus,D1106)>\
<[ BlackKing ]/@BossConfirmInt(BlackKing,D1305)>\
<[ ForbiddenKing ]/@BossConfirmInt(ForbiddenKing,FBIKR)>\
<[ AncientSoul ]/@BossConfirmInt(AncientSoul,ATKR1)>\
<[ RedMoonEvil ]/@BossConfirmInt(RedMoonEvil,D905)>\
<[ DemonicUnderlord ]/@BossConfirmInt(DemonicUnderlord,D2004)>\
<[ MagicGate ]/@BossConfirmInt(MagicGate,D002)>\
<[ DeadSoul ]/@BossConfirmInt(DeadSoul,D2107)>\
<[ DemonicNecro ]/@BossConfirmInt(DemonicNecro,D004)>\\
<[ Integral Main Menu ]/@IntegralMainMenu>\\\

[@BossConfirmInt()]
#ACT
   Mov  A3  %ARG(1)
   Mov  A4  %ARG(2)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_INTEGRAL"  [@BossConfirmInt1]

[@BossConfirmInt1()]
#ACT
   mov    D8      %ARG(1)
#SAY
You have: {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/12} Integral\
This Process will cost you {FCOLOR/1}2{FCOLOR/12} Integral, are you sure?\\
<[ Yes.. I need to Know! ]/@BossConfirmInt2>\
<[ Integral Main Menu ]/@IntegralMainMenu>\\\


[@BossConfirmInt2]
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@BossConfirmInt3]
[@BossConfirmInt3()]
#IF
#ACT
   Mov    D2    %ARG(2)
   Mov    D3    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 ","
   AddStr  A7 %D3
   AddStr  A7 ","
   AddStr  A7 %A0
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
   Goto  @CheckTheBoss
#ELSESAY
You do not have enough Integral Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\\

[@CheckTheBoss]
#IF
checkmonmap %A4 1 %A3
#SAY
The {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12} is {FCOLOR/10}Alive{FCOLOR/12}!\\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Check Another ]/@CheckBoos>\
<[ Back ]/@IntegralMainMenu>\\\

#ELSESAY
The {FCOLOR/10}<$OUTPUT(A3)>{FCOLOR/12} is {FCOLOR/10}Dead{FCOLOR/12}!\\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Check Another ]/@CheckBoos>\
<[ Back ]/@IntegralMainMenu>\\\





[@sell]
#SAY
#INCLUDE [..\Market_Def\00BuySell_Std.txt] @Convert_BuySellStd_Sell

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;