Fix case of 'V' flag

This commit is contained in:
David Schmenk committed 2026-02-28 10:49:22 -08:00
1 parent b69be5e492
commit 7a6af7f897
3 files changed
+9 -3

No files matched your search

Binary file not shown.
Binary file not shown.
+9 -3
View File
@@ -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