Astral Travel (script): Difference between revisions

From Elanthipedia
Jump to navigation Jump to search
No edit summary
No edit summary
 
(38 intermediate revisions by 9 users not shown)
Line 1: Line 1:
NOTE* Attempt at your own risk. It is likely this will not work and you will die.
[[Category:Scripts]]

GLITCH? Appears it won't travel to Shard... (unknown destination)

{{Script
|cat=travel, Moon Mage
|fe=StormFront
|auth=[[User:Georgiepoo|Foresee]], [[User:Breusshe|Uversy]], [[User:Mozzik|Mozzik]], [[User:Pathian|Coralin]], and [[Randoon|Randoon]]
}}

==General Information==
==General Information==
This script automatically travels the astral plane for you.
This script automatically travels the astral plane for you.
Line 5: Line 14:
Front end: Stormfront
Front end: Stormfront


Front end: Genie compatible script at the bottom of the page
Recommend name: ap


Recommended name: ap
Usage: ".ap [destination]" while standing at a Grazhir shard. [destination] can be any name from the list you get when you run the script with no arguments.
<blockquote>
<pre>
Usage: .ap [destination] [harness times] [mana] [100th-Ability]

Where:
destination = Any name from the list you get when you run the script with no arguments.
harness times = 0-4. Number of times to harness "mana".
mana = Amount of mana to harness
100th-Ability = Include any 4th variable to use the 100th circle ability to enter the AP.

*** Must be done while standing at a Grazhir shard or script will exit with an error. ***
</pre>
</blockquote>


==Change Log==
==Change Log==
For the full Log see [[Astral Travel Change Log History]]<br />

<blockquote>
<blockquote>
<pre>
EDITED by Uversy (5-20-2008)<br />
EDITED by Uversy (5-28-2008) -- Version 1.4
1. The script does not notice when casting the moongate spell to get out of the Astral Plane fails. As such, you release your mana and then die. I've added a check when moongate is cast to see if it failed. If it does, then a the user pulls some more mana together and calls exitAP again.<br />
1. Completion of a couple of TODO items. Variable %2 now defines how many times to
<br />
harness mana while %3 defines how much mana is harnessed each time. Both apply
2. Addition of the ability for the user to define just how much mana they harness when the script requires it. By setting the variable "mana", the user is better set for their particular casting ability. The default is '15'. I did this because having only 30 mana harnessed while in the planes is a bit dicey for me. I personally set "mana" to '20'.<br />
to the starting point.
<br />
EDITED by Mozzik (9-14-2009) -- Version 2.0
3. Addition of deletevariable commands under the "cleanup:" label to remove variables used by this script.<br />
1. Added new shards
<br />
EDITED by Uversy (5-23-2008)<br />
EDITED by Mozzik (11-19-2009) -- Version 3.0
1. Updated for 100th
1. Asharshpar'i wasn't being recognized from the starting point. Included a "look shard" command and altered the match text for this shard.<br />
EDITED by Coralin (1-13-2012) -- Version 3.5
<br />
1. Updated for Dragonrealms 3.0
2. Altered how the mana harness engine works and added the variable "myCounter". Users can now define "myCounter" to a number 1-4<br />
EDITED by Randoon (4-1-2013) -- Version 3.6
which will determine how many times your moon mage harnesses before casting. Along with the use of the "mana" variable, this will allow users the most flexible control of how they obtain the mana they will use in the moongate spell.<br />
1. Updated to include Vellano shard
<br />
2. Fixed match to properly find Asharshpar'i
3. Changed "harnessMana3" label to "harnessEmergency" and utilized the new harness engine in order to condense the code some.<br />
EDITED by Damart (11-19-2015) -- Version 3.7
<br />
1. Updated to include Vellano 4th variable
EDITED by Uversy (5-28-2008) -- Version 1.0<br />
</pre>
1. When a starting or destination shard is not know to you, then an error message will pop up letting you know this along with a reminder to release any mana or spells you are holding if it is safe to do so. The error also makes the casual suggestion that you find your way to a shard you do know ASAP.<br />
<br />
</blockquote>
</blockquote>


==TODO==
==TODO==
<blockquote>
<pre>
1. Design method for when a destination shard is not known to return the user to their starting
point. Though many will wind up dying on the return attempt anyhow, for those it saves...
they will feel like Meraud himself touched them. :)
</pre>
</blockquote>


==The Script==
==The Script==
<pre>
<pre>
debug off
debug off
put release

echo
echo
echo ==============================================
echo ==============================================
echo = Astral Travel script by Foresee
echo = Astral Travel script by Foresee, edited by Uversy, Mozzik and Coralin
echo = Last edited: 5/28/08
echo = Last edited: 11/19/2015
echo = Edited by: Uversy
echo = Edited by: Randoon
echo = Version 1.0
echo = Version 3.7 for DR 3.0
echo =
echo = ***Include 100 as the 4th variable to use 100th ability***
echo =
echo =
echo = Valid Destination names:
echo = Valid Destination names:
echo = Dor'na'torna - Dornatorna - Hibarnhvidar - Hib - Cherulisa
echo = Dor'na'torna - Dornatorna - Hibarnhvidar - Hib - Cherulisa
echo = Undarverjah - Taisgath - Islands - Ratha - Lomtaun
echo = Erekinzil - Taisgath - Ratha - Lomtaun - Cartman - Undarverjah - Underweargnome
echo = Tamigen - Raven'sPoint - RavenPoint - Raven - RP
echo = Tamigen - Raven'sPoint - RavenPoint - Raven - RP
echo = Rolagi - Crossing - Xing - Kssarh
echo = Rolagi - Crossing - Xing - Kssarh
Line 55: Line 87:
echo = Mintais - ThroneCity - Throne - TC
echo = Mintais - ThroneCity - Throne - TC
echo = Taniendar - Riverhaven - Haven - Gylwyn
echo = Taniendar - Riverhaven - Haven - Gylwyn
echo = Besoge - M'riss - Mriss - Mer'kresh - Merkresh
echo = Tabelrem - Muspar'i - Muspari - Tablerum
echo = Auilusi - Aesry
echo = Vellano - Fang - FangCove
echo ==============================================
echo ==============================================
echo
echo


if_2 goto setCounter1
goto setCounter2

setCounter1:
setvariable myCounter %2
goto setMana

setCounter2:
setvariable myCounter 3
goto setMana

setMana:
if_3 goto setMana1
goto setMana2

setMana1:
setvariable mana %3
goto myStart

setMana2:
setvariable mana 15
goto myStart

myStart:
setvariable stepsToAxis 0
setvariable stepsToAxis 0
setvariable stepsFromAxis 0
setvariable stepsFromAxis 0
setvariable mana 15
setvariable myCounter 3


# These four variables are defined later in the script.
# These four variables are defined later in the script.
Line 74: Line 132:
setStart:
setStart:
match Dor'na'torna the silvery-white shard Dor'na'torna
match Dor'na'torna the silvery-white shard Dor'na'torna
match Undarverjah the silvery-white shard Undarverjah
match Erekinzil the silvery-white shard Erekinzil
match Besoge the silvery-white shard Besoge
match Auilusi the silvery-white shard Auilusi
match Tabelrem the silvery-white shard Tabelrem
match Tamigen [Cragstone Vale, Shrine of the Shell]
match Tamigen [Cragstone Vale, Shrine of the Shell]
match Rolagi the silvery-white shard Rolagi
match Rolagi the silvery-white shard Rolagi
Line 83: Line 144:
match Mintais [Phelim's Sanctum, Tear of Grazhir]
match Mintais [Phelim's Sanctum, Tear of Grazhir]
match Taniendar the silvery-white shard Taniendar
match Taniendar the silvery-white shard Taniendar
match error_badStart Obvious exits:
match Vellano the silvery-white shard Vellano
match error_badStart Obvious paths:
match 100check Obvious exits:
match 100check Obvious paths:
put look shard
put look shard
put look
put look
Line 92: Line 154:
setvariable Start Dor'na'torna
setvariable Start Dor'na'torna
goto setDestination
goto setDestination
Erekinzil:
Undarverjah:
setvariable Start Undarverjah
setvariable Start Erekinzil
goto setDestination
Besoge:
setvariable Start Besoge
goto setDestination
Auilusi:
setvariable Start Auilusi
goto setDestination
Tabelrem:
setvariable Start Tabelrem
goto setDestination
goto setDestination
Tamigen:
Tamigen:
Line 118: Line 189:
Taniendar:
Taniendar:
setvariable Start Taniendar
setvariable Start Taniendar
goto setDestination
Vellano:
setvariable Start Vellano
goto setDestination
goto setDestination


Line 130: Line 204:
setvariable Destination Rolagi
setvariable Destination Rolagi
setvariable Pillar Nightmares
setvariable Pillar Nightmares
goto prepMoongate

setDestination_Besoge:
setDestination_M'riss:
setDestination_Mriss:
setDestination_Mer'kresh:
setDestination_Merkresh:
setvariable Destination Besoge
setvariable Pillar Secrets
goto prepMoongate

setDestination_Tabelrem:
setDestination_Muspar'i:
setDestination_Muspari:
setDestination_Tablerum:
setvariable Destination Tabelrem
setvariable Pillar Nightmares
goto prepMoongate

setDestination_Auilusi:
setDestination_Aesry:
setvariable Destination Auilusi
setvariable Pillar Tradition
goto prepMoongate
goto prepMoongate


Line 147: Line 244:
setDestination_RP:
setDestination_RP:
setvariable Destination Tamigen
setvariable Destination Tamigen
setvariable Pillar Convergence
setvariable Pillar Heavens
goto prepMoongate
goto prepMoongate


Line 172: Line 269:
setDestination_Gylwyn:
setDestination_Gylwyn:
setvariable Destination Taniendar
setvariable Destination Taniendar
setvariable Pillar Broken
setvariable Pillar Introspection
goto prepMoongate
goto prepMoongate


Line 198: Line 295:
goto prepMoongate
goto prepMoongate


setDestination_Erekinzil:
setDestination_Undarverjah:
setDestination_Taisgath:
setDestination_Taisgath:
setDestination_Ratha:
setDestination_Ratha:
setDestinatoin_Cartman:
setDestinatoin_Islands:
setDestination_Lomtaun:
setDestination_Lomtaun:
setDestination_Undarverjah:
setvariable Destination Undarverjah
setDestination_Underweargnome:
setvariable Pillar Heavens
setvariable Destination Erekinzil
setvariable Pillar Fortune
goto prepMoongate
goto prepMoongate

setDestination_Vellano:
setDestination_Fang:
setDestination_FangCove:
setvariable Destination Vellano
setvariable Pillar Unity
goto prepMoongate


prepMoongate:
prepMoongate:
Line 245: Line 351:
match wait_enterAP ...wait
match wait_enterAP ...wait
match wait_enterAP Sorry, you may only type
match wait_enterAP Sorry, you may only type
match toAxis You are pulled through
match StartIsEnd You attempt to open
put cast %Start%
put cast %Start%
matchwait
matchwait

StartIsEnd:
match exitAP %Destination%
match toAxis none
put look
matchwait


toAxis:
toAxis:
counter set %stepsToAxis%
counter set %stepsToAxis%
counter add 1
counter add 1
setvariable stepsToAxis %c%
setvariable stepsToAxis %c%

toAxis1:
toAxis1:
match wait_toAxis1 ...wait
match wait_toAxis1 ...wait
Line 400: Line 512:
match wait_fromAxis_N Sorry, you may only type
match wait_fromAxis_N Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 410: Line 523:
match wait_fromAxis_NE Sorry, you may only type
match wait_fromAxis_NE Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 420: Line 534:
match wait_fromAxis_E Sorry, you may only type
match wait_fromAxis_E Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 430: Line 545:
match wait_fromAxis_SE Sorry, you may only type
match wait_fromAxis_SE Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 440: Line 556:
match wait_fromAxis_S Sorry, you may only type
match wait_fromAxis_S Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 450: Line 567:
match wait_fromAxis_SW Sorry, you may only type
match wait_fromAxis_SW Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 460: Line 578:
match wait_fromAxis_W Sorry, you may only type
match wait_fromAxis_W Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 470: Line 589:
match wait_fromAxis_NW Sorry, you may only type
match wait_fromAxis_NW Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: north,
Line 488: Line 608:
match wait_exitAP_cast Sorry, you may only type
match wait_exitAP_cast Sorry, you may only type
match harnessEmergency The spell goes awry!
match harnessEmergency The spell goes awry!
match release You are pulled through
match release You attempt to open an astral
put cast %Destination%
put cast %Destination%
matchwait
matchwait
Line 515: Line 635:
wait_harnessMana:
wait_harnessMana:
pause 1
pause 1
goto harnessMana
goto harnessMana%c
wait_harnessEmergency:
wait_harnessEmergency:
pause 1
pause 1
Line 579: Line 699:
pause 1
pause 1
goto exitAP_cast
goto exitAP_cast
#####################################
# 100th
100check:
if_4 goto 100
goto error_badStart


100:
setvariable Start Grazhir
echo *** Using 100th ability ***
goto setDestination100


setDestination100:
goto setDestination100_%1%

setDestination100_Rolagi:
setDestination100_Crossing:
setDestination100_Xing:
setDestination100_Kssarh:
setvariable Destination Rolagi
setvariable Pillar Nightmares
goto prepMoongate100

setDestination100_Besoge:
setDestination100_M'riss:
setDestination100_Mriss:
setDestination100_Mer'kresh:
setDestination100_Merkresh:
setvariable Destination Besoge
setvariable Pillar Secrets
goto prepMoongate100

setDestination100_Tabelrem:
setDestination100_Muspar'i:
setDestination100_Muspari:
setDestination100_Tablerum:
setvariable Destination Tabelrem
setvariable Pillar Nightmares
goto prepMoongate100

setDestination100_Auilusi:
setDestination100_Aesry:
setvariable Destination Auilusi
setvariable Pillar Tradition
goto prepMoongate100

setDestination100_Dor'na'torna:
setDestination100_Dornatorna:
setDestination100_Hibarnhvidar:
setDestination100_Hib:
setDestination100_Cherulisa:
setvariable Destination Dor'na'torna
setvariable Pillar Tradition
goto prepMoongate100

setDestination100_Tamigen:
setDestination100_Raven'sPoint:
setDestination100_RavenPoint:
setDestination100_Raven:
setDestination100_RP:
setvariable Destination Tamigen
setvariable Pillar Heavens
goto prepMoongate100

setDestination100_Asharshpar'i:
setDestination100_Asharshpari:
setDestination100_LethDeriel:
setDestination100_Leth:
setvariable Destination Asharshpar'i
setvariable Pillar Heavens
goto prepMoongate100

setDestination100_Emalerje:
setDestination100_Volcano:
setDestinatoin_LesserFist:
setDestination100_Fist:
setDestination100_Tiv:
setvariable Destination Emalerje
setvariable Pillar Shrew
goto prepMoongate100

setDestination100_Taniendar:
setDestination100_Riverhaven:
setDestination100_Haven:
setDestination100_Gylwyn:
setvariable Destination Taniendar
setvariable Pillar Introspection
goto prepMoongate100

setDestination100_Dinegavren:
setDestination100_Therenborough:
setDestination100_Theren:
setvariable Destination Dinegavren
setvariable Pillar Introspection
goto prepMoongate100

setDestination100_Mintais:
setDestination100_ThroneCity:
setDestination100_Throne:
setDestination100_TC:
setvariable Destination Mintais
setvariable Pillar Fortune
goto prepMoongate100

setDestination100_Marendin:
setDestination100_Shard:
setDestination100_Ilithi:
setDestination100_Mortom:
setvariable Destination Marendin
setvariable Pillar Secrets
goto prepMoongate100

setDestination100_Erekinzil:
setDestination100_Taisgath:
setDestination100_Ratha:
setDestinatoin_Cartman:
setDestination100_Lomtaun:
setDestination100_Undarverjah:
setDestination100_Underweargnome:
setvariable Destination Erekinzil
setvariable Pillar Fortune
goto prepMoongate100

setDestination100_Vellano:
setDestination100_Fang:
setDestination100_FangCove:
setvariable Destination Vellano
setvariable Pillar Unity
goto prepMoongate100

prepMoongate100:
put prep moongate
setvariable afterHarness enterAP100
counter set %myCounter
goto harnessMana100%c

harnessMana1000:
goto %afterHarness

harnessMana1001:
harnessMana1002:
harnessMana1003:
harnessMana1004:
match wait_harnessMana100 ...wait
match wait_harnessMana100 Sorry, you may only type
match harnessCount100 You tap into the mana
put harness %mana%
matchwait

harnessCount100:
counter subtract 1
goto harnessMana100%c

enterAP100:
match wait_enterAP100 ...wait
match wait_enterAP100 Sorry, you may only type
match StartIsEnd You attempt to open an astral
put cast Grazhir
matchwait


wait_harnessMana100:
pause 1
goto harnessMana100%c
wait_enterAP100:
pause 1
goto enterAP100


#####################################
#####################################
Line 607: Line 891:
echo
echo
echo ERROR: You are not at a known Grazhir shard
echo ERROR: You are not at a known Grazhir shard
echo and this script cannot be used for the 100th circle ability.
echo and you either lack the 100th ability or
echo did not include a 4th variable!
echo
echo
goto cleanup
goto cleanup
error_expanse:
error_expanse:
Line 635: Line 920:
goto cleanup
goto cleanup
</pre>
</pre>

==Genie Version==
<pre>
debug off
put release
echo
echo ==============================================
echo = Astral Travel script by Foresee, edited by Uversy, Mozzik and Coralin
echo = Last edited: 8/5/2017
echo = Edited by: Randoon
echo = Edited For Genie, duplicate labels, errors and typos fixed by : Gavinne
echo = Version 3.8 for DR 3.0
echo =
echo = ***Include 100 as the 4th variable to use 100th ability***
echo =
echo = Valid Destination names:
echo = Dor'na'torna - Dornatorna - Hibarnhvidar - Hib - Cherulisa
echo = Erekinzil - Taisgath - Ratha - Lomtaun - Cartman - Undarverjah - Underweargnome
echo = Tamigen - Raven'sPoint - RavenPoint - Raven - RP
echo = Rolagi - Crossing - Xing - Kssarh
echo = Marendin - Shard - Ilithi - Mortom
echo = Emalerje - Volcano - LesserFist - Fist - Tiv
echo = Asharshpar'i - Asharshpari - LethDeriel - Leth
echo = Dinegavren - Therenborough - Theren
echo = Mintais - ThroneCity - Throne - TC
echo = Taniendar - Riverhaven - Haven - Gylwyn
echo = Besoge - M'riss - Mriss - Mer'kresh - Merkresh
echo = Tabelrem - Muspar'i - Muspari - Tablerum
echo = Auilusi - Aesry
echo = Vellano - Fang - FangCove
echo ==============================================
echo

if_2 goto setCounter1
goto setCounter2

setCounter1:
setvariable myCounter %2
goto setMana

setCounter2:
setvariable myCounter 3
goto setMana

setMana:
if_3 goto setMana1
goto setMana2

setMana1:
setvariable mana %3
goto myStart

setMana2:
setvariable mana 15
goto myStart

myStart:
setvariable stepsToAxis 0
setvariable stepsFromAxis 0

# These four variables are defined later in the script.
setvariable Start
setvariable Destination
setvariable Pillar
setvariable afterHarness

if_1 goto setStart
goto error_noArguments

setStart:
match Dor'na'torna the silvery-white shard Dor'na'torna
match Erekinzil the silvery-white shard Erekinzil
match Besoge the silvery-white shard Besoge
match Auilusi the silvery-white shard Auilusi
match Tabelrem the silvery-white shard Tabelrem
match Tamigen [Cragstone Vale, Shrine of the Shell]
match Rolagi the silvery-white shard Rolagi
match Marendin the silvery-white shard Marendin
match Emalerje the silvery-white shard Emalerje
match Asharshpar'i the silvery shard Asharshpar'i
match Dinegavren [Gealeranendae College, Tear of Grazhir Exhibit]
match Mintais [Phelim's Sanctum, Tear of Grazhir]
match Taniendar the silvery-white shard Taniendar
match Vellano the silvery-white shard Vellano
match 100check Obvious exits:
match 100check Obvious paths:
put look shard
put look
matchwait

Dor'na'torna:
setvariable Start Dor'na'torna
goto setDestination
Erekinzil:
setvariable Start Erekinzil
goto setDestination
Besoge:
setvariable Start Besoge
goto setDestination
Auilusi:
setvariable Start Auilusi
goto setDestination
Tabelrem:
setvariable Start Tabelrem
goto setDestination
Tamigen:
setvariable Start Tamigen
goto setDestination
Rolagi:
setvariable Start Rolagi
goto setDestination
Marendin:
setvariable Start Marendin
goto setDestination
Emalerje:
setvariable Start Emalerje
goto setDestination
Asharshpar'i:
setvariable Start Asharshpar'i
goto setDestination
Dinegavren:
setvariable Start Dinegavren
goto setDestination
Mintais:
setvariable Start Mintais
goto setDestination
Taniendar:
setvariable Start Taniendar
goto setDestination
Vellano:
setvariable Start Vellano
goto setDestination

# Valid destinations
setDestination:
goto setDestination_%1

setDestination_Rolagi:
setDestination_Crossing:
setDestination_Xing:
setDestination_Kssarh:
setvariable Destination Rolagi
setvariable Pillar Nightmares
goto prepMoongate

setDestination_Besoge:
setDestination_M'riss:
setDestination_Mriss:
setDestination_Mer'kresh:
setDestination_Merkresh:
setvariable Destination Besoge
setvariable Pillar Secrets
goto prepMoongate

setDestination_Tabelrem:
setDestination_Muspar'i:
setDestination_Muspari:
setDestination_Tablerum:
setvariable Destination Tabelrem
setvariable Pillar Nightmares
goto prepMoongate

setDestination_Auilusi:
setDestination_Aesry:
setvariable Destination Auilusi
setvariable Pillar Tradition
goto prepMoongate

setDestination_Dor'na'torna:
setDestination_Dornatorna:
setDestination_Hibarnhvidar:
setDestination_Hib:
setDestination_Cherulisa:
setvariable Destination Dor'na'torna
setvariable Pillar Tradition
goto prepMoongate

setDestination_Tamigen:
setDestination_Raven'sPoint:
setDestination_RavenPoint:
setDestination_Raven:
setDestination_RP:
setvariable Destination Tamigen
setvariable Pillar Heavens
goto prepMoongate

setDestination_Asharshpar'i:
setDestination_Asharshpari:
setDestination_LethDeriel:
setDestination_Leth:
setvariable Destination Asharshpar'i
setvariable Pillar Heavens
goto prepMoongate

setDestination_Emalerje:
setDestination_Volcano:
setDestination_LesserFist:
setDestination_Fist:
setDestination_Tiv:
setvariable Destination Emalerje
setvariable Pillar Shrew
goto prepMoongate

setDestination_Taniendar:
setDestination_Riverhaven:
setDestination_Haven:
setDestination_Gylwyn:
setvariable Destination Taniendar
setvariable Pillar Introspection
goto prepMoongate

setDestination_Dinegavren:
setDestination_Therenborough:
setDestination_Theren:
setvariable Destination Dinegavren
setvariable Pillar Introspection
goto prepMoongate

setDestination_Mintais:
setDestination_ThroneCity:
setDestination_Throne:
setDestination_TC:
setvariable Destination Mintais
setvariable Pillar Fortune
goto prepMoongate

setDestination_Marendin:
setDestination_Shard:
setDestination_Ilithi:
setDestination_Mortom:
setvariable Destination Marendin
setvariable Pillar Secrets
goto prepMoongate

setDestination_Erekinzil:
setDestination_Taisgath:
setDestination_Ratha:
setDestination_Cartman:
setDestination_Lomtaun:
setDestination_Undarverjah:
setDestination_Underweargnome:
setvariable Destination Erekinzil
setvariable Pillar Fortune
goto prepMoongate

setDestination_Vellano:
setDestination_Fang:
setDestination_FangCove:
setvariable Destination Vellano
setvariable Pillar Unity
goto prepMoongate

prepMoongate:
put prep moongate
goto focusShard

focusShard:
setvariable afterHarness enterAP
counter set %myCounter

match error_UnknownShard You do not recognize this shard
match harnessMana%c You feel fully prepared
put focus %Start
matchwait

harnessMana0:
goto %afterHarness

harnessMana1:
harnessMana2:
harnessMana3:
harnessMana4:
match wait_harnessMana ...wait
match wait_harnessMana Sorry, you may only type
match harnessCount You tap into the mana
put harness %mana
matchwait

harnessCount:
counter subtract 1
goto harnessMana%c

harnessEmergency:
setvariable afterHarness exitAP
counter set 1
goto harnessMana%c

enterAP:
match wait_enterAP ...wait
match wait_enterAP Sorry, you may only type
match StartIsEnd You attempt to open
put cast %Start
matchwait

StartIsEnd:
match exitAP %Destination
match toAxis none
put look
matchwait

toAxis:
counter set %stepsToAxis
counter add 1
setvariable stepsToAxis %c
toAxis1:
match wait_toAxis1 ...wait
match wait_toAxis1 Sorry, you may only type
match toAxis_N the microcosm is to the north.
match toAxis_NE the microcosm is to the northeast.
match toAxis_E the microcosm is to the east.
match toAxis_SE the microcosm is to the southeast.
match toAxis_S the microcosm is to the south.
match toAxis_SW the microcosm is to the southwest.
match toAxis_W the microcosm is to the west.
match toAxis_NW the microcosm is to the northwest.
match error_expanse You cannot sense even a single thread of Lunar energy
match error_dead You are a ghost!
put perceive
matchwait

toAxis_N:
match wait_toAxis_N ...wait
match wait_toAxis_N Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put north
matchwait
toAxis_NE:
match wait_toAxis_NE ...wait
match wait_toAxis_NE Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put northeast
matchwait
toAxis_E:
match wait_toAxis_E ...wait
match wait_toAxis_E Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put east
matchwait
toAxis_SE:
match wait_toAxis_SE ...wait
match wait_toAxis_SE Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put southeast
matchwait
toAxis_S:
match wait_toAxis_S ...wait
match wait_toAxis_S Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put south
matchwait
toAxis_SW:
match wait_toAxis_SW ...wait
match wait_toAxis_SW Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put southwest
matchwait
toAxis_W:
match wait_toAxis_W ...wait
match wait_toAxis_W Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put west
matchwait
toAxis_NW:
match wait_toAxis_NW ...wait
match wait_toAxis_NW Sorry, you may only type
match toAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put northwest
matchwait

atAxis:
move east
move up
goto Convergence_to_%Pillar

Convergence_to_Convergence:
goto exitAxis
Convergence_to_Nightmares:
move south
goto exitAxis
Convergence_to_Tradition:
move southeast
goto exitAxis
Convergence_to_Secrets:
move east
goto exitAxis
Convergence_to_Unity:
move northeast
goto exitAxis
Convergence_to_Shrew:
move north
goto exitAxis
Convergence_to_Heavens:
move northwest
goto exitAxis
Convergence_to_Introspection:
move west
goto exitAxis
Convergence_to_Fortune:
move southwest
goto exitAxis
Convergence_to_Broken:
move south
move down
goto exitAxis

exitAxis:
put focus %Destination
goto fromAxis

fromAxis:
counter set %stepsFromAxis
counter add 1
setvariable stepsFromAxis %c

fromAxis1:
match wait_fromAxis1 ...wait
match wait_fromAxis1 Sorry, you may only type
match fromAxis_N the conduit lies north.
match fromAxis_NE the conduit lies northeast.
match fromAxis_E the conduit lies east.
match fromAxis_SE the conduit lies southeast.
match fromAxis_S the conduit lies south.
match fromAxis_SW the conduit lies southwest.
match fromAxis_W the conduit lies west.
match fromAxis_NW the conduit lies northwest.
match error_expanse You cannot sense even a single thread of Lunar energy
match error_dead You are a ghost!
put perceive
matchwait

fromAxis_N:
match wait_fromAxis_N ...wait
match wait_fromAxis_N Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put north
matchwait

fromAxis_NE:
match wait_fromAxis_NE ...wait
match wait_fromAxis_NE Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put northeast
matchwait

fromAxis_E:
match wait_fromAxis_E ...wait
match wait_fromAxis_E Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put east
matchwait

fromAxis_SE:
match wait_fromAxis_SE ...wait
match wait_fromAxis_SE Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put southeast
matchwait

fromAxis_S:
match wait_fromAxis_S ...wait
match wait_fromAxis_S Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put south
matchwait

fromAxis_SW:
match wait_fromAxis_SW ...wait
match wait_fromAxis_SW Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put southwest
matchwait

fromAxis_W:
match wait_fromAxis_W ...wait
match wait_fromAxis_W Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put west
matchwait

fromAxis_NW:
match wait_fromAxis_NW ...wait
match wait_fromAxis_NW Sorry, you may only type
match exitAP You also see the silvery-white shard
match exitAP You also see the silvery shard
match fromAxis Obvious exits: none.
match atAxis Obvious exits: north,
match atAxis Obvious exits: east,
put northwest
matchwait

exitAP:
put prep moongate

match error_UnknownShard You do not recognize this shard
match exitAP_cast feel fully prepared
put focus %Destination
matchwait

exitAP_cast:
match wait_exitAP_cast ...wait
match wait_exitAP_cast Sorry, you may only type
match harnessEmergency The spell goes awry!
match release You attempt to open an astral
put cast %Destination
matchwait

release:
put release
pause 1
echo Statistics: %stepsToAxis from %Start to Axis
echo Statistics: %stepsFromAxis from Axis to %Destination
goto cleanup

cleanup:
unvar stepsToAxis
unvar stepsFromAxis
unvar mana
unvar Start
unvar Destination
unvar Pillar
unvar counter
unvar afterHarness
exit


#################################
# Wait section
wait_harnessMana:
pause 1
goto harnessMana%c
wait_harnessEmergency:
pause 1
goto harnessEmergency
wait_enterAP:
pause 1
goto enterAP
wait_toAxis1:
pause 1
goto toAxis1
wait_toAxis_N:
pause 1
goto toAxis_N
wait_toAxis_NE:
pause 1
goto toAxis_NE
wait_toAxis_E:
pause 1
goto toAxis_E
wait_toAxis_SE:
pause 1
goto toAxis_SE
wait_toAxis_S:
pause 1
goto toAxis_S
wait_toAxis_SW:
pause 1
goto toAxis_SW
wait_toAxis_W:
pause 1
goto toAxis_W
wait_toAxis_NW:
pause 1
goto toAxis_NW
wait_fromAxis1:
pause 1
goto fromAxis1
wait_fromAxis_N:
pause 1
goto fromAxis_N
wait_fromAxis_NE:
pause 1
goto fromAxis_NE
wait_fromAxis_E:
pause 1
goto fromAxis_E
wait_fromAxis_SE:
pause 1
goto fromAxis_SE
wait_fromAxis_S:
pause 1
goto fromAxis_S
wait_fromAxis_SW:
pause 1
goto fromAxis_SW
wait_fromAxis_W:
pause 1
goto fromAxis_W
wait_fromAxis_NW:
pause 1
goto fromAxis_NW
wait_exitAP_cast:
pause 1
goto exitAP_cast
#####################################
# 100th
100check:
if_4 goto 100
goto error_badStart

100:
setvariable Start Grazhir
echo *** Using 100th ability ***
goto setDestination100

setDestination100:
goto setDestination100_%1

setDestination100_Rolagi:
setDestination100_Crossing:
setDestination100_Xing:
setDestination100_Kssarh:
setvariable Destination Rolagi
setvariable Pillar Nightmares
goto prepMoongate100

setDestination100_Besoge:
setDestination100_M'riss:
setDestination100_Mriss:
setDestination100_Mer'kresh:
setDestination100_Merkresh:
setvariable Destination Besoge
setvariable Pillar Secrets
goto prepMoongate100

setDestination100_Tabelrem:
setDestination100_Muspar'i:
setDestination100_Muspari:
setDestination100_Tablerum:
setvariable Destination Tabelrem
setvariable Pillar Nightmares
goto prepMoongate100

setDestination100_Auilusi:
setDestination100_Aesry:
setvariable Destination Auilusi
setvariable Pillar Tradition
goto prepMoongate100

setDestination100_Dor'na'torna:
setDestination100_Dornatorna:
setDestination100_Hibarnhvidar:
setDestination100_Hib:
setDestination100_Cherulisa:
setvariable Destination Dor'na'torna
setvariable Pillar Tradition
goto prepMoongate100

setDestination100_Tamigen:
setDestination100_Raven'sPoint:
setDestination100_RavenPoint:
setDestination100_Raven:
setDestination100_RP:
setvariable Destination Tamigen
setvariable Pillar Heavens
goto prepMoongate100

setDestination100_Asharshpar'i:
setDestination100_Asharshpari:
setDestination100_LethDeriel:
setDestination100_Leth:
setvariable Destination Asharshpar'i
setvariable Pillar Heavens
goto prepMoongate100

setDestination100_Emalerje:
setDestination100_Volcano:
setDestination100_Fist:
setDestination100_Tiv:
setvariable Destination Emalerje
setvariable Pillar Shrew
goto prepMoongate100

setDestination100_Taniendar:
setDestination100_Riverhaven:
setDestination100_Haven:
setDestination100_Gylwyn:
setvariable Destination Taniendar
setvariable Pillar Introspection
goto prepMoongate100

setDestination100_Dinegavren:
setDestination100_Therenborough:
setDestination100_Theren:
setvariable Destination Dinegavren
setvariable Pillar Introspection
goto prepMoongate100

setDestination100_Mintais:
setDestination100_ThroneCity:
setDestination100_Throne:
setDestination100_TC:
setvariable Destination Mintais
setvariable Pillar Fortune
goto prepMoongate100

setDestination100_Marendin:
setDestination100_Shard:
setDestination100_Ilithi:
setDestination100_Mortom:
setvariable Destination Marendin
setvariable Pillar Secrets
goto prepMoongate100

setDestination100_Erekinzil:
setDestination100_Taisgath:
setDestination100_Ratha:
setDestination100_Lomtaun:
setDestination100_Undarverjah:
setDestination100_Underweargnome:
setvariable Destination Erekinzil
setvariable Pillar Fortune
goto prepMoongate100

setDestination100_Vellano:
setDestination100_Fang:
setDestination100_FangCove:
setvariable Destination Vellano
setvariable Pillar Unity
goto prepMoongate100

prepMoongate100:
put prep moongate
setvariable afterHarness enterAP100
counter set %myCounter
goto harnessMana100%c

harnessMana1000:
goto %afterHarness

harnessMana1001:
harnessMana1002:
harnessMana1003:
harnessMana1004:
match wait_harnessMana100 ...wait
match wait_harnessMana100 Sorry, you may only type
match harnessCount100 You tap into the mana
put harness %mana
matchwait

harnessCount100:
counter subtract 1
goto harnessMana100%c

enterAP100:
match wait_enterAP100 ...wait
match wait_enterAP100 Sorry, you may only type
match StartIsEnd You attempt to open an astral
put cast Grazhir
matchwait


wait_harnessMana100:
pause 1
goto harnessMana100%c
wait_enterAP100:
pause 1
goto enterAP100

#####################################
# Errors
error_UnknownShard:
echo
echo ERROR: You do not know this shard yet!
echo "study %Start" to learn this shard.
echo
echo Until this shard is learned, you can not enter
echo or exit the Astral Planes here.
echo
echo Don't forget to "release" if it is safe to do so!
echo
echo If you are still in the Astral Plane, find your
echo way to the nearest known shard, ASAP!
goto cleanup
error_NoArguments:
echo
echo ERROR: This script requires a name for your destination.
echo Please see the starting text for a list.
echo Proper usage is ".ap destination"
echo
goto cleanup
error_badStart:
echo
echo ERROR: You are not at a known Grazhir shard
echo and you either lack the 100th ability or
echo did not include a 4th variable!
echo
goto cleanup
error_expanse:
echo
echo *** Uh oh, you're trapped in the grey expanse.
echo *** You may get out, but it isn't likely. Good luck!
echo
echo Statistics: %stepsToAxis from %Start to Axis
echo Statistics: %stepsFromAxis from Axis to %Destination
goto cleanup
error_dead:
echo
echo *** Uh oh, you didn't survive this trip.
echo *** I hope the empath likes extra crispy!
echo
echo Statistics: %stepsToAxis from %Start to Axis
echo Statistics: %stepsFromAxis from Axis to %Destination
goto cleanup
labelError:
echo
echo ERROR: You did not type in a valid name for your destination.
echo Please see the starting text for a list.
echo If you did type in a listed destination or got this error
echo while already moving, this this is a bug with the script's labels.
echo
goto cleanup
<\pre>

Latest revision as of 06:15, 20 August 2020

NOTE* Attempt at your own risk. It is likely this will not work and you will die.

GLITCH? Appears it won't travel to Shard... (unknown destination)


Astral Travel (script)
Category travel,Moon Mage
Front-end StormFront
Author Foresee, Uversy, Mozzik, Coralin, and Randoon


General Information

This script automatically travels the astral plane for you.

Front end: Stormfront

Front end: Genie compatible script at the bottom of the page

Recommended name: ap 

Usage:  .ap [destination] [harness times] [mana] [100th-Ability]

    Where:
          destination     = Any name from the list you get when you run the script with no arguments.
          harness times   = 0-4. Number of times to harness "mana".
          mana            = Amount of mana to harness
          100th-Ability   = Include any 4th variable to use the 100th circle ability to enter the AP.

     *** Must be done while standing at a Grazhir shard or script will exit with an error. ***

Change Log

For the full Log see Astral Travel Change Log History

EDITED by Uversy (5-28-2008) -- Version 1.4
     1.  Completion of a couple of TODO items.  Variable %2 now defines how many times to
         harness mana while %3 defines how much mana is harnessed each time.  Both apply
         to the starting point.
EDITED by Mozzik (9-14-2009) -- Version 2.0
     1.  Added new shards
EDITED by Mozzik (11-19-2009) -- Version 3.0
     1.  Updated for 100th
EDITED by Coralin (1-13-2012) -- Version 3.5
     1.  Updated for Dragonrealms 3.0
EDITED by Randoon (4-1-2013) -- Version 3.6
     1.  Updated to include Vellano shard
     2.  Fixed match to properly find Asharshpar'i
EDITED by Damart (11-19-2015) -- Version 3.7
     1. Updated to include Vellano 4th variable

TODO

1.  Design method for when a destination shard is not known to return the user to their starting
    point.  Though many will wind up dying on the return attempt anyhow, for those it saves...
    they will feel like Meraud himself touched them. :)

The Script

debug off
put release
echo
echo ==============================================
echo = Astral Travel script by Foresee, edited by Uversy, Mozzik and Coralin
echo = Last edited: 11/19/2015
echo = Edited by: Randoon
echo = Version 3.7 for DR 3.0
echo =
echo = ***Include 100 as the 4th variable to use 100th ability***
echo =
echo = Valid Destination names:
echo = Dor'na'torna - Dornatorna - Hibarnhvidar - Hib - Cherulisa
echo = Erekinzil - Taisgath - Ratha - Lomtaun - Cartman - Undarverjah - Underweargnome
echo = Tamigen - Raven'sPoint - RavenPoint - Raven - RP
echo = Rolagi - Crossing - Xing - Kssarh
echo = Marendin - Shard - Ilithi - Mortom
echo = Emalerje - Volcano - LesserFist - Fist - Tiv
echo = Asharshpar'i - Asharshpari - LethDeriel - Leth
echo = Dinegavren - Therenborough - Theren
echo = Mintais - ThroneCity - Throne - TC
echo = Taniendar - Riverhaven - Haven - Gylwyn
echo = Besoge - M'riss - Mriss - Mer'kresh - Merkresh
echo = Tabelrem - Muspar'i - Muspari - Tablerum
echo = Auilusi - Aesry
echo = Vellano - Fang - FangCove
echo ==============================================
echo

if_2 goto setCounter1
goto setCounter2

setCounter1:
setvariable myCounter %2
goto setMana

setCounter2:
setvariable myCounter 3
goto setMana

setMana:
if_3 goto setMana1
goto setMana2

setMana1:
setvariable mana %3
goto myStart

setMana2:
setvariable mana 15
goto myStart

myStart:
setvariable stepsToAxis 0
setvariable stepsFromAxis 0

# These four variables are defined later in the script.
setvariable Start
setvariable Destination
setvariable Pillar
setvariable afterHarness

if_1 goto setStart
goto error_noArguments

setStart:
    match Dor'na'torna		the silvery-white shard Dor'na'torna
    match Erekinzil		the silvery-white shard Erekinzil
    match Besoge		the silvery-white shard Besoge
    match Auilusi		the silvery-white shard Auilusi
    match Tabelrem		the silvery-white shard Tabelrem
    match Tamigen		[Cragstone Vale, Shrine of the Shell]
    match Rolagi		the silvery-white shard Rolagi
    match Marendin		the silvery-white shard Marendin
    match Emalerje		the silvery-white shard Emalerje
    match Asharshpar'i		the silvery shard Asharshpar'i
    match Dinegavren		[Gealeranendae College, Tear of Grazhir Exhibit]
    match Mintais		[Phelim's Sanctum, Tear of Grazhir]
    match Taniendar		the silvery-white shard Taniendar
    match Vellano		the silvery-white shard Vellano
    match 100check	Obvious exits:
    match 100check	Obvious paths:
    put look shard
    put look
    matchwait

Dor'na'torna:
    setvariable Start Dor'na'torna
    goto setDestination
Erekinzil:
    setvariable Start Erekinzil
    goto setDestination
Besoge:
    setvariable Start Besoge
    goto setDestination
Auilusi:
    setvariable Start Auilusi
    goto setDestination
Tabelrem:
    setvariable Start Tabelrem
    goto setDestination
Tamigen:
    setvariable Start Tamigen
    goto setDestination
Rolagi:
    setvariable Start Rolagi
    goto setDestination
Marendin:
    setvariable Start Marendin
    goto setDestination
Emalerje:
    setvariable Start Emalerje
    goto setDestination
Asharshpar'i:
    setvariable Start Asharshpar'i
    goto setDestination
Dinegavren:
    setvariable Start Dinegavren
    goto setDestination
Mintais:
    setvariable Start Mintais
    goto setDestination
Taniendar:
    setvariable Start Taniendar
    goto setDestination
Vellano:
    setvariable Start Vellano
    goto setDestination

# Valid destinations
setDestination:
    goto setDestination_%1%

setDestination_Rolagi:
setDestination_Crossing:
setDestination_Xing:
setDestination_Kssarh:
    setvariable Destination Rolagi
    setvariable Pillar Nightmares
    goto prepMoongate

setDestination_Besoge:
setDestination_M'riss:
setDestination_Mriss:
setDestination_Mer'kresh:
setDestination_Merkresh:
    setvariable Destination Besoge
    setvariable Pillar Secrets
    goto prepMoongate

setDestination_Tabelrem:
setDestination_Muspar'i:
setDestination_Muspari:
setDestination_Tablerum:
    setvariable Destination Tabelrem
    setvariable Pillar Nightmares
    goto prepMoongate

setDestination_Auilusi:
setDestination_Aesry:
    setvariable Destination Auilusi
    setvariable Pillar Tradition
    goto prepMoongate

setDestination_Dor'na'torna:
setDestination_Dornatorna:
setDestination_Hibarnhvidar:
setDestination_Hib:
setDestination_Cherulisa:
    setvariable Destination Dor'na'torna
    setvariable Pillar Tradition
    goto prepMoongate

setDestination_Tamigen:
setDestination_Raven'sPoint:
setDestination_RavenPoint:
setDestination_Raven:
setDestination_RP:
    setvariable Destination Tamigen
    setvariable Pillar Heavens
    goto prepMoongate

setDestination_Asharshpar'i:
setDestination_Asharshpari:
setDestination_LethDeriel:
setDestination_Leth:
    setvariable Destination Asharshpar'i
    setvariable Pillar Heavens
    goto prepMoongate

setDestination_Emalerje:
setDestination_Volcano:
setDestinatoin_LesserFist:
setDestination_Fist:
setDestination_Tiv:
    setvariable Destination Emalerje
    setvariable Pillar Shrew
    goto prepMoongate

setDestination_Taniendar:
setDestination_Riverhaven:
setDestination_Haven:
setDestination_Gylwyn:
    setvariable Destination Taniendar
    setvariable Pillar Introspection
    goto prepMoongate

setDestination_Dinegavren:
setDestination_Therenborough:
setDestination_Theren:
    setvariable Destination Dinegavren
    setvariable Pillar Introspection
    goto prepMoongate

setDestination_Mintais:
setDestination_ThroneCity:
setDestination_Throne:
setDestination_TC:
    setvariable Destination Mintais
    setvariable Pillar Fortune
    goto prepMoongate

setDestination_Marendin:
setDestination_Shard:
setDestination_Ilithi:
setDestination_Mortom:
    setvariable Destination Marendin
    setvariable Pillar Secrets
    goto prepMoongate

setDestination_Erekinzil:
setDestination_Taisgath:
setDestination_Ratha:
setDestinatoin_Cartman:
setDestination_Lomtaun:
setDestination_Undarverjah:
setDestination_Underweargnome:
    setvariable Destination Erekinzil
    setvariable Pillar Fortune
    goto prepMoongate

setDestination_Vellano:
setDestination_Fang:
setDestination_FangCove:
    setvariable Destination Vellano
    setvariable Pillar Unity
    goto prepMoongate   

prepMoongate:
    put prep moongate
    goto focusShard

focusShard:
    setvariable afterHarness enterAP
    counter set %myCounter

    match error_UnknownShard    You do not recognize this shard
    match harnessMana%c         You feel fully prepared
    put focus %Start%
    matchwait

harnessMana0:
    goto %afterHarness

harnessMana1:
harnessMana2:
harnessMana3:
harnessMana4:
    match wait_harnessMana	...wait
    match wait_harnessMana	Sorry, you may only type
    match harnessCount		You tap into the mana
    put harness %mana%
    matchwait

harnessCount:
    counter subtract 1
    goto harnessMana%c

harnessEmergency:
    setvariable afterHarness exitAP
    counter set 1
    goto harnessMana%c

enterAP:
    match wait_enterAP		...wait
    match wait_enterAP		Sorry, you may only type
    match StartIsEnd		You attempt to open
    put cast %Start%
    matchwait

StartIsEnd:
match exitAP %Destination%
    match toAxis none
    put look
   matchwait

toAxis:
counter set %stepsToAxis%
    counter add 1
    setvariable stepsToAxis %c%
    
    toAxis1:
        match wait_toAxis1	...wait
        match wait_toAxis1	Sorry, you may only type
        match toAxis_N		the microcosm is to the north.
        match toAxis_NE		the microcosm is to the northeast.
        match toAxis_E		the microcosm is to the east.
        match toAxis_SE		the microcosm is to the southeast.
        match toAxis_S		the microcosm is to the south.
        match toAxis_SW		the microcosm is to the southwest.
        match toAxis_W		the microcosm is to the west.
        match toAxis_NW		the microcosm is to the northwest.
        match error_expanse	You cannot sense even a single thread of Lunar energy
        match error_dead	You are a ghost!
        put perceive
        matchwait

toAxis_N:
    match wait_toAxis_N		...wait
    match wait_toAxis_N		Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put north
    matchwait
toAxis_NE:
    match wait_toAxis_NE	...wait
    match wait_toAxis_NE	Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put northeast
    matchwait
toAxis_E:
    match wait_toAxis_E		...wait
    match wait_toAxis_E		Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put east
    matchwait
toAxis_SE:
    match wait_toAxis_SE	...wait
    match wait_toAxis_SE	Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put southeast
    matchwait
toAxis_S:
    match wait_toAxis_S		...wait
    match wait_toAxis_S		Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put south
    matchwait
toAxis_SW:
    match wait_toAxis_SW	...wait
    match wait_toAxis_SW	Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put southwest
    matchwait
toAxis_W:
    match wait_toAxis_W		...wait
    match wait_toAxis_W		Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put west
    matchwait
toAxis_NW:
    match wait_toAxis_NW	...wait
    match wait_toAxis_NW	Sorry, you may only type
    match toAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put northwest
    matchwait

atAxis:
    move east
    move up
    goto Convergence_to_%Pillar%

Convergence_to_Convergence:
    goto exitAxis
Convergence_to_Nightmares:
    move south
    goto exitAxis
Convergence_to_Tradition:
    move southeast
    goto exitAxis
Convergence_to_Secrets:
    move east
    goto exitAxis
Convergence_to_Unity:
    move northeast
    goto exitAxis
Convergence_to_Shrew:
    move north
    goto exitAxis
Convergence_to_Heavens:
    move northwest
    goto exitAxis
Convergence_to_Introspection:
    move west
    goto exitAxis
Convergence_to_Fortune:
    move southwest
    goto exitAxis
Convergence_to_Broken:
    move south
    move down
    goto exitAxis

exitAxis:
    put focus %Destination%
    goto fromAxis

fromAxis:
    counter set %stepsFromAxis%
    counter add 1
    setvariable stepsFromAxis %c%

    fromAxis1:
        match wait_fromAxis1	...wait
        match wait_fromAxis1	Sorry, you may only type
        match fromAxis_N	the conduit lies north.
        match fromAxis_NE	the conduit lies northeast.
        match fromAxis_E	the conduit lies east.
        match fromAxis_SE	the conduit lies southeast.
        match fromAxis_S	the conduit lies south.
        match fromAxis_SW	the conduit lies southwest.
        match fromAxis_W	the conduit lies west.
        match fromAxis_NW	the conduit lies northwest.
        match error_expanse	You cannot sense even a single thread of Lunar energy
        match error_dead	You are a ghost!
        put perceive
        matchwait

fromAxis_N:
    match wait_fromAxis_N	...wait
    match wait_fromAxis_N	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put north
    matchwait

fromAxis_NE:
    match wait_fromAxis_NE	...wait
    match wait_fromAxis_NE	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put northeast
    matchwait

fromAxis_E:
    match wait_fromAxis_E	...wait
    match wait_fromAxis_E	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put east
    matchwait

fromAxis_SE:
    match wait_fromAxis_SE	...wait
    match wait_fromAxis_SE	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put southeast
    matchwait

fromAxis_S:
    match wait_fromAxis_S	...wait
    match wait_fromAxis_S	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put south
    matchwait

fromAxis_SW:
    match wait_fromAxis_SW	...wait
    match wait_fromAxis_SW	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put southwest
    matchwait

fromAxis_W:
    match wait_fromAxis_W	...wait
    match wait_fromAxis_W	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put west
    matchwait

fromAxis_NW:
    match wait_fromAxis_NW	...wait
    match wait_fromAxis_NW	Sorry, you may only type
    match exitAP		You also see the silvery-white shard
    match exitAP		You also see the silvery shard
    match fromAxis		Obvious exits: none.
    match atAxis		Obvious exits: north,
    match atAxis		Obvious exits: east,
    put northwest
    matchwait

exitAP:
    put prep moongate

    match error_UnknownShard    You do not recognize this shard
    match exitAP_cast           You feel fully prepared
    put focus %Destination%
    matchwait

exitAP_cast:
    match wait_exitAP_cast	...wait
    match wait_exitAP_cast	Sorry, you may only type
    match harnessEmergency	The spell goes awry!
    match release               You attempt to open an astral
    put cast %Destination%
    matchwait

release:
    put release
    pause 1
    echo Statistics:  %stepsToAxis% from %Start% to Axis
    echo Statistics:  %stepsFromAxis% from Axis to %Destination%
    goto cleanup

cleanup:
    deletevariable stepsToAxis
    deletevariable stepsFromAxis
    deletevariable mana
    deletevariable Start
    deletevariable Destination
    deletevariable Pillar
    deletevariable counter
    deletevariable afterHarness
    exit


#################################
# Wait section
wait_harnessMana:
    pause 1
    goto harnessMana%c
wait_harnessEmergency:
    pause 1
    goto harnessEmergency
wait_enterAP:
    pause 1
    goto enterAP
wait_toAxis1:
    pause 1
    goto toAxis1
wait_toAxis_N:
    pause 1
    goto toAxis_N
wait_toAxis_NE:
    pause 1
    goto toAxis_NE
wait_toAxis_E:
    pause 1
    goto toAxis_E
wait_toAxis_SE:
    pause 1
    goto toAxis_SE
wait_toAxis_S:
    pause 1
    goto toAxis_S
wait_toAxis_SW:
    pause 1
    goto toAxis_SW
wait_toAxis_W:
    pause 1
    goto toAxis_W
wait_toAxis_NW:
    pause 1
    goto toAxis_NW
wait_fromAxis1:
    pause 1
    goto fromAxis1
wait_fromAxis_N:
    pause 1
    goto fromAxis_N
wait_fromAxis_NE:
    pause 1
    goto fromAxis_NE
wait_fromAxis_E:
    pause 1
    goto fromAxis_E
wait_fromAxis_SE:
    pause 1
    goto fromAxis_SE
wait_fromAxis_S:
    pause 1
    goto fromAxis_S
wait_fromAxis_SW:
    pause 1
    goto fromAxis_SW
wait_fromAxis_W:
    pause 1
    goto fromAxis_W
wait_fromAxis_NW:
    pause 1
    goto fromAxis_NW
wait_exitAP_cast:
    pause 1
    goto exitAP_cast
#####################################
# 100th
100check:
if_4 goto 100
goto error_badStart

100:
setvariable Start Grazhir
echo *** Using 100th ability ***
    goto setDestination100

setDestination100:
    goto setDestination100_%1%

setDestination100_Rolagi:
setDestination100_Crossing:
setDestination100_Xing:
setDestination100_Kssarh:
    setvariable Destination Rolagi
    setvariable Pillar Nightmares
    goto prepMoongate100

setDestination100_Besoge:
setDestination100_M'riss:
setDestination100_Mriss:
setDestination100_Mer'kresh:
setDestination100_Merkresh:
    setvariable Destination Besoge
    setvariable Pillar Secrets
    goto prepMoongate100

setDestination100_Tabelrem:
setDestination100_Muspar'i:
setDestination100_Muspari:
setDestination100_Tablerum:
    setvariable Destination Tabelrem
    setvariable Pillar Nightmares
    goto prepMoongate100

setDestination100_Auilusi:
setDestination100_Aesry:
    setvariable Destination Auilusi
    setvariable Pillar Tradition
    goto prepMoongate100

setDestination100_Dor'na'torna:
setDestination100_Dornatorna:
setDestination100_Hibarnhvidar:
setDestination100_Hib:
setDestination100_Cherulisa:
    setvariable Destination Dor'na'torna
    setvariable Pillar Tradition
    goto prepMoongate100

setDestination100_Tamigen:
setDestination100_Raven'sPoint:
setDestination100_RavenPoint:
setDestination100_Raven:
setDestination100_RP:
    setvariable Destination Tamigen
    setvariable Pillar Heavens
    goto prepMoongate100

setDestination100_Asharshpar'i:
setDestination100_Asharshpari:
setDestination100_LethDeriel:
setDestination100_Leth:
    setvariable Destination Asharshpar'i
    setvariable Pillar Heavens
    goto prepMoongate100

setDestination100_Emalerje:
setDestination100_Volcano:
setDestinatoin_LesserFist:
setDestination100_Fist:
setDestination100_Tiv:
    setvariable Destination Emalerje
    setvariable Pillar Shrew
    goto prepMoongate100

setDestination100_Taniendar:
setDestination100_Riverhaven:
setDestination100_Haven:
setDestination100_Gylwyn:
    setvariable Destination Taniendar
    setvariable Pillar Introspection
    goto prepMoongate100

setDestination100_Dinegavren:
setDestination100_Therenborough:
setDestination100_Theren:
    setvariable Destination Dinegavren
    setvariable Pillar Introspection
    goto prepMoongate100

setDestination100_Mintais:
setDestination100_ThroneCity:
setDestination100_Throne:
setDestination100_TC:
    setvariable Destination Mintais
    setvariable Pillar Fortune
    goto prepMoongate100

setDestination100_Marendin:
setDestination100_Shard:
setDestination100_Ilithi:
setDestination100_Mortom:
    setvariable Destination Marendin
    setvariable Pillar Secrets
    goto prepMoongate100

setDestination100_Erekinzil:
setDestination100_Taisgath:
setDestination100_Ratha:
setDestinatoin_Cartman:
setDestination100_Lomtaun:
setDestination100_Undarverjah:
setDestination100_Underweargnome:
    setvariable Destination Erekinzil
    setvariable Pillar Fortune
    goto prepMoongate100

setDestination100_Vellano:
setDestination100_Fang:
setDestination100_FangCove:
    setvariable Destination Vellano
    setvariable Pillar Unity
    goto prepMoongate100   

prepMoongate100:
    put prep moongate
    setvariable afterHarness enterAP100
    counter set %myCounter
goto harnessMana100%c

harnessMana1000:
    goto %afterHarness

harnessMana1001:
harnessMana1002:
harnessMana1003:
harnessMana1004:
    match wait_harnessMana100	...wait
    match wait_harnessMana100	Sorry, you may only type
    match harnessCount100		You tap into the mana
    put harness %mana%
    matchwait

harnessCount100:
    counter subtract 1
    goto harnessMana100%c

enterAP100:
    match wait_enterAP100		...wait
    match wait_enterAP100		Sorry, you may only type
    match StartIsEnd		You attempt to open an astral 
    put cast Grazhir
    matchwait


wait_harnessMana100:
    pause 1
    goto harnessMana100%c
wait_enterAP100:
    pause 1
    goto enterAP100

#####################################
# Errors
error_UnknownShard:
    echo
    echo ERROR:  You do not know this shard yet!
    echo         "study %Start%" to learn this shard.
    echo         
    echo         Until this shard is learned, you can not enter
    echo         or exit the Astral Planes here.
    echo
    echo         Don't forget to "release" if it is safe to do so!
    echo         
    echo         If you are still in the Astral Plane, find your
    echo         way to the nearest known shard, ASAP!
    goto cleanup
error_NoArguments:
    echo
    echo ERROR:  This script requires a name for your destination.
    echo         Please see the starting text for a list.
    echo         Proper usage is ".ap destination"
    echo
    goto cleanup
error_badStart:
    echo
    echo ERROR:  You are not at a known Grazhir shard
    echo         and you either lack the 100th ability or
    echo		 did not include a 4th variable!
    echo		 
    goto cleanup
error_expanse:
    echo
    echo *** Uh oh, you're trapped in the grey expanse.
    echo *** You may get out, but it isn't likely.  Good luck!
    echo
    echo Statistics:  %stepsToAxis% from %Start% to Axis
    echo Statistics:  %stepsFromAxis% from Axis to %Destination%
    goto cleanup
error_dead:
    echo
    echo *** Uh oh, you didn't survive this trip.
    echo *** I hope the empath likes extra crispy!
    echo
    echo Statistics:  %stepsToAxis% from %Start% to Axis
    echo Statistics:  %stepsFromAxis% from Axis to %Destination%
    goto cleanup
labelError:
    echo
    echo ERROR:  You did not type in a valid name for your destination.
    echo         Please see the starting text for a list.
    echo         If you did type in a listed destination or got this error
    echo         while already moving, this this is a bug with the script's labels.
    echo
    goto cleanup

Genie Version

debug off
put release
echo
echo ==============================================
echo = Astral Travel script by Foresee, edited by Uversy, Mozzik and Coralin
echo = Last edited: 8/5/2017
echo = Edited by: Randoon
echo = Edited For Genie, duplicate labels, errors and typos fixed by : Gavinne
echo = Version 3.8 for DR 3.0
echo =
echo = ***Include 100 as the 4th variable to use 100th ability***
echo =
echo = Valid Destination names:
echo = Dor'na'torna - Dornatorna - Hibarnhvidar - Hib - Cherulisa
echo = Erekinzil - Taisgath - Ratha - Lomtaun - Cartman - Undarverjah - Underweargnome
echo = Tamigen - Raven'sPoint - RavenPoint - Raven - RP
echo = Rolagi - Crossing - Xing - Kssarh
echo = Marendin - Shard - Ilithi - Mortom
echo = Emalerje - Volcano - LesserFist - Fist - Tiv
echo = Asharshpar'i - Asharshpari - LethDeriel - Leth
echo = Dinegavren - Therenborough - Theren
echo = Mintais - ThroneCity - Throne - TC
echo = Taniendar - Riverhaven - Haven - Gylwyn
echo = Besoge - M'riss - Mriss - Mer'kresh - Merkresh
echo = Tabelrem - Muspar'i - Muspari - Tablerum
echo = Auilusi - Aesry
echo = Vellano - Fang - FangCove
echo ==============================================
echo

if_2 goto setCounter1
goto setCounter2

setCounter1:
setvariable myCounter %2
goto setMana

setCounter2:
setvariable myCounter 3
goto setMana

setMana:
if_3 goto setMana1
goto setMana2

setMana1:
setvariable mana %3
goto myStart

setMana2:
setvariable mana 15
goto myStart

myStart:
setvariable stepsToAxis 0
setvariable stepsFromAxis 0

# These four variables are defined later in the script.
setvariable Start
setvariable Destination
setvariable Pillar
setvariable afterHarness

if_1 goto setStart
goto error_noArguments

setStart:
    match Dor'na'torna the silvery-white shard Dor'na'torna
    match Erekinzil the silvery-white shard Erekinzil
    match Besoge the silvery-white shard Besoge
    match Auilusi the silvery-white shard Auilusi
    match Tabelrem the silvery-white shard Tabelrem
    match Tamigen [Cragstone Vale, Shrine of the Shell]
    match Rolagi the silvery-white shard Rolagi
    match Marendin the silvery-white shard Marendin
    match Emalerje the silvery-white shard Emalerje
    match Asharshpar'i the silvery shard Asharshpar'i
    match Dinegavren [Gealeranendae College, Tear of Grazhir Exhibit]
    match Mintais [Phelim's Sanctum, Tear of Grazhir]
    match Taniendar the silvery-white shard Taniendar
    match Vellano the silvery-white shard Vellano
    match 100check Obvious exits:
    match 100check Obvious paths:
    put look shard
    put look
    matchwait

Dor'na'torna:
    setvariable Start Dor'na'torna
    goto setDestination
Erekinzil:
    setvariable Start Erekinzil
    goto setDestination
Besoge:
    setvariable Start Besoge
    goto setDestination
Auilusi:
    setvariable Start Auilusi
    goto setDestination
Tabelrem:
    setvariable Start Tabelrem
    goto setDestination
Tamigen:
    setvariable Start Tamigen
    goto setDestination
Rolagi:
    setvariable Start Rolagi
    goto setDestination
Marendin:
    setvariable Start Marendin
    goto setDestination
Emalerje:
    setvariable Start Emalerje
    goto setDestination
Asharshpar'i:
    setvariable Start Asharshpar'i
    goto setDestination
Dinegavren:
    setvariable Start Dinegavren
    goto setDestination
Mintais:
    setvariable Start Mintais
    goto setDestination
Taniendar:
    setvariable Start Taniendar
    goto setDestination
Vellano:
    setvariable Start Vellano
    goto setDestination

# Valid destinations
setDestination:
    goto setDestination_%1

setDestination_Rolagi:
setDestination_Crossing:
setDestination_Xing:
setDestination_Kssarh:
    setvariable Destination Rolagi
    setvariable Pillar Nightmares
    goto prepMoongate

setDestination_Besoge:
setDestination_M'riss:
setDestination_Mriss:
setDestination_Mer'kresh:
setDestination_Merkresh:
    setvariable Destination Besoge
    setvariable Pillar Secrets
    goto prepMoongate

setDestination_Tabelrem:
setDestination_Muspar'i:
setDestination_Muspari:
setDestination_Tablerum:
    setvariable Destination Tabelrem
    setvariable Pillar Nightmares
    goto prepMoongate

setDestination_Auilusi:
setDestination_Aesry:
    setvariable Destination Auilusi
    setvariable Pillar Tradition
    goto prepMoongate

setDestination_Dor'na'torna:
setDestination_Dornatorna:
setDestination_Hibarnhvidar:
setDestination_Hib:
setDestination_Cherulisa:
    setvariable Destination Dor'na'torna
    setvariable Pillar Tradition
    goto prepMoongate

setDestination_Tamigen:
setDestination_Raven'sPoint:
setDestination_RavenPoint:
setDestination_Raven:
setDestination_RP:
    setvariable Destination Tamigen
    setvariable Pillar Heavens
    goto prepMoongate

setDestination_Asharshpar'i:
setDestination_Asharshpari:
setDestination_LethDeriel:
setDestination_Leth:
    setvariable Destination Asharshpar'i
    setvariable Pillar Heavens
    goto prepMoongate

setDestination_Emalerje:
setDestination_Volcano:
setDestination_LesserFist:
setDestination_Fist:
setDestination_Tiv:
    setvariable Destination Emalerje
    setvariable Pillar Shrew
    goto prepMoongate

setDestination_Taniendar:
setDestination_Riverhaven:
setDestination_Haven:
setDestination_Gylwyn:
    setvariable Destination Taniendar
    setvariable Pillar Introspection
    goto prepMoongate

setDestination_Dinegavren:
setDestination_Therenborough:
setDestination_Theren:
    setvariable Destination Dinegavren
    setvariable Pillar Introspection
    goto prepMoongate

setDestination_Mintais:
setDestination_ThroneCity:
setDestination_Throne:
setDestination_TC:
    setvariable Destination Mintais
    setvariable Pillar Fortune
    goto prepMoongate

setDestination_Marendin:
setDestination_Shard:
setDestination_Ilithi:
setDestination_Mortom:
    setvariable Destination Marendin
    setvariable Pillar Secrets
    goto prepMoongate

setDestination_Erekinzil:
setDestination_Taisgath:
setDestination_Ratha:
setDestination_Cartman:
setDestination_Lomtaun:
setDestination_Undarverjah:
setDestination_Underweargnome:
    setvariable Destination Erekinzil
    setvariable Pillar Fortune
    goto prepMoongate

setDestination_Vellano:
setDestination_Fang:
setDestination_FangCove:
    setvariable Destination Vellano
    setvariable Pillar Unity
    goto prepMoongate   

prepMoongate:
    put prep moongate
    goto focusShard

focusShard:
    setvariable afterHarness enterAP
    counter set %myCounter

    match error_UnknownShard You do not recognize this shard
    match harnessMana%c You feel fully prepared
    put focus %Start
    matchwait

harnessMana0:
    goto %afterHarness

harnessMana1:
harnessMana2:
harnessMana3:
harnessMana4:
    match wait_harnessMana ...wait
    match wait_harnessMana Sorry, you may only type
    match harnessCount You tap into the mana
    put harness %mana
    matchwait

harnessCount:
    counter subtract 1
    goto harnessMana%c

harnessEmergency:
    setvariable afterHarness exitAP
    counter set 1
    goto harnessMana%c

enterAP:
    match wait_enterAP ...wait
    match wait_enterAP Sorry, you may only type
    match StartIsEnd You attempt to open
    put cast %Start
    matchwait

StartIsEnd:
match exitAP %Destination
    match toAxis none
    put look
   matchwait

toAxis:
counter set %stepsToAxis
    counter add 1
    setvariable stepsToAxis %c
    
    toAxis1:
        match wait_toAxis1 ...wait
        match wait_toAxis1 Sorry, you may only type
        match toAxis_N the microcosm is to the north.
        match toAxis_NE the microcosm is to the northeast.
        match toAxis_E the microcosm is to the east.
        match toAxis_SE the microcosm is to the southeast.
        match toAxis_S the microcosm is to the south.
        match toAxis_SW the microcosm is to the southwest.
        match toAxis_W the microcosm is to the west.
        match toAxis_NW the microcosm is to the northwest.
        match error_expanse You cannot sense even a single thread of Lunar energy
        match error_dead You are a ghost!
        put perceive
        matchwait

toAxis_N:
    match wait_toAxis_N ...wait
    match wait_toAxis_N Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put north
    matchwait
toAxis_NE:
    match wait_toAxis_NE ...wait
    match wait_toAxis_NE Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put northeast
    matchwait
toAxis_E:
    match wait_toAxis_E ...wait
    match wait_toAxis_E Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put east
    matchwait
toAxis_SE:
    match wait_toAxis_SE ...wait
    match wait_toAxis_SE Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put southeast
    matchwait
toAxis_S:
    match wait_toAxis_S ...wait
    match wait_toAxis_S Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put south
    matchwait
toAxis_SW:
    match wait_toAxis_SW ...wait
    match wait_toAxis_SW Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put southwest
    matchwait
toAxis_W:
    match wait_toAxis_W ...wait
    match wait_toAxis_W Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put west
    matchwait
toAxis_NW:
    match wait_toAxis_NW ...wait
    match wait_toAxis_NW Sorry, you may only type
    match toAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put northwest
    matchwait

atAxis:
    move east
    move up
    goto Convergence_to_%Pillar

Convergence_to_Convergence:
    goto exitAxis
Convergence_to_Nightmares:
    move south
    goto exitAxis
Convergence_to_Tradition:
    move southeast
    goto exitAxis
Convergence_to_Secrets:
    move east
    goto exitAxis
Convergence_to_Unity:
    move northeast
    goto exitAxis
Convergence_to_Shrew:
    move north
    goto exitAxis
Convergence_to_Heavens:
    move northwest
    goto exitAxis
Convergence_to_Introspection:
    move west
    goto exitAxis
Convergence_to_Fortune:
    move southwest
    goto exitAxis
Convergence_to_Broken:
    move south
    move down
    goto exitAxis

exitAxis:
    put focus %Destination
    goto fromAxis

fromAxis:
    counter set %stepsFromAxis
    counter add 1
    setvariable stepsFromAxis %c

    fromAxis1:
        match wait_fromAxis1 ...wait
        match wait_fromAxis1 Sorry, you may only type
        match fromAxis_N the conduit lies north.
        match fromAxis_NE the conduit lies northeast.
        match fromAxis_E the conduit lies east.
        match fromAxis_SE the conduit lies southeast.
        match fromAxis_S the conduit lies south.
        match fromAxis_SW the conduit lies southwest.
        match fromAxis_W the conduit lies west.
        match fromAxis_NW the conduit lies northwest.
        match error_expanse You cannot sense even a single thread of Lunar energy
        match error_dead You are a ghost!
        put perceive
        matchwait

fromAxis_N:
    match wait_fromAxis_N ...wait
    match wait_fromAxis_N Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put north
    matchwait

fromAxis_NE:
    match wait_fromAxis_NE ...wait
    match wait_fromAxis_NE Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put northeast
    matchwait

fromAxis_E:
    match wait_fromAxis_E ...wait
    match wait_fromAxis_E Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put east
    matchwait

fromAxis_SE:
    match wait_fromAxis_SE ...wait
    match wait_fromAxis_SE Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put southeast
    matchwait

fromAxis_S:
    match wait_fromAxis_S ...wait
    match wait_fromAxis_S Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put south
    matchwait

fromAxis_SW:
    match wait_fromAxis_SW ...wait
    match wait_fromAxis_SW Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put southwest
    matchwait

fromAxis_W:
    match wait_fromAxis_W ...wait
    match wait_fromAxis_W Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put west
    matchwait

fromAxis_NW:
    match wait_fromAxis_NW ...wait
    match wait_fromAxis_NW Sorry, you may only type
    match exitAP You also see the silvery-white shard
    match exitAP You also see the silvery shard
    match fromAxis Obvious exits: none.
    match atAxis Obvious exits: north,
    match atAxis Obvious exits: east,
    put northwest
    matchwait

exitAP:
    put prep moongate

    match error_UnknownShard You do not recognize this shard
    match exitAP_cast feel fully prepared
    put focus %Destination
    matchwait

exitAP_cast:
    match wait_exitAP_cast ...wait
    match wait_exitAP_cast Sorry, you may only type
    match harnessEmergency The spell goes awry!
    match release You attempt to open an astral
    put cast %Destination
    matchwait

release:
    put release
    pause 1
    echo Statistics:  %stepsToAxis from %Start to Axis
    echo Statistics:  %stepsFromAxis from Axis to %Destination
    goto cleanup

cleanup:
    unvar stepsToAxis
    unvar stepsFromAxis
    unvar mana
    unvar Start
    unvar Destination
    unvar Pillar
    unvar counter
    unvar afterHarness
    exit


#################################
# Wait section
wait_harnessMana:
    pause 1
    goto harnessMana%c
wait_harnessEmergency:
    pause 1
    goto harnessEmergency
wait_enterAP:
    pause 1
    goto enterAP
wait_toAxis1:
    pause 1
    goto toAxis1
wait_toAxis_N:
    pause 1
    goto toAxis_N
wait_toAxis_NE:
    pause 1
    goto toAxis_NE
wait_toAxis_E:
    pause 1
    goto toAxis_E
wait_toAxis_SE:
    pause 1
    goto toAxis_SE
wait_toAxis_S:
    pause 1
    goto toAxis_S
wait_toAxis_SW:
    pause 1
    goto toAxis_SW
wait_toAxis_W:
    pause 1
    goto toAxis_W
wait_toAxis_NW:
    pause 1
    goto toAxis_NW
wait_fromAxis1:
    pause 1
    goto fromAxis1
wait_fromAxis_N:
    pause 1
    goto fromAxis_N
wait_fromAxis_NE:
    pause 1
    goto fromAxis_NE
wait_fromAxis_E:
    pause 1
    goto fromAxis_E
wait_fromAxis_SE:
    pause 1
    goto fromAxis_SE
wait_fromAxis_S:
    pause 1
    goto fromAxis_S
wait_fromAxis_SW:
    pause 1
    goto fromAxis_SW
wait_fromAxis_W:
    pause 1
    goto fromAxis_W
wait_fromAxis_NW:
    pause 1
    goto fromAxis_NW
wait_exitAP_cast:
    pause 1
    goto exitAP_cast
#####################################
# 100th
100check:
if_4 goto 100
goto error_badStart

100:
setvariable Start Grazhir
echo *** Using 100th ability ***
    goto setDestination100

setDestination100:
    goto setDestination100_%1

setDestination100_Rolagi:
setDestination100_Crossing:
setDestination100_Xing:
setDestination100_Kssarh:
    setvariable Destination Rolagi
    setvariable Pillar Nightmares
    goto prepMoongate100

setDestination100_Besoge:
setDestination100_M'riss:
setDestination100_Mriss:
setDestination100_Mer'kresh:
setDestination100_Merkresh:
    setvariable Destination Besoge
    setvariable Pillar Secrets
    goto prepMoongate100

setDestination100_Tabelrem:
setDestination100_Muspar'i:
setDestination100_Muspari:
setDestination100_Tablerum:
    setvariable Destination Tabelrem
    setvariable Pillar Nightmares
    goto prepMoongate100

setDestination100_Auilusi:
setDestination100_Aesry:
    setvariable Destination Auilusi
    setvariable Pillar Tradition
    goto prepMoongate100

setDestination100_Dor'na'torna:
setDestination100_Dornatorna:
setDestination100_Hibarnhvidar:
setDestination100_Hib:
setDestination100_Cherulisa:
    setvariable Destination Dor'na'torna
    setvariable Pillar Tradition
    goto prepMoongate100

setDestination100_Tamigen:
setDestination100_Raven'sPoint:
setDestination100_RavenPoint:
setDestination100_Raven:
setDestination100_RP:
    setvariable Destination Tamigen
    setvariable Pillar Heavens
    goto prepMoongate100

setDestination100_Asharshpar'i:
setDestination100_Asharshpari:
setDestination100_LethDeriel:
setDestination100_Leth:
    setvariable Destination Asharshpar'i
    setvariable Pillar Heavens
    goto prepMoongate100

setDestination100_Emalerje:
setDestination100_Volcano:
setDestination100_Fist:
setDestination100_Tiv:
    setvariable Destination Emalerje
    setvariable Pillar Shrew
    goto prepMoongate100

setDestination100_Taniendar:
setDestination100_Riverhaven:
setDestination100_Haven:
setDestination100_Gylwyn:
    setvariable Destination Taniendar
    setvariable Pillar Introspection
    goto prepMoongate100

setDestination100_Dinegavren:
setDestination100_Therenborough:
setDestination100_Theren:
    setvariable Destination Dinegavren
    setvariable Pillar Introspection
    goto prepMoongate100

setDestination100_Mintais:
setDestination100_ThroneCity:
setDestination100_Throne:
setDestination100_TC:
    setvariable Destination Mintais
    setvariable Pillar Fortune
    goto prepMoongate100

setDestination100_Marendin:
setDestination100_Shard:
setDestination100_Ilithi:
setDestination100_Mortom:
    setvariable Destination Marendin
    setvariable Pillar Secrets
    goto prepMoongate100

setDestination100_Erekinzil:
setDestination100_Taisgath:
setDestination100_Ratha:
setDestination100_Lomtaun:
setDestination100_Undarverjah:
setDestination100_Underweargnome:
    setvariable Destination Erekinzil
    setvariable Pillar Fortune
    goto prepMoongate100

setDestination100_Vellano:
setDestination100_Fang:
setDestination100_FangCove:
    setvariable Destination Vellano
    setvariable Pillar Unity
    goto prepMoongate100   

prepMoongate100:
    put prep moongate
    setvariable afterHarness enterAP100
    counter set %myCounter
goto harnessMana100%c

harnessMana1000:
    goto %afterHarness

harnessMana1001:
harnessMana1002:
harnessMana1003:
harnessMana1004:
    match wait_harnessMana100 ...wait
    match wait_harnessMana100 Sorry, you may only type
    match harnessCount100 You tap into the mana
    put harness %mana
    matchwait

harnessCount100:
    counter subtract 1
    goto harnessMana100%c

enterAP100:
    match wait_enterAP100 ...wait
    match wait_enterAP100 Sorry, you may only type
    match StartIsEnd You attempt to open an astral 
    put cast Grazhir
    matchwait


wait_harnessMana100:
    pause 1
    goto harnessMana100%c
wait_enterAP100:
    pause 1
    goto enterAP100

#####################################
# Errors
error_UnknownShard:
    echo
    echo ERROR:  You do not know this shard yet!
    echo         "study %Start" to learn this shard.
    echo         
    echo         Until this shard is learned, you can not enter
    echo         or exit the Astral Planes here.
    echo
    echo         Don't forget to "release" if it is safe to do so!
    echo         
    echo         If you are still in the Astral Plane, find your
    echo         way to the nearest known shard, ASAP!
    goto cleanup
error_NoArguments:
    echo
    echo ERROR:  This script requires a name for your destination.
    echo         Please see the starting text for a list.
    echo         Proper usage is ".ap destination"
    echo
    goto cleanup
error_badStart:
    echo
    echo ERROR:  You are not at a known Grazhir shard
    echo         and you either lack the 100th ability or
    echo  did not include a 4th variable!
    echo
    goto cleanup
error_expanse:
    echo
    echo *** Uh oh, you're trapped in the grey expanse.
    echo *** You may get out, but it isn't likely.  Good luck!
    echo
    echo Statistics:  %stepsToAxis from %Start to Axis
    echo Statistics:  %stepsFromAxis from Axis to %Destination
    goto cleanup
error_dead:
    echo
    echo *** Uh oh, you didn't survive this trip.
    echo *** I hope the empath likes extra crispy!
    echo
    echo Statistics:  %stepsToAxis from %Start to Axis
    echo Statistics:  %stepsFromAxis from Axis to %Destination
    goto cleanup
labelError:
    echo
    echo ERROR:  You did not type in a valid name for your destination.
    echo         Please see the starting text for a list.
    echo         If you did type in a listed destination or got this error
    echo         while already moving, this this is a bug with the script's labels.
    echo
    goto cleanup
<\pre>
Retrieved from "https://elanthipedia.play.net/index.php?title=Astral_Travel_(script)&oldid=527590"