QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 08:50:25 +00:00
Code Releases Wiki Activity
qb64/programs/samples/misc/mzupd2.bas

1923 lines
66 KiB
QBasic
Raw Blame History

'Maze of Misery
'By Steve M. (c),May 5,01
'****************
'Please visit my web page at: www.angelfire.com/bc2/cuebasic/qpage.html
'
'Disclaimer: This program may not be distributed, modified or copied without
'written permission from the author at yochatwitme@yahoo.com.
'Not liable for system or hardware damage. Tho' I can assure you that you
'won't experience any problems. Email me at yochatwitme@yahoo.com about
'any concerns or difficulties you may be having.
'Finally, you have my permission to post the program on your web page.
'Hope you enjoy the game.
'
'Thanks. SM :)
'Gbgames Chatname: QB4ever
DECLARE SUB Cleardotarea ()
DECLARE SUB CopydotPlayer ()
DECLARE SUB Menu ()
dim shared false as single
false=0
dim shared true as single
true=-1
'CONST FALSE = 0
'CONST TRUE = NOT FALSE
'CLEAR 2000, 2000
DIM T$(150), Wall%(1 TO 300), Wall2%(1 TO 300), Wall3%(1 TO 300)
DIM SHARED Player%(1 TO 300), Maze$(768), Object$(20), Door%(1 TO 300)
DIM EDoor%(1 TO 300), Keylock%(1 TO 300), Clrobject%(1 TO 300)
DIM Gold%(1 TO 300), Treasure%(1 TO 300), Diamond%(1 TO 300)
DIM Diamond2%(1 TO 300), Enemy%(1 TO 300), Gem%(1 TO 300)
DIM Enemydotpos(16), Spider%(1 TO 300), Spider2%(1 TO 300)
DIM Spike%(1 TO 300), Spikemask%(1 TO 300), Wallmask%(1 TO 300)
DIM Web%(1 TO 300), Wcs(64, 1), Keyfl(64), Clrkey(64)
DIM Spiderfr2%(1 TO 300), Spiderpfr2%(1 TO 300), Playerdeath%(1 TO 300)
DIM SHARED Reptxt%(1 TO 3000)
Start:
X = 154: Y = 40: MatrixY = 14: MatrixX = 6: Lives = 5: Health = 9000
En = 1: Dx = -30: Lx = -1: Dy = 1: SpacerX = 0: SpacerY = 0: EVL = 11
CIX1 = 275: CIY1 = 145: CIY2 = 90: Rm = 2: Web = 20: Glow = 1: Adv = 0
M2 = -1: V2x = 1: G = 1
Health$ = "Good": M1$ = "Mazes of Misery": TIME$ = "00:00:00"
T$ = CHR$(0) + CHR$(63) + CHR$(48) + CHR$(48) + CHR$(60) + CHR$(48) + CHR$(48) + CHR$(48) + CHR$(0)
RESTORE Wallcols: FOR A = 1 TO 64: READ Wcs(A, 0): NEXT
RESTORE Wallbord: FOR A = 1 TO 64: READ Wcs(A, 1): NEXT
BegindotMaze:
'Setup array picture images
SCREEN 12: CLS : RANDOMIZE TIMER
GOSUB Copydotwall: GOSUB Cleardotplayer
GOSUB Copydotwall2: GOSUB Cleardotplayer
GOSUB Copydotwall3: GOSUB Cleardotplayer
GOSUB CopydotPlayer: GOSUB Cleardotplayer
GOSUB CopydotCleardotObject 'This array clears the current image
GOSUB CopydotDoor: GOSUB Cleardotplayer
GOSUB CopydotKeylock: GOSUB Cleardotplayer
GOSUB CopydotTreasure: GOSUB Cleardotplayer
GOSUB CopydotRing: GOSUB Cleardotplayer
GOSUB CopydotRing2: GOSUB Cleardotplayer
GOSUB CopydotGem: GOSUB Cleardotplayer
GOSUB CopydotSpider: GOSUB Cleardotplayer
GOSUB CopydotSpider2: GOSUB Cleardotplayer
GOSUB CopydotWeb: GOSUB Cleardotplayer
GOSUB CopydotSpike: GOSUB Cleardotplayer
SpacerX = 0: SpacerY = 0: GOSUB Titledotscr
Begin:
frm = 1: SCREEN 12: CLS : GOSUB Builddotmazes
SpacerX = 0: SpacerY = 0: GOSUB RoomdotCheck: GOSUB Gamedotstatus
r = StartdotA: SpacerX = 0: SpacerY = 0
Kyboard:
do: loop while timer=oldtimer!
oldtimer!=timer
FOR i=1 to 100
GOSUB Scandotmaze
NEXT
T$ = MID$(Maze$(MatrixY), MatrixX, 1)
IF T$ = "L" AND (CT >= 1 AND CT <= 20) THEN GOSUB Shocked
i$ = INKEY$: IF i$ = "" THEN GOTO Kyboard
Oldx = X: Oldy = Y: Matrixydotold = MatrixY: Matrixxdotold = MatrixX
IF Kytapfl < 1 THEN
IF i$ = CHR$(0) + "M" THEN GOSUB Cleardotman: X = X + 30: MatrixX = MatrixX + 1: IF X > 574 THEN X = 4: Rm = Rm + 8: MatrixY = MatrixY + 96: MatrixX = 1: GOSUB RoomdotCheck
IF i$ = CHR$(0) + "K" THEN GOSUB Cleardotman: X = X - 30: MatrixX = MatrixX - 1: IF X < 4 THEN X = 574: Rm = Rm - 8: MatrixY = MatrixY - 96: MatrixX = 20: GOSUB RoomdotCheck
IF i$ = CHR$(0) + "H" THEN GOSUB Cleardotman: Y = Y - 36: MatrixY = MatrixY - 1: IF Y < 4 THEN Rm = Rm - 1: GOSUB RoomdotCheck
IF i$ = CHR$(0) + "P" THEN GOSUB Cleardotman: Y = Y + 36: MatrixY = MatrixY + 1: IF Y > 400 THEN Rm = Rm + 1: GOSUB RoomdotCheck
ELSE
IF i$ = "6" THEN GOSUB Cleardotman: X = X + 30: MatrixX = MatrixX + 1: IF X > 574 THEN X = 4: Rm = Rm + 8: MatrixY = MatrixY + 96: MatrixX = 1: GOSUB RoomdotCheck
IF i$ = "4" THEN GOSUB Cleardotman: X = X - 30: MatrixX = MatrixX - 1: IF X < 4 THEN X = 574: Rm = Rm - 8: MatrixY = MatrixY - 96: MatrixX = 20: GOSUB RoomdotCheck
IF i$ = "8" THEN GOSUB Cleardotman: Y = Y - 36: MatrixY = MatrixY - 1: IF Y < 4 THEN Rm = Rm - 1: GOSUB RoomdotCheck
IF i$ = "2" THEN GOSUB Cleardotman: Y = Y + 36: MatrixY = MatrixY + 1: IF Y > 400 THEN Rm = Rm + 1: GOSUB RoomdotCheck
END IF
IF i$ = CHR$(27) THEN i$ = "": GOSUB Menulist
T$ = MID$(Maze$(MatrixY), MatrixX, 1)
IF T$ = "#" OR T$ = "@" OR T$ = "%" OR T$ = "W" THEN GOSUB Recalldotolddotposition
IF T$ = "B" AND M > 11 THEN GOSUB Spiderdotbite
IF T$ = "L" AND (CT >= 1 AND CT <= 20) THEN GOSUB Shocked
IF T$ = "k" THEN GOSUB Keyfound
IF T$ = "E" THEN GOTO Escaped
IF T$ = "D" THEN Sx = X: Sy = Y: Svsx = Sx: Svsy = Sy: SMy = MatrixY: SMx = MatrixX: GOSUB Recalldotolddotposition: GOSUB Doordotroutine
IF T$ = "t" THEN GOSUB Treasuredotroutine
IF T$ = "g" THEN GOSUB Gemdotroutine
IF T$ = "r" THEN GOSUB Ringdotroutine
IF Flg THEN GmdotTmr = TIMER: DELAY = CPU * 15 + SQR(2 / 2 + GmdotTmr + .6) + 800: FOR LL = 1 TO DELAY: NEXT
IF frm > 100 THEN frm = 1
GOSUB Displaydotman
GOTO Kyboard
Scandotmaze:
B = B + 1
T$ = MID$(Maze$(r), B, 1): SPK$ = MID$(Maze$(r), B, 1)
GOSUB SkipdotX: Cnt = Cnt + 1
IF T$ = "B" OR T$ = "S" THEN Spx = SpacerX: Spy = SpacerY: GOSUB Spiderdotroutine
IF T$ = "L" THEN Lex = SpacerX: Ley = SpacerY: GOSUB Electricdotroutine
IF T$ = "r" THEN RingdotX = SpacerX: RingdotY = SpacerY + 6: GOSUB Ringdotglow
IF SPK$ = "s" THEN SpikeX = SpacerX: SpikeY = SpacerY + 6: GOSUB SpikedotMoving
IF B < 20 THEN RETURN
B = 1: SpacerX = 0: SpacerY = SpacerY + 36
IF r < FinishdotA THEN r = r + 1: RETURN
r = StartdotA: SpacerX = 0: SpacerY = 0
RETURN
SkipdotX:
SpacerX = SpacerX + 30
RETURN
Spiderdotroutine:
frm = frm + 1
IF (T$ = "S") THEN Poisondotspider = 1
T$ = MID$(Maze$(MatrixY), MatrixX, 1)
IF Demo THEN T$ = MID$(A$(Dmx), Dmy, 1)
IF (T$ = "B" OR T$ = "S") AND M > 11 THEN GOSUB Spiderdotbite
IF T$ = "s" AND M2 < 8 THEN GOSUB Spikedotstabb
M = M + Vx: IF M > 31 THEN Vx = -1
GOSUB Showdotspider
IF M < 1 THEN Vx = 1
LINE (Spx + 12, (Spy - Web))-(Spx + 12, (Spy - 10) + M), 8, BF
FOR H = 1 TO 800 - Adv + DELAY: NEXT
RETURN
SpikedotMoving:
SPK$ = MID$(Maze$(r), B, 1)
M2 = M2 + V2x: IF M2 > 25 THEN V2x = -1
IF M2 < 1 THEN V2x = 1
IF Wm < 1 THEN GET (SpikeX, SpikeY + 36)-(SpikeX + 26, SpikeY + 71), Spikemask%: Wm = 1
PUT (SpikeX, (SpikeY) + 11 + M2), Spike%, PSET
IF Wm2 < 1 THEN GET (SpikeX, SpikeY + 5 + M2)-(SpikeX + 18, SpikeY + 36 + M2), Wallmask%: Wm2 = 1
IF T$ = "s" THEN GOSUB Displaydotman
PUT (SpikeX, SpikeY + 5 + M2), Wallmask%, AND 'spike mask
PUT (SpikeX, SpikeY + 36), Spikemask%, PSET 'wall mask
RETURN
Showdotspider:
IF Poisondotspider THEN
IF INT(frm / 2) = frm / 2 THEN
PUT (Spx - 1, (Spy - 30) + 10 + M), Spiderpfr2%, PSET: Poisondotspider = 0: RETURN
ELSE
PUT (Spx - 1, (Spy - 30) + 10 + M), Spider2%, PSET: Poisondotspider = 0: RETURN
END IF
ELSE
IF INT(frm / 4) = frm / 4 THEN
PUT (Spx - 1, (Spy - 30) + 10 + M), Spiderfr2%, PSET: RETURN
ELSE
PUT (Spx - 1, (Spy - 30) + 10 + M), Spider%, PSET
END IF
END IF
RETURN
Showdotspike:
PUT (SpikeX, SpikeY + M2), Spike%, PSET
RETURN
Electricdotroutine:
CT = CT + 1: IF CT >= 1 AND CT <= 20 THEN GOTO EStart
IF CT > 50 THEN CT = 1
RETURN
EStart:
RANDOMIZE TIMER
IF G < 1 THEN Gv = 1
G = G + Gv: IF G > 5 THEN Gv = -1
E1 = RND(6 * RND(0)): E2 = RND(6 * RND(0)): E3 = FIX(RND(6 * RND(0)))
E4 = FIX(6 * RND(0)): E5 = FIX(6 * RND(0)): E6 = FIX(RND(6 * RND(0)))
E7 = FIX(6 * RND(0)): E8 = FIX(6 * RND(0)): E9 = FIX(RND(6 * RND(0)))
LINE (Lex + E1, Ley + 4)-(Lex + E2 * (G + 3), Ley + 9), 14
LINE -(Lex + E3 + SGN(G + 3), Ley + 15), 14
LINE -(Lex + E4 * (G + 3), Ley + 20), 14
LINE -(Lex + E5 + SGN(G + 3), Ley + 26), 14
LINE -(Lex + E6 * (G + 3), Ley + 32), 14
LINE -(Lex + E7 + SGN(G + 3), Ley + 38), 14
FOR H = 1 TO 150 - Adv / 4: NEXT
Sx = SpacerX + 2: Sy = SpacerY + 4: GOSUB Cleardotarea
RETURN
Spiderdotbite:
GOSUB Displaydotman: M$ = "Yow! I've been bitten!": PS = 40 - LEN(M$) / 2
LOCATE 30, PS: PRINT M$; : GOSUB Hold: GOSUB Clearline
PUT (X, Y), Playerdeath%, PSET: SLEEP 1: PUT (X, Y), Clrobject%, PSET
Health = Health - ABS(75 * (T$ = "S") - 55)
IF Health < 1 THEN LOCATE 30, PS + 4: PRINT "You died!"; : SLEEP 2: GOSUB Clearline: GOTO Fin
GOSUB Gamedotstatus
RETURN
Spikedotstabb:
GOSUB Displaydotman: M$ = "Yarrgghh! I've been sheared!": PS = 40 - LEN(M$) / 2
LOCATE 30, PS: PRINT M$; : GOSUB Hold: GOSUB Clearline
PUT (X, Y), Playerdeath%, PSET: SLEEP 1: PUT (X, Y), Clrobject%, PSET
Health = Health - ABS(75 * (T$ = "S") - 55)
IF Health < 1 THEN LOCATE 30, PS + 4: PRINT "You died!"; : SLEEP 2: GOSUB Clearline: GOTO Fin
GOSUB Gamedotstatus
RETURN
Shocked:
GOSUB Displaydotman: M$ = "Arrggghh! I've been shocked!": PS = 40 - LEN(M$) / 2
LOCATE 30, PS: PRINT M$; : GOSUB Hold: GOSUB Clearline
PUT (X, Y), Playerdeath%, PSET: SLEEP 1: PUT (X, Y), Clrobject%, PSET
Health = Health - 25
IF Health < 1 THEN LOCATE 30, 30: PRINT "You died!"; : SLEEP 2: GOSUB Clearline: GOTO Fin
GOSUB Gamedotstatus
RETURN
Treasuredotroutine:
GOSUB Replacedotchar: GOSUB Openeddotchest
RETURN
Ringdotroutine:
LOCATE 30, 20: PRINT "You have found a diamond ring!"; : GOSUB Displaydotman
SLEEP 2: GOSUB Replacedotchar: GOSUB Clearline: GOSUB Cleardotarea
Fortune = 200: GOSUB Tallydotpnts: GOSUB Gamedotstatus
RETURN
Gemdotroutine:
LOCATE 30, 20: PRINT "You have found a valuable gem!!"; : GOSUB Displaydotman
SLEEP 2: GOSUB Replacedotchar: GOSUB Clearline: GOSUB Cleardotarea
Fortune = 400: GOSUB Tallydotpnts: GOSUB Gamedotstatus
RETURN
Ringdotglow:
IF Glow THEN PUT (RingdotX, RingdotY), Diamond2%, PSET: Glow = 0
IF RIGHT$(TIME$, 2) < "01" THEN RETURN
Glow = 1
IF Glow THEN PUT (RingdotX, RingdotY), Diamond%, PSET: Glow = 0
IF RIGHT$(TIME$, 2) < "02" THEN RETURN
TIME$ = "00:00:00": Glow = 1
RETURN
Replacedotchar:
IF T$ = "D" THEN Sx = Svsx: Sy = Svsy: GOSUB Cleardotarea
Showy = SMy: Showx = SMx
Sx = X: Sy = Y: SMy = MatrixY: SMx = MatrixX
IF (T$ <> "r" AND T$ <> "g") THEN GOSUB Recalldotolddotposition: GOSUB Displaydotman
IF T$ = "D" THEN SMy = Showy: SMx = Showx
MID$(Maze$(SMy), SMx, 1) = CHR$(32)
RETURN
Displaydotman:
PUT (X, Y), Player%, PSET: RETURN
Recalldotolddotposition:
X = Oldx: Y = Oldy: FOR A = 1 TO 64
Barrier = 1 * (T$ = "D" AND Unl AND Rm = A AND Keyfl(Rm))
IF Barrier THEN A = 1: RETURN
NEXT
Oldpl:
MatrixX = Matrixxdotold: MatrixY = Matrixydotold
RETURN
Keyfound:
FOR A = 1 TO 64
Keyfl(Rm) = ABS(1 * (Rm = A)): Unl = 1
IF Keyfl(Rm) AND Unl THEN A = 1: GOTO Keymes
NEXT
Keymes:
COLOR 15: LOCATE 30, 9: PRINT "You have found the key. ";
PRINT "Use it to unlock the door in this room."; :
GOSUB Replacedotchar: GOSUB Cleardotarea
SLEEP 3: GOSUB Clearline: Keys = Keys + 1: GOSUB Gamedotstatus: RETURN
Doordotroutine:
FOR A = 1 TO 64
Kyfd = 1 * (Rm = A AND Keyfl(Rm)): IF Kyfd THEN A = 1: GOTO Available
NEXT: RETURN
Available:
FOR A = 1 TO 64
Clrkey = 1 * (Rm = A AND Keyfl(Rm)): IF Clrkey > 0 THEN Keyfl(Rm) = 0: A = 1: GOTO DOpen
NEXT
DOpen:
GOSUB Displaydotman
LOCATE 30, 20: PRINT "Good Job! You have opened the door."; : SLEEP 3:
GOSUB Clearline: GOSUB Replacedotchar: Unl = 0
Keys = Keys - 1: GOSUB Gamedotstatus
RETURN
Openeddotchest:
COLOR 14: Tr = 1: LOCATE 29, 1: PRINT SPACE$(79);
LOCATE 30, 20: PRINT "You have found a treasure chest!";
SLEEP 2: GOSUB Clearline
RANDOMIZE TIMER: Length = FIX(16 * RND(1)) + 1: RESTORE Makedotobj
N = FIX(50 * RND(1)) + 2
FOR T = 1 TO Length: READ Object$(T): NEXT
L = LEN(Object$(Length)): O$ = MID$(Object$(Length), 3, L)
IF LEFT$(O$, 2) = "No" OR LEFT$(O$, 3) = "Wat" THEN
Message$ = ""
ELSE
Message$ = "a "
END IF
LOCATE 30, 20: PRINT "It contains "; Message$; ""; O$; SPACE$(2); addon$;
SLEEP 2: GOSUB ObjectdotProperties: Message$ = "": addon$ = ""
O$ = "": Message$ = O$
IF LO$ = "~" THEN GOSUB Clearline: LOCATE 30, 20: PRINT "There are " + STR$(N) + " of them."; : SLEEP 2
GOSUB Gamedotstatus: Tr = 0: addon$ = "": GOSUB Clearline: GOSUB Cleardotarea
RETURN
Clearline:
LOCATE 30, 1: PRINT SPACE$(79); : RETURN
Hold:
H$ = INKEY$: IF H$ = "" THEN GOTO Hold
RETURN
Escaped:
COLOR 15
LINE (110, 190)-(510, 255), 10, BF: LINE (115, 200)-(500, 245), 14, BF
LINE (115, 200)-(500, 245), 1, B
LOCATE 14, 25: PRINT "Congratulations Adventurer!"
LOCATE 15, 19: PRINT "You have escaped from this maze for now.": SLEEP 4: SYSTEM
'CopydotPlayer:
LINE (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), 0, BF
CIRCLE (CIX1 + 28, CIY1 + 35), 10, 15: PAINT (CIX1 + 28, CIY1 + 35), 15
CIRCLE (CIX1 + 28, CIY1 + 35), 10, 6: CIRCLE (CIX1 + 28, CIY1 + 35), 9, 6
FOR E = 1 TO 5: CIRCLE (CIX1 + 28, CIY1 + 35), E, 0: NEXT
CIRCLE (CIX1 + 28, CIY1 + 35), 1, 0
GET (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), Player%
RETURN
CopydotPlayer:
X1 = 20: Y1 = 40: c = 1
CIRCLE (X1, Y1), 9, 6: PAINT (X1, Y1), 6: CIRCLE (X1, Y1), 10, 4 'Body
CIRCLE (X1 - 5, Y1 - 5), 3, 15: PAINT (X1 - 5, Y1 - 5), 15 'left eye
CIRCLE (X1 - 5, Y1 - 5), 3, c, -6.28, -3.14: PAINT (X1 - 5, Y1 - 6), c
CIRCLE (X1 - 5, Y1 - 5), 1, 0: PAINT (X1 - 5, Y1 - 5), 0 'outline
CIRCLE (X1 + 5, Y1 - 5), 3, 15: PAINT (X1 + 5, Y1 - 5), 15 'right eye
CIRCLE (X1 + 5, Y1 - 5), 3, c, -6.28, -3.14: PAINT (X1 + 5, Y1 - 6), c
CIRCLE (X1 + 5, Y1 - 5), 1, 0: PAINT (X1 + 5, Y1 - 5), 0
CIRCLE (X1, Y1), 2, 4: PAINT (X1, Y1), 4: CIRCLE (X1, Y1), 3, 1 'nose
LINE (X1 - 2, Y1 + 5)-(X1 + 2, Y1 + 5), 5 'mouth(top)
LINE (X1 - 1, Y1 + 6)-(X1 + 1, Y1 + 6), 5 'mouth(bottom)
GET (X1 - 10, Y1 - 10)-(X1 + 10, Y1 + 10), Player%
GOSUB CopydotPlayerdeath
RETURN
CopydotPlayerdeath:
X1 = 20: Y1 = 40: c = 4
CIRCLE (X1, Y1), 9, 6: PAINT (X1, Y1), 6: CIRCLE (X1, Y1), 10, 4 'Body
CIRCLE (X1 - 5, Y1 - 5), 5, 15: PAINT (X1 - 5, Y1 - 5), 15 'left eye
CIRCLE (X1 - 5, Y1 - 5), 1, 0: PAINT (X1 - 5, Y1 - 5), 0 'outline
CIRCLE (X1 + 5, Y1 - 5), 5, 15: PAINT (X1 + 5, Y1 - 5), 15 'right eye
CIRCLE (X1 + 5, Y1 - 5), 1, 0: PAINT (X1 + 5, Y1 - 5), 0
CIRCLE (X1, Y1), 2, 4: PAINT (X1, Y1), 4: CIRCLE (X1, Y1), 3, 1 'nose
LINE (X1 - 2, Y1 + 5)-(X1 + 2, Y1 + 5), 5 'mouth(top)
LINE (X1 - 1, Y1 + 6)-(X1 + 1, Y1 + 6), 5 'mouth(bottom)
CIRCLE (X1, Y1 + 6), 2, c, , , .32: PAINT (X1, Y1 + 6), c
CIRCLE (X1, Y1 + 6), 3, 1, , , .32
GET (X1 - 10, Y1 - 10)-(X1 + 10, Y1 + 10), Playerdeath%
RETURN
Copydotwall:
LINE (CIX1 + 11, CIY1 + 21)-(CIX1 + 34, CIY1 + 50), Wcs(Rm, 0), BF
LINE (CIX1 + 12, CIY1 + 20)-(CIX1 + 35, CIY1 + 51), Wcs(Rm, 1), B
LINE (CIX1 + 36, CIY1 + 20)-(CIX1 + 36, CIY1 + 50), 10
FOR A = CIX1 + 12 TO CIX1 + 34 STEP 2: LINE (A, CIY1 + 21)-(A, CIY1 + 50), 6
NEXT: LINE (CIX1 + 11, CIY1 + 50)-(CIX1 + 34, CIY1 + 50), 1
LINE (CIX1 + 11, CIY1 + 21)-(CIX1 + 11, CIY1 + 50), 8
'FOR A = CIY1 + 11 TO CIY1 + 50 STEP 2: LINE (CIX1 + 11, A)-(CIX1 + 35, A), 5: NEXT
GET (CIX1 + 11, CIY1 + 19)-(CIX1 + 36, CIY1 + 51), Wall%
RETURN
Copydotwall2:
LINE (CIX1 + 11, CIY1 + 20)-(CIX1 + 34, CIY1 + 50), Wcs(Rm, 0), BF
LINE (CIX1 + 12, CIY1 + 19)-(CIX1 + 35, CIY1 + 51), Wcs(Rm, 1), B
LINE (CIX1 + 36, CIY1 + 19)-(CIX1 + 36, CIY1 + 50), 10
FOR A = 0 TO 41 STEP 2
LINE (CIX1 + 11, CIY1 + 20 + A)-(CIX1 + 33, CIY1 + A), 1: NEXT
GET (CIX1 + 11, CIY1 + 19)-(CIX1 + 42, CIY1 + 51), Wall2%
RETURN
Copydotwall3:
WX = 26: WY = 32
LINE (100, 75)-(100 + WX, 75 + WY), , B
T$ = T$ + CHR$(200) + CHR$(130) + CHR$(146) + CHR$(48) + CHR$(8) + CHR$(2) + CHR$(144) + CHR$(152) + CHR$(2)
PAINT (102, 76), T$
LINE (100, 75)-(100 + WX, 75 + WY), 4, B
GET (100, 75)-(100 + WX, 75 + WY), Wall3%
RETURN
CopydotCleardotObject:
LINE (CIX1 + 16, CIY1 + 50)-(CIX1 + 60, CIY1 + 80), 0, BF
GET (265, CIY1 + 20)-(290, CIY1 + 54), Clrobject%
RETURN
CopydotDoor:
LINE (CIX1 + 11, CIY1 + 20)-(CIX1 + 36, CIY1 + 52), 6, BF
LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 12, BF
LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 12, BF
LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 0, B
LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 0, B
LINE (CIX1 + 10, CIY1 + 19)-(CIX1 + 37, CIY1 + 53), 1, B
LINE (CIX1 + 37, CIY1 + 20)-(CIX1 + 37, CIY1 + 52), 12
CIRCLE (CIX1 + 34, CIY1 + 36), 2, 14: PAINT (CIX1 + 34, CIY1 + 36), 14
CIRCLE (CIX1 + 34, CIY1 + 36), 2, 0
GET (CIX1 + 11, CIY1 + 20)-(CIX1 + 40, CIY1 + 53), Door%
GOSUB CopydotEDoor
RETURN
CopydotEDoor:
LINE (CIX1 + 11, CIY1 + 20)-(CIX1 + 36, CIY1 + 52), 13, BF
LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 2, BF
LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 2, BF
LINE (CIX1 + 13, CIY1 + 22)-(CIX1 + 33, CIY1 + 31), 0, B
LINE (CIX1 + 13, CIY1 + 40)-(CIX1 + 33, CIY1 + 48), 0, B
LINE (CIX1 + 10, CIY1 + 19)-(CIX1 + 37, CIY1 + 53), 1, B
LINE (CIX1 + 37, CIY1 + 20)-(CIX1 + 37, CIY1 + 52), 12
CIRCLE (CIX1 + 34, CIY1 + 36), 2, 14: PAINT (CIX1 + 34, CIY1 + 36), 14
CIRCLE (CIX1 + 34, CIY1 + 36), 2, 0
GET (CIX1 + 11, CIY1 + 20)-(CIX1 + 40, CIY1 + 53), EDoor%
RETURN
CopydotKeylock:
CIRCLE (CIX1 + 24, CIY1 + 35), 4, 7
CIRCLE (CIX1 + 27, CIY1 + 40), 4, 7
COLOR 4: LINE (CIX1 + 26, CIY1 + 39)-(CIX1 + 44, CIY1 + 21)
LINE (CIX1 + 26, CIY1 + 40)-(CIX1 + 44, CIY1 + 22)
COLOR 6: LINE (CIX1 + 34, CIY1 + 20)-(CIX1 + 39, CIY1 + 28)
LINE (CIX1 + 35, CIY1 + 20)-(CIX1 + 40, CIY1 + 28)
LINE (CIX1 + 35, CIY1 + 32)-(CIX1 + 31, CIY1 + 27)
GET (CIX1 + 15, CIY1 + 16)-(CIX1 + 39, CIY1 + 47), Keylock%
RETURN
CopydotTreasure:
LINE (CIX1 + 16, CIY1 + 65)-(CIX1 + 35, CIY1 + 80), 14, B
LINE -(CIX1 + 40, CIY1 + 75), 14: LINE -(CIX1 + 40, CIY1 + 60), 14
LINE -(CIX1 + 35, CIY1 + 65), 14
LINE (CIX1 + 16, CIY1 + 65)-(CIX1 + 21, CIY1 + 60), 14
LINE -(CIX1 + 40, CIY1 + 60), 14
LINE (CIX1 + 17, CIY1 + 66)-(CIX1 + 34, CIY1 + 79), 6, BF
PAINT (CIX1 + 38, CIY1 + 68), 14
LINE (CIX1 + 22, CIY1 + 60)-(CIX1 + 40, CIY1), 6, BF
LINE (CIX1 + 40, CIY1 + 60)-(CIX1 + 40, CIY1), 12
LINE (CIX1 + 22, CIY1 + 50)-(CIX1 + 40, CIY1 + 50), 12
GET (CIX1 + 16, CIY1 + 50)-(CIX1 + 40, CIY1 + 80), Treasure%
RETURN
CopydotRing:
CIRCLE (CIX1 + 28, CIY1 + 35), 5, 15: CIRCLE (CIX1 + 28, CIY1 + 35), 6, 8
CIRCLE (CIX1 + 28, CIY1 + 26), 3, 1: PAINT (CIX1 + 28, CIY1 + 26), 13, 1
LINE (CIX1 + 26, CIY1 + 24)-(CIX1 + 30, CIY1 + 24), 11
CIRCLE (CIX1 + 28, CIY1 + 26), 2, 1: CIRCLE (CIX1 + 28, CIY1 + 35), 4, 9
GET (CIX1 + 15, CIY1 + 20)-(CIX1 + 38, CIY1 + 45), Diamond%
RETURN
CopydotRing2:
CIRCLE (CIX1 + 28, CIY1 + 35), 5, 15: CIRCLE (CIX1 + 28, CIY1 + 35), 6, 8
CIRCLE (CIX1 + 28, CIY1 + 26), 3, 12: PAINT (CIX1 + 28, CIY1 + 26), 13, 12
LINE (CIX1 + 26, CIY1 + 24)-(CIX1 + 30, CIY1 + 24), 14
CIRCLE (CIX1 + 28, CIY1 + 26), 2, 1: CIRCLE (CIX1 + 28, CIY1 + 35), 4, 9
GET (CIX1 + 15, CIY1 + 20)-(CIX1 + 38, CIY1 + 47), Diamond2%
RETURN
CopydotGem:
CIRCLE (CIX1 + 28, CIY1 + 35), 5, 10: 'CIRCLE (CIX1 + 28, CIY1 + 35), 10, 8
CIRCLE (CIX1 + 28, CIY1 + 26), 2: PAINT (CIX1 + 28, CIY1 + 26), T$
LINE (CIX1 + 26, CIY1 + 24)-(CIX1 + 30, CIY1 + 24), 1
CIRCLE (CIX1 + 28, CIY1 + 35), 4, 9
GET (CIX1 + 15, CIY1 + 20)-(CIX1 + 38, CIY1 + 45), Gem%
RETURN
CopydotSpider:
CIRCLE (CIX1 + 28, CIY1 + 27), 3, 8: PAINT (CIX1 + 28, CIY1 + 27), 8
CIRCLE (CIX1 + 28, CIY1 + 20), 6, 8: PAINT (CIX1 + 28, CIY1 + 20), 8
CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0
LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 30), 7: LINE -(CIX1 + 22, CIY1 + 33), 7
LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 30), 7: LINE -(CIX1 + 34, CIY1 + 33), 7
LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7
LINE (CIX1 + 23, CIY1 + 16)-(CIX1 + 18, CIY1 + 21), 7
LINE -(CIX1 + 18, CIY1 + 23), 7
LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7
LINE (CIX1 + 33, CIY1 + 16)-(CIX1 + 38, CIY1 + 21), 7
LINE -(CIX1 + 38, CIY1 + 23), 7
LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4
LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4
GET (CIX1 + 15, CIY1 + 10)-(CIX1 + 42, CIY1 + 40), Spider%
GOSUB CopydotSpiderfr2
RETURN
CopydotSpiderfr2:
CLS
CIRCLE (CIX1 + 28, CIY1 + 27), 5, 8: PAINT (CIX1 + 28, CIY1 + 27), 8
CIRCLE (CIX1 + 28, CIY1 + 20), 6, 8: PAINT (CIX1 + 28, CIY1 + 20), 8
CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0
LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 20), 7: LINE -(CIX1 + 17, CIY1 + 24), 7
LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 20), 7: LINE -(CIX1 + 40, CIY1 + 25), 7
LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 22, CIY1 + 30), 7: LINE -(CIX1 + 24, CIY1 + 33), 7
LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 34, CIY1 + 30), 7: LINE -(CIX1 + 32, CIY1 + 33), 7
LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4
LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4
GET (CIX1 + 14, CIY1 + 10)-(CIX1 + 44, CIY1 + 40), Spiderfr2%
RETURN
CopydotSpider2:
CIRCLE (CIX1 + 28, CIY1 + 27), 3, 10: PAINT (CIX1 + 28, CIY1 + 27), 10
CIRCLE (CIX1 + 28, CIY1 + 20), 6, 10: PAINT (CIX1 + 28, CIY1 + 20), 10
CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0
LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 30), 7: LINE -(CIX1 + 22, CIY1 + 33), 7
LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 30), 7: LINE -(CIX1 + 34, CIY1 + 33), 7
LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7
LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7
LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7
LINE (CIX1 + 23, CIY1 + 16)-(CIX1 + 18, CIY1 + 21), 7
LINE -(CIX1 + 18, CIY1 + 23), 7
LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7
LINE (CIX1 + 33, CIY1 + 16)-(CIX1 + 38, CIY1 + 21), 7
LINE -(CIX1 + 38, CIY1 + 23), 7
LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4
LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4
GET (CIX1 + 15, CIY1 + 10)-(CIX1 + 43, CIY1 + 40), Spider2%
GOSUB CopydotSpiderpfr2
RETURN
CopydotSpiderpfr2:
CLS
CIRCLE (CIX1 + 28, CIY1 + 27), 3, 10: PAINT (CIX1 + 28, CIY1 + 27), 10
CIRCLE (CIX1 + 28, CIY1 + 20), 6, 10: PAINT (CIX1 + 28, CIY1 + 20), 10
CIRCLE (CIX1 + 28, CIY1 + 25), 6, 0
LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 19, CIY1 + 20), 7: LINE -(CIX1 + 17, CIY1 + 24), 7
LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 37, CIY1 + 20), 7: LINE -(CIX1 + 40, CIY1 + 25), 7
LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7
LINE (CIX1 + 33, CIY1 + 22)-(CIX1 + 36, CIY1 + 25), 7
LINE (CIX1 + 23, CIY1 + 22)-(CIX1 + 20, CIY1 + 25), 7
LINE (CIX1 + 23, CIY1 + 16)-(CIX1 + 18, CIY1 + 21), 7
LINE (CIX1 + 24, CIY1 + 25)-(CIX1 + 23, CIY1 + 30), 7
LINE (CIX1 + 32, CIY1 + 25)-(CIX1 + 34, CIY1 + 30), 7
LINE (CIX1 + 33, CIY1 + 16)-(CIX1 + 38, CIY1 + 21), 7
LINE (CIX1 + 27, CIY1 + 29)-(CIX1 + 27, CIY1 + 31), 4
LINE (CIX1 + 30, CIY1 + 29)-(CIX1 + 30, CIY1 + 31), 4
GET (CIX1 + 15, CIY1 + 10)-(CIX1 + 42, CIY1 + 40), Spiderpfr2%
RETURN
CopydotWeb:
T$ = CHR$(200) + CHR$(130) + CHR$(146) + CHR$(48) + CHR$(8) + CHR$(2) + CHR$(144) + CHR$(152) + CHR$(2)
LINE (CIX1 + 8, CIY1 + 15)-(CIX1 + 35, CIY1 + 25), 1, B
PAINT (CIX1 + 8, CIY1 + 15), T$
LINE (CIX1 + 31, CIY1 + 15)-(CIX1 + 35, CIY1 + 30), 8
GET (CIX1 + 8, CIY1 + 15)-(CIX1 + 36, CIY1 + 25), Web%
RETURN
CopydotSpike:
X1 = 10: Y1 = 15: CLS
LINE (X1, Y1)-(X1 + 5, Y1 - 10), 7: LINE -(X1 + 10, Y1), 7
LINE -(X1, Y1), 7: PAINT (X1 + 5, Y1 - 5), 7
LINE (X1 - 1, Y1)-(X1 + 4, Y1 - 10), 14
LINE (X1 - 1, Y1 + 1)-(X1 + 10, Y1 + 12), 7, BF
LINE (X1 - 1, Y1 + 1)-(X1 - 1, Y1 + 12), 14, BF
CIRCLE (X1 + 12, Y1 + 6), 5, 0: PAINT (X1 + 10, Y1 + 6), 0
LINE (X1 + 5, Y1 - 11)-(X1 + 5, Y1 - 10), 14, BF
GET (X1 - 5, Y1 - 12)-(X1 + 12, Y1 + 12), Spike%
RETURN
ObjectdotProperties:
LO$ = MID$(Object$(Length), 1, 1): HL = INSTR(Object$(Length), "@")
IF LO$ = "!" THEN Health = Health + 25: Ob = Ob + 1
IF LO$ = "$" THEN Fortune = Fortune + 20
IF LO$ = "%" THEN Health = Health + 200 + (200 * (HL = 64))
GOSUB Gamedotstatus: Objects = Objects + Ob: Ob = 0
Tallydotpnts:
Score = Score + Fortune: Fortune = 0
RETURN
Cleardotobject:
PUT (Sx, Sy), Clrobject%, PSET: RETURN
Cleardotplayer:
LINE (265, 145)-(345, 215), 0, BF
RETURN
Cleardotman:
PUT (X, Y), Clrobject%, PSET: RETURN
Cleardotarea:
LINE (Sx - 4, Sy)-(Sx + 23, Sy + 35), 0, BF
RETURN
Placedotwall:
IF T$ = "@" THEN PUT (1 + SpacerX, 6 + SpacerY), Wall3%, PSET: GOTO Skipdotover
IF T$ = "%" THEN PUT (1 + SpacerX, 6 + SpacerY), Wall2%, PSET: GOTO Skipdotover
COLOR 2: PUT (1 + SpacerX, 6 + SpacerY), Wall%, PSET
Skipdotover:
SpacerX = SpacerX + 30:
RETURN
Placedotdoor:
PUT (SpacerX, 36 + SpacerY - 36 + 6), Door%
SpacerX = SpacerX + 30
RETURN
PlacedotEdoor:
PUT (SpacerX, 36 + SpacerY - 36 + 6), EDoor%
SpacerX = SpacerX + 30
RETURN
Placedotkey:
PUT (SpacerX, 36 + SpacerY - 36 + 6), Keylock%, PSET
SpacerX = SpacerX + 30
RETURN
Placedotchest:
PUT (SpacerX, 36 + SpacerY - 36 + 6), Treasure%, PSET
SpacerX = SpacerX + 30
RETURN
Placedotring:
PUT (SpacerX, 36 + SpacerY - 36 + 6), Diamond%, PSET
SpacerX = SpacerX + 30
RETURN
Placedotgem:
PUT (SpacerX, 36 + SpacerY - 36 + 6), Gem%, PSET
SpacerX = SpacerX + 30
RETURN
Placedotweb:
PUT (SpacerX, 36 + SpacerY - 36 + 6), Web%, PSET
SpacerX = SpacerX + 30
RETURN
PlacedotSpike:
PUT (SpacerX + 5, SpacerY + 36), Spike%, PSET
SpacerX = SpacerX + 30
RETURN
Fin:
SCREEN 7: CLS : LOCATE 10, 15: PRINT "GAME": LOCATE 10, 20: PRINT "OVER"
IF slc <> 4 THEN LOCATE 13, 12: PRINT "SPACE - RESTART"
LOCATE 16, 15: PRINT "ESC - END"
WtdotKey:
T$ = INKEY$: IF T$ = "" THEN GOTO WtdotKey
IF T$ = CHR$(27) THEN CLS : SCREEN 0: PRINT "THANKS FOR PLAYING!": SYSTEM
IF slc <> 4 THEN IF INKEY$ = " " THEN GOTO Start
IF INKEY$ = "" THEN GOTO WtdotKey
GOTO WtdotKey
Checkdotkey:
i$ = INKEY$
SELECT CASE INKEY$
CASE CHR$(27)
CLS : SYSTEM
CASE CHR$(32)
GOTO Start
IF INKEY$ = "" THEN GOTO Checkdotkey
END SELECT
GOTO Checkdotkey
RoomdotCheck:
CLS : L = 0: LL = 0: SpacerX = 0: SpacerY = 0: Adv = 0: Wm = 0: Wm2 = 0
Eny = 0: Stringdotpnt = 0: Count = 0: EndotTally = 0
StartdotA = (12 * Rm) - 11: FinishdotA = 12 * Rm
IF Y > 400 THEN Y = 4
IF Y < 4 THEN Y = 400
Confirmdotrm:
GOSUB Copydotwall: GOSUB Cleardotplayer
FOR A = StartdotA TO FinishdotA: FOR B = 1 TO 20 'Height x Width
T$ = MID$(Maze$(A), B, 1)
IF T$ = " " OR T$ = "." OR T$ = "L" THEN GOSUB SkipdotX
IF T$ = "#" THEN GOSUB Placedotwall
IF T$ = "B" OR T$ = "S" OR T$ = "w" THEN GOSUB SkipdotX
IF T$ = "D" THEN GOSUB Placedotdoor
IF T$ = "E" THEN GOSUB PlacedotEdoor
IF T$ = "W" THEN GOSUB Placedotweb
IF T$ = "g" THEN GOSUB Placedotgem
IF T$ = "k" THEN GOSUB Placedotkey
IF T$ = "r" THEN GOSUB Placedotring
IF T$ = "s" THEN GOSUB PlacedotSpike
IF T$ = "t" THEN GOSUB Placedotchest
NEXT B: SpacerX = 0: SpacerY = SpacerY + 36: NEXT A: GOSUB Displaydotman
T = 0: L = 0: SpacerX = 0: SpacerY = 0
IF Rm = 0 OR Rm = 33 OR Rm = 64 THEN Adv = 500
IF Rm = 1 OR Rm = 5 OR Rm = 9 OR Rm = 17 OR Rm = 18 OR Rm = 19 THEN Adv = 300
IF Rm = 7 OR Rm = 8 OR Rm = 12 OR Rm = 16 OR Rm = 25 OR Rm = 28 THEN Adv = 400
IF Rm = 29 OR Rm = 31 OR Rm = 35 OR Rm = 39 OR Rm = 40 OR Rm = 41 THEN Adv = 500
IF Rm = 6 OR Rm = 10 OR Rm = 15 OR Rm = 20 OR Rm = 30 THEN Adv = 450
IF Rm = 42 OR Rm = 43 OR Rm = 44 THEN Adv = 450
IF Rm = 45 OR Rm = 46 OR Rm = 47 OR Rm = 54 OR Rm = 53 OR Rm = 55 THEN Adv = 500
IF Rm = 60 OR Rm = 61 OR Rm = 62 THEN Adv = 500
r = StartdotA: B = 1: GOSUB Gamedotstatus: RETURN
Gamedotstatus:
COLOR 2: LOCATE 29, 5: PRINT "LIVES:"; : COLOR 15: PRINT Lives;
COLOR 2: PRINT SPACE$(4); "SCORE:"; : COLOR 15: PRINT Score;
COLOR 2: PRINT SPACE$(5); "WEAPONS:"; : COLOR 15: PRINT Objects;
COLOR 2: PRINT SPACE$(4); "HEALTH: "; : COLOR 15: PRINT Health;
COLOR 2: PRINT SPACE$(4); "KEYS:"; : COLOR 15: PRINT Keys;
RETURN
Titledotscr:
SCREEN 12: CLS
W = (600 / 4) + 50: H = (400 / 4) + 40: CL = 1: Dmx = 1: Dmy = 1
CIX1 = 106: CIY1 = 279: Spx = 60: Spy = 243
SpacerX = Spx: SpacerY = Spy
Demo = TRUE: Plx% = CIX1 - 12: Ply% = CIY1 + (36 * 2)
Scandotmes:
COLOR 8: LOCATE 1, 1:
IF (T < 1 OR T > 0) THEN PRINT M1$
FOR A = 0 TO 133: FOR B = 0 TO 15
Rand:
RANDOMIZE TIMER
c = FIX(15 * RND(1)): IF c = 8 THEN GOTO Rand
cx = W - 190 + A * 5: cy = H + 20 + (B * 5) - 80
Pt = POINT(A, B)
IF Pt = 8 AND T < 1 THEN GOSUB CircdotFont: GOTO SkipdotPt
IF Pt = 8 AND T > 0 THEN GOSUB Message
SkipdotPt:
NEXT B, A: ht = CSRLIN - 1: LOCATE ht, 1: PRINT SPACE$(16)
T = T + 1: M1$ = "ANY KEY TO START"
IF T < 2 THEN GOTO Scandotmes
GOSUB Drawdotwall: PUT (Plx%, Ply%), Player%, PSET: A = 0: B = A: M = 5:
Aax = 30: BBx = 36: Playdotdemo = TRUE
LOCATE 10, 25: PRINT "Version 2.1: Trapped Forever"
Checkdotpress:
GOSUB Spiderdotroutine: GOSUB Ringdotglow: IF Playdotdemo THEN GOSUB Demodotroutine
IF INKEY$ = "" THEN GOTO Checkdotpress
CIX1 = 275: CIY1 = 145: CL = 0: Web = 5: Demo = FALSE
RingdotX = 0: RingdotY = 0: RETURN
Demodotroutine:
IF A = (30 * 3) THEN GOSUB Listdotmes
IF A = (30 * 5) THEN GOSUB Listdotmes2
IF A = (30 * 9) AND NOT (Unlockeddotdoor) AND Tr < 1 THEN GOSUB Listdotmes3
IF A = (30 * 12) AND Unlockeddotdoor < 1 AND Tr < 1 THEN GOSUB Listdotmes4: Unlockeddotdoor = TRUE
PUT (Plx% + A, Ply% - B), Player%, PSET
FOR H = 1 TO 1000: NEXT
PUT (Plx% + A, Ply% - B), Player%
IF (A < 30 * 12) THEN A = A + Aax
IF (A <= (30 * 9)) AND Tr THEN GOSUB Plotdotdemdotplr: GOSUB Listdotmes5: Playdotdemo = FALSE: RETURN
IF (A > (30 * 10) AND Tr) THEN A = A + Aax
IF Unlockeddotdoor AND NOT (Tr) THEN B = B + BBx: IF B >= (36 * 2) THEN GOSUB Plotdotdemdotplr: Aax = -30: Tr = 1: Unlockeddotdoor = FALSE: SLEEP 1
Null:
RETURN
Plotdotdemdotplr:
PUT (Plx% + A, Ply% - B), Player%, PSET: RETURN
Listdotmes:
GOSUB Plotdotdemdotplr: GOSUB Dmes1: RETURN
Listdotmes2:
GOSUB Plotdotdemdotplr: GOSUB Dmes2: RETURN
Listdotmes3:
GOSUB Plotdotdemdotplr: GOSUB Dmes3: RETURN
Listdotmes4:
GOSUB Plotdotdemdotplr: GOSUB Dmes4: RETURN
Listdotmes5:
GOSUB Plotdotdemdotplr: GOSUB Dmes5: RETURN
Dmes1:
A$ = "Avoid getting bit by the hanging spiders.": L = (80 - LEN(A$)) * .5
A$(2) = "and don't touch the flashing electric pulses."
COLOR 15: LOCATE 12, L: PRINT A$
L2 = (80 - LEN(A$(2))) * .5: COLOR 15: LOCATE 14, L2: PRINT A$(2): SLEEP 6
LOCATE 12, L: PRINT SPACE$(LEN(A$)):
LOCATE 14, L2: PRINT SPACE$(LEN(A$(2)))
RETURN
Dmes2:
LINE (Plx% + A - 4, Ply%)-(Plx% + A + 23, Ply% + 35), 0, BF
PUT (Plx% + A, Ply%), Player%
A$ = "Only the key you see in the same room as the door."
A$(2) = "will unlock that door."
L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$
L2 = (80 - LEN(A$(2))) * .5: COLOR 15: LOCATE 14, L2: PRINT A$(2): SLEEP 6
LOCATE 12, L: PRINT SPACE$(LEN(A$))
LOCATE 14, L2: PRINT SPACE$(LEN(A$(2)))
RETURN
Dmes3:
A$ = "Collect rings, gems and treasures on your journey."
L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$: SLEEP 6
LOCATE 12, L: PRINT SPACE$(LEN(A$)): RETURN
Dmes4:
A$ = "Now open the door with the key you found."
L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$: SLEEP 6
LOCATE 12, L: PRINT SPACE$(LEN(A$)):
LINE (Plx% + A - 4, (Ply%) - 36)-(Plx% + A + 23, (Ply% + 35) - 36), 0, BF
RETURN
Dmes5:
A$ = "Search for items and health potions in the treasure chests."
L = (80 - LEN(A$)) * .5: COLOR 15: LOCATE 12, L: PRINT A$: SLEEP 6
LOCATE 12, L: PRINT SPACE$(LEN(A$)):
RETURN
CircdotFont:
CIRCLE (cx, cy), 3, c: PAINT (cx, cy), c: CIRCLE (cx, cy), 1, 14
PSET (cx, cy), 0
RETURN
Message:
msx = W - 80 + A * 3: msy = H + 280 + B * 2
CIRCLE (msx, msy), 2, CL
Inc = Inc + 1: IF FIX(Inc / 45) = Inc / 45 THEN CL = CL + 1
IF CL = 8 THEN CL = CL + 1
RETURN
Drawdotwall:
GOSUB Demodotmaze: FOR A = 1 TO 5: FOR L = 1 TO 15
S$ = MID$(A$(A), L, 1)
IF S$ = "#" THEN PUT (SpacerX, SpacerY), Wall%, PSET
IF S$ = "t" THEN PUT (SpacerX, SpacerY), Treasure%, PSET
IF S$ = "D" THEN PUT (SpacerX, SpacerY), Door%, PSET
IF S$ = "k" THEN PUT (SpacerX, SpacerY), Keylock%, PSET
IF S$ = "r" THEN RingdotX = SpacerX: RingdotY = SpacerY: PUT (SpacerX, SpacerY), Diamond%, PSET
IF S$ = "g" THEN PUT (SpacerX, SpacerY), Gem%, PSET
IF S$ = "W" THEN PUT (SpacerX, SpacerY), Web%, PSET
IF (S$ = "B" OR S$ = "S") THEN Spx = SpacerX: Spy = SpacerY - 6: GOSUB Spiderdotroutine
SpacerX = SpacerX + 30
NEXT L: SpacerX = 60: SpacerY = SpacerY + 36: NEXT A
SpacerX = 60: SpacerY = 0
RETURN
Menulist:
CLS : Ky$(1) = "ARROW KEYS IN USE": Ky$(2) = "NUMPAD IN USE" + SPACE$(4)
Pntr = 190: SvspX = Spx: SvspY = Spy: slc = 1
Indent = 30: Dnx = 182: Bot = 410
'LINE (120, 100)-(490, 320), 7, BF
FOR O = 120 TO 490 STEP 2.1: LINE (O, 100)-(O, Bot), 8: NEXT
LINE (120 + Indent, 100 + Indent)-(490 - Indent, Bot - Indent), 7, BF
LINE (120 + Indent + 10, 100 + Indent + 10)-(490 - Indent - 10, Bot - Indent - 10), 0, BF
LINE (120 + Indent, 100 + Indent)-(490 - Indent, 320 - Indent), 14, B
LINE (120 + Indent + 1, 100 + Indent + 1)-(490 - Indent - 1, Bot - Indent - 1), 4, B
CIRCLE (190, 182), 6, 4: PAINT (190, 182), 4: CIRCLE (190, 182), 7, 14
Options:
COLOR 14
LOCATE 10, 26: PRINT "Use SPACE-BAR to select": COLOR 9
LOCATE 12, 28: PRINT "HELP (Game tips)"
LOCATE 14, 28: PRINT "GAME SPEED"
LOCATE 16, 28: PRINT Ky$(Kytapfl + 1)
LOCATE 18, 28: PRINT "ABORT THE GAME"
'LINE (120 + Indent + 10, 262 + Indent)-(490 - Indent - 10, Bot - Indent - 10), 15, BF
FOR O = 120 + Indent + 10 TO 490 - Indent - 10 STEP 2
LINE (O, 262 + Indent)-(O, Bot - Indent - 10), 15: NEXT
COLOR 5: LOCATE 22, 26: PRINT "Press ESC to return to game"
OptiondotSel:
T$ = INKEY$: IF T$ = "" THEN GOTO OptiondotSel
IF T$ = CHR$(0) + "P" THEN GOSUB ErasedotPntr: Dnx = Dnx + 30: IF Dnx > 272 THEN Dnx = 272
IF T$ = CHR$(0) + "H" THEN GOSUB ErasedotPntr: Dnx = Dnx - 30: IF Dnx < 182 THEN Dnx = 182
IF T$ = CHR$(27) THEN GOSUB RoomdotCheck: Spx = SvspX: Spy = SvspY: RETURN
IF T$ = CHR$(32) THEN
IF slc = 1 THEN
GOSUB Helpdotscr: GOTO Menulist
ELSE
IF slc = 2 THEN
T$ = "": GOSUB Alterdotdelay: GOTO Menulist
ELSE
IF slc = 3 THEN
Kytapfl = Kytapfl + 1: IF Kytapfl > 1 THEN Kytapfl = 0
Actiondotkey = (Kytapfl)
GOTO Options
ELSE
IF slc = 4 THEN
CLS : GOTO Fin
END IF
END IF
END IF
END IF
END IF
GOSUB MovedotPntr
GOTO OptiondotSel
MovedotPntr:
slc = INT(Dnx / 30) - 5
CIRCLE (190, Dnx), 6, 4: PAINT (190, Dnx), 4: CIRCLE (190, Dnx), 7, 14
RETURN
ErasedotPntr:
IF Dnx >= 182 OR Dnx <= 242 THEN CIRCLE (190, Dnx), 7, 0: PAINT (190, Dnx), 0
RETURN
Helpdotscr:
CLS : Far = 600: LINE (0, 0)-(Far, 478), 15, BF
LINE (40, 0)-(40, 478), 12, B: c = 0
FOR E = 0 TO 478 STEP 15.2: LINE (0, E)-(Far, E), 3: NEXT
CIRCLE (15, 10), 7, c: PAINT (16, 11), c
CIRCLE (15, 140), 7, c: PAINT (16, 141), c: CIRCLE (15, 270), 7, c
PAINT (16, 271), c: CIRCLE (15, 400), 7, c: PAINT (16, 401), c
COLOR 6: LOCATE 5, 17: PRINT "You must navigate through a 64-room maze,"
LOCATE 7, 17: PRINT "all while avoiding dangling spiders, electric shocks"
LOCATE 9, 17: PRINT "and large knives that move up from the floor."
LOCATE 12, 17: PRINT "A word of advice: Time yourself when passing beyond"
LOCATE 14, 17: PRINT "spiders, electric shocks and moving knives."
LOCATE 17, 17: PRINT "Also make a hand-made map of the maze as you start"
LOCATE 19, 17: PRINT "advancing further and further into the labyrinth."
LOCATE 21, 17: PRINT "Finally, take advantage of the treasure chests and"
LOCATE 23, 17: PRINT "the helpful items inside."
COLOR 2: LOCATE 26, 23: PRINT "PRESS SPACE-BAR TO RETURN TO MENU"
Holddothelp:
T$ = INKEY$: IF T$ = "" THEN GOTO Holddothelp
IF T$ = CHR$(32) THEN RETURN
GOTO Holddothelp
Demodotmaze:
A$(1) = "###############"
A$(2) = "# r t #"
A$(3) = "####W########D#"
A$(4) = "# S k g #"
A$(5) = "###############"
RETURN
Alterdotdelay:
SCREEN 12: CLS
LINE (0, 0)-(600, 300), 8, BF: LINE (0, 301)-(600, 315), 4, BF
FOR L = 2 TO 598 STEP 2.8: LINE (L, 302)-(L, 314), 1: NEXT
FOR L = 1 TO 598 STEP 2.36: LINE (L, 1)-(L, 298), 7: NEXT
CPU = 106: T = 1: c = 1
COLOR 15: LOCATE 10, 22: PRINT "GAME DELAY PERFORMANCE METER"
COLOR 2: LOCATE 22, 2: PRINT "USE THE LEFT & RIGHT ARROW KEYS TO SET A DELAY CHANNEL ";
PRINT "FOR THIS GAME."
LOCATE 23, 2: PRINT "YOU WILL THEN SEE A NUMERICAL COUNTER INCREMENTING ";
PRINT "OR DECREMENTING."
LOCATE 24, 2: PRINT "WHEN YOU HAVE THE DELAY YOU NEED, PRESS THE ";
COLOR 14: PRINT "SPACE BAR "; : COLOR 2: PRINT "TO EXIT."
LOCATE 25, 2: PRINT "USE CHANNEL "; : COLOR 14: PRINT "0 ";
COLOR 2: PRINT "FOR FASTEST SPEED."
LINE (94, 100 + 80 - 6)-(456, 150 + 80 + 6), 0, B
LINE (95, 100 + 80 - 5)-(455, 150 + 80 + 5), 9, BF
LINE (100, 100 + 80)-(450, 150 + 80), 14, BF
LINE (107, 190)-(107, 220), 6, BF
'Counter
LINE (240, 245)-(300, 290), 0, BF: LINE (239, 244)-(301, 291), 15, B
LINE (241, 246)-(299, 289), 6, B: LINE (243, 246)-(298, 288), 6, B
GOSUB Cntr
Pskey:
i$ = INKEY$: IF i$ = "" THEN GOTO Pskey
IF i$ = CHR$(0) + "M" THEN Flg = 1: T = 1: SL = 6: GOSUB DrwMtr: GOSUB Cntr: CPU = CPU + T: IF CPU > 443 THEN CPU = 443
IF i$ = CHR$(0) + "K" THEN T = -1: SL = 14: GOSUB DrwMtr: CPU = CPU + T: GOSUB DrwMtr: GOSUB Cntr: IF CPU < 105 THEN CPU = 105
IF i$ = CHR$(27) THEN GOTO BegdotGame
IF i$ = CHR$(32) THEN RETURN
GOTO Pskey
Cntr:
c = c + T
IF c < 1 THEN c = 1: Flg = 0
IF c > 340 THEN c = 340
COLOR 7: LOCATE 17, 32: PRINT c - 1;
RETURN
BegdotGame:
IF c - 1 < 2 THEN Flg = 0: CPU = 0
RETURN
DrwMtr:
LINE (CPU, 190)-(CPU, 220), SL, BF
RETURN
Builddotmazes:
'M:1 Maze 1
Maze$(1) = "######W#W#W#########"
Maze$(2) = "#t### S B S #####"
Maze$(3) = "#t# # # ###### LL#"
Maze$(4) = "#t# # # ###### ###W#"
Maze$(5) = "#t# # # # S."
Maze$(6) = "#r# # # # # ###W####"
Maze$(7) = "#g#t# # # # SLk ."
Maze$(8) = "#t# # # # ##########"
Maze$(9) = "# # # # # # # ."
Maze$(10) = "# W # # # ########W#"
Maze$(11) = "# B D # # B."
Maze$(12) = "#######.############"
'M:9 Maze 2
Maze$(13) = "#######.############"
Maze$(14) = "#t # # ####W#W###W#"
Maze$(15) = "#r # # # # B B ttS."
Maze$(16) = "#r # # # ##W#######"
Maze$(17) = "# # # # #kB ."
Maze$(18) = "# # # # ##########"
Maze$(19) = "# # # # ."
Maze$(20) = "# # # #######W####"
Maze$(21) = "# # # D #rB ."
Maze$(22) = "# # # #### #######"
Maze$(23) = "# # # # ."
Maze$(24) = "#.##.##.######.#####"
'M:17
Maze$(25) = "#.##.##.######.#W###"
Maze$(26) = "# # # #gtrr Brk#"
Maze$(27) = "# # # ############"
Maze$(28) = "# # # ."
Maze$(29) = "# # ##############"
Maze$(30) = "# # #"
Maze$(31) = "# #####D######### #"
Maze$(32) = "# ####W W# ## #"
Maze$(33) = "# ##ttBgBt# ## #"
Maze$(34) = "# ################ #"
Maze$(35) = "# # ."
Maze$(36) = "#.#.################"
'M:25
Maze$(37) = "#.#.################"
Maze$(38) = "# ."
Maze$(39) = "# ##################"
Maze$(40) = "# ."
Maze$(41) = "# ################W#"
Maze$(42) = "# B."
Maze$(43) = "##W###W#############"
Maze$(44) = "#tBtttB tt # ."
Maze$(45) = "#rB r B # ####"
Maze$(46) = "#######D##.W### ##W#"
Maze$(47) = "# rr # # B # #kB."
Maze$(48) = "##..###.##.## #.####"
'M:33
Maze$(49) = "##..###.##.## #.####"
Maze$(50) = "# # # # k# ."
Maze$(51) = "#W# ### ###W###W####"
Maze$(52) = "#B B B ."
Maze$(53) = "# ##### ##### # ####"
Maze$(54) = "# # # # # # # #"
Maze$(55) = "# # # # r # # #"
Maze$(56) = "# # # # # # # #"
Maze$(57) = "# # # W#### # # #"
Maze$(58) = "# # # B # # #"
Maze$(59) = "#D# # ##### # # #"
Maze$(60) = "#.#####.#####.#.####"
'M:41
Maze$(61) = "#.#####.#####.#.####"
Maze$(62) = "# # # # # W## #"
Maze$(63) = "# # t # # # Bk# #"
Maze$(64) = "# # # # ##### #"
Maze$(65) = "# # # # ######## #"
Maze$(66) = "# # r # # # # #"
Maze$(67) = "# # # # # rrr # #"
Maze$(68) = "# # # # # # #"
Maze$(69) = "# # # # ttt # #"
Maze$(70) = "# ############## #W#"
Maze$(71) = "# D B."
Maze$(72) = "####.###############"
'M:49
Maze$(73) = "####.#######W###W###"
Maze$(74) = "# # # # B B #"
Maze$(75) = "# # # # ### # #"
Maze$(76) = "# # # # # # # #"
Maze$(77) = "# # # # # # # #"
Maze$(78) = "# # ### # # # #r #"
Maze$(79) = "# # # # # # # #"
Maze$(80) = "# # # # # # # t#"
Maze$(81) = "# # k # # # # # #"
Maze$(82) = "# ##### # # # #W##"
Maze$(83) = "# #r# #D # B ."
Maze$(84) = "#####.#####.######.#"
'M:57
Maze$(85) = "#####.#####.######.#"
Maze$(86) = "# t# # # # # ."
Maze$(87) = "# # # # # ###"
Maze$(88) = "# ### ##### ##W#####"
Maze$(89) = "# #kB L ."
Maze$(90) = "# #######W##########"
Maze$(91) = "# B ."
Maze$(92) = "# ##################"
Maze$(93) = "# ## rr ggg ttt tt#."
Maze$(94) = "# #W ggg tt rr###"
Maze$(95) = "# DS g ggg ttt ttg #"
Maze$(96) = "####################"
'M:2
Maze$(97) = "####################"
Maze$(98) = "##WW##############W#"
Maze$(99) = "#kBS SD"
Maze$(100) = "###W #"
Maze$(101) = ". B ."
Maze$(102) = "#####W######W#######"
Maze$(103) = ". B B ttt# ."
Maze$(104) = "################## #"
Maze$(105) = ". #r # #"
Maze$(106) = "################.# #"
Maze$(107) = ". #"
Maze$(108) = "####################"
'M:10
Maze$(109) = "####################"
Maze$(110) = "###W#######W######W#"
Maze$(111) = ". B S S."
Maze$(112) = "########### ########"
Maze$(113) = ". # # ."
Maze$(114) = "######### # # #"
Maze$(115) = ". # #r# ###W#"
Maze$(116) = "####### # ### # B."
Maze$(117) = ". # # # #"
Maze$(118) = "##### # ######## #"
Maze$(119) = ". # # #"
Maze$(120) = "##.##.######.#######"
'M:18
Maze$(121) = "##.##.######.#####W#"
Maze$(122) = "#ggg# # ## # B."
Maze$(123) = "##W## # ## #####t#"
Maze$(124) = "D B # ##k# r ###"
Maze$(125) = "#### ## ### r r #"
Maze$(126) = "# ## ## ## ."
Maze$(127) = "# ## ## #########"
Maze$(128) = "# ## ## ."
Maze$(129) = "# # # # ##W## ##"
Maze$(130) = "####### # # #rB W#"
Maze$(131) = ". # # # #rB B."
Maze$(132) = "#######.###.#.######"
'M:26
Maze$(133) = "#######.###.#.####W#"
Maze$(134) = ". rr# ## # ttt#B."
Maze$(135) = "####### ## # rr # #"
Maze$(136) = ". rr# ## ###### #"
Maze$(137) = "###### ## # rrr t#"
Maze$(138) = ". # D## #### ###"
Maze$(139) = "# # # # #"
Maze$(140) = ". # #### ####W ###"
Maze$(141) = "#### ## # B #k#"
Maze$(142) = "#W#### ## # #####L#"
Maze$(143) = ".B ## # # #"
Maze$(144) = "#######.##.#.#####.#"
'M:34
Maze$(145) = "#######.##.#.#####.#"
Maze$(146) = ". # # #t# #"
Maze$(147) = "#######.#### # #t# #"
Maze$(148) = ". L # # #r# #"
Maze$(149) = "### ##WW#D# # # # #"
Maze$(150) = "# # # BB # B# # # #"
Maze$(151) = "# # # # # k# # # #"
Maze$(152) = "# # # ####### # # #"
Maze$(153) = "# # #t # # # ."
Maze$(154) = "# # #g # W##### # #"
Maze$(155) = "# # #g # B # #"
Maze$(156) = "###.####.#########.#"
'M:42
Maze$(157) = "###.####.#########.#"
Maze$(158) = "# # # # # # # #"
Maze$(159) = "# # # # # # # # # #"
Maze$(160) = "# # # #t # # # # # #"
Maze$(161) = "# # # # # # # # # #"
Maze$(162) = "# # # # r# # # # # #"
Maze$(163) = "# # # # # # # # # #"
Maze$(164) = "# # # # W## # # # #"
Maze$(165) = "# #k# # B # # #"
Maze$(166) = "#W###############W #"
Maze$(167) = ".B D B #"
Maze$(168) = "### ############.###"
'M:50
Maze$(169) = "###.############.###"
Maze$(170) = "# # # ## # #"
Maze$(171) = "# #L# ## # #"
Maze$(172) = "# # # ## ## #"
Maze$(173) = "# #k# #W ### #"
Maze$(174) = "# ### ## B ## ##W#"
Maze$(175) = "# ## ## # t#tB."
Maze$(176) = "# ## ## #L ## #"
Maze$(177) = "# ## ## #tt## #"
Maze$(178) = "## ## W#### L## #"
Maze$(179) = ".L # Brr tt##D#"
Maze$(180) = "##################.# "
'M:58
Maze$(181) = "#W################.#"
Maze$(182) = ".B # # #"
Maze$(183) = "# k############### #"
Maze$(184) = "#W# #"
Maze$(185) = ".B ############## #"
Maze$(186) = "### # #"
Maze$(187) = ". # # ##############"
Maze$(188) = "# # ##############W#"
Maze$(189) = ". # B."
Maze$(190) = "# ################W#"
Maze$(191) = "# BD"
Maze$(192) = "####################"
'M:3
Maze$(193) = "####################"
Maze$(194) = "####################"
Maze$(195) = ". #"
Maze$(196) = "######W###W#W## # ."
Maze$(197) = ". L S S Sk# # #"
Maze$(198) = "############### # #"
Maze$(199) = ". # # #"
Maze$(200) = "########### # # # #"
Maze$(201) = "#r r r # # # #"
Maze$(202) = "# g t # # # #"
Maze$(203) = "# # # #D#"
Maze$(204) = "########.####.#.##.#"
'M:11
Maze$(205) = "########.####.#.##.#"
Maze$(206) = "####### Lt # # # #"
Maze$(207) = ". # Lt L# # # #"
Maze$(208) = "#W### ####W## # # #"
Maze$(209) = ".SW B## # # #"
Maze$(210) = "#kBs######g## #r # #"
Maze$(211) = "######ggt# ## # # #"
Maze$(212) = ". #trt# ## # # #"
Maze$(213) = "#### #rrt# W# # r#D#"
Maze$(214) = "#tW# # W B# #### #"
Maze$(215) = "# B # BsS # #"
Maze$(216) = "####.##########.##.#"
'M:19
Maze$(217) = "####.##########.##.#"
Maze$(218) = ". # # # ."
Maze$(219) = "## # # ####WW#W# ###"
Maze$(220) = "## # # # D BBsB ."
Maze$(221) = "## # # # ##W########"
Maze$(222) = "## # # # #kBttL ttt#"
Maze$(223) = "## # # # # LLL LttL#"
Maze$(224) = ". # # # L ttLt#"
Maze$(225) = "### # # # L LLtL#"
Maze$(226) = "#r# # # # L L L#"
Maze$(227) = ". # # # #L L L ."
Maze$(228) = "#.####.#.###########"
'M:27
Maze$(229) = "#.####.#.##W#W######"
Maze$(230) = ". ### # #LStBt#rrr#"
Maze$(231) = "# # ## # LLLL# #"
Maze$(232) = "# # #### # r LWrr #"
Maze$(233) = "# # # #L r S #"
Maze$(234) = "# # # ###W L L#rrr#"
Maze$(235) = "# # # #ttB r # #"
Maze$(236) = "# # # # ######## ###"
Maze$(237) = "# # # # r g ## # ."
Maze$(238) = "# # # # r r t## # #"
Maze$(239) = "# # # # g t ## # #"
Maze$(240) = "#.#.#.##########.#.#"
'M:35
Maze$(241) = "#.#.#.##########.#.#"
Maze$(242) = "# #L# # # #"
Maze$(243) = "# #t# ####W##### # #"
Maze$(244) = "# #g# B #"
Maze$(245) = "# ##################"
Maze$(246) = "# ##############W###"
Maze$(247) = "# B #"
Maze$(248) = "##W############### #"
Maze$(249) = ". B rrLrrr k# #"
Maze$(250) = "###W############## #"
Maze$(251) = "# B D."
Maze$(252) = "##.#################"
'M:43
Maze$(253) = "##.#################"
Maze$(254) = "## ######W#W########"
Maze$(255) = "## # SsS ."
Maze$(256) = "## # ###W#########W#"
Maze$(257) = "## # #kgSs L S."
Maze$(258) = "## # ###############"
Maze$(259) = "## # ."
Maze$(260) = "## #################"
Maze$(261) = "## # sL L#"
Maze$(262) = "## # #W#####W##### #"
Maze$(263) = "## # DS Ss E## #"
Maze$(264) = "##.###############.#"
'M:51
Maze$(265) = "##.###########W###.#"
Maze$(266) = "## # S Ds#"
Maze$(267) = "## # ###############"
Maze$(268) = "## # ."
Maze$(269) = "## ##W#####W###### #"
Maze$(270) = "#W B B # #"
Maze$(271) = ".B # #####W##L # #"
Maze$(272) = "#### # B # L# #"
Maze$(273) = "# # #### #k# ##"
Maze$(274) = "# ttt # # # ### #W#"
Maze$(275) = "# # # #B."
Maze$(276) = "#######.# ########.#"
'M:59
Maze$(277) = "#######.# W#######.#"
Maze$(278) = "#kttt # # S r t g# #"
Maze$(279) = "# tt L# ########D# #"
Maze$(280) = "# ttt # #tttttttt# #"
Maze$(281) = "#L L # ########## #"
Maze$(282) = "# # #"
Maze$(283) = "###.##############W#"
Maze$(284) = "# W # B."
Maze$(285) = ". # B # #"
Maze$(286) = "####################"
Maze$(287) = ". ."
Maze$(288) = "####################"
'M:4
Maze$(289) = "####################"
Maze$(290) = "####################"
Maze$(291) = "#######W###W####WW##"
Maze$(292) = ". St# S BBk."
Maze$(293) = "# #W###### #########"
Maze$(294) = "# .B tttt LtLLtttt#"
Maze$(295) = "# #L ttt L ttttLtt."
Maze$(296) = "# # L L L LL LL L#"
Maze$(297) = "# #L L LL LL ."
Maze$(298) = "# #####W##########W#"
Maze$(299) = "# sS D B."
Maze$(300) = "#########.##########"
'M:12
Maze$(301) = "#########.##########"
Maze$(302) = "# # # ."
Maze$(303) = "# ####### # ########"
Maze$(304) = "# # ###W####"
Maze$(305) = "#L##### # # #ttS ."
Maze$(306) = "# # # # #####W##"
Maze$(307) = "# # ##### # # tt S ."
Maze$(308) = "#L# ###W# # # tt ###"
Maze$(309) = "# L sB# # # #"
Maze$(310) = "# ##### # # # rrrr #"
Maze$(311) = "#S k# #D# rrrr #"
Maze$(312) = "#.#######.#.########"
'M:20
Maze$(313) = "#.#######.#.#W######"
Maze$(314) = ". # # # Btttts."
Maze$(315) = "### # # # # #WW#####"
Maze$(316) = ". # # # # #D BBLLtt#"
Maze$(317) = "# # # # # # # Bt##W#"
Maze$(318) = "# # # # # # #LWW#kS."
Maze$(319) = "# # # # # # #LBS####"
Maze$(320) = "# # # # # # #ttttt #"
Maze$(321) = "# # # # # # # tttt #"
Maze$(322) = "# # # # # # # tttt #"
Maze$(323) = ". # # # # # # tttt #"
Maze$(324) = "#.#.#.###.#.######.#"
'M:28
Maze$(325) = "#.#.#.###.#.######.#"
Maze$(326) = "#L# # # # DrLrr#g#"
Maze$(327) = "# # #S# ### #rrr##W#"
Maze$(328) = "#L# ### #t# # Lr#kS."
Maze$(329) = "# # # W #t# #S L####"
Maze$(330) = "#L#r# B rt# #BBL #"
Maze$(331) = "#t# # ##### #Lttt###"
Maze$(332) = "##### # #LtLt# ."
Maze$(333) = ". g# # #####LtLt# #"
Maze$(334) = "####W # #tttLttLt# #"
Maze$(335) = "#tttB # #gLtttLtt# #"
Maze$(336) = "#######.##########.#"
'M:36
Maze$(337) = "#######.########W#.#"
Maze$(338) = "# r r # Ss #"
Maze$(339) = "# t # # ######W# #"
Maze$(340) = "#####W# # # Bs #"
Maze$(341) = "# B # # ###### #"
Maze$(342) = "# ####### # #ktgt# #"
Maze$(343) = "# # # #L Lt# #"
Maze$(344) = "# # # # #r L # #"
Maze$(345) = "# #W## # # #L # #"
Maze$(346) = "# sS # # # L # #"
Maze$(347) = ".###D# # # # L # #"
Maze$(348) = "####.# ####.####.#.#"
'M:44
Maze$(349) = "####.# ####.####.#.#"
Maze$(350) = "#W## # #gg# #tt# #r#"
Maze$(351) = ".Ss # #tt# #tt#####"
Maze$(352) = "#W#### #Lt# # ttL t#"
Maze$(353) = ".Bs #tt#k#L t #"
Maze$(354) = "#W######tt### BS #"
Maze$(355) = ".S###ttttL L tttt #"
Maze$(356) = "# ###tttt L tttt #"
Maze$(357) = "# ###rrrLr L rrr #"
Maze$(358) = "# #WW rrrr L L #"
Maze$(359) = "# DSBrrrLrrL rrrr #"
Maze$(360) = "#.##################"
'M:52
Maze$(361) = "#.W#################"
Maze$(362) = "# Ss ."
Maze$(363) = "####W#######D#####W#"
Maze$(364) = ".k# B tttttL # s B."
Maze$(365) = "###L LL L L # ### #"
Maze$(366) = "# LL Ltttt # ### #"
Maze$(367) = "# L L LL L L# # # #"
Maze$(368) = "#rrLL L ttttL# # # #"
Maze$(369) = "# rr rr L L# # # #"
Maze$(370) = "#W############ # # #"
Maze$(371) = ".Sss # #"
Maze$(372) = "##################.#"
'M:60
Maze$(373) = "################W#.#"
Maze$(374) = "# sB #"
Maze$(375) = "# ################L#"
Maze$(376) = "# #ttLL LL L LL L ."
Maze$(377) = "# #W##############W#"
Maze$(378) = "# sS sS."
Maze$(379) = "#W################W#"
Maze$(380) = ".B L B."
Maze$(381) = "####################"
Maze$(382) = "#W################W#"
Maze$(383) = ".S S."
Maze$(384) = "####################"
'M:5 (5th row over)
Maze$(385) = "##################W#"
Maze$(386) = "##################S."
Maze$(387) = "####t t rrrrt##### #"
Maze$(388) = ". B L r LW## #"
Maze$(389) = "# B L B L #"
Maze$(390) = "############### W###"
Maze$(391) = ".#g g #sB#t#"
Maze$(392) = "############# ## # #"
Maze$(393) = ". L rr rr L# # #"
Maze$(394) = "################ # #"
Maze$(395) = ". L t ttk# D #"
Maze$(396) = "##################.#"
'M:13
Maze$(397) = "#W################.#"
Maze$(398) = ".B . #"
Maze$(399) = "################## #"
Maze$(400) = "#W##############W# #"
Maze$(401) = ".S B #"
Maze$(402) = "#W###############WD#"
Maze$(403) = ".B L L LL L L LL S #"
Maze$(404) = "# tttttt L ttLtt ###"
Maze$(405) = "#L LL rrrr rrL #k#"
Maze$(406) = "# rrLrr L rrrr L# #"
Maze$(407) = "# LL L L L L #L#"
Maze$(408) = "################.#.#"
'M:21
Maze$(409) = "#W##############.#.#"
Maze$(410) = ".Sk# ttttt LLt#D# #"
Maze$(411) = "####LLLLttttL##LL# #"
Maze$(412) = "#tttrrrLLLrrLrrL # #"
Maze$(413) = "##W#############W# #"
Maze$(414) = ". Ss sS #"
Maze$(415) = "# ################ #"
Maze$(416) = "# #LtLtt tttLL LL# #"
Maze$(417) = "# # LLL LLLLL L # #"
Maze$(418) = "# # ttttLLtttt L# #"
Maze$(419) = "# #L LLL LLL tL# #"
Maze$(420) = "#.#.##############.#"
'M:29
Maze$(421) = "#.#.##############.#"
Maze$(422) = "# # # #"
Maze$(423) = "# # ############ # #"
Maze$(424) = ". # # t# # #"
Maze$(425) = "#L# # ## ## tt# # #"
Maze$(426) = "# # # # ## #### # #"
Maze$(427) = "# # # # ## # # #"
Maze$(428) = ". # # # ## # ##W# #"
Maze$(429) = "### # # ## # # Ss #"
Maze$(430) = "# # # ## # # ##W#"
Maze$(431) = "# D # ## # # #kS#"
Maze$(432) = "#####.##.##.#.#.##.#"
'M:37
Maze$(433) = "#####.##.##.#.#.##.#"
Maze$(434) = "#rrt# # ## # # # #"
Maze$(435) = "#LrL# # ## # # #B #"
Maze$(436) = "#rr # # ## # # # #"
Maze$(437) = "# LL #D# ## # # # B#"
Maze$(438) = "# LLLL # ## # # # #"
Maze$(439) = "# tLt # ## # # #B #"
Maze$(440) = "#tLLLLL# ## # # # #"
Maze$(441) = "#tttLLL# ## # # # B#"
Maze$(442) = "#LL###L# ## # # # #"
Maze$(443) = "# t#k#t# ## # # # #"
Maze$(444) = "#.##.###.##.#.#.##.#"
'M:45
Maze$(445) = "#.##.###.##.#.#.##.#"
Maze$(446) = "# # # # ## # # # #"
Maze$(447) = "# # # # ## # # # #"
Maze$(448) = "# # # # ## # # # #"
Maze$(449) = "# # # # ## # # W# #"
Maze$(450) = "# # # # ## # # Ss #"
Maze$(451) = "#tt# # # ## # #### #"
Maze$(452) = "#tt# # # ## # #### #"
Maze$(453) = "#tt# # # ## # #### #"
Maze$(454) = "#tt# # # ## # #W## #"
Maze$(455) = "#tt# # # ##L# Ss #"
Maze$(456) = "####.###.##.######.#"
'M:53
Maze$(457) = "#W##.###.##.######.#"
Maze$(458) = ".Ss D #k # #rrrr #"
Maze$(459) = "#### # #### #rrt #"
Maze$(460) = ". # # tt #r#rr #"
Maze$(461) = "# # # L#r#tttt #"
Maze$(462) = "# # # tt #r#tttt #"
Maze$(463) = "# # # L #r#tttt #"
Maze$(464) = "# r# # tt #r#t L##W#"
Maze$(465) = "# r# #L L #r#ttt#rS."
Maze$(466) = "#r # # t L#W# ##W#"
Maze$(467) = "#r # # L sSs B."
Maze$(468) = "####.###############"
'M:61
Maze$(469) = "##W#.###############"
Maze$(470) = "#kB# ###############"
Maze$(471) = "#L # L L#"
Maze$(472) = ". ############### #"
Maze$(473) = "#W### tttL Lrrr # #"
Maze$(474) = ".Bs #Lttt LL ttt # #"
Maze$(475) = "#W# # tttL Lttt # #"
Maze$(476) = ".S# #L L LLL L # #"
Maze$(477) = "# # #L L L L L # #"
Maze$(478) = "# # #######WD###W# #"
Maze$(479) = ". # sS sS #"
Maze$(480) = "####################"
'M:6
Maze$(481) = "####################"
Maze$(482) = ". ########W#W#W#W###"
Maze$(483) = "# # D #ks B S S B #"
Maze$(484) = "# # # ############ #"
Maze$(485) = "# # # gLtgtttggg # #"
Maze$(486) = "# # # rttgrrggtt # #"
Maze$(487) = "# # # LgtggLttttg# #"
Maze$(488) = "# # # LtttLLtttr # #"
Maze$(489) = "# # # rttgLLgLttr# #"
Maze$(490) = "# # ############## #"
Maze$(491) = "# # # #"
Maze$(492) = "#.#.##############.#"
'M:14
Maze$(493) = "#.#.##W#W#W####W##D#"
Maze$(494) = "# # # B S S LS # #"
Maze$(495) = "# # # # # # t t# # #"
Maze$(496) = "# #L# # # #tLtL#L# #"
Maze$(497) = "# # # # # #LL t# # #"
Maze$(498) = "# # # # # #LL L# # #"
Maze$(499) = "# # # # # #tLLL# #L#"
Maze$(500) = "# # # # # #LLLL# # #"
Maze$(501) = "# #L# # # #LttL# # #"
Maze$(502) = "# # # # ##k s W # #"
Maze$(503) = "# # # # ## ### S # #"
Maze$(504) = "#.#.#.#.##.###.#.#.#"
'M:22
Maze$(505) = "#.#.#.#.##.###.#.#.#"
Maze$(506) = "# # # ###gggg L# # #"
Maze$(507) = "# # # #gggL ggg#k# #"
Maze$(508) = "# # #.#W########## #"
Maze$(509) = "# # S # #"
Maze$(510) = "# ##WL########## #D#"
Maze$(511) = "# # Ss #"
Maze$(512) = "# # ########W#####W#"
Maze$(513) = "# # #ttttLrrSrrrr S."
Maze$(514) = "# # #############WW#"
Maze$(515) = "# # s L BB."
Maze$(516) = "#.##.###############"
'M:30
Maze$(517) = "#.##.###############"
Maze$(518) = "# ##sD ."
Maze$(519) = "# #t#######W########"
Maze$(520) = "# #g# #r#ttB ."
Maze$(521) = "# # # #r############"
Maze$(522) = "# # # # #L ttLttt #"
Maze$(523) = "# # # # # tttttt ."
Maze$(524) = "#L# # # # L L rr L #"
Maze$(525) = "# # # # #B L #"
Maze$(526) = "# # # # #######W####"
Maze$(527) = "# # # # # Ssk ."
Maze$(528) = "#.#.#.#.#.##########"
'M:38
Maze$(529) = "#.W.#.#.#.W#########"
Maze$(530) = "# S # # Ss ."
Maze$(531) = "# # # # ########## #"
Maze$(532) = "# # # # #ttLtgL#k# ."
Maze$(533) = "# # # # #LtgLgt#L# #"
Maze$(534) = "# # # # # gttgL# # #"
Maze$(535) = "# # # # #LgLggL#L# #"
Maze$(536) = "# # # ### gtt t# # #"
Maze$(537) = "# # # ### LLL # # #"
Maze$(538) = "# # # #W#D#L t #L# #"
Maze$(539) = "# # # sS# # L # # #"
Maze$(540) = "#.#.#.#.#.######.#.#"
'M:46
Maze$(541) = "#.#.#.#.#.######.#.#"
Maze$(542) = "# # # # # #tttt# # #"
Maze$(543) = "# # # # #LL L# # #"
Maze$(544) = "# # # # WW## rt# # #"
Maze$(545) = "# # # # SSk#tLL# # #"
Maze$(546) = "# # # # ####LLL# # #"
Maze$(547) = "# # # ### tggt# # #"
Maze$(548) = "# # # # DLL ttr# # #"
Maze$(549) = "# # # # # gLgtg# # #"
Maze$(550) = "# # # # #LggLgt# # #"
Maze$(551) = "# # # # # gLLtg# #"
Maze$(552) = "#.#.#.#.############"
'M:54
Maze$(553) = "#.#.#.#.W########W##"
Maze$(554) = "# # # # Ss S ."
Maze$(555) = "# # # # ########## #"
Maze$(556) = "# # # # #LLtttttg# #"
Maze$(557) = "#L# # #L# LtLggt # #"
Maze$(558) = "# # # # #LLgttgLL# #"
Maze$(559) = "# # # # # ttrrt # #"
Maze$(560) = "# # #L# #LLttLLLL# ."
Maze$(561) = ". # # # # gtrL#D## #"
Maze$(562) = "### # # # rt #L # #"
Maze$(563) = ".k# # # # rgr # L# #"
Maze$(564) = "#.#.#.#.#######.##.#"
'M:62
Maze$(565) = "#.#.#.#.W####W#.##.#"
Maze$(566) = "# # # # B S # ."
Maze$(567) = "# # # ####W#####W###"
Maze$(568) = "# # # #tttS S ."
Maze$(569) = "# # # ##############"
Maze$(570) = "# # # ############W#"
Maze$(571) = "# # sS."
Maze$(572) = "# # ################"
Maze$(573) = "# # ."
Maze$(574) = "# ################W#"
Maze$(575) = "# L sB."
Maze$(576) = "####################"
'M:7
Maze$(577) = "##W#W##W###W#W#W#W##"
Maze$(578) = "#tB Ss Ss B S B S #"
Maze$(579) = "### ## ### # # # # #"
Maze$(580) = "# # # #t# # # # # #"
Maze$(581) = "# # # # # # # # # #"
Maze$(582) = "# # # # # # # # # #"
Maze$(583) = "# # # # # # # # # #"
Maze$(584) = "# # # # # # # # # #"
Maze$(585) = "# # # # # # # # # #"
Maze$(586) = "# # # #L# # # # # #"
Maze$(587) = "# # # # # # # # # #"
Maze$(588) = "#.#.##.#.#.#.#.#.#.#"
'M:15
Maze$(589) = "#.#.##.#.#.#.#.#.#.#"
Maze$(590) = "# #L # # #L# # #L# #"
Maze$(591) = "# # # # # # # # #L#"
Maze$(592) = "# # L# # # # # # # #"
Maze$(593) = "# # # # # # # # # #"
Maze$(594) = "# #L # # # #t# # # #"
Maze$(595) = "# # # # # #t# # # #"
Maze$(596) = "# # L# # # # # # # #"
Maze$(597) = "# # # # # # # # # #"
Maze$(598) = "# #L # # # #t# # # #"
Maze$(599) = "# # #L# # #t#L# # #"
Maze$(600) = "#.#.##.#.#.###.#.#.#"
'M:23
Maze$(601) = "#.#.##.#.#.###.#.#.#"
Maze$(602) = "# #k # # # #r# # # #"
Maze$(603) = "# #### # # #r# # # #"
Maze$(604) = "# #gt# # # # # # # #"
Maze$(605) = "# #gg# # # # # # # #"
Maze$(606) = "# ## # # # # # # # #"
Maze$(607) = "# # # #r# # #"
Maze$(608) = "#W###### W####W# # #"
Maze$(609) = ".S S B # #"
Maze$(610) = "#W#######W######W# #"
Maze$(611) = ".S B L sB #"
Maze$(612) = "################.#D#"
'M:31
Maze$(613) = "#W##############.# #"
Maze$(614) = ".Bs #t# # #"
Maze$(615) = "#W###### ### #t# # #"
Maze$(616) = ".S #t# #t# # #"
Maze$(617) = "########## # #t# # #"
Maze$(618) = "#W######## # #t#t# #"
Maze$(619) = ".S ## # #t#g# #"
Maze$(620) = "## rrgg ## # #t#t# #"
Maze$(621) = "########## #L# #t#L#"
Maze$(622) = "#W######## # # ### #"
Maze$(623) = ".B # # ## s#"
Maze$(624) = "##########.#.#.##.##"
'M:39
Maze$(625) = "#W########.#.#.##.W#"
Maze$(626) = ".S #### # #k B."
Maze$(627) = "#W##### # # #####"
Maze$(628) = ".S ### # # ."
Maze$(629) = "####D# #t# # #####W#"
Maze$(630) = "#tttt# # # # sB."
Maze$(631) = "#tttt# # # #######W#"
Maze$(632) = "#tttt# # # # sS."
Maze$(633) = "#tttt# # # # #######"
Maze$(634) = "# t# # # # # #####W#"
Maze$(635) = "#tt# # # # #rrrsS."
Maze$(636) = "######.#.#.#.#######"
'M:47
Maze$(637) = "##W###.#.#.#.####W##"
Maze$(638) = "#kS # # sB #"
Maze$(639) = "########W# ####### #"
Maze$(640) = "# r# #L BsD # # #"
Maze$(641) = "# # #ttt## # # # #"
Maze$(642) = "# # #tttt# # # # #"
Maze$(643) = "# # #tttt# # # # #"
Maze$(644) = "# # #tLtt# # # # #"
Maze$(645) = "# # #tttL# # # # #"
Maze$(646) = "# # ###### # # # #"
Maze$(647) = "# # # # # # #"
Maze$(648) = "####.####.#.#.####.#"
'M:55
Maze$(649) = "##W#.####.#.#.####.#"
Maze$(650) = ". B# #### #"
Maze$(651) = "# W######## ### #"
Maze$(652) = "# B # # # ####"
Maze$(653) = "# tt # # # # k#"
Maze$(654) = "########### # # # L#"
Maze$(655) = "#W# rtttg # # # # #"
Maze$(656) = ".B# tttgg # # # #LL#"
Maze$(657) = "### tgttt D# # # #"
Maze$(658) = "# rgttt ### # # # L#"
Maze$(659) = "#gttgtt ### # #L #"
Maze$(660) = "#########.###.#.##.#"
'M:63
Maze$(661) = "#W#######.###.#.##.#"
Maze$(662) = ".Bs # # #"
Maze$(663) = "#W########### # # #"
Maze$(664) = ".Bs # # #"
Maze$(665) = "############# # # #"
Maze$(666) = "#W########### # # #"
Maze$(667) = ".Bs # # #"
Maze$(668) = "#W############# # #"
Maze$(669) = ".Bs ."
Maze$(670) = "#W################W#"
Maze$(671) = ".Bs B."
Maze$(672) = "####################"
'M:8
Maze$(673) = "#####W#W#W###W#W#W##"
Maze$(674) = "#k## S B B ##S S S #"
Maze$(675) = "# ## # #D# # # # # #"
Maze$(676) = "# ## # # # # # # # #"
Maze$(677) = "# ## # # # # # # # #"
Maze$(678) = "# ## # # # # # # # #"
Maze$(679) = "# ## # # # # # # # #"
Maze$(680) = "# ## # # # # # # # #"
Maze$(681) = "# ## # # # # # # # #"
Maze$(682) = "# ## # # # # # # # #"
Maze$(683) = "# ## # # # # # # # #"
Maze$(684) = "#.##.#.#.#.#.#.#.#.#"
'M:16
Maze$(685) = "#.##.#.#.#.#.#.#.#.#"
Maze$(686) = "# ## # # # # #L# #L#"
Maze$(687) = "# ## # # # # #t# # #"
Maze$(688) = "# ## # # # # #g# # #"
Maze$(689) = "# ## # # # # ### # #"
Maze$(690) = "# ## # # # # ### # #"
Maze$(691) = "# ## # #L# # ### # #"
Maze$(692) = "# ## # # # # ### # #"
Maze$(693) = "# ## # # # # ### # #"
Maze$(694) = "# ## # # # # ### # #"
Maze$(695) = "# ##L# # # # ### # #"
Maze$(696) = "#.##.#.#.#.#.###.#.#"
'M:24
Maze$(697) = "#.##.#.#.#.#.##W.#.#"
Maze$(698) = "# ## # # # # # S # #"
Maze$(699) = "# ## # # # # # # # #"
Maze$(700) = "# ## # # # # # # # #"
Maze$(701) = "# ## # # # # # # # #"
Maze$(702) = "# ## # # #L# # # # #"
Maze$(703) = "# ## #L# # # # # # #"
Maze$(704) = "# ## # # # # # # # #"
Maze$(705) = "# ## # # # # # # # #"
Maze$(706) = "# ## # # # # W # # #"
Maze$(707) = "# ## # # # # S # # #"
Maze$(708) = "#.##.#.#.#.#.###.#.#"
'M:32
Maze$(709) = "#.##.#.#.#.#.###.#.#"
Maze$(710) = "# ## # # # #D# # # #"
Maze$(711) = "# ## # # # # # # # #"
Maze$(712) = "# ## # # # #L# # # #"
Maze$(713) = "# ## #L# # # # # # #"
Maze$(714) = "# ## # # # # # # # #"
Maze$(715) = "# ## # # # # # # # #"
Maze$(716) = "# ## # # # # # # # #"
Maze$(717) = "# ## # # # # # # # #"
Maze$(718) = "# ## # # # W W # # #"
Maze$(719) = "# ##k# # # B S # # #"
Maze$(720) = "#.####.#.#.#.###.#.#"
'M:40
Maze$(721) = "#.####.#.#.#.###.#.#"
Maze$(722) = ". # #t# # # ### # #"
Maze$(723) = "#W# #W# # # ### # #"
Maze$(724) = ".S S # # ### # #"
Maze$(725) = "####W#W# # # ### # #"
Maze$(726) = ". BsB # # ### # #"
Maze$(727) = "#W###### # # ### # #"
Maze$(728) = ".S # # ### # #"
Maze$(729) = "######## # # ### # #"
Maze$(730) = "##W###r# # # ### # #"
Maze$(731) = ". S k# #D# # ### # #"
Maze$(732) = "#.####.#.#.#.###.#.#"
'M:48
Maze$(733) = "#.####.#.#.#.###.#.#"
Maze$(734) = "# # # # # ###L# #"
Maze$(735) = "# # # # # # ###t# #"
Maze$(736) = "# # # #L# # ##### #"
Maze$(737) = "# # # # # # ###t# #"
Maze$(738) = "# # # #k# # ### # #"
Maze$(739) = "# # # ### # ### #L#"
Maze$(740) = "# # # #t# # ### # #"
Maze$(741) = "# # # #t# # ### # #"
Maze$(742) = "# # # # # # ### # #"
Maze$(743) = "# # #L# # # ### #D#"
Maze$(744) = "#.##.#.#.#.#.###.#.#"
'M:56
Maze$(745) = "#.##.#.#.#.#.###.#.#"
Maze$(746) = "# ## # # # #k### # #"
Maze$(747) = "# ## # # # ###W# # #"
Maze$(748) = "# ## # # # B # #"
Maze$(749) = "# ## # # ####W##D# #"
Maze$(750) = "# ## #L# #tttBttr# #"
Maze$(751) = "# ## # # #gttt L# #"
Maze$(752) = "# ## # # # trtSgL# #"
Maze$(753) = "# ## # # #rr rtrt# #"
Maze$(754) = "# #W # # #rtBgggt# #"
Maze$(755) = "# sB # # #gg ttrt# #"
Maze$(756) = "#.##.#.#.#########.#"
'M:64
Maze$(757) = "#.##.#.#.#########.#"
Maze$(758) = "# # # # #ttt rrt# #"
Maze$(759) = "# #L# # ####t tt# #"
Maze$(760) = "# # # # # r rrr # #"
Maze$(761) = "# t# # # #Lrttrt # #"
Maze$(762) = "#t # # # # rrLrrL# #"
Maze$(763) = "# t#k# # #Stt tt # #"
Maze$(764) = "###### # #L L# #"
Maze$(765) = ". # # # #"
Maze$(766) = "######W#.#####W# # #"
Maze$(767) = ". Ss SsD #"
Maze$(768) = "####################"
RETURN
Makedotobj:
DATA !?Short sword, !?Warriors sword, !?Magical sword
DATA $/Amulet, %@Waters of healing, $/statue of a golden eagle
DATA !?Whip, !?Knife, !?Shield
DATA $/Chalice, $/bunch of golden coins, %/Healing potion
DATA !?Iron fist, !?Detonator, %@Spider Antidote
DATA |/Nothing at all
Wallcols:
DATA 12,4,6,2,5,7,8,14,8,11,9,1,4,2,2,1,2,3,10,1,8,8
DATA 2,13,2,5,6,7,9,11,3,3,4,6,12,9,3,5,7,2,4,12,9,4
DATA 5,8,9,7,1,3,6,2,4,5,13,11,12,11,10,9,14,15,13,1
Wallbord:
DATA 4,12,13,14,15,1,14,2,9,2,4,7,3,13,8,9,4,2,14,8,7
DATA 1,13,3,15,4,4,10,2,4,14,1,11,14,1,1,13,12,14,14
DATA 10,2,14,14,12,9,8,11,10,14,12,9,13,14,9,1,2,3,4
DATA 5,8,8,2,14
SUB Cleardotarea
LINE (Sx - 4, Sy)-(Sx + 23, Sy + 35), 0, BF
RETURN
END SUB
SUB CopydotPlayer
LINE (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), 0, BF
CIRCLE (CIX1 + 28, CIY1 + 35), 10, 15: PAINT (CIX1 + 28, CIY1 + 35), 15
CIRCLE (CIX1 + 28, CIY1 + 35), 10, 6: CIRCLE (CIX1 + 28, CIY1 + 35), 9, 6
FOR E = 1 TO 5: CIRCLE (CIX1 + 28, CIY1 + 35), E, 0: NEXT
CIRCLE (CIX1 + 28, CIY1 + 35), 1, 0
GET (CIX1 + 15, CIY1 + 23)-(CIX1 + 37, CIY1 + 45), Player%
RETURN
END SUB
View git blame Copy permalink