mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 15:10:18 +00:00
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
1922 lines
64 KiB
QBasic
1922 lines
64 KiB
QBasic
'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
|