;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntRemoveDis]
{
#SAY
Want to remove the DIS stats from your items?\
Price: 250 Integral{FCOLOR/12}\
You must be wearing the item to continue!\
Please choose which item:\\
<[ Helmet ]/@ClearClothes(4,Helmet)>\
<[ Armour ]/@ClearClothes(0,Armour)>\
<[ FootWear ]/@ClearClothes(10,FootWear)>\
<[ Bracelet(L) ]/@ClearClothes(5,Bracelet(L))>\
<[ Bracelet(R) ]/@ClearClothes(6,Bracelet(R))>\\
<[ Back ]/@IntegralMainMenu>\

[@ClearClothes()]
#ACT
   mov  D0  %ARG(1)
   mov  A0  %ARG(2)
   goto @CheckExIntClearCl
[@CheckExIntClearCl]
#SAY
Are you sure?\
<Yes/@CheckExIntClearCl1>\
<Back/@IntegralMainMenu>

[@CheckExIntClearCl1]
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckExIntClearCl2]
[@CheckExIntClearCl2()]
#IF
#ACT
   mov    A0      %ARG(1)
   mov    D2      %ARG(2)
   mov    D3      250
#IF
   Esmall D3 %D2
   HLSCRIPTCMD CHECKISTAKEITEM %D0  
#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
   HLSCRIPTCMD ITEMREMAKEEQU %D0 6 0
   mov     A7  ""
   AddStr  A7 %USERNAME
   AddStr  A7 ","
   AddStr  A7 %D3
   AddStr  A7 ",RemoveDIS,"
   AddStr  A7 %D0
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#SAY
I have washed the DIS stats from your <$OUTPUT(A0)>!\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>
#Elsesay
You need to have the item equiped or\
You do not have enough Integral Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>

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