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

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


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

Мииное поле устроено таким образом, что Борис по одному и тому
же месту может пройти только один раз. Это надо учитывать при прок-
ладке маршрута к активизированной мине: если получится так, что хо-
тя бы одна иэ неактивизированных мин окажется отрезанной и недос-
тупной, можете распрощаться с Борисом он ведь уже никак не сможет
к ней подойти.

1 GO TO 10

2 CLEAR 64599: LOAD "chr"CODE
64600

4 GO SUB 800: RUN

5 SAVE "BOMBER" LINE 2: STOP

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

9 POKE 23606,0: POKE 23607,60
RETURN

19 GO SUB 8: GO SUB 900

20 LET Ц$д"ABCDEFGHIД": LET TS
-"PKLMNO": LET HI-0

22 LET SC=0: LET L-2
25 LET D-ll: LET A-16: LET Dl-
D: LET Al-A

30 DIM R(8): DIM С(8)
100 BORDER 0: PAPER 1: INK 3: С
LS

110 FOR 1-2 TO 20: PRINT INK 5
;AT I.1:"SSSSSSSSSSSSSSSSSSSSSSS
SSSSSSS";: NEXT I
120 LET C-60

130 PRINT PAPER 0;AT 0,0; INK
3;"

";AT 0,0;" R £ E"; INK 6;"
СЧЕТ:О РЕКОРД:":HI
180 FOR 1-1 TO 8: LET R(I)-INT
(RND*19)+2: LET C(I)-INT (RND*30
)+l

190 PRINT INK 6;AT R(I),C(I);"
T" : NEXT I

195 LET B-l

196 PRINT AT 0.0; PAPER 0,(" "
AND L-2 ) ; ( " " AND L-l);("

" AND L-0)
200 PRINT AT D, A; INK 3; "Q"
210 LET D1»D+(INKEYS»"6")-(INKE
YS="7")
215 LET A1=A+(INKEY$="8")-(INKE
Y$-"5")
220 LET AT-ATTR (D1,A1)
225 IF AT—79 THEN LET B-B+l: L
ET SC-SC+C: LET C-60: IF B-9 THE
N GO TO 700
230 IF AT-14 THEN GO TO 400
232 IF AT-13 THEN LET SC-SC+1
235 IF AT=11 THEN LET A1=A: LE
T D1=D
237 BEEP .01,5

240 PRINT AT D,A; INK 3;" " ;AT
D1,A1;"R"
250 LET A=A1: LET D-Dl
270 GO SUB 600
275 IF C=0 THEN GO TO 350
280 PRINT AT 0,15; INK 6; PAPER
0;SC

290 BEEP .01,-10
300 GO TO 200
350 REM ОКОНЧАНИЕ ВРЕМЕНИ
360 FOR I-B TO 8: PRINT AT R(I)
,C(I); FLASH 1; PAPER 8; INK 2;"
T": NEXT I
370 LET L-0
400 REM ВЗРЫВ

410 PRINT AT D,A; INK 3;" 11;AT
D1,A1: INK 2; FLASH 1;"£"
420 BEEP 2,-25

430 PRINT AT D1.A1-; INK 3;" " ;A
T 0,0;

450 RESTORE 460: FOR 1-1 TO 11:
READ Z,X" BEEP Z,X: NEXT I
460 DATA .6,0,.4,0,.2,0,.6,0,.4
,3,-2,2,.4,2,.2,0,.4,0,.2,-1,-6,
0

470 PRINT PAPER 0;AT 0,0;("
" AND L»2);(" " AND L-l)
475 LET Dl—INT (RND*19)+2: LET
A1=INT (RND*30)+1

480 LET D=D1: LET A=A1. LET L=L
-1

485 FOR I=B TO 8: PRINT AT R(I)
,C(I);.INK 6;"T": NEXT I
490 IF L>=0 THEN GO TO 200
500 REM КОНЕЦ ИГРЫ
505 PRINT AT 0,0; INK 6; PAPER
0;" СЧЕТ:";SC

510 FOR 1=30 TO -30 STEP -1: BE
EP .01,1: NEXT I

520 PRINT AT 10,11; PAPER 0; IN
К 6; FLASH 1;"КОНЕЦ ИГРЫ"

560 IF SC>HI THEN LET HI=SC: P
RINT AT 0,27; INK 6; PAPER 0; FL
ASH 1,HI
580 PRINT AT 12,8; PAPER 0; INK
6; FLASH 1;"НАЖМИТЕ КЛАВИШУ"
590 IF INKEY$="" THEN GO TO 59

0

595 GO TO 22

600 REM УМЕНЬШЕНИЕ СЧЕТЧИКА
610 LET C=C-1

620 LET T=INT (C/10): LET U=C-1
0*INT (C/10)

630 PRINT AT R(B),C(B); INK 7;
BRIGHT 1;T$(T+l); OVER 1;AT R(B)
,C(B);U$(U+l)
640 RETURN

700 REM ВСЕ МИНЫ ОБЕЗВРЕЖЕНЫ
710 PRINT AT 11,12; PAPER 0; IN
К 6; FLASH 1;"ПРИЗ: 500"
720 FOR 1=1 TO 2: PAUSE 5: BEEP
-1,11: BEEP .1,11: BEEP .8,16:
BEEP .05,11: BEEP .05,16: BEEP .
05,11: BEEP .05,16: BEEP .8,20:
NEXT I

730 FOR K=.l TO 0 STEP -.01: BE
EP K,28: NEXT К
740 LET SC=SC+500
750 GO TO 24

800 REM ЗАДАНИЕ UDG-ГРАФИКИ
802 RESTORE 810: POKE 23675,88:
POKE 23676,255: FOR 1=0 TO 159:
READ A: POKE (USR "A" + I),A: NEX
T I
805 RETURN

810 DATA 14,10,10,10,10,10,10,1
4,4,4,4,4,4,4,4,4,14,2,2,2,14,8,
8,14,14,2,2,2,14,2,2,14

820 DATA 8,8,8,10,10,14,2,2,14,
8,8,8,14,2,2,14,14,8,8,8,14,10,1
0,14,14,2,2,2,2,2,2,2

830 DATA 14,10,10,10,14,10,10,1
4,14,10,10,10,14,2,2,14,64,64,64
,64,64,64,64,64,224,32,32,32,2 24
,128,128,224

840 DATA 224,32,32,32,224,32,32
,224,128,128,128,160,160,224,32,
32,224,128,128,128,224,32,32,224
,224,160,160,160,160,160,160,224
850 DATA 126,219,255,102,60,60,
39,224,126,219,255.102,60,60,228
,7,0,60,126,126,126,126,60,0,0,6
0,66,90,90,66,60,0
900 REM инструкция
905 PAPER 0: INK 5: CLS
915 PRINT INK 7;AT 0,9;"""МИНЕ

P БОРИС......

920 PRINT 1" МИНЕР БОРИС ДОЛЖЕ
H ОБЕЗВРЕДИТЬВСЕ МИНЫ НА МИННОМ
ПОЛЕ, ПРЕЖДЕ,ЧЕМ ОНИ ВЗОРВУТСЯ.

УПРАВЛЯЯ КУРСОРНЫ
МИ КЛАВИШАМИ,ПРОВЕДИТЕ БОРИСА ";
INK 3; "fi"; INK 5;" К АКТИВИЗИРО
-ВАННОЙ МИНЕ: "; INK 7; OVER 1;"
О";CHR$ В;"A"

930 PRINT " НАДО УСПЕТЬ, ПОКА
СЧЕТЧИК НЕ ОБНУЛИТСЯ. ИНАЧЕ ВСЕ
МИНЫ ВЗОР- ВУТСЯ И ИГРА ЗАКОНЧИ
ТСЯ. ЕСЛИ БОРИС НАСТУПИ

Т НА НЕАКТИ-ВИЗИРОВАННУЮ МИНУ ";

INK 6;"Т"; INK 5;" ТО ОН ПОТЕ-
РЯЕТ ЖИЗНЬ."

940 PRINT " ПРОКЛАДЫВАЯ МАРШРУ
Т БОРИСА, УЧТИТЕ, ЧТО ОН НЕ МО

ЖЕТ ПЕРЕМЕ- ЩАТЬСЯ ПО ТЕМ КЛЕТКА
М, ПО КОТО- РЫМ УЖЕ ОДИН РАЗ ПРО
ШЕЛ. НЕ ДО- ПУСКАЙТЕ СИТУАЦИИ, К
ОГДА НЕАКТИ-ВИЗИРОВАННЫЕ МИНЫ ОК
АЖУТСЯ ОТРЕ ЗАННЫМИ И НЕДОСТУПНЫ
МИ."

945 PRINT #0; INK 7;" НАЖМИТ
Е ЛЮБУЮ КЛАВИШУ..."

950 IF INKEY$="" THEN GO TO 950

960 RETURN




СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Анкета - Я заполню анкету, чтобы показать как ею пользоваться.
Реклама - Реклама и объявления ...
Хит-Парад - Десятка самых популярных программ в Чайковском.
Улыбнись - Бортжурнал "Плыви, бой".
Система - адаптация программ к TR-DOS.

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