From 7a6af7f897ea81944bc4dfef52ed5b12f2717de9 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Sat, 28 Feb 2026 10:49:22 -0800 Subject: [PATCH] Fix case of 'V' flag --- images/apple/MAZERUNR.po | Bin 143360 -> 143360 bytes images/apple/PLEIADES-2.21.po | Bin 33553920 -> 33553920 bytes src/samplesrc/maze.pla | 12 +++++++++--- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/images/apple/MAZERUNR.po b/images/apple/MAZERUNR.po index c0e036fd3570d04bd29b3361cbdd67829c2fe315..aa5e3f140014df0e46456d93b599bf474c0c0ea2 100644 GIT binary patch delta 676 zcmW-bZ%9*77>Cc@uHxA_<|&#Otxy8`ay^&SPh1?AdnagidhJK2>KHAE4a^ne(#@iIOFBI@p9d>4O5kN zuwdHlsACoOKUhD^osUIT+C~)1tL-dgi6y_-8);(w?qGm1d@)N!EH(7Bo3}w zzsOy*%zgBlOL`0PT+uoYQ<;zI3U&Q6bX1jY|}|BPJ(IFDO@%Wo(LZ;ivXp?MV-ZL6|8|bAdkI*2B-+Pt)pZ#j)Os8>g$!*-7DRdeKU!;wK{tJ;p)NB9% delta 594 zcmW-bO=uHA7=~x#He~XB*g*{S5WymqXrYS1A}GOvcvDu5iXp|2(qODTD2iHI(+PU3 z$mfCVQ{U8o<9_;UYqZ3Xexu$Pqw5%*DsKLb5StL+7JLtq5CinG^1NP&z~R_;)x*G}T)G!sI?}s$vE3RlT|o5tI%&H6lE2b==^rsu1$T}tLi6}@}2hm=kRpVy-$f)6?M~uiBnbA9=@5n)s+L8J-;~8_@Hi7({oB{DsbKDc9n?xfm|Np3>ZgbtS z{`K?RP$Ygl?xx3k#NALlw81@-qL0wKB6mh=*@xtf9=7b#2G?Kazb|a9t3?+#y2bvb zTinFZc_$$!?AskK>+4q(+U9l&RT*5t*EKV{v(IP$1#82D*M|G7DDAT`y^n3;`TN|e zfpy^yo8t5Kxeo@y>Df0Go!jU3^Cu2&?<-grjf48*1eTecsq$YHXsNC)s(5U7Kd-nbsU@o;Bb0i-T$2@?ZyV zd(iQAS-XQ_?@%z;I~5!lJ8k!zwROb*O1Ta zAF3Q16!OIe+j&^X@kWHgUcT+d*sj2K*V-xRwQ)*#9qn}&$CvGOw?$7|JZ6g_c0-=iJodQFQBJy7;53L8 z+Igar;XP;9r`vg!)7+cy1iTH_W_x(ClN#IR*q5^oS%>YOlTHWkw38NZHNjtT(dse{ z{ehw$hu!>yrAOWB@s*q1PV29_EB&AgmIo_18fG~2{s2?fGxpR zU~BL$@NTdTcn^3lcpumnydQi3YzICFwg(>qJAe;^9l=guXRr&{73>Cf2Oj}@fIY!% zuou`Hd=%^h_67Ta{lNiX4mc1T1U?4lf`h>!;81WFmE};FI7};CS$9un?R8#=wc-GvKq}BoN?aa0>VwI2D`*P6uazGr?Kl^PmU50L}(q z1m}Qr!8kY%dmP~;0|ynxC{Ik`~=($ z?g96L`@m1Z{on!cAb1G;4E!8C3?2c$0FQ#lz~kVT;0f?6@Fe&(cnbUm{1!Y7eg~cb z&w}T`@4@rn1@H&(NAM@`B6tb>8N3Ys0{#mA23`Sw2mb*71pfm62LA!Cg4aNT*Qe4y zlYT3~Dq#hzl2)R1gH_53T1i&Oa;(x;87tWeTV<^jtDJSCm1?kTlU32GWTjb^ ztt!^dR>Z1m-C|XVc3vT9pVtBzIIs%K?d^{ochZB|47RyOi~Uao}w zYAy1&Y3#2vE0EIIUmQre-QTd4{f^Gc>U6u`Xd;@5EOCcuChio?MGMhVv=XhwUE*%h zM%*Lr759m@;(qafXeS;N?Zrc)gLqhU6rDt8(M5C>-9&fsi0C1DifqwK^cIhbKBBMa zC;E#4B1a4qgT!MZR}2LVv>NEET)L(#8fd&Ocyi6OfgG5FFf&rm@QrubHrQ`7xTnR;$<;kED*1V zg<_F-RlFu%7mLLb@rGC`mWemTa`BdUTdWW(#VYZRSS{WaYs6ado>(W=iz2Z>Y!sWs zX0b)QFSd$e@qzeIY!e@e?P7=6DRzmE#V2C7*dz9eed1HGUmOqz#Ub&T_*@(oN5mK6 zs5mB$i!a3q@s&6!z80s%H{x4yT6`zYh_m9H_+FeB7sL delta 2767 zcmY+_d7R939LMpQHI^~I?4bQAt*kT0kQ|F8TG5G?U1VF4D|fkagf)&g$N6 zY>caQ6mlgZ5=x>{6kRI4^?CPSkH@^8pYQiO-#Px6$79Cbyp=T0T0cLKkQU5e7)bNm zjQNuT)i)$I9BJzb>3NgW^ZZsqJUy>a_No$v8u@b9rUi@oF8KaijE!GgTO`RpEA>!2 zL;{EuMkEoDB8U`4B#1~cL_&x-h}?!qaYT|32_sShk&=j%LgaQtk~c-%jkUr{OaA|D z<9l-4wDee7sX)0{v)OLp*ukp_NwM77ZnGlQ2M_EqaM*y@qS@}5BDEu_ZQ8eL6`wN4 z9pR5{jk!s&q|I)HO>^B)YOKj-_hPKx7WY=X`Bt~UKj)^KwS2pq7&_)8^bGqBgu}kv zcxbnq6-v(b`Rp+&KioGz+;w#^pN(lIQ2Fpjg2Yu0A)&OgyH9F|?^6Y%PttVO2teJK;FPP#j4rY4W zf{s^U?Fxpy{lPxo$zZSOX}fdQ?wk*H^DYH@Mlaj?N-)X0Zuf84>naxuc-4!gc$qfa z+ZV0tS<9*)O7t3rlD!ODw+oexb_n^R zokBh@H{^I-LSe6)o%OP_K6cjM)`M&g4Hb_Lx3f{!7~7Ax*G{))g)+UoxuI-tL8x&?QBn|s<%Is5-hum=_lMF z3HFn&yZn?}DV}xHU85g(7U+Vd!8^b^!7|`oU1 z3$P{l5cn|o2>2-Y82C8Y3TzFw0iOUf!M0#K(7t&#*dFWvb_AaUJApaiQ(!LG8GIV- z0(J$T0lR_S!5&~wuow6&*c)<@_4RAiV09*(z0vCfzz@^}u;4<(na5?xkxB`3!TnVlMSA%Q7wct8%J@_uT z0n7*A12=-3z&N-W+yZU|w}IQi_rU^i2e=d51?~nv06zrxfP2Ax;78zo@BnxaJOmyF zKL(G0pMXcfW8kOYaqtBA8F&&r1%3{m2EPE$fM>yT;FsW6;Cb+C@B;V^coDn=ehYpF zeh*#-e*k|3uYgyXe^qD`$bdHOgtbmM04?=XdzmPhs49; z5%H*aOgt`HiPoZxctT`~wxXTL64|1?=pZ_ZCq*ZbBc2kuqO*8fbP-*}GoqX5E_#Tb zqL+A9^cHG!I zf|w{K35dyJig-y(6)%fvV!D_iW{OvYCtek^#A{-yToqsf%s7D5qrfx@sZds4v2%|kT@(p7DvP<;;1+#J{8Bs3GtaYDNc#c#cA<{ zI3v!AbK*DgZNQg5m&`e;%9M9To=EHU&U|Yckzd~ YA^sG9iND27@sFT?M|##R|K64V0wr>o@&Et; diff --git a/src/samplesrc/maze.pla b/src/samplesrc/maze.pla index 78adbf9d..0326296c 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