Вас назначили шерифом небольшого городка, в котором безраз-
дельно господствовала банда гангстеров. И вот, в результате успешно
проведенной операции. Вам удалось загнать оставшихся десятерых бан-
дитов вместе с главарем на пустующее ранчо. Вы предложили им добро-
вольно сложить оружие и сдаться, на что бандиты ответили дружной
стрельбой. Вы поняли, что они никогда не сдадутся и выход может
быть только один - уничтожить их всех до единого. Иначе они не по-
щадят ни Вас ни других жителей городка. Но достаточно ли быстро су-
меете Вы наводить на цель свою снайперскую винтовку и нажимать на
курок? Да и хватит ли Вам патронов?
1 GO ТО 5300
2 CLEAR 38890: LOAD "chr"CODE
64600
3 BORDER 0: PAPER 6: INK 0: С
LS : GO SUB 8: PRINT INK 1; PAP
ER 5 ;AT 5,10; "ПОЖАЛУЙСТА," ;AT 6,
11;"ПОДОЖДИТЕ"
4 GO TO 5000
5 SAVE "GUNFIGHT" LINE 2:STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
30 PRINT AT 5,7;"
";AT 6,7;"
": RETURN
88 REM *******GUNFRIGHT******
89 REM BY MARK HINCHCLIFFE
90 BORDER 0: PAPER 6 CLS
100 POKE 40000,16: POKE 40001,1
0: PRINT OVER 1:AT 10,16;CHR$ 1
44
110 RANDOMIZE USR 39000
120 GO SUB (CON*10)+2000
124 REM ПОДПРОГРАММА "ОГОНЬ"
125 IF F-l THEN GO SUB 1000: G
О TO 110
130 IF PEEK 40010-1 THEN LET Y
-PEEK 40000: LET X=PEEK 40001: G
О SUB 500: LET F-l: PRINT OVER
1; PAPER 6; INK 2;AT X,Y;CHR$ 15
0: RANDOMIZE USR 39165: GO TO 14
0
135 GO TO 110
140 LET SHOTS-SHOTS-1
150 IF SHOTSC12 THEN PRINT PA
PER 7:AT 20,(7+SHOTS);" "
160 IF SHOTS>ll THEN PRINT PA
PER 7;AT 21,(SHOTS-5)"
170 GO SUB 500: GO SUB 1000
180 GO TO 110
500 PLOT 135,16: DRAW OVER 1;(
(PEEK 40000)*8)-131,155-((PEEK 4
0001)*8)
510 RETURN
999 REM ПОПАДАНИЕ?
1000 IF X-XX AND Y-YY AND CON-3
THEN GO SUB 3000: GO TO 1040
1005 IF X-XX+1 AND Y-YY AND CON=
3 AND D-149 THEN GO SUB 3000: G
О TO 1040
1010 PRINT OVER 1; INK 0; PAPER
6;AT X,Y;CHRS 150: LET F-=0: РОК
E 40010,0
1015 IF HIT-10 THEN GO TO 8000
1020 IF SHOTS-O AND CON-3 THEN
GO SUB 3000: GO TO 8600
1025 IF SHOTS-O THEN GO TO 8600
1030 RETURN
1040 LET SC=SC+((INT (300/T))+l)
«100: LET CON=0: LET T=0: LET HI
T-HIT+1: PRINT #1; PAPER 7; INK
0;AT 1ЛН1Т+6) ;CHR$ 146: PRINT.
PAPER 7 ;AT 21,27,-SC: GO TO 1010
1999 REM ЛИМИТ ВРЕМЕНИ
2000 RANDOMIZE : LET DEL-INT (RN
D*100)+150/LEV: LET CON-1
2005 LET R-INT (RND*12)+1: LET X
X-A(R,1): LET YY-A(R,2): LET C=A
(R,3): LET D-A(R,4)
2010 LET T-T+l: IF T-DEL TflEN L
ET CON-2: LET T-0: GO SUB |J000:
BEEP .05,XX
2015 RETURN
2020 LET DEL-INT (RND*(60/LEV))+
90/LEV: LET CON-3
2029 REM ПОПАДАНИЕ В ШЕРИФА?
2030 LET T-T+l: IF T-DEL THEN L
ET CON-O: LET T-0: RANDOMIZE USR
39165: GO SUB 3000: LET H-INT (
RND*(4-LEV))+l
2040 IF H=1 THEN FOR N=7 TO 0 S
ТЕР -1: OUT 254,N: PAUSE 2: NEXT
N: LET LIVES=LIVES-1: PRINT #1;
PAPER 7;AT 1,(27+LIVES);" »: PR
INT PAPER 6;AT 0,0;" ": LET H-0
2050 IF LIVES-0 THEN GO TO 8300
2060 RETURN
2999 REM ПРОРИСОВКА БАНДИТА
3000 PRINT OVER 1; PAPER 6;AT X
X,YY;CHR$ C;AT (XX+1),YY;CHR$ D
3010 RETURN
4999 REM UDG-ГРАФИКА
5000 RESTORE 5000: POKE 23675,88
: POKE 23676,255: FOR N-0 TO 95
5010 READ A
5020 POKE (65368+N),A
5030 DATA 24,24,0,195,195.0.24,2
4,0,24,60,60,60,60,60,126,24,24,
126,24,24,60,126,0
5040 DATA 16,16,56,84,84,^0,40,1
08,24,60,24,24,60,90,153,153,153
,60,60,102,102,102,102,23Ц, 132,1
08,127,62,124,124,150,1
5050 DATA 60,66,165,153,153,165,
66,60,56,70,161,149,161,171,60
2,66,36,36,36,36,37,35,34
5060 DATA 36,36,36,36,36,36,66,1
29.69.170.178.146.146.146.146.14
6
5070 NEXT N
5099 REM ПОДПРОГРАММА УПРАВЛЕНИЯ
5100 RESTORE 5100: FOR N-0 TO 18
7
5110 READ A
5120 POKE (39000+N),A
5130 DATA 237,75,64,156,62,247,2
11.255.219.254.230.16.194.119.15
2,58,64,156,38,0,188,202,143,152
.61,50,64,156,195,143,152
5140 DATA 62.239,211,255,219,254
,230,4,194,143,152,58,64,156,38,
31,188,202,143,152,60,50,64,156,
62,239,211,255,219,254,230,8,194
,170
5150 DATA 152,58,65,156,38,0,188
,202,194,152,61,50,65,156,195,19
4,152,62,239,211,255,219,254,230
,16,194,194,152,58,65,156,38,19,
188
5160 DATA 202,194.152,60.50,65,1
56,62,239,211,255,219,254,230,1,
194.210.152,62,1.50,74,156,237,9
1,64,156,62,22,215,120,215,121
5170 DATA 215,62,21,215,62,1,215
,62,144,215,62,22,215,122,215,12
3,215,62,21,215,62,1,215,62,16,2
15,62,0,215,62,144,215,201
5180 DATA 33,0,0,14,0,22,1,126,2
30,24,211,254,65,16,254,35,21,32
,244,12,32,239,201
5190 NEXT N
5299 REM ДАННЫЕ БАНДИТОВ
5300 DIM A(12,4)
5310 RESTORE 5310: FOR N=1 TO 12
: FOR M=1 TO 4
5320 READ A(N,M)
5330 NEXT M: NEXT N
5340 DATA 11,1,148,149,13,6,148,
32,13,9,148,149,17,12,148,149,10
,25,148,32,16,30,148,32,9,22,148
,32,4,29,147,32,2,22,147,32,2,8,
147,32,16,21,148,32,13,12,148,14
9
5399 REM ИНСТРУКЦИЯ
5400 CLS : BEEP .2,15
5410 PRINT AT 2,12;"СНАЙПЕР"
5420 PRINT AT 5,1;
" ВЫ - МЕСТНЫЙ ШЕРИФ И ВАШ НЕ-
БОЛЬШОЙ ГОРОДОК ТЕРРОРИЗИРУЕТ
БАНДА ГАНГСТЕРОВ.
ВЫ ДОЛЖНЫ ОЧИСТИТЬ ТЕРРИТО-
РИЮ РАНЧО, КОТОРОЕ ОКАЗАЛОСЬ
ЗАХВАЧЕННЫМ БАНДИТАМИ."
54 30 PRINT AT 12,1;
" ВАША СНАЙПЕРСКАЯ ВИНТОВКА
УПРАВЛЯЕТСЯ КУРСОРНЫМИ КЛАВИ-
ШАМИ (5,6,7 И 8).
ДЛЯ ВЫСТРЕЛА ИСПОЛЬЗУЙТЕ
КЛАВИШУ ""ОГ ОНЬ""."
5440 PRINT INK 5; PAPER 1;АТ 19
,4;" НАЖМИТЕ ЛЮБУЮ КЛАВИШУ "
5450 IF INKEY$="" THEN GO TO 54
50
5460 BEEP .2,15: CLS
5499 REM ИГРОВОЙ ЭКРАН
5500 FOR N-0 TO 31: PRINT AT 17,
N;CHR$ 155;AT 18,N;CHR$ 155: NEX
T N: PRINT AT 17,11;CHR$ 138;CHR
S 32;CHR$ 133;AT 18,11;CHR$ 138;
CHRS 32;CHR$ 133
5510 FOR N-0 TO 21: PRINT AT 2,N
;CHR$ 155: NEXT N: PRINT AT 2,8;
CHRS 32
5515 RESTORE 5515: FOR N=1 TO 17
: READ A,B,C: PRINT AT A,B;CHR$
C: NEXT N
5520 DATA 12,25,151,12,22,151,0,
23,153,0,27,152,0,29,154,1,23,15
4,1,25,152,1,27,153,2,24,152
5525 DATA 2,25,153,2,27,154,2,28
,152,3,24,153,3,25,154,3,28,153,
4,24,154,4,28,154
5530 PLOT 95,56: DRAW -15,0: DRA
W 0,20: DRAW -9,0: DRAW 0,-20: D
RAW -31,0: DRAW 0,40: DRAW 55,0:
DRAW 0,-40
5540 PLOT 58,63: DRAW -12,0: DRA
W 0,10: DRAW 12,0 DRAW 0,-10
5550 PLOT 40,56 DRAW -24,16: DR
AW 0,40: DRAW 12,4: DRAW 12,-19
5560 PLOT 28,116: DRAW 55,0: DRA
W 12,-19
5570 PLOT 208/76: DRAW -32,0: DR
AW 0,11: DRAW 32,0; DRAW 0,-11
5580 PLOT 176,76 DRAW -12,8. DR
AW 0,11: DRAW 12,-8: DRAW 32,0:
DRAW -12,8: DRAW -32,0
5590 PLOT 196,87: DRAW 0,8: PLOT
170,82: DRAW -12,-10: PLOT 164,
72. DRAW -6,4
6010 FOR N=0 TO 127: POKE (23168
+N),56: NEXT N
6020 PRINT PAPER 7;AT 20,0;"ПАТ
РОНЫ" ;AT 20,20 ; "УРОВЕНЬ" ;AT 21,2
0;"СЧЕТ"
6030 PRINT #1; PAPER 7; INK 0,AT
1,0,"БАНДИТЫ";AT 0,20;"РЕКОРД";
AT 1,20;"ЖИЗНИ"
6040 LET HS=0
6099 REM СТАРТ
6100 PRINT #1; PAPER 7;AT 1,7;"
": FOR N=20 TO 21 FOR
M=7 TO 18: PRINT INK 1; PAPER 7
;AT N,M;CHR$ 145: NEXT M: NEXT N
6200 PRINT INK 1; PAPER 5;AT 5,
7;" УРОВЕНЬ ИГРЫ ";AT 6,10;" (
1. ..3) ": BEEP .1,10
6210 IF PEEK 2355705 THEN CO T
О 6210
6220 IF PEEK 23560<49 OR PEEK 23
560>51 THEN GO TO 6210
6230 LET LEV-(PEEK 23560)-48
6240 PRINT PAPER 7;AT 20,27;LEV
. PAPER 6;AT 5,7,"
";AT 6,9;"
6500 LET XX"0: LET YY=0: LET H=0
: LET T=0: LET F=0: LET W0=0: LE
T HIT=0: LET sc=0: LET SHOTS-24:
LET LIVES-3: LET CON-O: PRINT #
1; INK 2; PAPER 7;AT 1,27;CHR$ 1
47;CHR3 147;CHR$ 147; INK 0;AT 0
,27 HS PRINT PAPER 7;AT 21,27;
"0 "
6600 RESTORE 6600: FOR N=0 TO 7:
READ A,B: BEEP A,B: NEXT N
6610 DATA -2,16, .2,21,-2,|l6, .2,2
1,.5,16,.4,12,-45,14 .45,9
6700 GO TO 100
7999 REM КОНЕЦ
8000 PRINT FLASH 1; INK 1; PAPE
R 5;AT 5,10/'ПРЕКРАСНО !";AT 6,7
;"РАНЧО ОСВОБОЖДЕНО": FOR N»0 TO
10: BEEP -05,N: BEEP .05,(N*3)
NEXT N PAUSE 100: GO SUB 30
8010 LET SC=SC+1000+(SHOTS|»200) +
(LIVES*500): GO TO 9010
8300 PRINT AT 5,8;"БАНДИТСКИЕ ПУ
ЛИ";AT 6,9;"НАСТИГЛИ ВАС.": GO T
О 8900
8600 PRINT AT 5,11,"ВАМ БОЛЬШЕ";
AT 6,8,"НЕЧЕМ СРАЖАТЬСЯ.": GO ТО
8900 |
8900 FOR N=0 ТО 10: READ А,В: BE
ЕР А,В: NEXT N
8910 DATA .45,0, .3,0, .15,)э, .45,0
, .3,3, .15,2, . 3,2, 15 ,0, -3|. О, .15,
-1,.45,0
9010 GO SUB 30: PRINT PPfPER 7;A
T 21,27;SC I
9020 IF SC>HS THEN LET $S-SC: P
RINT #1. PAPER 7; INK 0;AT 0.27,
HS
9030 PRINT INK 1; PAPER 5;AT 5,
12;"НАЖМИТЕ";AT 6,9;"ЛЮБУЮ КЛАВИ
ШУ"
9040 IF INKEY$="" THEN GO TO 90
40 j
9050 GO SUB 30: PRINT OVER 1; P
APER 6;AT PEEK 40001,РЕЕК 40000;
CHR$ 144: POKE 40010,0: qo TO 61
00
