var dest_shard null
if %1 = aesry then var dest_shard Auilusi
if %1 = crossing then var dest_shard Rolagi
if %1 = fang then var dest_shard Vellano
if %1 = haven then var dest_shard Taniendar
if %1 = hib then var dest_shard Dor'na'torna
if %1 = leth then var dest_shard Asharshpar'i
if %1 = merkresh then var dest_shard Besoge
if %1 = muspar'i then var dest_shard Tabelrm
if %1 = raven then var dest_shard Tamigen
if %1 = shard then var dest_shard Marendin
if %1 = taisgath then var dest_shard Erekinzil
if %1 = theren then var dest_shard Dinegavren
if %1 = throne then var dest_shard Mintais
if %1 = tiv then var dest_shard Emalerje
if %dest_shard = null then goto not_valid

open_conduit:
  put prepare moongate
  waitforre ^You raise your arms skyward
  put focus %2
  wait
  pause 0.5
  put harness 50
  waitforre ^You tap into the mana
  put cast %2

find_microcosm:
  action clear
  action var direction north when You believe the center of the microcosm is to the north\.
  action var direction south when You believe the center of the microcosm is to the south\.
  action var direction east when You believe the center of the microcosm is to the east\.
  action var direction west when You believe the center of the microcosm is to the west\.
  action var direction northeast when You believe the center of the microcosm is to the northeast\.
  action var direction northwest when You believe the center of the microcosm is to the northwest\.
  action var direction southwest when You believe the center of the microcosm is to the southwest\.
  action var direction southeast when You believe the center of the microcosm is to the southeast\.
  action var at_microcosm yes when Astral Plane, Pillar
  action var at_microcosm yes when Obvious exits: east, west, up, down
  action goto fucked when Grey Expanse
  gosub percieve
  move %direction
  pause 0.5
  if %at_microcosm != yes then goto find_microcosm
  else goto at_pillars

at_pillars:
  action clear
  action var in_conduit yes when You move into the chaotic tides of energy
  action var in_conduit yes when You reach out into the seemingly infinite strands of Lunar mana and find a conduit
  action goto fucked when Grey Expanse
  #if %dest_shard = Taniendar then move down
  #if %dest_shard = Tamigen then move up
  put focus %dest_shard
  wait
  pause 0.5
  if %in_conduit = yes then goto find_exit
  move east
  pause 0.5
  goto at_pillars

find_exit:
  action clear
  action var direction north when You believe the end of the conduit lies north\.
  action var direction northeast when You believe the end of the conduit lies northeast\.
  action var direction northwest when You believe the end of the conduit lies northwest\.
  action var direction east when You believe the end of the conduit lies east\.
  action var direction west when You believe the end of the conduit lies west\.
  action var direction south when You believe the end of the conduit lies south\.
  action var direction southwest when You believe the end of the conduit lies southwest\.
  action var direction southeast when You believe the end of the conduit lies southeast\.
  action var at_exit yes when You also see the silvery-white shard
  action goto fucked when Grey Expanse
  gosub percieve
  move %direction
  pause 0.5
  if %at_exit != yes then goto find_exit
  else goto at_exit

percieve:
  put perceive
  wait
  pause 0.5
  return

at_exit:
  put prepare moongate
  waitforre ^You raise your arms skyward
  put focus %dest_shard
  wait
  pause 0.5
  put cast %dest_shard
  goto done

fucked:
  echo ** Entered the grey expanse. Fuck! **
  put #beep
  exit

not_valid:
  echo ** Not a valid destination **
  exit

done:
  pause
  put release
  echo ** Travel completed successfully **
  put #beep