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

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


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

Снаряды управляются клавишами "1" - выстрел в горизонтальном
направлении; "2" - перевод снаряда в вертикальное пикирование.

Прицеливайтесь точнее. Помните, что на каждый Ваш выстрел кро-
ты отвечают новыми трудовыми подвигами, углубляя подкоп, и прибли-
жая Вашу гибель.

1 GO TO 10

2 CLEAR 64599: LOAD "chr"CODE
64600

4 GO SUB 1000: RUN

5 SAVE "MOLE" LINE 2. STOP

8 POKE 23606,88 POKE 23607,2
51: RETURN

9 POKE 23606,0: POKE 23607,60
: RETURN

10 GO SUB 8: GO SUB 4000
15 GO SUB 8000: BORDER 5: PAPE
R 7: CLS

20 LET Vl=10: LET C0=0: LET 01
=V1+D1

25 INK 2- REM НАЧАЛО
30 PRINT AT 3,0;"ia8";AT 2,0;
"2*1(78 "

40 FOR A=4 TO 5: PRINT AT A,0;
"2*ia8" NEXT A

50 FOR B=6 TO 9: PRINT AT B,0;
"3*1Q8": NEXT В

60 FOR C=10 TO 15: PRINT AT C,
0;"4*ig8": NEXT С

70 FOR D=16 TO 20 PRINT AT D,
0;"5*igg": NEXT D

80 INK 4 FOR E=0 TO 31: PRINT
BRIGHT El;AT 21,E;"lq8": NEXT
E- FOP G=5 TO 17: PRINT BRIGHT
E1;AT 20,G:"iq8": NEXT G: PRIN
T BRIGHT El; AT 20 ■ 27 : "5*ig8"
82 PRINT INK 0;AT 21,17-D1;"H"
85 INK 0: PRINT INK 2;AT 20,5;
"128",AT 15,4;"igl";AT 9.3;"igl"
;AT 5,2:"ial"
90 REM КРЕПОСТЬ
100 FOR F=18 TO 26: PRINT INK
1;AT 20,F;"138"; INK 2;AT 19,F;
"iq8";AT 18,F;"128": NEXT F

110 PRINT INK 2;AT 17,18;"A A
A A A";AT 20,22;"B"

120 INK 1: REM ЧЕЛОВЕК С ПУШКОЙ
130 PRINT AT 0,0;"С";AT 1,0;"D"
;AT 1,1;
200 PAUSE 0

205 IF INKEY$="1" THEN GO TO 2
20

206 GO TO 204
210 GO TO 200

220 FOR Y=2 TO 30
225 INK 0: PRINT AT 1,Y;" F": P
AUSE #(6-D1)

230 IF INKEY$="0" THEN GO SUB
2000
240 NEXT Y

243 PRINT AT 1,Y;" "
250 BEEP .2,20: GO TO 205
1000 RESTORE 1000: POKE 23675,88
: POKE 23676,255: FOR W=0 TO 9
1010 READ S$
1020 FOR U=0 TO 7
1030 READ R: POKE USR Si+U.R
1040 NEXT U
1050 NEXT W

1060 DATA "A",219,219,255,255,12
6,255,255,255,"B",24,126,213,42,
213,42,213,42 "C",56,127,60,62,6
0,60,24,60."D",60,60,60,56,16,16
,16,60,"E",0,64,253,127,14,62, 25
5,255

1070 DATA "F",192,252,127,63,63,

127,252,192,"G",195,231,126,126,

126,126,60,24,"H",0,32,126,254,2

55,38,99,193,"I",66,36,24,129,66

,165,90,255,"3",129,65,66,34,20,

28,157,24

1080 RETURN

2000 FOR 1=1 TO 20

2005 LET Q=Y

2008 PRINT AT l,Q+l;" "

2010 PRINT INK 0;AT I-l.Q;" ";A

T I,Q;"G"

2012 IF ATTR (20,Q)=TI THEN LET

CO=CO+l
2022 NEXT I
2025 GO SUB 5000

2029 IF CO<152 THEN GO TO 245

2030 FOR T=0 TO 30: BEEP .1,T: N
EXT T: INK 1: PRINT FLASH 1;AT
9,7;"ВРАЖЕСКАЯ КРЕПОСТЬ",AT 11,1
1; " УНИЧТОЖЕНА" ; AT 14 ,9; "А ВАС ОТ
ДЕЛЯЕТ";AT 16,8;"ОТ СМЕРТИ ";01;
" ШАГ";

2032 IF 01>1 AND 01<5 THEN PRIN
Т FLASH 1;"А"

2035 IF 01>=5 THEN PRINT FLASH
1; "OB"

2040 POKE 23658,8: INPUT "СЫГРАЕ

M ЕЩЕ? (Y/N) :";BS

2045 FLASH 0: BRIGHT 0

2050 IF B$<>"Y" THEN STOP

2060 GO SUB 4000: GO TO 15

3000 FOR L=30 TO -30 STEP -1: BE

EP .08,L: NEXT L: PRINT FLASH 1

;AT 11,9;"HE ПОВЕЗЛО !!!1"

ЗОЮ GO SUB 8040

3020 IF AK>"Y" THEN STOP

3030 CLS : RETURN

4000 BRIGHT 0: BORDER 0: PAPER 5

: CLS : BEEP .1,0: BEEP .1.4: BE

EP 1,7: BEEP 3,12: BEEP .1,7:

BEEP .6,12

4005 PAUSE 3

4010 BEEP .1,12: BEEP .1,7: BEEP
.1.4 BEEP .3,0 BEEP 1,7 BEE
P .6,4

4053 INK 1: PRINT AT ll,9;"KPOTO
ВАЯ АТАКА"

4060 POKE 23658,8: INPUT "ИНСТРУ

КЦИЯ НУЖНА? (Y/N) :";R$

4070 IF R$="N" THEN GO TO 7020
4080 GO SUB 7000
4090 RETURN

5000 LET 01=Vl+6-Dl: PRINT INK
0;AT 21,01;"H";AT 21,01+1;" ": L
ET V1=V1-1

5020 IF 01=0 THEN GO SUB 6000:
GO TO 5040
5030 RETURN

5040 PRINT AT 11,3;"КРОТ УСПЕЛ С
ДЕЛАТЬ ПОДКОП...";AT 13,8;"И ОТ
ВАС ОСТАЛОСЬ";AT 15,9;".. МОКРОЕ

МЕСТО"
5050 GO SUB 8040
5060 IF A$<>"Y" THEN STOP
5070 CLS . GO SUB 4000 GO TO 15
6000 FOR T=20 TO 2 STEP -1
6010 PRINT AT T,0;"
6020 NEXT T

6030 PRINT AT 0,0;" ";AT 1,0;"
ti

6040 FOR S=1 TO 20: PRINT AT S,3
;"C";AT S+l,3;"D";AT S-1,3;" ":
BEEP .04,INT (18/S)
6050 NEXT S

6060 PRINT INK 2;AT 21,3;"I";AT

20,3;"3": BEEP .6,30
6070 RETURN

7000 CLS INK 0 PRINT '

ВЫ ДОЛЖНЫ ОТБИТЬ АТАКУ КРОТОВ,
КОТОРЫЕ ХОТЯТ РАЗРУШИТЬ ВАШ ЛЮ
БИМЫЙ УТЕС. ОПЛОТОМ КРОТОВ ЯВЛЯ-
ЕТСЯ ИХ КРЕПОСТЬ, ЕЕ-ТО ВЫ И ДО-
ЛЖНЫ УНИЧТОЖИТЬ ПРИ ПОМОЩИ УПРА-
ВЛЯЕМЫХ СНАРЯДОВ "
7010 PRINT ' "

КЛАВИША (1) - ЗАПУСКАЕТ СНАРЯД
КЛАВИША [О] - ПЕРЕВОДИТ ЕГО В
ПИКИРОВАНИЕ."

7015 PRINT

НО ПОМНИТЕ, ЧТО ЗЛОБНЫЕ КРОТЫ

ТОЖЕ HE СТОЯТ НА МЕСТЕ!"

7020 PRINT ' 1 '"ЗАДАЙТЕ УРОВЕНЬ С
ЛОЖНОСТИ {1-5) :...... (1=ПРОСТОЙ

... 5-СЛОЖНЫЙ)"

7021 INPUT 01

7025 IF DKl OR Dl>5 OR DloINT
D1 THEN GO TO 7020
7030 CLS : RETURN

8000 PRINT AT 20,0,"ЗАДАЙТЕ ПОГО
ДУ:"1"(1 - ЯСНО; 0 - ПАСМУРНО)":

INPUT "1 ИЛИ О :";Е1
8005 IF EloINT El OR EK0 OR El
>1 THEN GO TO 8000
8010 BRIGHT El

8020 IF El = l THEN LET TI = 121 : R
ETURN

8030 LET TI-57: RETURN
8040 POKE 23658,8: INPUT "ПОПРОБ
УЕТЕ ЕЩЕ PA3° (Y/N) :" ;A$
8050 RETURN




СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Юмор - Анекдоты.
Титры - Четыре гoда назад на "прилавки киoскoв" спектрумoвскoгo Сooбщества пoступила газета-листoвка "Двадцатка"...
Реклама - реклама и объявления.
Письмо - Письмо от Postman'a в газету.
Стихи - "Я счастлив тем, что я люблю людей..."

В этот день...   28 марта