;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntegralMainMenu]
{
#IF
#ACT
   Mov A0 %USERNAME
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_INTEGRAL"  [@IntegralMainMenu1]

[@IntegralMainMenu1()]
#IF
Equal A0 "Warrior"
Or Equal A0 "BigA"
Or Equal A0 "idaBigA"
Or Equal A0 "Sting"
Or Equal A0 "Poison"

#SAY
<[ Show Bosses ]/@ShowBosses>\
<[ Show Players ]/@ShowPlayers>\\\

#IF
#ACT
   mov    D8      %ARG(1)
#SAY
{FCOLOR/10}Hello! Welcome to the Sting Integral System\
You have: {FCOLOR/1}<$OUTPUT(D8)>{FCOLOR/10} Integral\
\
{FCOLOR/1}Item Services:{FCOLOR/12}\
<[ BlackMarket ]/@CALLIntJifenShop>\                                                            ;Black Market                  Done
<[ Item Engraving ]/@CALLIntJifenEngraver>\                                                     ;Item Engraving                Done
<[ Armour Dye ]/@CALLIntArmorDye>\                                                              ;Armour Dye                    Done
<[ Equipment Drop Protection ]/@CALLIntItemPro>\                                                ;Drop Protection               Done
<[ Sparkly Jewels ]/@CALLIntBeautyJewel>\                                                       ;Sparkly Jewels                Done
<[ Remove DIS Stats ]/@CALLIntRemoveDis>\                                                       ;Remove DIS Stats              Done
<[ Book Translating - 100% Success ]/@CALLIntBookTranslate>\                                    ;Book Translate                Done
\                  
{FCOLOR/1}Personal Services:{FCOLOR/12}\
<[ Spell Upgrade ]/@CALLIntMagicLevel1> - 1 to 10\                                              ;Spell Upgrade 1 > 10          Done
<[ Teleporter ]/@CALLIntMapMove>\                                                               ;Map Move                      Done
<[ Buy New Horse ]/@CALLIntNewHorse>\                                                           ;Horse Buy                     Done
<[ Reduce PK Points ]/@CALLIntClearPK>\                                                         ;Reduce PK Points              Done
<[ Sting Red Shouter ]/@CALLIntRedShout>\                                                       ;Red Shout                     Done
<[ Change Sex ]/@CALLIntChangeSex>\                                                             ;Change Sex   
<[ EXP Boost 50% ]/@CALLIntEXP>\                                                             	;EXP Boost                    Done
<[ EXP Boost 100% ]/@CALLIntEXPHigh>\                                                             	;EXP Boost                    Done
<[ EXP Boost 200% ]/@CALLIntEXPHigher>\                                                             	;EXP Boost                    Done
{FCOLOR/10}[ VIP System ]{FCOLOR/12} - Not Currently Active\;/@CALLIntVIPSystem>\              ;VIP System                    
\
{FCOLOR/1}Bureau de Change{FCOLOR/12}\
<[ Integral And Scrolls ]/@CALLIntIntExchange>\                                                 ;Integral Exchange (Scroll)    Done
<[ Integral And Fame ]/@CALLIntFameIntegral>\                                                   ;Integral Exchange (Fame)      Done
<[ Integral And Booty ]/@CALLIntBootyIntegral> \                                                 ;Integral Exchange (Booty)     Done     
<[ Integral And Cash ]/@CALLIntCASHIntegral> \                                                 ;Integral Exchange (Booty)     Done     
;{FCOLOR/10}[ Integral And Experience ]{FCOLOR/12} - Not Currently Active\;/@CALLIntIntegralExp> ;Integral Exchange (Exp)       
\
{FCOLOR/1}Misc{FCOLOR/12}\
;<[ PK Battle ]/@CALLIntPKBattle>\                                                               ;PK Battle                     Done
<[ Check Boss ]/@CALLIntCheckBoss>\                                                             ;Check Boss                    Done
;<[ Change Weather ]/@CALLIntWeather>\                                                           ;Change Weather                Done
<[ Mob Rental ]/@CALLIntRentMob>\                                                               ;Mob Rental                    
<[ Warp Gate ]/@CALLIntWarpMove>\                                                               ;Warp Gate Scroll              Done
<[ Travelers Scroll ]/@CALLIntTraveller>\                                                       ;Travellers Scroll             Done

<[ Special Repair Scroll ]/@CALLIntSRScroll>\                                                   ;SR Scroll                     Done

<[ Refine Scroll ]/@CALLIntRefineScroll>\                                                       ;Refine Scroll                 Done

<[ Storage Scroll ]/@CALLIntStorageScroll>\                                                     ;Storage Scroll                Done

<[ Integral System Help ]/@CALLIntegralHelp>\\                                                  ;Integral Help                 Done


;;;;;;;;;;;;;;;;;;;;;;;;;;----------Calls------
----;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;------Item Services------;;;;;;;;;;;;;;;;;;;;;;;;;;


[@CALLIntJifenShop]
#CALL [IntegralSystem\IntShop.txt] @JifenShop                                ;Black Market                  Done

[@CALLIntJifenEngraver]
#CALL [IntegralSystem\IntEngraver.txt] @IntEngraver                          ;Integral Engraver             Done

[@CALLIntArmorDye]
#CALL [IntegralSystem\IntDye.txt] @IntDye                                    ;Armour Dyeing                 Done

[@CALLIntItemPro]
#CALL [IntegralSystem\IntItemProte.txt] @IntItemProte                        ;Drop Protection               Done

[@CALLIntBeautyJewel]
#CALL [IntegralSystem\IntBeautyJewel.txt] @intBeautyJewel                    ;Sparkly Jewels                Done

[@CALLIntRemoveDis]
#CALL [IntegralSystem\IntRemoveDis.txt] @IntRemoveDis                        ;Remove DIS Stats              Done

[@CALLIntBookTranslate]
#CALL [IntegralSystem\IntBookTranslate.txt] @IntBookTranslate                ;Book Translate                Done

;;;;;;;;;;;;;;;;;;;;;;;;;;----Personal Services----;;;;;;;;;;;;;;;;;;;;;;;;;;


[@CALLIntMagicLevel1]
#CALL [IntegralSystem\IntMagicLevel.txt] @IntMagicLevel1                     ;Spell Upgrade and Degrade     Done

[@CALLIntMapMove]
#CALL [IntegralSystem\IntMapMove.txt] @IntMapMove                            ;Map Move                      Done

[@CALLIntNewHorse]
#CALL [IntegralSystem\IntNewHorse.txt] @IntNewHorse                          ;Horse Buy                     Done
  
[@CALLIntClearPK]
#CALL [IntegralSystem\IntClearPk.txt] @IntClearPk                            ;Reduce PK Points              Done

[@CALLIntRedShout]
#CALL [IntegralSystem\IntRedShout.txt] @IntRedShout                          ;Red Shout                     Done

[@CALLIntChangeSex]
#CALL [IntegralSystem\IntChangeSex.txt] @IntChangeSex                        ;Change Sex                    Done

[@CALLIntEXP]								
#CALL [IntegralSystem\IntExp.txt] @IntExp 					;EXP Boost			Done

[@CALLIntEXPHigh]								
#CALL [IntegralSystem\IntExpHigh.txt] @IntExpHigh				;EXP Boost			Done

[@CALLIntEXPHigher]								
#CALL [IntegralSystem\IntExpHigher.txt] @IntExpHigher				;EXP Boost			Done


;;;;;;;;;;;;;;;;;;;;;;;;;;----Bureau de Change-----;;;;;;;;;;;;;;;;;;;;;;;;;;


[@CALLIntIntExchange]
#CALL [IntegralSystem\IntegralExchange.txt] @IntegralExchange                ;Integral Exchange (Scroll)    Done

[@CALLIntFameIntegral]
#CALL [IntegralSystem\IntFameInt.txt] @IntFameInt                            ;Integral Exchange (Fame)      Done

[@CALLIntBootyIntegral]
#CALL [IntegralSystem\IntBootyInt.txt] @ConvertBootyMain                     ;Integral Exchange (Booty)     Done

[@CALLIntCashIntegral]
#CALL [IntegralSystem\IntCashInt.txt] @IntCashInt                            ;Integral Exchange (Fame)      Done

;;;;;;;;;;;;;;;;;;;;;;;;;;----------Misc-----------;;;;;;;;;;;;;;;;;;;;;;;;;;


[@CALLIntPKBattle]
#CALL [IntegralSystem\PKBattle.txt] @PKBattle                                ;PK Battle                     Done

[@CALLIntCheckBoss]
#CALL [IntegralSystem\CheckBoss.txt] @CheckBoss                              ;CheckBoss                     Done

[@CALLIntWeather]
#CALL [IntegralSystem\IntWeather.txt] @changesky                             ;Change Weather                Done

[@CALLIntRentMob]
;#CALL [IntegralSystem\IntRentMob.txt] @IntRentMob                            ;Mob Rental                    

[@CALLIntWarpMove]
#CALL [IntegralSystem\IntWarpMove.txt] @IntWarpMove                          ;Warp Gate Scroll              Done

[@CALLIntTraveller]
#CALL [IntegralSystem\IntTraveller.txt] @IntTraveller                        ;Traveller Scroll              Done

[@CALLIntRefineScroll]
#CALL [IntegralSystem\IntRefineScroll.txt] @IntRefineScroll                  ;Refine Scroll                 Done

[@CALLIntStorageScroll]
#CALL [IntegralSystem\IntStorageScroll.txt] @IntStorageScroll                ;Storage Scroll                Done

[@CALLIntSRScroll]
#CALL [IntegralSystem\IntSRScroll.txt] @IntSRScroll                          ;SR Scroll                     Done

[@CALLIntegralHelp]
#CALL [IntegralSystem\IntegralHelp.txt] @IntegralHelp                        ;Integral Help                 Done

[@ShowBosses]
#CALL [System\CheckAll.txt] @CheckBoos

[@ShowPlayers]
#CALL [System\CheckAll.txt] @CheckPlayers

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