Ambush


High resolution graphics make this forest scene something worth seeing! You are trapped by snipers hiding amongst the trees. Your only shelter is a low wall. Can you kill all the snipers before one of them succeeds in shooting you.

    1 REM *** BBC VERSION ***
    2 REM *** SNIPER AMBUSH ***
   10 DIMP(5,5),L(11,2),S(5,2),S$(2)
   20 TB=5000:TM=0:K$="0000000000":MN=0:AI=0:
FR=0:MX=RND(27)*8
   30 GOTO520
   40 TM=TM+1:COLOUR3:PRINTTAB(28,15);TM
   50 A=INKEY(2):IFA<0 GOTO130
   60 COLOUR0
   70 IFA=65 PRINTTAB(10,13)R$:MN=1:GOTO130
   80 IFA=90 PRINTTAB(10,13)Q$:MN=0:GOTO130
   90 IFA=66 AND MN=1 FR=1:GOTO130
  100 IFA=78 MX=MX-8:GOTO130
  110 IFA=77 MX=MX+8:GOTO130
  120 GOTO40
  130 IFMX<0 MX=0
  140 IFMX>220 MX=220
  150 IFFR=0 GOTO350
  160 FR=0
  170 Y=23
  180 IFMX<42 Y=Y+32:GOTO230
  190 IFMX<70 Y=Y+7:GOTO230
  200 IFMX<124 Y=Y+8:GOTO230
  210 IFMX<164 GOTO230
  220 Y=Y-8
  230 GCOL3,3:PLOT69,328,288
  240 PLOT1,(MX-60)*4,Y*4
  250 SOUND&10,-15,5,3:SOUND0,-12,6,3
  260 PLOT69,328,288
  270 PLOT1,(MX-60)*4,Y*4
  280 COLOUR2
  290 IFMX>29 AND MX<35 AND MID$(K$,1,1)>"0" 
PRINTTAB(4,5)CHR$241;CHR$242;:COLOUR0:PRINTCH
R$230;CHR$231:K$=LEFT$(K$,5)+"1"+RIGHT$(K$,4)
:GOTO340
  300 IFMX>61 AND MX<67 AND MID$(K$,2,1)>"0" 
PRINTTAB(8,8)CHR$241;CHR$242;:COLOUR0:PRINTCH
R$230;CHR$231:K$=LEFT$(K$,6)+"1"+RIGHT$(K$,3)
:GOTO340
  310 IFMX>101 AND MX<107 AND MID$(K$,3,1)>"0
" PRINTTAB(13,8)CHR$241;CHR$242;:COLOUR0:PRIN
TCHR$230;CHR$231:K$=LEFT$(K$,7)+"1"+RIGHT$(K$
,2):GOTO340
  320 IFMX>144 AND MX<155 AND MID$(K$,4,1)>"0
" PRINTTAB(19,9)CHR$241;CHR$242;:COLOUR0:PRIN
TCHR$230;CHR$231:K$=LEFT$(K$,8)+"1"+RIGHT$(K$
,1):GOTO340
  330 IFMX>185 AND MX<195 AND MID$(K$,4,1)>"0
" PRINTTAB(24,10)CHR$241;CHR$242;:COLOUR0:PRI
NTCHR$230;CHR$231:K$=LEFT$(K$,9)+"1"
  340 IFRIGHT$(K$,5)="11111" GOTO850
  350 K=RND(5)
  360 IFMID$(K$,K+5,1)="1" GOTO40
  370 IFMID$(K$,K,1)="4" COLOUR2:PRINTTAB(S(K
,2),S(K,1))S$(2)
  380 IFMID$(K$,K,1)="5" OR(MID$(K$,K,1)="7" 
AND MN=0) GOSUB420
  390 K$=LEFT$(K$,K-1)+CHR$(ASC(MID$(K$,K,1))
+1)+RIGHT$(K$,10-K)
  400 IFMID$(K$,K,1)="7" COLOUR0:PRINTTAB(S(K
,2),S(K,1))S$(1):K$=LEFT$(K$,K-1)+"0"+RIGHT$(
K$,10-K)
  410 GOTO40
  420 N=RND(P(K,4))
  430 NX=N-P(K,3)
  440 GCOL3,3:PLOT69,P(K,1)*4,P(K,2)*4
  450 PLOT1,NX*4,-P(K,5)*4
  460 SOUND&10,-15,4,3:SOUND0,-12,5,3
  470 PLOT69,P(K,1)*4,P(K,2)*4
  480 PLOT1,NX*4,-P(K,5)*4
  490 IFMN=0 RETURN
  500 IFP(K,1)+NX>78 AND P(K,1)+NX<86 COLOUR0
:PRINTTAB(10,13)Q$;TAB(9,15)P$:GOTO820
  510 RETURN
  520 MODE7:PRINT'CHR$141;CHR$&81;SPC(14)"Amb
ush."'CHR$141;CHR$&81;SPC(14)"Ambush."
  530 PRINT''''"You have been ambushed by gun
men in a   forest. The only safe place is a l
ow    wall behind which you can take cover."
  540 PRINT''"You must try to kill all gunmen
 by      aiming over the top of the wall,but 
the snipers are quite good shots!"
  550 PRINTTAB(0,20)"How long can you survive
 ?........"
  560 F$=STRING$(29,CHR$9)
  570 G$=STRING$(31,CHR$9)
  580 FORX=0TO7:FORY=0TO8:READA:?(&C00+Y*8+X)
=A:NEXT,
  590   FORX=0TO7:READA,B:?(&C00+72+X)=A:?(&C
00+80+X)=B:NEXT
  600   FORX=1TO11:READL(X,1),L(X,2):NEXT
  610   FORX=0TO7:READA:?(&C00+88+X)=A:NEXT:W
$=STRING$(32,CHR$235)
  620   T$=CHR$224+CHR$225+CHR$226+F$+CHR$227
+CHR$228+CHR$229+F$+CHR$230+CHR$231+CHR$232
  630   S$(1)=CHR$230+CHR$231:S$(2)=CHR$233+C
HR$18+CHR$0+CHR$234
  640   FORX=0TO7:READA:?(&C00+104+X)=A:NEXT
  650   FORX=0TO7:READA,B:?(&C00+136+X)=A:?(&
C00+144+X)=B:NEXT
  660   FORX=0TO7:READA,B:?(&C00+152+X)=A:?(&
C00+160+X)=B:NEXT
  670   Q$=" "+G$+CHR$235+G$+CHR$236:P$=CHR$2
41+CHR$242
  680   R$=CHR$243++G$+CHR$244+G$+" "
  690   FORX=1TO5:READS(X,1),S(X,2):NEXT
  700   FORX=1TO5:FORY=1TO5:READP(X,Y):NEXT,
  710     INPUTTAB(0,22)"Press <RETURN> to fi
nd out!!!!"X$
  720     MODE1:COLOUR129:VDU28,4,27,35,4,19,
1,2;0;29,128;192;:CLS
  730     COLOUR0:FORX=10TO26STEP4:PRINTTAB(X
,1)T$:NEXT
  740     FORX=1TO11:PRINTTAB(L(X,2),L(X,1))T
$:NEXT
  750     COLOUR2:FORX=3TO11:PRINTTAB(L(X,2)+
2,L(X,1)+2)CHR$232:NEXT
  760     COLOUR0:PRINTTAB(0,15)T$;TAB(3,17)T
$
  770     PRINTTAB(0,14)W$
  780     PRINTTAB(23,15)"TIME:    "
  790     PRINTTAB(0,22)"Shoot snipers as the
y fire. Keys'A&Z'(Up/Dn)'N&M'(Aim)'B'(Fire)";
  800     PRINTTAB(10,13)Q$
  810     GOTO40
  820     PRINTTAB(0,22)SPC(63);TAB(0,22)"You
 have been shot! in time:";TM;TAB(0,23)"This 
is the one that shot you";
  830     FORI=100TO60STEP-1:SOUND1,-15,I,1:N
EXT 
  840     FORI=0TO10:COLOUR2:PRINTTAB(S(K,2),
S(K,1))S$(2):FORJ=0TO500:NEXT:COLOUR1:PRINTTA
B(S(K,2),S(K,1))S$(2):FORJ=0TO500:NEXT,:GOTO8
80
  850       IFTB>TM TB=TM
  860       PRINTTAB(0,22)SPC(63);TAB(0,22)"Y
ou shot all snipers in time:";TM;TAB(0,23)"Be
st time so far:";TB;
  870       FORI=60TO100:SOUND1,-15,I,1:NEXT
  880       *FX15
  890       FORI=0TO7000:NEXT:COLOUR2:INPUTTA
B(0,22)"Press <RETURN> for next game."SPC(34)
X$
  900       MX=RND(27)*8:K$="0000000000"
  910       TM=0:MN=0:FR=0
  920       GOTO720
  930       DATA3,15,0,127,255,252,0,60,8,3,2
55,192,63,255,188,0,60,0,15,255,240,55,247,24
8,0,60,138,15,255,248,31,63,248,0,60,40,126,2
55,126,31,60,240,0,60,138,127,255,254,24,60,4
8,0,60,162,255,255,252,0,60,0,0,60,160,127,22
3,252,0,60,0,0,60,32
  940       DATA0,252,63,252,2,124,3,252,0,12
4,1,252,1,124,3,60
  950       DATA2,4,1,18,3,6,2,20,3,24,4,11,4
,29,6,10,6,15,7,21,8,26
  960       DATA51,255,219,255,253,255,183,25
5
  970       DATA249,113,113,33,255,113,123,21
9
  980       DATA0,0,0,0,0,0,0,0,160,0,247,224
,255,241,247,255
  990       DATA248,115,113,255,115,251,118,2
55,38,253,250,251,254,247,112,255
 1000       DATA5,6,8,10,8,15,9,21,10,26
 1010       DATA47,127,10,50,54,79,110,39,70,
37,119,110,60,60,37,167,102,127,80,29,207,94,
200,120,21