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

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


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

1 GO ТО 100

2 CLEAR 64599: LOAD "chr"C0DE
64600

4 GO SUB 9000: RUN

5 SAVE "BOUNCY" LINE 2 : STOP

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

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

20 OVER 0: BORDER 0: PAPER 0:
INK 9: CLS

22 GO SUB 8: GO SUB 8000

24 DIM AS(10,64)

26 LET SC-0: LET LI»3: LET ITE

MS=3

29 RETURN

30 LET T=0: LET X=17: LET Y=2:
LET AX=3: LET AY=28

32 LET ITEMS"ITEMS+1
34 RESTORE 9100: FOR A=1 TO 10
READ A$(A): NEXT A
39 RETURN

100 GO SUB 20

102 GO SUB 30

104 GO SUB 600: REM ПЕЧАТЬ ЛАБИ
РИНТА

106 GO SUB 500: REM ПЕЧАТЬ ЧЕЛО
ВЕЧКА

108 GO SUB 550: REM ПЕЧАТЬ ПРЫГ
АЮЩЕГО МЯЧА

110 IF INKEYS="8" THEN GO SUB
500: LET Y=Y+(2 AND A$(((X+l)/2)
,Y+3)o"A"): BEEP .001,Y+20: GO
SUB 500

115 IF INKEYS="5" THEN GO SUB
500: LET Y=Y-(2 AND AS((X+1)/2,Y
)<>"£"): BEEP .001,50-Y: GO SUB
500

120 IF INKEYS="6" THEN GO SUB
500: LET X=X+(2 AND A$((X/2)+l,Y
+1)<>"A"). BEEP .001,40-Y: GO SU
В 500

125 IF INKEY$="7" THEN GO SUB
500: LET X=X-(2 AND AS(((X+l)/2)
-1, Y+l)<>"A"): BEEP .001,45-Y: G
О SUB 500

130 IF A$(((X+l)/2),Y+1)="I" TH
EN LET T=T+1: LET SC-SC+100: FO
R Z=10 TO 40 STEP 5: BEEP .005,Z
: NEXT Z: LET A$ ( (X+l )/2 , Y+l )="
" LET AS(((X+l)/2)+1,Y+33)=" ".

PRINT OVER 1;AT X,Y;;AT X+l
,Y;"F"

135 IF AS ( ( ( X+l )/2) , Y+l) = "G" TH
EN LET T=T+1. LET SC=SC+200. FO
R Z=20 TO 60 STEP 5: BEEP .005,Z
: NEXT Z: LET AS((X+l)/2,Y+l)="
": LET A$(((X+l)/2)+1,Y+33)=" ":

PRINT OVER 1 ;AT X.Y:"GH";AT X+
1,Y;"I3"

140 IF T>=ITEMS AND (X<=2 OR X>
=19) AND Y=14 THEN GO TO 700

145 IF X>=19 AND Y=14 THEN GO
SUB 500: LET X=3: LET Y=14: GO S
UB 500

150 IF X<=2 AND Y=14 THEN GO S
UB 500" LET X=17: LET Y-14: GO S
UB 500

' 155 PRINT AT 21,7; PAPER 2; BRI
GHT 1;SC; BRIGHT 0;" "; BRIGHT 1
;AT 21,30;LI, BRIGHT 0;" "

160 IF X=AX AND Y-AY THEN GO S
UB 800

161 LET 0=AX: LET P-AY

165 IF AY>Y THEN GO SUB 550: L
ET AY=AY-(2 AND AS ( ( AX+1) /2 , AY) <
>"E") : GO SUB 550

170 IF AY<Y THEN GO SUB 550: L
ET AY=AY+(2 AND AS((AX+1)/2,AY+3
)<>"A"): GO SUB 550
175 IF AXC19 THEN IF AX>X THEN
GO SUB 550: LET AX=AX-(2 AND A
S( ((AX+l)/2)-l,AY+l)o"A") : GO S
UB 550

180 IF AX>2 THEN IF AX<X THEN
GO SUB 550: LET AX=AX+(2 AND AS
((AX+1)/2+l,AY+1)<>"A"): GO SUB
550

190 IF AX=0 AND AY=P THEN GO S
UB 550- LET AY=AY+ (2 AND AS (((AX
+1)/2),AY+3)<>"A")-(2 AND AS(((A
X+l)/2),AY)o"E") : GO SUB 550
200 GO TO 110

500 PRINT AT X,Y; OVER 1; BRIGH
T 1; INK 6;"KL"

505 PRINT AT X+l,Y; OVER 1; BRI
GHT 1; INK 6;"ЩГ
510 RETURN

550 PRINT AT AX,AY; OVER 1; BRI
GHT 1; INK 4;"OP"

555 PRINT AT AX+1,AY; OVER 1; В
RIGHT 1; INK 4;"OR"
560 RETURN

600 FOR A-l TO 10: BEEP .001,40
+A: PRINT AT (A*2)-l,0; INK 4;A$
(A)■ NEXT A

601 PRINT AT 21,0; PAPER 2;" СЧ
ET: ";SC;" ";AT 21,22;" ЖИЗНИ:

";AT 21,30;LI

605 LET Z$="E F »: FOR Z-l TO I
TEMS

610 LET RX=(INT (RND*8)+1)*2: L
ET RY«(INT (RND*14)+1)*2

615 IF A$((RX+2)/2,RY+Y)<>" " T
HEN GO TO 610

620 PRINT INK INT (RND*6 ) +2 ; AT
RX+1,RY;Z$( TO 2);AT RX+2,RY;Z$

(3 TO )

621 LET AS((RX+2)/2,RY+1)=Z$(1)
: LET A$((RX+2)/2,RY+2)=Z$(2)

622 LET AS((RX+1)/2,RY+32)—Z$(3
): LET AS((RX+1)/2,RY+32)*ZS(4)

625 LET Z$=f"GHIJ" AND Z>=2)+("
EE" AND Z<=1): NEXT Z
630 RETURN

700 FOR A=1 TO 50

701 OUT 254,7

702 OUT 254,130

703 OUT 254,30

704 OUT 254,16

705 OUT 254,255

706 OUT 254,201

707 OUT 254,150

708 NEXT A

710 BEEP .002,A

715 FOR A=0 TO 10 FOR B=1 TO 7
: BEEP .02,(A+B)+RND*10: PRINT A
T 10,12; PAPER B; INK 9; FLASH 1
;"priz": NEXT B: NEXT A
720 CLS : LET SC=SC+500
730 GO TO 102

800 FOR B=1 TO 5: FOR A-0 TO 7:
BORDER A: BEEP 005,A«B: NEXT A

: NEXT B: BORDER 0

801 CLS

805 LET LI=LI-1

810 PRINT AT 10,7; FLASH 1; PAP
ER 2;"ВЫ ПОТЕРЯЛИ ЖИЗНЬ"

815 FOR А=1 TO 100: PAUSE 1: NE
XT A

816 IF LI<=0 THEN GO TO 830
820 CLS : GO TO 102
830 CLS : PRINT INK 9;AT 10,9;
PAPER 3; FLASH 1;" КОНЕЦ ИГРЫ "
840 PRINT AT 21,0;" ПОВТОРИ

ТЬ ИГРУ (Y/N)?": PAUSE 0
850 IF INKEY$="y" OR INKEY$="Y"
THEN RUN
860 GO TO 850
8000 REM ИНСТРУКЦИЯ
8005 PRINT AT 0,0; PAPER 2; INK
9; BRIGHT 1;" ПРЫГАЮЩИЙ M

ЯЧ

8015 PRINT AT 2,0;
8020 PRINT " ВАША ЗАДАЧА - СПАС
АТЬСЯ ОТ"1 INK б1 TAB 9; "ПРЫГАЮЩЕ
ГО МЯЧА"' INK 9'" ОН НАСТОЙЧИВ,

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

8030 PRINT 1,1 Е - ШПАГА К

L - ВЫ F М

И GJJ - АЛМАЗ О

£ - ОН 13 О

Е"

8035 PRINT "'КЛАВИШИ : 5, 6, 7 И

8"

8100 FOR А=0 ТО 7: ВЕЕР .002.A+R
ND*10+A

8105 PRINT AT 21,0; INK 9; PAPER
A;

НАЖМИТЕ ЛЮБУЮ КЛАВИШУ

и

8110 IF INKEYSO"" THEN CLS R
ETURN

8115 NEXT A: GO TO 8100
9000 POKE 23675,88: POKE 23676,2
55: RESTORE 9000: FOR A-USR "A"
TO USR "R"+7: READ B: POKE A,B:
NEXT A: RETURN
9005 REM UDG-ГРАФИКА

9010 DATA 255,128.192.224,255,24

0,240,240

9020 DATA 254,2,6,14,254,30,30,3
0

9030 DATA 240,240,240,255,224,19*
2,128,255

9040 DATA 30,30,30,254,14,6,2,25
4

9045 DATA 0,0,0,8,8.8,8,8
9050 DATA 8,8,62,29,29.30,0,0
9055 DATA 0,0,0,15,16,32,64,63
9060 DATA 0,0,0,240,8,4,2,252
9065 DATA 64,64,32,16,8,4,2,1
9070 DATA 2,4,8.16,32,64,128,0
9075 DATA 63,63,32,255,127,99,99
,103

9080 DATA 248,248,8,254,248,16,2
52,252

9085 DATA 79,79,64,63,7,31,24,16
9090 DATA 120,56,128,240,224,224
,24,12

9095 DATA 0,0,0,15,31,63,63,63

9096 DATA 0,0,0,240,248,252,252,
252

9097 DATA 63,63,63,63,31,15,0,0

9098 DATA 252,252,252,252,248,24
0,0,0

9100 REM ЛАБИРИНТ
9105 DATA

ABABABABABABAB ABABABABABABABAB
CDCDCDCDCDCDCD CDCDCDCDCDCDCDCD

9110 DATA

AB ЦВ

CD CD

9115 DATA "
ftВ ABABABABABABABAB ABABAB AB
CD CDCDCDCDCDCDCDCD CDCDCD CD
•i

9120 DATA "

ftB ftB ftB AB ftB ftB ftB

CD CD CD CD CD CD CD
it

9125 DATA

ftB AB ftB АВДВ AB AB AB

CD Cg CD CDCD DC DC DC
it

9130 DATA "

AB AB AB AB

CD CD CD CD

9135 DATA

ftB ftB ABABAB ftB ABAB ftB

CD DC DCPCDC DC DCDC DC

«I

9140 DATA

AB AB AB AB ABABAB ABAB

CD CD CD CD CDCDCD CDCD

n

9145 DATA

AB AB ftB

CD CD CD

It

9150 DATA

ABABABABABABAB ABABABABABABABAB

CDCDCDCDCDCDCD CDCDCDCDCDCDCDCD




СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Авторы - Обращение руководства CODERS' ACADEMY.
Мозаика - Взломан отгрузочный блок игры "Страна Мифов". О программах "на весь диск" : Last Battle, Пираты. O регестрации пользователей в телекоммуникац. сети ZXNet.
Железо - сканирующие устройство для ZX Spectrum.
У книжной полки - Сергей и Евгений Бушуевы. О книгах Крапивина.
Программрование - процедура установки прерываний IM2.

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