hunthurkleX.-Z.u HUNT THE HURKLE was written Richard Hartill of Tarporley,Cheshire Sinclair User nov-85-85  5000 *23561 \,0:23562 \,0 6***HUNT THE HURKLE*** Richard Benett 1985 t.5,15:#1;0,0;0;5;1;"Press Z to COPY or C to CONTINUE" k$=:k$=""6 .k$="z"k$="Z".1}L,15::10 *k$"c"k$"C".5,0:6 .1}L,15 +g=1:t=0:f=0:90Z 18,0;"Do you require instructions?" +10 ,8;" Yes or No " k$=:k$=""30 .1}L,15 #k$="n"k$="N"100d (+k$"Y"k$"y".5,0:30 2 :91[ 4/8,0;" The Dreaded,Deadly Hurkle" 6g10 ,15;7;2;1;" ";11 ,15;"";12 ,15;"" 8C14,0;" is hiding somewhewre on a grid like this:-" : 95_ <1000:95_ > 90Z @i4,0;" You must try to work out where he is hiding by typing in quesses like this:-" B(8,10 ;1;"( 4 , 5 )" D410 ,0;" These are called co-ordinates" FQ95_:1000:x=4:y=5:c$="BANG":3000 :95_ H 90Z Ju4,0;" You are given various clues as to how far out your guess is from the Hurkle's hiding place." L[8,0;" You can choose which sort of clues you are given from this menu." N@95_:f=1:100d: f=0:95_:90Z PP8,0;" But the best way of finding out how to play is by playing." R`12 ,0;" If you are a complete beginner then start with 1 on the clues menu." T95_:100d Z0:0:7: [80,0;" H U N T T H E H U R K L E " \ _R100d:#1;1,6;1;1;"Press C to continue" `k$=:k$=""96` a567CƯ99c.5,0:96` b.1}L,15: c******************* d***** M E N U ***** e******************* f&6:6:0:1: i80,0;" H U N T T H E H U R K L E " n51,0;"Which sort of clues do you want?" p-0;" " s%" 1 Hurkle shown - HIT or MISS" x'" 2 WARM / COLD" }'" 3 How many units away" &'" 4 Direction (N,S,NE,SW etc.)" '" 5 Bearing." '" 6 Vectors" %'" 7 Moving Hurkle - WARM/COLD" &'" 8 Moving Hurkle - Units away" &'" 9 Moving Hurkle - Directions" %'" 0 Moving Hurkle - Bearings." f=1 8#1;1,7;1;"Choose your clues" k$=:k$=""170 8k$>579ůk$<480.5,5:170 t=k$:t=0t=10 =.1}L,15:t<4t=7t=8500 2:2:7: *** Origin of clues *** A0,0;6;" H U N T T H E H U R K L E " 17,0;" Do you want your clues to:-" =10 ,0;" G Point from Guess to Hurkle" P13 ,0;" H Point from Hurkle to your last guess?" :18,7;1;1;" Make your choice " k$=:k$=""230 k=k$ !k<97ak=k+32 :k$=k 7k<103gk>104h.5,10 :230 .1}L,15:t$=k$ ****************** ***CONTROL LOOP*** ******************  900  G=1  1000  1500 x=hxy=hy3300 & 2000 : 3000 D&g=g+1:g=11  3400H N 530 hx=(*9 ) hy=(*9 )  ******************* *** SET UP GRID *** ******************* 4:5:0: 40,0;1;" " 1,23;"HUNT THE";2,23;" HURKLE ";4,22;"GuessClue";5,22;"" (k=616:k,27;"":k !17,22;"" 1,0; k=19 T2;1;" ";1;10 -k;0;1;" " ,1;1;" "  k <2;1;" 0";1;" " V1;2;" 0 1 2 3 4 5 6 7 8 9 " #1;" " $ t1 .18-(hy*2),1+(hx*2);7;2;1;" ";19-(hy*2),1+(hx*2);"";20-(hy*2),1+(hx*2);"" 8 ***************** **Type in Guess** ***************** N#1,1,1;5;1;"Please type in guess number ";g -l=25:19,23;" ?, " k$=:k$=""1510 Ek$<58:Ưk$>47/l<33!.1}L,15:1560 8k$=13 l=33!.1}L,15:1600@ -k$12 .5,10 :1510 .1}L,15 +l=25.5,10 :1510 l=33!19,29;1;"?":l=29:20,22;" ";21,22;" ":1510  1505 "19,l;2;1;k$ "4l=25x=k$:19,29;1;"?" ,Al=29y=k$:20,22;1;1;"ENTER" 6l=l+4:1510 @20,22;" " J ******************* ***Work out clue*** ******************* $t<72000+(502*t) 1750+(t*502)  c$="MISS": 4d=(hx-x)+(hy-y) 9d>10 c$="FRIZ": >2130R+d C t<7 H 2500 S c$="FIRE": T c$="Vhot": U c$="HOT!": V c$="hot": W c$="WARM": X c$="glow": Y c$="COLD": Z c$="Brrr": [ c$="Vcol": \ c$="ICY": fd=(hx-x)+(hy-y) k$d<10 c$=" "+d:2115C p c$=" "+d u 2115C c$=" ":t$="h"2230 yhyc$=c$+"S" xhxc$=c$+"W"  2248 yhyc$=c$+"N" xhxc$=c$+"E" t>62500  -c=0:dx=hx-x:dy=hy-y:ax=dx:ay=dy #dx=0dy=02254 c=((((ay/ax))/)*180) 1dx0Ƽdy=1c=c+0:2260 1dx>0dy0c=c+90Z:2260 4dx0Ƽdy=-1c=c+180:2260 (dx=-1dy0c=c+270 #t$="h"c180c=c+180 #t$="h"c>180c=c-180 &c100dc$=(c)+"":2290 *c<10 c$=" "+(c)+"":2290 c$=" "+c+"" t>62500  **** VECTORS? **** -c$="":t$="h"dx=x-hx:dy=y-hy:2320 dx=hx-x:dy=hy-y dx0c$=" "  c$=c$+dx dy0c$=c$+" "  c$=c$+dy $t>62500 ) Idx=0:dy=0:dx=(*3)-1:dx02530 dy=(*3)-1 (hy+dy0hy+dy<10 hy=hy+dy (hx+dx0hx+dx<10 hx=hx+dx  ******************* ****Plot guess***** ******************* <5+g,22;"(";x;",";y;")";5+g,28;c$ d19-(y*2),2+(x*2);2;6;1;1;"":2,0 Q19-(y*2),2+(x*2);2;6;1;1;g  ****************** *** Direct hit!*** ****************** c$="HIT!" <5+g,22;"(";x;",";y;")";5+g,28;c$ S19-(y*2),2+(x*2);2;6;1;1;"" ~.3,8:.3,8:.3,8:.3,8:.4L,4:.2~L,8:1,11 18-(y*2),1+(x*2);7;2;1;" ";19-(y*2),1+(x*2);"";20-(y*2),1+(x*2);"" s$="es" `#1;1,0;" ";1;6;2;" You hit the hurkle in ";g;" go";s$ 200 #1;1,0;" ";1;6;2;" Press Z for printer copy ";1,1;" or press C to continue " k$=:k$=""3355 0k$="z"k$="Z".1}L,15::3500 %-k$"c"k$"C".5,0:3355 *.1}L,15 / 3500 G************** H****Missed**** I************** J/k=16-16-1:.05|L,k:k Ki#1;1,1;0;5;1;1;" He was hiding at ( ";hx;" , ";hy;" ) " M18-(hy*2),1+(hx*2);7;2;1;" ";19-(hy*2),1+(hx*2);"";20-(hy*2),1+(hx*2);"" R c$="HERE" \P5+g,22;1;1;"(";hx;",";hy;")";5+g,28;c$ a500:3350 ****************** ****Game Over***** ****************** &6:0:6:1: 0,0;0;7;"H U N T T H E H U R K L E" 75,7;1;2;"G A M E O V E R" #7,0;" Do you want:-" 7'" 1 Play the game again with the same clues?" 1'" 2 Choose a game with different clues?" @'" 3 Finish playing Hunt the Hurkle all together?" 820,8;1;1;"Make your choice" k$=:k$=""3550 9k$<491ůk$>513.5,0:3550 3560 +(k$*10 ) G9 ,1;1;1;2;"1":150:500 H11 ,1;1;1;2;"2":150:100d =13 ,1;1;1;2;"3":150 **************** **Over and out** ****************  R 10 ,0;1;0;7;"ARE YOU SURE YOU WANT TO FINISH?" $+12 ,10 ;" Yes or No ?" )k$=:k$=""3625) ..1}L,15 3k$="y"k$="Y" 8k$="n"k$="N"3500 =.5,0:3625) *************** *** U D G s *** *************** k=65368X65471 a:k,a k  K24,24,24,255,255,24,24,24 E0,0,0,255,255,0,0,0 I24,24,24,24,24,24,24,24 G0,0,16,568,84T,16,16,16 H24,24,24,0,0,85U,85U,127 K16,16,480,175,175,480,16,16 I120x,480,480,243,243,0,0,0 F16,16,16,19,19,0,0,0 I99c,99c,99c,227,247,0,0,24 M127,73I,91[,255,201,65A,85U,127 E0,0,0,240,240,0,0,0 E480,72H,72H,480,0,0,0,0 F0,73I,42*,0,99c,0,42*,73I J aIg tfTgl!xyc CHEREKy