Игры - текст игры "BLASTER".

Игры на Бейсике своими руками 1996 г.

Борьба с инопланетянами - старый испытанный сюжет компьютерных
игр. Но в этой игре Вам ие придется волны атакующих пришельцев. Они
уже успели произвести успешную высадку на нашей планете и основать-
ся в глубине горных массивов. Ваша задача - пробиться к вражескому
гнезду сквозь толщу скальных пород, используя для этого один иэ са-
мых современных и мощных бластеров. Какой Вы выберете маршрут - де-
ло Ваше При неудачном варианте Вам может не хватить энергии, но в
пути Вам будут встречаться специальные энергетические капсулы для
ее пополнения Но Вам могут также встретиться энергетические барь-
еры, расставленные инопланетянами Если Вы натолкнетесь на него, то
погибнете

1 GO ТО 10
2 CLEAR 64599. LOAD "chr"C0DE
64600
4 GO SUB 9000: RUN
5 SAVE "BLASTER" LINE 2' STOP
S POKE 23606,88: POKE 23607,2
51 RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
10 REM BLASTER
11 REM BY PHIL WILLCOX
12 GO SUB 8: RANDOMIZE
13 LET HS=0- LET E=100: LET V=
10: LET W-0: LET S-0: LET SH=1
15 LET C$="EFG"
16 LET OS-" 32* icrB"
17 LET R$="EFGH"
20 GO SUB 8000
25 FOR F-0 TO 25 PRINT AT 9,F
": BEEP .1,30-F NEXT F: PRIN
T INK 4;AT B,F-1;" H";AT 7,F-1;
"K";AT 10,F-l; "2"! INK 7;AT 9,12
;......БЛАСТЕР"'"¹: BEEP .4,-20
35 PAUSE 50: PRINT PAPER 4; I
NK 0, FLASH 1;AT 20,8,"ИНСТРУКЦИ
Я? (Y/N)": BEEP .3,10: BEEP .4,0
40 POKE 23658,8 IF INKEYS=""
THEN GO TO 40
50 IF INKEYS="Y" THEN GO SUB
9500
70 GO SUB 8000
80 GO SUB 8100
85 BEEP .05,20
90 INK 7: PRINT AT 0,0;" ПОЛЕ:
";SH;TAB 9;"s~et:";S;TAB 20;"ЭНЕ
РГИЯ:";E;" "
95 LET К4="ВЫ ПОПАЛИ В БАРЬЕР"
100 PRINT AT V,W;"C"
110 IF INKEYS="Q" AND V>1 AND A
TTR (V-1,W)=7 THEN PRINT AT V,W
;" ": LET V-V-l BEEP 005,0 GO
TO 100
120 IF INKEYS="A" AND V<21 AND
ATTR (V+1,W)=7 THEN PRINT AT V,
W;" ": LET V=V+1: BEEP .005,0: G
О TO 100
130 IF INKEY$-"P" AND W<31 AND
ATTR (V,W+l)—7 THEN PRINT AT V,
W;" "• LET W=W+1: BEEP 005,0. G
О TO 100
140 IF INKEY$="0" AND W>0 AND A
TTR (V,W-1)=7 THEN PRINT AT V,W
;" ": LET W=W-1: BEEP .005,0: GO
TO 100
150 IF INKEY$="8" THEN LET A=1
: GO SUB 200
160 IF INKEYS="5" THEN LET A—
1: GO SUB 200
170 IF INKEY$-"6" THEN LET A=1
• GO SUB 300
180 IF INKEY$="7" THEN LET A"
1: GO SUB 300
190 GO TO 90
205 LET E-E-10: LET X=V: LET Y=
W+A- IF E<=0 THEN LET K$="BAM H
E ХВАТИЛО ЭНЕРГИИ": GO TO 1000
210 IF ATTR (X,Y)<>7 OR Y>31 OR
• Y<0 THEN GO TO 400
215 GO SUB 350
220 IF RND>.25 THEN LET Y=Y+A:
GO TO 210
225 RETURN
305 LET E=E-10: LET X=V+A: LET
Y=W: IF E<0 THEN LET K$="BAM HE
ХВАТИЛО ЭНЕРГИИ": GO TO 1000
310 IF ATTR (X,Y)<>7 OR X>21 OR
X<1 THEN GO TO 450
315 GO SUB 350
320 IF RND>.25 THEN LET X-X+A
GO TO 310 «*
325 RETURN
355 PRINT INK 7; PAPER 0;AT X,
Y;"D": BEEP .02,5: PRINT AT X,Y;
ii tt
360 RETURN
401 LET Z=0
405 IF ATTR (X,Y)=7 OR Y<0 OR Y
>31 THEN RETURN
410 IF ATTR (X,Y)<>4 THEN GO T
О 500
415 GO SUB 495
4 30 IF Z>8 THEN GO TO 440
435 LET Y=Y+A: IF RND>.25 THEN
GO TO 405
440 IF A=1 AND ATTR (X,Y)=4 THE
N PRINT INK 4;AT X,Y;RS(INT (R
ND*4+1))
442 IF A=-l AND ATTR (X,Y)=4 TH
EN PRINT INK 4;AT X,Y;"I"
445 RETURN
450 LET Z-0
455 IF ATTR (X,Y)=7 OR X<1 OR X
>21 THEN RETURN
460 IF ATTR (X,Y)<>4 THEN GO T
0 500
465 GO SUB 495
480 IF Z>8 THEN GO TO 486
485 LET X=X+A: IF RND>.25 THEN
GO TO 455
486 IF A=1 AND ATTR (X.Y)=4 THE
N PRINT INK^J4,AT X,Y;"3"
488 IF A—1 AND ATTR (X,Y)=4 TH
EN PRINT INK 4; AT X,Y;"K"
490 RETURN
495 FOR F=1 TO 2" BEEP 01,0: P
RINT AT X,Y;"D";AT X,Y;"*";AT X,
Y;" ": NEXT F: LET Z=Z+1: RETURN
500 LET 3-Х: LET K=Y
510 IF ATTR (3,K)=33 THEN GO T
О 550
520 IF ATTR (3,K)=34 THEN GO T
О 600
530 IF ATTR (D,K)=38 THEN GO T
О 650
550 PRINT AT 3,K; FLASH 1;"*":
FOR F=1 TO 30: BEEP .02,-15: NEX
T F: PRINT AT 3,К;" "
565 GO TO 1000
600 FOR F=1 TO 30 : PRINT FLASH
1;AT 3,K;"*": BEEP .01,F: BEEP
.01,F+5 NEXT F
610 PRINT AT 3,K;" ": LET E=E+I
NT (8+32*RND): RETURN
650 PRINT FLASH 1;AT X,Y;"»":
FOR F=1 TO 5: FOR G-l TO 50 STEP
5: BEEP •01,G: NEXT G: NEXT F
660 LET S=S+E»SH: LET E-100+SH:
LET SH-SH+1: LET V-10: LET W=0:
GO TO 70
1000 CLS : PRINT FLASH 1;AT 6,1
1;"КОНЕЦ ИГРЫ"
1005 IF S>HS THEN LET HS=S
1010 FOR F—40 TO 1 STEP -2: BEEP
.02,F: NEXT F
1015 PRINT FLASH 0;AT 11,0;K$;A
T 13,0-"ВАШ СЧЕТ ";S;" ОЧКОВ": P
RINT : PRINT "РЕКОРДНЫЙ СЧЕТ ";H
S: PRINT : PRINT "НАЖМИТЕ ЛЮБУЮ
КЛАВИШУ..."
1025 IF INKEY$="ⁿ THEN GO TO 10
25
1030 LET V=10: LET W=0: LET S=0:
LET E=100: LET SH=1: GO TO 70
8000 BORDER 0: INK 7 PAPER О: С
LS
8001 LET T=INT (RND*4+2)
8002 LET F=1
8005 LET G-INT (RND*3+1)
8025 PRINT INK 4;AT F,T;CI(G);C
S( TO 31-T)
8026 BEEP .02,40-F: BEEP .03,45-
F
8027 LET F=F+1: IF F>21 THEN RE
TURN
8040 IF G=1 AND T>3 AND RND>.5 T
HEN LET T=T-1
8045 IF G=2 AND T<6 AND RND>.5 T
HEN LET T-T+l
8050 IF G=3 AND T>3 AND RND>.6 T
HEN LET T=T-1
8055 IF G=3 AND T<6 AND RND<.4 T
HEN LET T=T+1
8060 GO TO 8005
8100 LET C-0
8110 LET X=INT (RND*20+2): LET Y
=INT (RND45+15)
8120 IF ATTR (X,Y)<>4 THEN GO T
О 8110
8130 PRINT INK 2; PAPER 4;AT X,
Y; "Д"
8135 BEEP .02,C: BEEP -03,C+5
8140 LET C=C+1: IF C>5 THEN GO
TO 8200
8150 GO TO 8110
8200 LET C=0
8210 LET X=INT (RND*18): LET Y-I
NT (RND*21+7)
8220 IF ATTR (X,Y)<>4 OR ATTR (X
+1,Y)<>4 OR ATTR (X+2,Y)<>4 OR A
TTR (X+3,Y)<>4 OR ATTR (X+4,Y)<>
4 OR ATTR (X+5,Y)<>4 THEN GO TO
8210
8230 LET G=INT (RND*6)
8240 FOR H=1 TO G
8250 PRINT INK 1; PAPER 4:AT X+
H-l,Y;"b": BEEP 01,X+G
8260 NEXT H
8270 LET OC+1 IF C>SH»2+7 THEN
GO TO 8300
8280 GO TO 8210
8 300 PRINT INK 6; PAPER 4;AT IN
T (RND*20+1),30;"B"
8305 BEEP .04,30
8330 RETURN
9000 POKE 23675,88: POKE 23676,2
55
9005 FOR F=144 TO 155: FOR N-0 T
О 7: READ Z: POKE USR CHR$ F+N.Z
NEXT N: NEXT F
9010 DATA 60,126,255,255,255,255
,126,60
9030 DATA 195,129,255,60,126,126
,60,231
9050 DATA 24,24,60,255.255,60,24
,24
9070 DATA 0,0,0,24,24,0,0,0
9090 DATA 3,7,15,63,63,31,31,127
9110 DATA 127,63,63,31,31,7,3,3
9130 DATA 63,31,31,63,63,127,63,
31
9150 DATA 127,63,3,1,1,3,15,63
9170 DATA 252,248,208,128,128,19
2,236,254
9190 DATA 0,129,131,193,193,131,
231,255
9210 DATA 255,155,131,193,193,13
1,131,1
9230 DATA 28,14,7,14,28,56,112,5
6
9240 RETURN
, 9500 PAPER 4: BORDER 4: INK О: С
LS : PRINT AT 0,10;"ИНСТРУКЦИЯ"'
' ' ¹¹ ПРИ ПОМОЩИ ВЗРЫВНОГО БЛАСТЕ
РА ПРОБЕЙТЕ СЕБЕ ПУТЬ ДЛЯ ТОГО,
ЧТОБЫ ДОБРАТЬСЯ ДО "; INK 6;"
В"; INK О;"."
9501 PRINT "' ВАШ "; INK 7."С";
INK 0;" МОЖЕТ ПЕРЕМЕШАТЬСЯ И
СТРЕЛЯТЬ ВО ВСЕХ ЧЕТЫРЕХ НАПРАВ
-ЛЕНИЯХ:"'"' [Q] - ДВИЖЕНИЕ ВВЕ
РХ [А] - ДВИЖЕНИЕ ВНИ
3 [О] - ДВИЖЕНИЕ ВЛЕ
ВО [Р] " ДВИЖЕНИЕ ВПР
АВО"
9502 PRINT '" ДЛЯ СТРЕЛЬБЫ ВЗРЫ
ВНЫМ БЛАСТЕ- РОМ ИСПОЛЬЗУЙТЕ КУР
СОРНЫЕ КЛА- ВИШИ ( 5 . . . 8 ) . "
9503 PRINT : PRINT "' НАЖМИТЕ Л
ЮБУЮ КЛАВИШУ...": PAUSE О
9504 CLS : PRINT '" ПРИ КАЖДОМ
ВЫСТРЕЛЕ РАСХОДУЕТ-СЯ 10 ЕДИНИЦ
ЭНЕРГИИ."''" ИСПОЛЬЗУЙТЕ ЭНЕРГЕ
ТИЧЕСКИЕ КА-ПСУЛЫ "; INK 2;"А";
INK О;" ДЛЯ ЕЕ ПОПОЛНЕНИЯ."
9507 PRINT "" ИГРА ОКОНЧИТСЯ, К
ОГДА БУДЕТ ИЗ-РАСХОДОВАНА ВСЯ ЭН
ЕРГИЯ ИЛИ ВЫ НАТКНЕТЕСЬ НА ЭНЕР
ГЕТИЧЕСКИЙ БАРЬЕР "; INK 1;"Ь
"; INK о;"."
9508 PRINT ''" ПРИ ВЫПОЛНЕНИИ 3
АЛАНИЯ НА ОД- НОМ ПОЛЕ, ВЫ ПЕРЕХ
ОДИТЕ НА СЛЕ- ДУЮЩЕЕ "
9509 PRINT '"' [I] - ПОВТОРЕНИЕ
ИНСТРУКЦИИ [Р] - НАЧАЛО ИГР
Ы"
9510 PAUSE О
9520 IF INKEYS="I" THEN GO TO 9
500
9530 IF INKEYS="P" THEN RETURN
9540 GO TO 9520
1 GO ТО 100
2 CLEAR 64599: LOAD "chr"CODE
64600
4 GO SUB 9000: RUN
5 SAVE "BALL" LINE 2 : STOP
8 POKE 23606,88: POKE 23607,2
51: RETURN
9 POKE 23606,0: POKE 23607,60
: RETURN
20 INVERSE 0: FLASH 0: BRIGHT
1: PAPER 7: BORDER 6: INK 1: CLS
21 LET DEF=1600: LET END=2000
22 LET INST=3000: LET SCR0LL=3
500
23 LET LIVES=5000: LET SCHECK=
7500
24 LET FOUL—7700: LET SCORE-85
00
25 LET OVAL=9500
26 LET SS="": LET HS=""
27 LET 0-6: LET 1-11: LET D=9:
LET E=13
29 RETURN
100 GO SUB 8: GO SUB 20
110 GO SUB INST
120 GO SUB OVAL
130 GO SUB SCORE
140 LET L-0