;;;;;;;;;;;;;;;;;;;;;;;;
[@Main]
#SAY
____Event Menu\\
;<[ Xmas Event ]/@HalloweenEvent>\
<[ Challenge Room Event ]/@ChallengeRoomEvent>\
;<[ Monster Island Event ]/@MonsterIslandEvent>\
<[ Numa Village Event ]/@NumaVillageEvent>\
;<[ PVP Events ]/@CheckDayOfWeek>\\
<[ Gambler Main Menu ]/@GamblerMainMenuMain>\
<[ Move to Event Room ]/@MoveToEventRoom>\
;<[ Free Summer Kit ]/@FreeKit>\\
;<[ Free Halloween Kit ]/@FreeHalloweenKit>\\
<[ Exit ]/@exit>\\\


[@MoveToEventRoom]
#SAY
Are yoU Sure?\
<[ Yup ]/@MoveToRoom1>\\
<[ Exit ]/@Exit>\\\

[@MoveToRoom1]
#SAY
Goooooneeee....
#ACT
Give TownTeleport 1
Map NPCRoom1

[@FreeKit]
#IF
Gender Man
#ACT
Give SummerEvent(M) 1
#ELSEACT
Give SummerEvent(F) 1

#IF
#ACT
Give StingsEdgeShadeDemon(Rental) 1
#SAY
Enjoy\\

[@FreeHalloweenKit]
#IF
Gender Man
#ACT
Give HalloweenArmour(M) 1
#ELSEACT
Give HalloweenArmour(F) 1

#IF
#ACT
Give StingsEdgeShadeDemon(Rental) 1
#SAY
Enjoy\\

[@HalloweenEvent]
#IF
#SAY
What Letters do you have?\\
<[ ROBIN ]/@CollectItemRobin> - Double Exp! - 2 Days\
<[ RAIN ]/@CollectItemRain> - Integral(20)\
<[ WAR ]/@CollectItemWar> - XmasBoots\
<[ BOW ]/@CollectItemBow> - XmasArmour\
<[ ORB ]/@CollectItemOrb> - EnchantedOrb\
<[ IRON ]/@CollectItemIron> - SuperIronSword!\
<[ BOAR ]/@CollectItemBoar> - Boar Pet - Level 7 - 2 Days\
<[ WIN ]/@CollectItemWin> - StingRing(GOD)\
<[ AWW ]/@CollectItemAww> - StingBracelet(GOD)\
<[ BAN ]/@CollectItemBan> - StingNecklace(GOD)\\
Do you have too many letters??\
You can now swap 10 letters for 1 of your choice\
Choose the letter you have 10 of!\\
<[ Exchange Letters R ]/@ExchangeLetters(R)>\
<[ Exchange Letters A ]/@ExchangeLetters(A)>\
<[ Exchange Letters I ]/@ExchangeLetters(I)>\
<[ Exchange Letters N ]/@ExchangeLetters(N)>\
<[ Exchange Letters B ]/@ExchangeLetters(B)>\
<[ Exchange Letters O ]/@ExchangeLetters(O)>\
<[ Exchange Letters W ]/@ExchangeLetters(W)>\\

[@ExchangeLetters()]
#IF
#ACT
Mov A1 %ARG(1)
Mov A2 "Rainbow("
AddStr A2 %A1
AddStr A2 ")"
#ELSEACT
Close

#IF
CheckItem %A2 10
#SAY
Which Letter would you like in Exchange?\
<[ R ]/@Exchange1(R)>\
<[ A ]/@Exchange1(A)>\
<[ I ]/@Exchange1(I)>\
<[ N ]/@Exchange1(N)>\
<[ B ]/@Exchange1(B)>\
<[ O ]/@Exchange1(O)>\
<[ W ]/@Exchange1(W)>\\
#ELSESAY
You don't have 10 of those!!   \
<[ Main Menu ]/@Main>\\\

[@Exchange1()]
#ACT
Mov A1 %ARG(1)
Mov A3 "Rainbow("
AddStr A3 %A1
AddStr A3 ")"
#SAY
So.. \
You want to swap 10 * <$OUTPUT(A2)> for 1 * <$OUTPUT(A3)>\
<[ Yes Plz ]/@SwapThem>\
<[ Exit ]/@Exit>\\\

[@SwapThem]
#IF
CheckItem %A2 10
#ACT
Take %A2 10
Give %A3 1
#SAY
All Done :)     \
<[ Main Menu ]/@Main>\
<[ Exit ]/@Exit>\\\
#ELSESAY
Don't Cheat!!!!!  \
<[ Main Menu ]/@Main>\\\
  


<[ Exit ]/@Exit>\\\

[@CollectItemBan]
#IF
CheckItem RainBow(B) 1
CheckItem RainBow(A) 1
CheckItem RainBow(N) 1
#ACT
Give StingNecklace(GOD) 1
Take RainBow(B) 1
Take RainBow(A) 1
Take RainBow(N) 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemWin]
#IF
CheckItem RainBow(W) 1
CheckItem RainBow(I) 1
CheckItem RainBow(N) 1
#ACT
Give StingRing(GOD) 1
Take RainBow(W) 1
Take RainBow(I) 1
Take RainBow(N) 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemAww]
#IF
CheckItem RainBow(A) 1
CheckItem RainBow(W) 2
#ACT
Take RainBow(A) 1
Take RainBow(W) 2
Give StingBracelet(GOD) 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemBoar]
#IF
checkmonrecall
CheckItem RainBow(B) 1
CheckItem RainBow(O) 1
CheckItem RainBow(A) 1
CheckItem RainBow(R) 1
#ACT
Take RainBow(B) 1
Take RainBow(O) 1
Take RainBow(A) 1
Take RainBow(R) 1
MonRecall XmasPiggy 48 7
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemIron]
#IF
CheckItem RainBow(I) 1
CheckItem RainBow(R) 1
CheckItem RainBow(O) 1
CheckItem RainBow(N) 1
#ACT
Take RainBow(I) 1
Take RainBow(R) 1
Take RainBow(O) 1
Take RainBow(N) 1
Give SuperIronSword 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemOrb]
#IF
CheckItem RainBow(O) 1
CheckItem RainBow(R) 1
CheckItem RainBow(B) 1
#ACT
Take RainBow(O) 1
Take RainBow(R) 1
Take RainBow(B) 1
Give EnchantedOrb 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemBow]
#IF
CheckItem RainBow(B) 1
CheckItem RainBow(O) 1
CheckItem RainBow(W) 1
#ACT
Take RainBow(B) 1
Take RainBow(O) 1
Take RainBow(W) 1
Goto @CheckSex

[@CheckSex]
#IF
Gender Man
#ACT
Give XmasArmour(M) 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\
#ELSEACT
Give XmasArmour(F) 1
#ELSESAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemRain]
#IF
CheckItem RainBow(R) 1
CheckItem RainBow(A) 1
CheckItem RainBow(I) 1
CheckItem RainBow(N) 1
#ACT
Take RainBow(R) 1
Take RainBow(A) 1
Take RainBow(I) 1
Take RainBow(N) 1
Give Integral(20) 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemWar]
#IF
CheckItem RainBow(W) 1
CheckItem RainBow(A) 1
CheckItem RainBow(R) 1
#ACT
Take RainBow(W) 1
Take RainBow(A) 1
Take RainBow(R) 1
Give XmasBoots 1
#SAY
Here you go :) Enjoy\
<[ Exit ]/@exit>\\\

[@CollectItemRobin]
#IF
CheckItem RainBow(R) 1
CheckItem RainBow(O) 1
CheckItem RainBow(B) 1
CheckItem RainBow(I) 1
CheckItem RainBow(N) 1
#ACT
Take RainBow(R) 1
Take RainBow(O) 1
Take RainBow(B) 1
Take RainBow(I) 1
Take RainBow(N) 1
HLSCRIPTCMD SETVIPLEVEL 10
HLSCRIPTCMD SETVIPTIME 2
#SAY
Here you go :) Enjoy\
This will last until at least - <$HLVIPDATE>\ 
<[ Exit ]/@exit>\\\


[@PurchaseSlayer()]
#ACT
Mov A1 %ARG(1)
Mov D1 %ARG(2)
Mov D2 %ARG(3)
#IF
CheckItem %A1 1
#ACT
Give Integral(20) 1
Take %A1 1
#SAY
Here is your Integral(20)\
<[ Back ]/@Main>\\\
#ELSESAY
You don't have one of those!\
<[ Back ]/@Main>\\\

;[@_Startup]
;#ACT
;Speak "Come one.. Come all.. Roll up.. Roll up.. Gamblers Here :)"
;DelayGoto [Grobal]  600  @_Startup


[@GamblerMainMenuMain]
#IF
#ACT
LoadValue D6 [QuestDiary/Gambler/ScratchCardVariables.txt] [Convert] [Cash]
LoadValue D7 [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [Cash]
LoadValue D8 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [Cash]

#SAY
Welcome to Sting's Gambler\
I have a number of games for you to try\\
<[ Word Game ]/@CALLWordGame> - Current Prize 10000000\
;<[ Roulette ]/@CALLRoulette> - Play for any amount you like!\
<[ Scratch Card ]/@CALLScratch> - Current Prize <$OUTPUT(D6)>\
<[ Hi Lo Gambler ]/@CALLHiLo> - Current Prize <$OUTPUT(D7)>\
<[ Paper Rock Scissors ]/@CALLPRS> - Current Prize <$OUTPUT(D8)>\
<[ Dice Game ]/@CALLDiceGame> - Prizes vary\
<[ Casino Maze ]/@CasinoMazeCALL>\\
<[ Exit ]/@exit>\\\

[@CasinoMazeCALL]
#CALL [Mabangjin\Mabangjin.txt] @input

[@CALLWordGame]
#CALL [Gambler\WordGame.txt] @WordGame

[@CALLRoulette]
#CALL [Gambler\Roulette.txt] @ShowMainScreenRoul

[@CALLScratch]
#CALL [Gambler\ScratchCard.txt] @Scratch

[@CALLHiLo]
#CALL [Gambler\HiLo.txt] @HiLo

[@CALLPRS]
#CALL [Gambler\PRS.txt] @PRS

[@CALLDiceGame]
#CALL [Gambler\DiceGame.txt] @Dice


;[@_Startup]
;#ACT
;Speak "Click me for Double EXP!!!!"
;Delaygoto [Grobal] 30 @_Startup

[@CheckDayOfWeek]
#IF
;DAYOFWEEK Mon
;#ACT
;Goto @CALLWizPVP
;Break

;#IF
;DAYOFWEEK Tue
;#ACT
;Goto @CALLTaoPVP
;Break

;#IF
;DAYOFWEEK Wed
;#ACT
;Goto @CALLWarPVP
;Break

#IF
;DAYOFWEEK Thu
#ACT
Goto @CALLLMSPVP
Break

;#IF
;#SAY
;No Tournaments on this day\\
;Monday = Wizard PVP\
;Tuesday = Taoist PVP\
;Wednesday = Warrior PVP\
;Thursday = Last Man Standing PVP\\
;<[ Exit ]/@exit>\\\


[@CALLLMSPVP]
#CALL [System\PVP Tourney\PVPTourneyLMS.txt] @LMSPKBattle

[@NumaVillageEvent]
#CALL [EventSystem\NumaVillageEvent.txt] @AdminNumaVillageEvent

[@MonsterIslandEvent]
#CALL [EventSystem\Daebakmon\DaeBakMonNpc.txt] @DaebakMainMenu

[@ChallengeRoomEvent]
#CALL [EventSystem\SurviveGame\SurviveGame.txt] @SurviveGameMainMenu

[@SayHello]
#ACT
Speak "Hello Sting :P"
Break

[@SayGoodBye]
#ACT
Speak "Cya Sting :)"
Break

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