;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntBookTranslate]
{
#say
You can now translate books with a 100% change of\
success!  100 Integral Charge\\
For which class is your book?\\
<[ Warrior Books ]/@IntBookTranslateWar>\
<[ Taoist Books ]/@IntBookTranslateTao>\
<[ Wizard Books ]/@IntBookTranslateWiz>\
<[ Back ]/@IntegralMainMenu>\

[@IntBookTranslateWar]
#say
<[ DestructiveSurge - Level 40 ]/@IntConvertBook(DestructSurge,DestructSurge(Manual))>\
<[ Interchange - Level 42 ]/@IntConvertBook(Interchange,Interchange(Manual))>\
<[ Defiance - Level 44 ]/@IntConvertBook(Defiance,Defiance(Manual))>\
<[ Beckon - Level 46 ]/@IntConvertBook(Beacon,Beacon(Manual))>\
<[ Might - Level 48 ]/@IntConvertBook(Might,Might(Manual))>\
<[ Assault - Level 50 ]/@IntConvertBook(Assault,Assault(Manual))>\
<[ Back ]/@IntegralMainMenu>\

[@IntBookTranslateTao]
#say
<[ Strength - Level 40 ]/@IntConvertBook(Strength,Strength(Manual))>\
<[ Transparency - Level 43 ]/@IntConvertBook(Transparency,Transparency(Manual))>\
<[ Celestial - Level 46 ]/@IntConvertBook(Celestial,Celestial(Manual))>\
<[ SummonTaoLord - Level 48 ]/@IntConvertBook(SummonTaoLord,SummonTaoLord(Manual))>\
<[ GreatTaoExplosion - Level 49 ]/@IntConvertBook(GtExplosion,GtExplosion(Manual))>\
<[ Back ]/@IntegralMainMenu>\

[@IntBookTranslateWiz]
#say
<[ ChainLightning - Level 40 ]/@IntConvertBook(ChainLight,ChainLight(Manual))>\
<[ MeteorShower - Level 43 ]/@IntConvertBook(MeteorShower,MeteorShower(Manual))>\
<[ Renounce - Level 46 ]/@IntConvertBook(Renounce,Renounce(Manual))>\
<[ Tempest - Level 49 ]/@IntConvertBook(Tempest,Tempest(Manual))>\
<[ FireTrail - Level 52 ]/@IntConvertBook(FireTrail,FireTrail(Manual))>\
<[ Back ]/@IntegralMainMenu>\

[@IntConvertBook()]
#ACT
   Mov        A1       %ARG(1)
   Mov        A2       %ARG(2)
#IF
   checkitem %A1 1
#ACT
   goto @CheckIntConvertBook1
#ELSESAY
You do not have that book!\
<[ Exit ]/@exit>\

[@CheckIntConvertBook1]
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckIntConvertBook2]
[@CheckIntConvertBook2()]
#IF
#ACT
   mov    A0      %ARG(1)
   mov    D2      %ARG(2)
   mov    D3      100
#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
   take   %A1   1
   give   %A2   1
   mov     A7  ""
   AddStr  A7 %USERNAME
   AddStr  A7 ","
   AddStr  A7 %D3
   AddStr  A7 ",BookConvert,"
   AddStr  A7 %A1
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
#SAY
Here is your new <$OUTPUT(A2)>!\
Your current Integral is {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\
#Elsesay
You do not have that book or\
You do not have enough Integral Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\

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