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

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


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

515 PRINT AT 7,0; INK 6;"

ПАУЗА=""H"" "
520 PRINT AT 9,2; INK 3;" -25
ОЧКОВ -55 ОЧКОВ"

530 PRINT AT 9,2; INK 6:"FG"
540 PRINT AT 9,17; INK 2;"CD"
550 PRINT AT 12,4; PAPER 1;" HA
ЖМИТЕ ЛЮБУЮ КЛАВИШУ "
570 FOR F=2 TO 6
580 PRINT AT 0,0; INK F;"
КРЕПОСТЬ В ПЕЩЕРЕ "

590 IF INKEY$<>"" THEN CLS : G
О TO 1000
595 PAUSE 14
600 NEXT F
610 GO TO 570
1000 FOR F=5 TO 16

1005 BEEP 005,20

1010 PRINT AT F,0; INK 6; PAPER

1; "H"

1020 NEXT F

1030 FOR F-0 TO 255

1040 PLOT INK 4;F,175

1050 DRAW INK 4;0,RND*-30+-9

1051 PLOT INK 4;F,0

1055 DRAW INK 4;0,RND*36+3
1060 NEXT F
1200 LET AX-12
1210 LET BX=1

1220 LET CX=INT (RND*10)+6

1230 LET DX-2B

1232 LET EX-INT (RND*10)+6

1235 LET FX-28

1240 LET SC=0

1250 LET LI=4

1260 POKE 23672,0: POKE 23673,0

1290 FOR G=0 TO 20 STEP 5

1300 FOR F=-10 TO 0 STEP 3: BEEP

.01,F+G: NEXT F
1310 PAUSE 3: NEXT G
1500 PRINT AT AX.BX; BRIGHT 1; I
NK 5;"£"

1510 IF INKEY$-"Q" AND AX>5 THEN
LET AX=AX-1: BEEP .001,60: PRI
NT AT AX+1,BX;" "
1520 IF INKEY$="A" AND AX<16 THE
N LET AX-AX+l: BEEP .001,66: PR
INT AT AX-1,BX;" "
1530 IF INKEYS="P" THEN GO SUB
3000

1540 IF INKEYS="H" THEN PAUSE 0
1600 PRINT AT CX.DX; BRIGHT 1; I
NK 2;"CD "

1605 PRINT AT EX,FX; BRIGHT 0; I

NK 6;"FG "

1610 LET DX-DX-2

1620 LET FX=FX-1

1630 IF DX=0 THEN GO SUB 3500

1634 IF FX-0 THEN GO SUB 3500

1700 IF SC>1000 AND SCcllOO THEN

GO SUB 3700
1710 IF SC>3000 AND SC<3100 THEN

GO SUB 3700
1720 IF SC>5000 AND SC<5100 THEN

GO SUB 3700
1730 IF SC>7000 AND SC<7100 THEN

GO SUB 3700
1990 PRINT INK 0;AT 0,0; PAPER
4;"СЧЕТ: ";SC;AT 0,24;"ЖИЗНИ: ";
LI;AT 0,11;"РЕКОРД: ";HI
2000 GO TO 1500
2550 NEXT G: NEXT F
3000 FOR F=1 TO 29 STEP 3
3010 PRINT AT AX,BX+F; INK 1;"BB
B"

3020 NEXT F

3025 BEEP .004,20 BEEP .004,40
3030 PRINT AT AX,BX+1;"

3040 IF AX=CX THEN PRINT AT CX,
DX; INK 6 PAPER 2;"EE": FOR F=0
TO 4: BEEP .001,55: NEXT F: LET
SC=SC+55: PRINT AT CX,DX;" ":
LET CX-INT (RND*10)+6: LET DX=28
3050 IF AX=EX THEN PRINT AT EX,
FX; INK 6, PAPER 2■"EE": FOR F=0
TO 4: BEEP .001,55: NEXT F: LET
SC-SC+25: PRINT AT EX,FX;" ":
LET EX=INT (RND*10)+6: LET FX=28
3100 RETURN
3500 LET LI-LI-1

3510 PRINT AT 0,31; PAPER 4; INK

0; FLASH 1;LI
3520 FOR F=0 TO 4
3530 FOR G=7 TO 1 STEP -1
3540 PRINT AT AX,BX, INK G;"A"
3545 BEEP .001,G+55
3550 NEXT G: NEXT F

3555 PRINT AT CX.DX+l;"

3556 PRINT AT EX,FX+1;" "
3560 IF LI-0 THEN GO TO 4000
3580 LET DX-28

3584 LET FX*28
3600 RETURN

3700 PRINT AT 11,5; INK 4;"ВАШ П

РИЗ:"; INK 5; BRIGHT 1;" + "; BR

IGHT 0: INK 6;"200 ОЧКОВ"

3705 FOR N=0 TO 1

3710 FOR G=0 TO 40 STEP 4

3720 FOR F=0 TO 15 STEP 4

3730 BEEP .02.F+G: NEXT F: NEXT

G

3740 NEXT N

3750 LET LI=LI+1

3760 FOR F=1 TO 40 LET SOSC+5

BEEP .001,45: PRINT AT 0,6; PAP
ER 2; INK 7;SC: NEXT F
3770 FOR F-5 TO 27
3780 PRINT AT 11,F;" ": NEXT F
3790 PRINT AT CX.DX;" ";AT EX
, FX;"

3800 LET DX=28: LET FX=28
3810 RETURN

4000 PRINT AT 10,7; FLASH 1; INK
4;"К О H E Ц ИГРЫ"

4001 FOR F-0 TO 100: BORDER 7: О
UT 34300,20: BORDER 0: NEXT F

4002 FOR F-0 TO 100 BORDER 7: О
UT 34350,100: OUT 34300,20: BORD
ER 0: NEXT F

4005 FOR F-0 TO 1

4010 BEEP .1,-30: BEEP .1.-20: В

EEP .1,-17: BEEP .1,-23

4015 NEXT F

4020 PRINT AT 12,4,"ВАША КРЕПОСТ
Ь РАЗРУШЕНА!"

4030 FOR F=-15 TO -35 STEP -5
4040 BEEP 13,F
4050 NEXT F
4060 PRINT AT 14,9;"ВЫ ПРОИГРАЛИ
t «1

4070 FOR F=0 TO 55

4080 BEEP 005,10: BEEP .005,20:

BEEP .005,0
4090 NEXT F

4100 IF SMI THEN LET HI-SC
4200 IF LI=0 THEN GO TO 4300
4300 LET T-PEEK 23672+256«PEEK 2
3673

4400 IF LI-0 THEN PRINT AT 18,3
; INK 5;"ВАШЕ ВРЕМЯ: ";T/50;" СЕ
КУНД"

4450 IF INKEY$<>"" THEN GO TO 4
450

4500 IF INKEY$="" THEN GO TO 45
00

4600 CLS : GO TO 500
9000 RESTORE 9000: POKE 23675,88
: POKE 23676,255: FOR F=0 TO 7:
FOR G=0 TO 7: READ A: POKE USR С
HR$ (144+F)+G,A: NEXT G: NEXT F:
RETURN

9010 DATA 192,240,80,127,127,80,
240,192

9020 DATA 0,0,0,255,255,0,0,0
9030 DATA 0,1,31,99,127,31,1,0
9040 DATA 48,248,24,238,238,24,2
48,48

9050 DATA 24,73,214,143,47,216,3
4,24

9060 DATA 0,12,62,199,255,62,120
,15

9070 DATA 62,124,216,216,124,52,
15,255

9080 DATA 1,1,1,1,1,1,1,255

1 GO ТО 10

2 CLEAR 64599: LOAD "chr"C0DE
64600

3 GO SUB 1000

4 RUN

5 GO TO 9000

В POKE 23606,88: POKE 23607,2
51: RETURN . REM RUS

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

10 PAPER 0: INK 7: BORDER 0: В
RIGHT 1: CLS : LET HI=0: GO SUB
8: GO SUB 500

20 LET T-300: LET P=1: LET SC«
0 LET L=0: LET D=0- LET A$="ADB
CD ": LET B$=A$. LET C$="HE FH
G " LET D$="MN0P": LET E$="
12 12 12
KL ]<L KL KL ":

LET A=5: LET B-15: LET C=1

30 BORDER 0 BRIGHT Is PRINT A
T 0,0; INK 0; PAPER 6; "

СЧЕТ НАИБ. СЧЕТ

";AT 0,10;SC;AT 0,25;HI;AT 21,0;
" ПРУД 1 ВРЕМЯ

": FOR F-l TO 15: PRINT AT F,0;




СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Новости - судьба такого маститого музыканта, как Mast/FTL, вопрос о выходе обещанного проекта ClickMania, Судьба проекта "Awaken" от Минской группы Rage.
Хит-парад - 10 лучших программ, по итогам продаж фирмы Welcome.
От редакции - Cвои статьи, вопросы, предложения и т.д. присылайте в виде файла.
Имхо 2 - о дальнейшей судьбе гейта GRODNO C_NET <> MINSK ZX-NET.
Party - Funtop: Репортаж Сергея Новикова - День второй: After Funtop.

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