diff --git a/images/apple/MAZERUNR.po b/images/apple/MAZERUNR.po index c0e036f..aa5e3f1 100644 Binary files a/images/apple/MAZERUNR.po and b/images/apple/MAZERUNR.po differ diff --git a/images/apple/PLEIADES-2.21.po b/images/apple/PLEIADES-2.21.po index 13598fb..75d539a 100644 Binary files a/images/apple/PLEIADES-2.21.po and b/images/apple/PLEIADES-2.21.po differ diff --git a/src/samplesrc/maze.pla b/src/samplesrc/maze.pla index 78adbf9..0326296 100644 --- a/src/samplesrc/maze.pla +++ b/src/samplesrc/maze.pla @@ -459,20 +459,24 @@ def atoi(strptr)#1 return num * sign end +def randomize#0 + conio:rnd() +end + arg = argNext(argFirst) -if ^arg and ^(arg + 1) == 'V' +if ^arg and toupper(^(arg + 1)) == 'V' viewFlag = FALSE arg = argNext(arg) fin if ^arg - *rndnum = atoi(arg) + seed = atoi(arg) else conio:textmode(40) hgrMode(hgrPage1) lz4Read("MAZE.SPLASH.LZ4", $2000, $4000, heapmark, heapmark + heapavail - 256) seq = musicRead("MAZE.SEQ") musicPlay(seq, FALSE) - musicGetKey(0, NULL) + musicGetKey(8, @randomize) heaprelease(seq) hgrMode(hgrOff) conio:gotoxy(1, 1) @@ -495,6 +499,7 @@ else conio:rnd() loop if toupper(getc) == 'Q'; conio:textmode(0); return; fin + seed = *rndnum fin ref = fileio:open("MAZE.PCM") pcmlen = fileio:read(ref, heapmark, heapavail) @@ -506,6 +511,7 @@ conio:viewport(0, 20, 40, 4) hgrMode(hgrPage1) hgrDrawBuf(hgrPage1) tileDrawBuf(hgrPage1) +*rndnum = seed repeat seed = *rndnum moveCnt = 0