gosub routinecommon

if $zonename = "M'riss" then goto mriss
if $zonename = "Mistwood Forest" then goto mistwood
if $zonename = "Shard South Gate" then goto shard_south_gate
if $zonename = "Crossing West Gate" then goto brook
if $zonename = "Arthe Dale" then goto arthe


mainloop:
arthe:
gosub put hum ditty
gosub move 13
gosub move 53
gosub move 101
gosub move 54
gosub move 55
gosub move 56
gosub move 57
goto arthe

mistwood:
gosub put hum battle
gosub move 13
gosub move 12
gosub move 11
gosub move 9
gosub move 16
gosub move 13
goto mistwood

brook:
gosub put hum ditty
gosub move 88
gosub move 89
gosub move 90
gosub move 91
gosub move 95
goto brook

shard_south_gate:
gosub move 177
gosub move 179
goto shard_south_gate

mriss:
action goto mriss when You can't swim in that direction
if ($stamina  < 50)  then goto pause
gosub move 270
gosub move 268
gosub move 258
goto mriss

pause:
put hide
pause 100
put unhide
goto mriss

include routinecommon.cmd
include move.cmd