;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@IntMapMove]
{
#IF
#ACT
mov  D1 ""
mov  D2 ""
mov  D3 ""
mov  D7 50
mov  A7 ""
#SAY
{FCOLOR/12}Do you want to Teleport to MS?\
{FCOLOR/10}Price: <$OUTPUT(D7)> Integral{FCOLOR/12}\\
{FCOLOR/12}<[ EastAntColony ]/@MoveToMS(D404)>{FCOLOR/12}\
{FCOLOR/12}<[ FrogCave3F ]/@MoveToMS(D303)>{FCOLOR/12}\
{FCOLOR/12}<[ DeadPit3F ]/@MoveToMS(D203)>{FCOLOR/12}\
{FCOLOR/12}<[ WoomaTemplekr ]/@MoveToMS(D504)>{FCOLOR/12}\
{FCOLOR/12}<[ ZumaTemple5F ]/@MoveToMS(D1105)>{FCOLOR/12}\
;{FCOLOR/12}<[ LavaDungeon6F ]/@MoveToMS(D2906)>{FCOLOR/12}\
{FCOLOR/12}<[ RedMoonValley4F ]/@MoveToMS(D904)>{FCOLOR/12}\
{FCOLOR/12}<[ BugCave4F  ]/@MoveToMS(D804)>{FCOLOR/12}\
{FCOLOR/12}<[ StoneTomb4F ]/@MoveToMS(D704)>{FCOLOR/12}\
{FCOLOR/12}<[ ForbiddenTemple3F  ]/@MoveToMS(FBI3F)>{FCOLOR/12}\
{FCOLOR/12}<[ MysteryShipEntrance ]/@MoveToMS(D1401)>{FCOLOR/12}\
{FCOLOR/12}<[ SnowPalace6F ]/@MoveToMS(D2106)>{FCOLOR/12}\
{FCOLOR/12}<[ DesertCity3F ]/@MoveToMS(D20023)>{FCOLOR/12}\
{FCOLOR/12}<[ BlackPalace4F ]/@MoveToMS(D1304)>{FCOLOR/12}\
{FCOLOR/12}<[ NumaRuins5F ]/@MoveToMS(D1505)>{FCOLOR/12}\
{FCOLOR/12}<[ PrajnaLowerTemple10F ]/@MoveToMS(D1011)>{FCOLOR/12}\
{FCOLOR/12}<[ ScorpionCave3F ]/@MoveToMS(D2303)>{FCOLOR/12}\
{FCOLOR/12}<[ PrajnaStoneCave5F ]/@MoveToMS(D605)>{FCOLOR/12}\
{FCOLOR/12}<[ Necro - Final Path ]/@MoveToMS(E02)>{FCOLOR/12}\
{FCOLOR/12}<[ LostTemple4F ]/@MoveToMS(D2204)>{FCOLOR/12}\
{FCOLOR/12}<[ Back ]/@IntegralMainMenu>{FCOLOR/12}\ \

[@MoveToMS()]
#ACT
Mov A5 %ARG(1)
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   ReadValueSql  "TBL_INTEGRAL"  %A9  "FLD_CHARACTER,FLD_INTEGRAL"  [@CheckExMoveToMS1]


[@CheckExMoveToMS1()]
#IF
#ACT
   mov    A0      %ARG(1)
   mov    D5      %ARG(2)
#IF
   Esmall D7 %D5
#ACT
   FormatStr "FLD_CHARACTER='%s'" %USERNAME
   mov   A8     %A9
   dec   D5     %D7
   mov   D4     %D5
   FormatStr "FLD_INTEGRAL='%s'" %D4
   UPDATEVALUESQL "TBL_INTEGRAL" %A8 %A9
   AddStr  A7 %USERNAME
   AddStr  A7 ","
   AddStr  A7 %D7
   AddStr  A7 ",MoveToMS"
   Savelog "QuestDiary\IntegralSystem\IntegralLog.txt" %A7
   Give TownTeleport 1
   Map %A5
#SAY
Moved to <OUTPUT(A5)>\
#ELSESAY
You do not have enough Integral Points\
Your current Integral is {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12}\
<[ Back ]/@IntegralMainMenu>\
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;