#include spell_routines.inc
#include ChatParse.inc
#Event pick "#*#tells you, 'TL#*#"
#Event antonica "#*#tells you, 'Antonica#*#"
#Event discord "#*#tells you, 'Discord#*#"
#Event faydwer "#*#tells you, 'Faydwer#*#"
#Event kunark "#*#tells you, 'Kunark#*#"
#Event luclin "#*#tells you, 'Luclin#*#"
#Event odus "#*#tells you, 'Odus#*#"
#Event serpent "#*#tells you, 'Serpent's Spine#*#"
#Event taelosia "#*#tells you, 'Taelosia#*#"
#Event planes "#*#tells you, 'The Planes#*#"
#Event velious "#*#tells you, 'Velious#*#"
|Antonica
#Event undershore "#*#tells you, 'Undershore#*#"
#Event cazic "#*#tells you, 'Cazic#*#"
#Event ro "#*#tells you, 'Ro#*#"
#Event west "#*#tells you, 'West#*#"
#Event nek "#*#tells you, 'Nek#*#"
#Event common "#*#tells you, 'Common#*#"
#Event north "#*#tells you, 'North#*#"
|Discord
#Event slaughter "#*#tells you, 'Slaughter#*#"
#Event bloodfields "#*#tells you, 'Bloodfields#*#"
|Faydwer
#Event fay "#*#tells you, 'Fay#*#"
#Event dragonscale "#*#tells you, 'Dragonscale#*#"
|Kunark
#Event combine "#*#tells you, 'Combine#*#"
|Luclin
#Event dawnshroud "#*#tells you, 'Dawnshroud#*#"
#Event twilight "#*#tells you, 'Twilight#*#"
#Event grimling "#*#tells you, 'Grimling#*#"
#Event nexus "#*#tells you, 'Nexus#*#"
|Misc
|Odus
#Event katta "#*#tells you, 'Katta#*#"
#Event tox "#*#tells you, 'Tox#*#"
#Event stoneburnt "#*#tells you, 'Stoneburnt#*#"
|Serpent's Spine
#Event icefall "#*#tells you, 'Icefall#*#"
#Event sunderock "#*#tells you, 'Sunderock#*#"
#Event blightfire "#*#tells you, 'Blightfire#*#"
|Taelosia
#Event barindu "#*#tells you, 'Barindu#*#"
#Event natimbi "#*#tells you, 'Natimbi#*#"
|The Planes
#Event grounds "#*#tells you, 'Grounds#*#"
#Event time "#*#tells you, 'Time#*#"
#Event brell "#*#tells you, 'Brell#*#"
#Event arcstone "#*#tells you, 'Arcstone#*#"
#Event knowledge "#*#tells you, '
|Velious
#Event cobalt "#*#tells you, 'Cobalt#*#"
#Event wakening "#*#tells you, 'Wakening#*#"
#Event divide "#*#tells you, 'Divide#*#"
#Event iceclad "#*#tells you, 'Iceclad#*#"
Sub Main
|Antonica
/declare tlundershore string outer Translocate: Undershore
/declare tlcazic string outer Translocate: Cazic
/declare tlro string outer Translocate: Ro
/declare tlwest string outer Translocate: West
/declare tlnek string outer Translocate: Nek
/declare tlcommon string outer Translocate: Common
/declare tlnorth string outer Translocate: North
|Discord
/declare tlslaughter string outer Translocate: Slaughter
/declare tlbloodfields string outer Translocate: Bloodfields
|Faydwer
/declare tlfay string outer Translocate: Fay
/declare tldragonscale string outer Translocate: Dragonscale Hills
|Kunark
/declare tlcombine string outer Translocate: Combine
|Luclin
/declare tldawnshroud string outer Translocate: Dawnshroud
/declare tltwilight string outer Translocate: Twilight
/declare tlgrimling string outer Translocate: Grimling
/declare tlnexus string outer Translocate: Nexus
|Misc
|Odus
/declare tlkatta string outer Translocate: Katta Castrum
/declare tltox string outer Translocate: Tox
/declare tlstoneburnt string outer Translocate: Stoneburnt
|Serpent's Spine
/declare tlicefall string outer Translocate: Icefall Glacier
/declare tlsunderock string outer Translocate: Sunderock Springs
/declare tlblightfire string outer Translocate: Blightfire Moors
|Taelosia
/declare tlbarindu string outer Translocate: Barindu
/declare tlnatimbi string outer Translocate: Natimbi
|The Planes
/declare tlgrounds string outer Translocate: the Grounds
/declare tltime string outer Translocate: Plane of Time
/declare tlbrell string outer Translocate: Brell's Rest
/declare tlarcstone string outer Translocate: Arcstone
/declare tlknowledge string outer Translocate: Knowledge
|Velious
/declare tlcobalt string outer Translocate: Cobalt Scar
/declare tlwakening string outer Translocate: Wakening Lands
/declare tldivide string outer Translocate: Great Divide
/declare tliceclad string outer Translocate: Iceclad
#Chat Tell
:Loop
/echo test
/delay 1s
/call CheckEvents
/goto :Loop
/return
Sub Event_pick
/echo TLINFOYO
/r Hello, welcome to shithead Air.
/delay 1s
/r If you know your destination, please say so now.
/delay 1s
/r Please pick an area, Antonica, Discord, Faydwer, Kunark, Luclin, Odus, Serpent's Spine, Taelosia, The Planes, or Velious.
/delay 1s
/return
Sub Event_antonica
/echo TLINFOYO
/r Antonica Translocates
/delay 1s
/r Please pick an area, Undershore, Cazic, Ro, West, Nek,Common, North,
/delay 1s
/return
|Antonica
Sub Event_undershore
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Undershore on the way
/delay 1s
/call Cast "${tlundershore}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_cazic
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Cazic Thule Temple on the way
/delay 1s
/call Cast "${tlcazic}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_ro
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Desert of Ro on the way
/delay 1s
/call Cast "${tlro}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_west
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: West Karana on the way
/delay 1s
/call Cast "${tlwest}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_nek
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Nektolus Forest on the way
/delay 1s
/call Cast "${tlnek}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_common
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Commonlands on the way
/delay 1s
/call Cast "${tlcommon}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_north
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: North Karana on the way
/delay 1s
/call Cast "${tlnorth}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_discord
/echo TLINFOYO
/r Discord Translocates
/delay 1s
/r Please pick an area, Slaughter, Bloodfields
/delay 1s
/return
|Discord
Sub Event_slaughter
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Wall of Slaughter on the way
/delay 1s
/call Cast "${tlslaughter}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_bloodfields
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Bloodfields on the way
/delay 1s
/call Cast "${tlbloodfields}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_faydwer
/echo TLINFOYO
/r Faydwer Translocates
/delay 1s
/r Please pick an area, Fay, Dragonscales
/delay 1s
/return
|Faydwer
Sub Event_fay
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Greater Faydark on the way
/delay 1s
/call Cast "${tlfay}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_dragonscales
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Dragonscales on the way
/delay 1s
/call Cast "${tldragonscales}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_kunark
/echo TLINFOYO
/r Kunark Translocate
/delay 1s
/r Please pick an area, Combine
/delay 1s
/return
|Kunark
Sub Event_combine
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Combine on the way
/delay 1s
/call Cast "${tlcombine}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_luclin
/echo TLINFOYO
/r Luclin Translocates
/delay 1s
/r Please pick an area, Dawnshroud, Twilight, Grimling, Nexus
/delay 1s
/return
|Luclin
Sub Event_dawnshroud
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Dawnshroud on the way
/delay 1s
/call Cast "${tldawnshroud}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_twilight
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Twilight on the way
/delay 1s
/call Cast "${tltwilight}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_grimling
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Grimling Forest on the way
/delay 1s
/call Cast "${tlgrimling}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_nexus
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Nexus on the way
/delay 1s
/call Cast "${tlnexus}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_taelosia
/echo TLINFOYO
/r Taelosia Translocate
/delay 1s
/r Please pick an area, Barindu, Natimbi
/delay 1s
/return
|Taelosia
Sub Event_barindu
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Barindu on the way
/delay 1s
/call Cast "${tlbarindu}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_natimbi
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Natimbi on the way
/delay 1s
/call Cast "${tlnatimbi}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub Event_natimbi
/rt
/delay 2s
/tt Please Hold Still.
/delay 1s
/tt Translocate: Natimbi on the way
/delay 1s
/call Cast "${tlnatimbi}" gem10 8s
/delay 6s
/r Enjoy your Flight!
/delay 8s
/return
Sub CheckEvents
/delay 1
/doevents
/return