diff --git a/images/apple/MAZERUNR.po b/images/apple/MAZERUNR.po index 80debbf..1de769a 100644 Binary files a/images/apple/MAZERUNR.po and b/images/apple/MAZERUNR.po differ diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po index 8ca1d9d..7f7db94 100644 Binary files a/images/apple/PLEIADES-2.20.po and b/images/apple/PLEIADES-2.20.po differ diff --git a/src/mkrel b/src/mkrel index fe1f746..d06eb99 100755 --- a/src/mkrel +++ b/src/mkrel @@ -115,6 +115,7 @@ cp rel/apple/HGRTEST#FE1000 prodos/demos/apple2/HGRTEST.REL cp rel/apple/GRTEST#FE1000 prodos/demos/apple2/GRTEST.REL cp rel/apple/DGRTEST#FE1000 prodos/demos/apple2/DGRTEST.REL cp rel/apple/MAZE#FE1000 prodos/demos/apple2/MAZE.REL +cp samplesrc/MAZE.SPLASH.BIN prodos/demos/apple2 mkdir prodos/demos/apple2/spiders cp rel/apple/SFM#FE1000 prodos/demos/apple2/spiders/SFM.REL diff --git a/src/samplesrc/maze.pla b/src/samplesrc/maze.pla index 323b0dd..48f3ab2 100644 --- a/src/samplesrc/maze.pla +++ b/src/samplesrc/maze.pla @@ -1,5 +1,6 @@ include "inc/cmdsys.plh" include "inc/conio.plh" +include "inc/fileio.plh" include "inc/args.plh" include "inc/int32.plh" include "inc/hgrlib.plh" @@ -34,14 +35,13 @@ byte = $7F, $00, $00, $00, $08, $00, $00, $00 // Top wall + crumb byte = $03, $03, $03, $03, $0B, $03, $03, $03 // Left wall + crumb byte = $7F, $03, $03, $03, $0B, $03, $03, $03 // Top & Left walls + crumb byte = $00, $00, $10, $54, $54, $54, $10, $00 // Player -//byte = $00, $00, $00, $00, $08, $00, $00, $00 // Bread crumb word maze[] = $0400,$0480,$0500,$0580,$0600,$0680,$0700,$0780 word = $0428,$04A8,$0528,$05A8,$0628,$06A8,$0728,$07A8 word = $0450,$04D0,$0550,$05D0,$0650,$06D0,$0750,$07D0 word arg, seed, moveCnt -byte entry, exit, solved +byte entry, exit, solved, ref byte viewFlag = TRUE res[4] tics @@ -434,6 +434,14 @@ def atoi(strptr)#1 return num * sign end +conio:textmode(40) +hgrMode(hgrPage1) +ref = fileio:open("MAZE.SPLASH") +fileio:read(ref, $2000, $2000) +fileio:close(ref) +for moveCnt = 0 to 10000 + if conio:keypressed(); getc; break; fin +next arg = argNext(argFirst) if ^arg and ^(arg + 1) == 'V' viewFlag = FALSE @@ -442,9 +450,11 @@ fin if ^arg *rndnum = atoi(arg) else + hgrMode(hgrOff) puts("I, J, K, M or arrow keys to move.\n") puts("Q to quit.\n") - puts("Add seed value to command line to replay maze.\n") + puts("Add seed value to command line to\n") + puts("replay maze.\n\n") puts("Press a key to generate the maze...") while not conio:keypressed() conio:rnd()