Start:
ShowM
FadeTo "Black"
Goto Clear
TileSet = "Tow"
Map = "Room1"
XY = 4, 5
Chr0 = "None", 0, 0
Chr1 = "w", 12, 9, N
Chr2 = "Black", 12, 10, N
Face2 = "u1"
Refresh
FadeTo "Files\Mypal"
Talk "EvilGuy1", 1: Refresh
Talk "Guard1", 2: Refresh
Talk "EvilGuy2", 1: Refresh
Talk "Guard2", 2: Refresh
Talk "EvilGuy3", 1: Refresh
Talk "EvilGuy4", 1: Refresh
Talk "Guard3", 2: Refresh
FadeTo "Black"
Goto Clear
TileSet = "for"
Map = "Forrest"
XY = 36, 14
Chr0 = "Char1", 41, 18
Refresh
FadeTo "Files\MyPal"
Talk "Wonder", 0
Chr1 = "Black", 40, 16, N
Chr2 = "Black", 42, 19, N
Refresh
Talk "GrabHim", 1
Face0 = "h"
Talk "WhatThe", 0
Move 1r2l
Move 1d2u 1
Move 1d
Talk "KnockHim", 1
FadeTo "Black"
Goto Clear
TileSet = "Tow"
Map = "Room1"
XY = 4, 5
Chr0 = "None", 0, 0
Chr1 = "w", 12, 9, N
Chr2 = "Black", 12, 10, N
Face2 = "u1"
Refresh
FadeTo "Files\Mypal"
Talk "WeHaveHim", 2: Refresh
Talk "Good", 1: Refresh
Talk "Orders", 2: Refresh
Talk "FindOut", 2: Refresh
FadeTo "Black"
Goto Clear
TILESET = "Tow": XY = 0, 0: Map = "room0": Chr0 = "Char1", 6, 4
Refresh: FadeTo "Files\MyPal"
Move sr0r: Face0 = "h": Waste .3
Face0 = "d1": Talk "Confused1", 0
Move sr0r: Face0 = "d1": Talk "Confused2", 0
Move sl0l: Face0 = "d1": Waste .3
Face0 = "dep": Talk "Confused3", 0
Map = "Room01"
Chr1 = "Black", 7, 8, N: Face1 = "u1"
Chr2 = "Black", 7, 9, N: Face2 = "u1"
Refresh
Move sd 4: Move su1u2u: Move su1r2u: Move 2l
Face1 = "u1": Face2 = "u1": Talk "Confused4", 1: Move 1l
Map = "escape0": Refresh
Face1 = "u1": Talk "Click", 1: Face0 = "d1": Waste 0.3
Face0 = "ll": Waste 0.3: Face0 = "lr": Waste 0.3: Face0 = "d1"
Talk "Confused5", 0: Waste .5
Move 0d: Talk "Confused1", 1
Animate 100, -100, 5, "light": Animate 120, -120, 5, "light"
Animate 110, -110, 5, "light": Animate 130, -100, 5, "light"
Animate 100, -120, 5, "light": Move 1k2k: Waste .4
Talk "Confused6", 0
Game
Goto Escape1d1
End

Clear:
Chr1 = "None", 0, 0, N: Chr2 = "None", 0, 0, N
Chr3 = "None", 0, 0, N: Chr4 = "None", 0, 0, N
Chr5 = "None", 0, 0, N
Return

Escape0:
Map = "escape0"
XY = 0, 0: Cxy = 7, 9
Goto Clear
Game
Goto Escape1d1
End

Escape1d1:
Map = "Escape1": Cxy = 7, 11
Goto Clear
Chr1 = "Black", 13, 12, F: Chr2 = "Guard", 6, 15, F
XY = 3, 5
Goto Escape1

Escape1d2:
Map = "Escape1"
Goto Clear
Chr1 = "Black", 13, 12, F: Chr2 = "Guard", 6, 15, F
XY = 0, 8: Cxy = 7, 19
Goto Escape1

Escape1d3:
Map = "Escape1"
Goto Clear
Chr1 = "Black", 13, 12, F: Chr2 = "Guard", 6, 15, F
XY = 13, 8: Cxy = 20, 19
Goto Escape1

Escape1d4:
Map = "Escape1"
Goto Clear
Chr1 = "Black", 13, 12, F: Chr2 = "Guard", 6, 15, F
XY = 13, 11: Cxy = 20, 17
Goto Escape1

Escape1:
Game
If 2 then Escape0
If 3 then Escape2
If 4 then Escape3
If 5 then Escape4
End

Escape2:
XY = 0, 28: Cxy = 7, 35
Goto Clear
Chr1 = "LightGob", 8, 38, Y
Game
Goto Escape1d2
End

Escape3:
XY = 0, 28: Cxy = 7, 35
Goto Clear
Chr1 = "FireGob", 8, 38, Y
Game
Goto Escape1d3
End

Escape4:
XY = 24, 32: Cxy = 28, 37
Goto Clear
Chr1 = "Black", 34, 35, F
Goto Escape4u

Escape4c:
XY = 33, 37: Cxy = 40, 42
Goto Clear
Chr1 = "Black", 34, 35, F
Goto Escape4u

Escape4u:
Map = "Escape1"
Game
If 5 then Escape1d4
If 3 then Escape5
If -1 then Escape4d
End

Escape4dB:
Goto Clear
Chr1 = "Black", 34, 35, F
XY = 36, 33: Cxy = 43, 38
Escape4d:
Map = "Escape1d"
Game
If -1 then Escape4u
If 2 then Escape4B
End

Escape4B:
XY = 0, 28: Cxy = 7, 35
Goto Clear
Chr1 = "Bitch", 8, 38, Y
Game
Goto Escape4dB
End

Escape5:
XY = 2, 4: Cxy = 10, 9
Goto Clear
Escape5d:
Map = "Escape2"
Game
If 2 then Escape4c
If -1 then Escape5u
End
   
Escape5ud:
Goto Clear
XY = 19, 9
Cxy = 25, 14
TileSet = "Tow"
Escape5u:
Map = "Escape2u"
Game
If -1 then Escape5d
Goto OutSide
End

OutCave:
Goto Clear
Goto Out2
XY = 8, 7
Cxy = 15, 11
TileSet = "For"
Goto ContOut
OutSide:
XY = 40, 4
TileSet = "For"
Map = "Forrest"
Goto Clear
Chr1 = "Gob", 44, 14, F: Chr2 = "EvilBitch", 46, 14, F
Cxy = 46, 9
ContOut:
Game
Goto Clear
If -3 then Out1
If -2 then Out2
If 2 then Escape5ud
If 3 then Caves
Goto ContOut

Out1:
Map = "Forrest"
Chr1 = "Gob", 44, 14, F: Chr2 = "EvilBitch", 46, 14, F
Return

Out2:
Map = "Forrest2"
Chr1 = "Gob", 20, 21, F: Chr2 = "FireGob", 21, 21, F
Return

Caves:
Goto Clear
Chr1 = "FireGob", 5, 51, F
Chr2 = "LightGob", 11, 51, F
Cxy = 8, 57
TileSet = "Cave"
Map = "Cave"
XY = 0, 50
Game
If 2 then OutCave
If -1 then Cave1d
If -2 then Cave2d
End

Cave1d:
Goto Clear
Chr1 = "FireGob", 13, 31, F
Chr2 = "LightGob", 16, 31, F
Map = "Cave1"
Game
If -1 then Caveu
If -2 then Cave2u
End

Cave2d:
Goto Clear
Chr1 = "FireGob", 20, 42, F
Chr2 = "LightGob", 25, 42, F
Map = "Cave2"
Game
If -1 then Cave1u
If -2 then Caveu
If -3 then Cave3d
End

Cave3d:
Goto Clear
Chr1 = "FireGob", 30, 46, F
Chr2 = "LightGob", 40, 46, F
Map = "Cave3"
Game
If -3 then Cave2u
If -4 then Cave4d
End

Cave4d:
Goto Clear
Chr1 = "FireGob", 48, 50, F
Chr2 = "LightGob", 59, 50, F
Map = "Cave4"
Game
If -4 then Cave3u
If -5 then Cave5d
If 6 then Cave6d
End

Cave5d:
Goto Clear
Chr1 = "FireGob", 49, 26, F
Chr2 = "LightGob", 50, 26, F
Map = "Cave5"
Game
If -5 then Cave4u
End

Cave6d:
XY = 29, 10
Goto Clear
Chr1 = "w", 35, 9, F
Chr2 = "LightGob", 35, 9, F
Chr3 = "LightGob", 35, 9, F
Map = "Cave6"
Refresh
Move 0u
Move 0u1d
Move 0u1d2d
Move 0u1d2d3d
Move 2l3d 
Move 2d3r 
Move 3d2l 
Move 3d2d: Move 3r2d: Move 3d 
Talk "Final1", 0: Refresh
Talk "Final2", 0: Refresh
Talk "Final3", 1: Refresh
Talk "Final4", 0: Refresh
Talk "Final5", 1
Game
If 6 then Cave4uPre
If 3 then EndGame
End

Cave4uPre:
Cxy = 36, 22
XY = 29,16
Goto Cave4u
End

Caveu:
Goto Clear
Map = "Cave"
Game
If 2 then OutCave
If -1 then Cave1d
If -2 then Cave2d
End

Cave1u:
Goto Clear
Map = "Cave1"
Game
If -1 then Caveu
If -2 then Cave2u
End

Cave2u:
Goto Clear
Map = "Cave2"
Game
If -1 then Cave1u
If -2 then Caveu
If -3 then Cave3d
End

Cave3u:
Goto Clear
Map = "Cave3"
Game
If -3 then Cave2u
If -4 then Cave4d
End

Cave4u:
Goto Clear
Map = "Cave4"
Game
If -4 then Cave3u
If -5 then Cave5d
If 6 then Cave6d
End


EndGame:
HideM
Move 0d 2
Talk "Final6", 0: Refresh
Talk "Final7", 0
Move 0u 3
End