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

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


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

Когда лягушка станет красной (после девятого попадания), это
означает, что силы лягушки на исходе и Ваша цель близка.

1 GO ТО 10

2 CLEAR 64599: LOAD "chr"CODE
64600

4 GO SUB 9000: RUN

5 SAVE "FROG" LINE 2: STOP

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

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

10 CLEAR : RESTORE : LET HI=10
00: LET LEVEL-0

15 LET TOT-O: LET SCORE=0

17 GO SUB 8: GO *SUB 5000

18 LET SPEED=SPEED+3

19 IF TOT>HI THEN LET Hl=T0T

20 LET X=INT (RND*27+1): LET F
-INT (RND*28+1)

23 LET G=1: LET Z=1

24 LET C=4: LET T-750-(LEVEL*5
0): LET T1=T

25 LET HIT=0: LET A=1
27 LET ST=0

30 INK 7: PAPER 0: BRIGHT 1: В
ORDER 0: CLS

50 FOR N=0 TO 30 STEP 2: PRINT
INK 4; BRIGHT 0;AT 18,N; "HI" ; :
NEXT N

55 PRINT AT 0,6;"НАИБОЛЬШИЙ СЧ
ET: ";HI

60 PRINT AT 20,2;"ПОПАДАНИЯ: "

;HIT

100 PRINT AT 20,19;"ВРЕМЯ: ";T;

10.1 IF T<=0 THEN BEEP 2,0: GO
TO 8000

102 PAUSE 1: PRINT INK 2;AT 3,
X," EFfi PRINT INK 6 AT 4,X;"
BCD "

104 IF PEEK 23560=48 AND ST>=6
THEN BEEP .05,20. GO SUB 1000

106 POKE 23560,10

107 LET ST=ST+1: LET T=T-1

108 LET Z=Z+1: IF Z=SPEED THEN
GO SUB 299

110 IF X=0 OR X=28 THEN LET A=
-A

120 LET X=X+A
200 GO TO 100

299 LET F=F+G

300 PRINT AT 17,F; INK C;" £ ":
BEEP 0025,20

320 IF F=0 OR F=29 THEN LET G=
-G

360 LET Z=1
380 RETURN
1000 FOR N=20 TO 90 STEP 10
1005 PLOT ((X+2)*8+4),135-N
1010 DRAW OVER 1;0,-13

1019 PAUSE 1

1020 IF ATTR (17,F+1)=71 THEN В
EEP .5.-10: LET HIT=HIT+1

1030 PLOT INK 0;((X+2)*8+4),135
-N

1040 DRAW INK 0; OVER 1;0,-13
1045 NEXT N
, 1050 LET ST=0
1070 IF HIT=9 THEN LET C=2
1080 IF HIT=10 THEN GO TO 2000
1085 PRINT INK 7;AT 20,2;"ПОПАД
АНИЯ: ";HIT
1090 RETURN

2000 INK 1: PAPER 7: CLS

2100 PRINT INK 2; FLASH 1;AT 9,

8;" ВЕЛИКОЛЕПНО !!! "

2103 GO SUB 7000

2105 LET D=.0125: FOR N=1 TO 2:

FOR M=4 TO 16 STEP 2: BEEP D,M-

NEXT M. NEXT N

2107 PRINT AT 0,2;"СКОРОСТЬ: ";S
PEED-3;AT 0,19;"УРОВЕНЬ: ";LEVEL
+1

2108 PRINT AT 3,10.""СЧЕТ: ";TOT

2110 PRINT AT 13,12;"ВЫ УСПЕЛИ"

2111 PRINT INK 4; INVERSE 1;AT
15,10;"УБИТЬ ЛЯГУШКУ"; INK 1; IN
VERSE О;AT 17,11:"3A ВРЕМЯ ";T1-
T

2112 PRINT AT 20,6;"НАЖМИТЕ ЛЮБУ
Ю КЛАВИШУ"

2115 PAUSE О

2120 LET LEVEL=LEVEL+1: GO TO 19
5000 INK 0: BORDER 4: PAPER 7: В
RIGHT 1: CLS : PRINT AT 5,11;" Л
ЯГУШКА "

5010 FOR N=1 TO 15 STEP 3: PRINT
INK 4;AT 10,N; BRIGHT 0;" A"
: BEEP . PAUSE 5: NEXT N

5013 PAUSE 50

5015 FOR N=15 TO 30 STEP 3: PRIN
T INK 4;AT 10,N, BRIGHT 0;" A
": BEEP .1,-15: PAUSE 5: NEXT N:

PRINT AT 10,30;" "
5020 PRINT AT 12,0; "

ВЫ ДОЛЖНЫ УСПЕТЬ 10 РАЗ ПОПАСТЬ

В ЛЯГУШКУ ПОКА НЕ ИСТЕКЛО ВРЕМЯ

5030 PRINT AT 14,3;"(НАЖИМАЯ ""0
ДЛЯ ВЫСТРЕЛА)": PRINT AT 17,6
.•"ЗАДАЙТЕ СКОРОСТЬ (1-4)"
5032 INPUT SPEED: IF SPEED>4 OR
SPEED<1 THEN GO TO 5032
5035 PRINT INK 0;AT 19,6;"НАЖМИ
ТЕ »»S"" ДЛЯ СТАРТА"
5040 POKE 23658,8: IF INKEYS="S"

THEN RETURN
5050 GO TO 5040

7000 LET SCORE=INT (LEVEL*100*(1
2/SPEED)+(LEVEL+l)*T/2+HIT»100):

LET TOT=TOT+SCORE

7001 RETURN

8000 PAPER 5: INK 0: BORDER 5: С
LS

8005 GO SUB 7000

8007 FOR N=-10 TO -20 STEP -1. В
EEP .25,N: NEXT N
8010 PRINT AT 6,7;"ВАШЕ ВРЕМЯ ИС
ТЕКЛО" AT 8,11;"СЧЕТ ";ТОТ;АТ 15
,2;"НАЖМИТЕ ""Y"" ЧТОБЫ СЫГРАТЬ

ЕЩЕ"

8015 IF INKEY$="Y" THEN GO TO 1
8020 GO TO 8015
8900 STOP

9000 RESTORE 9000: POKE 23675,88
■ POKE 23676,255: FOR A=0 TO 8:
FOR B=0 TO 7: READ C: POKE USR (
CHR$ (A+l44))+B,C: NEXT B: NEXT
A

9080 bATA 54,93,127,34,28,107,28
,119

9100 DATA 63,64,255,255,127,49,2
7,15

9200 DATA 255,0,255,255,255,157,
247,255

9300 DATA 252,2,255,255,255,140,
216,240

9320 DATA 0,0,0,0,3,4,8,16
9340 DATA 0,0,60,255,0,0,0,0
9360 DATA 0,0,0,0,192,32,16,8
9380 DATA 130,162,182,182,183,24
7,255,255,66,74,75,107,251,255,2
55,255
9400 RETURN




СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Real fun - юмористический обзор систменых программ.
События - демопати MilleniuM. Новая информация.
Тусовка - раздел,в котором каждый желающий сможет передать кому-либо привет, поздравить друзей с днем рождения и т.д.
От авторов - несколько слов о следующем номере.
РЕМОНТ - Продолжаем ремонтировать Пентагоны...

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