Rock-Fall ###XRock-Fall by Brian Andrews from ZX Computing Feb/Mar.1984 +24,24,255,60<,60<,36$,36$,36$,12 ,30,62>,127,255,127,62>,28,36$,90Z,153,90Z,60<,24,20,66B,24,60<,90Z,126~,255,255,219,219 0,0,219,219,255,255,219,219,255,195,165,153,153,165,195,255  hs=0 (z="A""G"-1 2g <z,g Fz P 930 Zscore=0 d4:7:4: n xz=220 z,1;"" .01z# =,z z d=20 sk2d=16 z=1d 2r=(*19)+1:p=(*29)+1 ,r1=(*19):p1=(*29)+1 \r1r21p1p31r11r121p11p131z 9r,p;2;4;"";r1,p1;2;4;"" .01z# =,10 z W0:0,167:255,0:0,-167:-255,0 z=18 q=(*28)+1 0(*20)+2,q;6;4;"" "z ,x(4):y(4):x(3)=7:y(3)=18:x(4)=19:y(4)=7:c=0:ghoul=0:x(1)=16:y(1)=20:x(2)=4:y(2)=28:x=3:y=2 6a0,0;"Score=";score;0,17;"High score=";hs;0,10 ;"level";sk @="8"610b J="h"0 T="5"650 ^="7"690 h="6"730 rghoul=ghoul+1 |&(x,y)=60<score=score+1 0,6;score 0x,y;0;4;"":.01z# =,39' c61830& e(x-1,y-1)=34"ū(x-1,y-1)=98bƫ(x,y-1)=124|770 e(x-1,y+1)=34"ū(x-1,y+1)=98bƫ(x,y+1)=124|830> <(x-2,y)=34"ū(x-2,y)=98b890z s=sk sk2s=2 s>ghoul320@ ghoul=0 g=14 x(g),y(g);4;"" bx>x(g)ƫ(x(g)+1,y(g))=60<ū(x(g)+1,y(g))=32 x(g)=x(g)+1:530 Wxy(g)ƫ(x(g),y(g)+1)=60<ū(x(g),y(g)+1)=32 y(g)=y(g)+1:580D Wy20x(g)<0x(g)=x(g)-1 :0y(g)>30y(g)<1y(g)=y(g)-1 D"x(g),y(g);4;1;"" Ng X 320@ bx,y;4;1;"" l(x,y+1)=38&y=y+1:c=c+1:score=score+20:.05|L,20:.05|L,10 :.1}L,12 : vZ(x,y+1)=100dū(x,y+1)=60<ū(x,y+1)=124|y=y+1:  x,y;4;1;"" (x,y-1)=38&y=y-1:c=c+1:score=score+20:.05|L,20:.05|L,10 :.1}L,12 : Z(x,y-1)=100dū(x,y-1)=60<ū(x,y-1)=124|y=y-1:  x,y;4;1;"" (x-1,y)=38&x=x-1:c=c+1:score=score+20:.05|L,20:.05|L,10 :.1}L,12 : Z(x-1,y)=100dū(x-1,y)=60<ū(x-1,y)=124|x=x-1:  x,y;4;1;"" (x+1,y)=38&x=x+1:c=c+1:score=score+20:.05|L,20:.05|L,10 :.1}L,12 : Z(x+1,y)=100dū(x+1,y)=60<ū(x+1,y)=124|x=x+1:  z=x21  (z,y-1)=124|z,y-1;4;2;"";z-1,y-1;4;1;"":.01z# =,z:800    M(z+1,y-1)=33!ū(z+1,y-1)=37%1190 *z 4 >z=x21 H(z,y+1)=124|z,y+1;4;2;"";z-1,y+1;4;1;"":.01z# =,z:860\ R \M(z+1,y+1)=33!ū(z+1,y+1)=37%1250 fz p z (x-1,y)60<ƥ*10 >7x-1,y;"";x-2,y;4;"";x,y;2;1;"":1410   37:7::0,10 ;"ROCK-FALL" 4,10 ;"COPYRIGHT" "'';"  BRIAN ANDREWS JUNE 1982" new=1:1950 7:7:0: (0,10 ;2;"ROCK-FALL" !" The object of the game is to"  " pick up 6 of the symbols"  " at each level without being" " caught by the ghouls." '" You are the symbol." !'" Use the cursor keys to move" "" your man around the scenario." $#'" You score extra points if you" .#" make a rock land on a ghoul." 8$'"You can trap the ghouls because" B"" they can't cross your path or" L#" manouevre around the boulders." V%''"BEWARE of falling boulders!!!!!" `$'"Enter your skill level (1 TO 9)" js$= ts$=""1130j ~'s$>579ůs$<4911130j sk=s$-480  new=0  ,z+1,y-1;7;4;"" =z=810 :q=251-(*4)-1 .1}L,z:.1}L,q q:z score=score+100d  ,z+1,y+1;7;4;"" =z=810 :q=251-(*7)+1 .1}L,z:.1}L,q q:z  score=score+100d   80P (""WELL DONE!! You have completed" 2#" level 0 and have scored ";score <8score>hshs=score:"which is the highest score today" F score<1500d$="Amateur" P6score>1500score<2500 d$="Semi-skilled" Z score>2500 d$="Skilled" d%score>3000 d$="Professional" n''" Your ranking is ";d$ x 1770 die=0:live=0 )z=125ͺ(*5)+1  .1}L,z rand=*10 "rand6die=die+1:z live=live+1 z die>live1510 Px,y+1;"";x,y;4;2;"";x-1,y;1;4;"" y=y+1: :7::0,12 ;1;2;"YOU ARE" =z=510 :.01z# =,z:z,3;2;"":z 5,5;2;"" 6,6;2;""  dt=4 9 ,6;2;"" " 10 ,5;2;"" ,Gz=46:dt=dt+1:dt,z;2;"":.01z# =,dt:z 6Oz=64-1:.01z# =,z:dt=dt+1:dt,z;2;"":z @=z=510 :.01z# =,z:z,8;2;"":z Jkz=811 :5,z;2;"";7,z;"";8,z;"";10 ,z;"":.01z# =,z:z T?z=510 :.01z# =,z:z,13 ;2;" " ^z h\z=1416:.01z# =,z:5,z;2;"";7,z;"";8,z;"":z r>z=510 :.01z# =,z:z,19;2;"":z | dt=4 Hz=2022:.01z# =,z:dt=dt+1:dt,z;2;"":z Qz=2220-1:.01z# =,z:dt=dt+1:dt,z;2;"":z c5,21;2;"";6,22;"";9 ,22;"";10 ,21;"" 0z=58:z,27;2;"":z 10 ,27;"" Rz=2030ͥ**10 +1:.01z# =,z:.01z# =,**15:z U15,5;"Your score was ";score:score>hs" which is the highest today" score>hshs=score  1350F  ''" You reached level ";sk '"Another try (y/n)?" z$= z$=""1780 z$="y":5:40( z$110n1780 : & 0/:1;0,8;"CONGRATULATIONS" :-z=(*5)25(*7)+1 D .1}L,z Nz X"'" You have cleared 6 crosses" b" from level ";sk l''' vsk=sk-1 sk<01310 "" You will return at level ";sk 021,2;" Press any key to continue" b=325 8mo1=b:mo2=mo1-1:mo3=mo2-1:mo4=b-1 12 ,mo1;ٺ(*7);"";12 ,mo1-1;" ";13 ,mo2;"";13 ,mo2-1;" ";14,mo3;"";14,mo3-1;" ";15,mo3;"";15,mo3-1;" ";16,mo3;"";16,mo3-1;" ";17,mo3;"";17,mo3-1;" ";18,mo3;"";18,mo3-1;" ";19,mo3;"";19,mo3-1;" " G14,mo1+1;1;6;"";14,mo1+3;"" .01z# =,b:.01z# =,mo3 b new970  0  100d  n