mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
1922 lines
66 KiB
QBasic
1922 lines
66 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
|