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

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


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

1 GO ТО 10

2 CLEAR 64599: LOAD "chr"CODE
64600

4 GO SUB 9000: RUN

5 SAVE "SNAKMAN" LINE 2: STOP

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

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

10 GO SUB 8: LET H$="SNAKMAN":
LET I$="SNAKMAN": LET 3$="SNAKM

AN": LET HI=300: LET H2=200: LET
H3=100

11 BORDER 7. PAPER 7: CLS : IN
К 0: GO SUB 4000

12 LET N0=0: LET LIVES=3: LET
S=0: LET D=0

16 INK 2: GO SUB 1000. INK 1
18 PRINT AT 0,12;"СЧЕТ";AT 0,2
2 ;"ЖИЗНИ" ;AT 0,0;H$

20 LET Y$=CHR$ 10+CHRS 10

21 LET X$=CHR$ 15+CHRS 16

40 LET А$="С"

45 FOR Z=1 TO LIVES: PRINT AT
0,(27+Z);"A": NEXT Z
60 LET L=2
70 LET D=0
200 LET X=CODE X$
205 IF D>=376 THEN GO TO 10
210 IF INKEY$="8" THEN LET X=X
+1: LET A$="E"

212 IF INKEY$="5" THEN LET X=X
-1: LET A$="C"
220 LET Y=CODE Y$
230 IF INKEY$="7" THEN LET Y=Y
-1: LET A$="D"

232 IF INKEY$="6" THEN LET Y=Y
+1: LET A$="F"

240 IF INKEYSo" " THEN BEEP .1
,-10: BEEP .1,-20: BEEP .2,-30

250 IF X=CODE X$ AND Y=CODE Y$
THEN LET X=X+X CODE X$(2). LET
Y=Y+Y-C0DE Y$(2)

260 IF ATTR ( Y , X)=5B OR ATTR (Y
,X)=41 THEN GO SUB 3500

262 IF ATTR (Y,X)=34 THEN LET
S=S+1: LET D=D+1 LET L=L+0.25:
BEEP 0.01,1

264 IF ATTR (Y,X)=43 THEN PRIN
T AT 0,0; FLASH 1;"ПРИЭ: 20"; FL
ASH 0: GO SUB 6110: LET S=S+20:
LET N0=150: PRINT AT 0,0;"
" ;AT 0,0; H$
290 PRINT AT 0,17;S
295 PRINT PAPER 5;AT CODE Y$(1
),CODE X$(1);"A"
300 PRINT PAPER 5;AT Y,X;A$
400 PRINT PAPER 5; INK 5;AT CO
DE Y$(L),CODE X$(L);" "
500 LET X$=CHR$ X+X$( TO L)
510 LET Y$=CHR$ Y+Y$( TO L)
600 LET NO=NO+l
610 IF N0>100 THEN PRINT INK
3; PAPER 5;AT 10,15;"GG"

620 IF N0>150 THEN PRINT INK
5; PAPER 5;AT 10,15;" ": LET NO

=0

999 PAUSE 5: GO TO 200
1000 FOR N=0 TO 20: NEXT N
1010 FOR N=2 TO 20: PRINT PAPER
4;AT N.1:"BBBBBBBBBBBBBBBBBBBBB
BBBBBBBBB": BEEP .02,N: NEXT N
1015 FOR N=7 TO 12: PRINT PAPER

5;AT N,6;"
: BEEP .02,N: NEXT N
1020 FOR N=20 TO 1 STEP -1: PRIN
T AT N. 0; "iq6" ; AT N.31;"iq8":
BEEP .01,N: NEXT N
1025 PRINT AT 1.0:"32*iaB":AT 21
,0;"32*ia8"

1030 PRINT AT 4,3;"9*228";AT 4,1
4 ; "4*1(76" ; AT 4.20;' 9*iqS"
1040 PRINT AT 7,3;"228";AT 7,6;
"9*iq8";AT 7,17;"9*228";AT 7,28;
" igfi"

1050 PRINT AT 8,3;"228";AT 8,6;
"228";AT 8,25;"i28",AT 8,28;
"228"

1060 PRINT AT 11,3;"228";AT 11,6
;"ig8";AT 11,25;"228";AT 11,28;
"iqB"

1070 PRINT AT 12,3;"228";AT 12,6
:"9*iq8";AT 12.17:"9*jqe";AT 12,
28;"228"

1080 PRINT AT 15.3:"J2*iqa":AT 1
5.17:"i2*ia8"

1090 PRINT AT 18,3;"2*228";AT 18
.7;"8*iq6";AT 18.17:"8*iq6":AT 1
8,27;"2*228"
1999 RETURN

3000 PRINT AT 10,11; FLASH 1; BR
IGHT 1;"КОНЕЦ ИГРЫ"
3005 PRINT AT 0,27;"
3010 PAUSE 100

3050 IF S>H3 THEN GO SUB 5000

3100 GO TO 5611

3500 LET LIVES=LIVES-1

3510 FOR N=40 TO 10 STEP -3: BEE

P -2,N: NEXT N

3515 IF LIVES=0 THEN GO TO 3000
3520 INK 2: GO SUB 1000: INK 1
3530 PRINT AT 0,28;" ": GO TO
18

4000 CLS : PRINT AT 10,7;"* S N
А К M A N *" ;AT 12,11; "CAAAAAAAA

n

4005 RESTORE 4100

4010 FOR N=1 TO 13: READ A,B: BE

EP A,B: NEXT N

4050 PAUSE 50: RETURN

4100 DATA .3,1,.1,1,.3,1,.1,1,.1

,1, 2,3,.4,2,.2,1,.1,1,.1,1,.1,1

,.2,2,.3,3

5000 BORDER 3: PAPER 5: INK 0: L
ET Y=6: LET X=0: CLS : PRINT AT
12,12;"РЕКОРД";AT 14,13; FLASH 1
;HI; FLASH 0

5001 PRINT AT 5,0;"A Б В Г Д Е Ж
ЗИЙКЛМНО П";АТ 7,0;"Р С

ТУФХЦЧШЩЪЫЬЭЮ Я";АТ
9.0;"* ! # = + -/ ?$<>@
КОНЕЦ"

5002 LET N$=""

5003 LET R$=" "

5005 PRINT AT 18,0; "

ПЕРЕМЕЩЕНИЕ: 5-8, ВЫБОР: 6-7."
5010 PRINT AT Y,X;"D"
5015 LET A=Y: LET B=X

5020 LET X=X+2*(INKEY$="8")-2*(I
NKEY$="5")

5021 IF X=0 AND Y=6 THEN LET X=
0

5022 IF X>30 AND Y=6 THEN LET X
=0: LET Y=Y+2

5023 IF X>30 AND Y=8 THEN LET X
=0: LET Y=Y+2

5025 IF X<0 AND Y=8 THEN LET X=
30: LET Y=Y-2

5026 IF X<0 AND Y=10 THEN LET X
=30: LET Y=Y-2

5028 IF Y=10 AND X>27 THEN GO T
О 5201

5030 IF (INKEY$="6" OR INKEY$="7
") AND LEN N$<10 THEN LET AS-SC
REENS (Y-l,X): LET N$=N$+A$: FOR

N=30 TO 0 STEP -3: BEEP .01,N:
NEXT N

5040 PRINT AT 0,10;N$
5050 PAUSE 5
5190 PRINT AT A,В;" "
5200 GO TO 5010

5300 IF S>HI THEN LET H3=H2: LE
T H2=HI: LET HI=S: LET 3$=I$: LE
T I$=H$: LET H$=N$: GO TO 5400
5310 IF S>H2 THEN LET H3=H2: LE
T H2=S: LET 3$=I$: LET I$=N$: GO
TO 5400

5320 IF S>H3 THEN LET H3=S: LET

3$=N$: GO TO 5400
5500 CLS : PRINT INK 2;AT 10,0;
" 1 ";HI;AT 10,15;H$
5505 PRINT INK 1;AT 12,0;" 2

";H2;AT 12,15;I$
5510 PRINT INK 1;AT 14,0," 3

";H3;AT 14,15;3$
5520 PAPER 5: PRINT INK 0;AT 5,
7;"ТАБЛИЦА РЕКОРДОВ";AT 7,0;"MEC
TO";AT 7,6;"СЧЕТ";AT 7,16;"ИМЯ"
5550 REM FOR N=0 TO 100: NEXT N
5600 GO SUB 6000: PRINT AT 21,5;
"НАЖМИТЕ ЛЮБУЮ КЛАВИШУ"
5605 FOR N=0 TO 200: NEXT N: PAU

SE О: GO ТО 10

5611 GO SUB 6000: PAUSE 50: GO Т
О 10

6010 RESTORE 6050

6020 FOR N=1 TO 20

6030 READ A,B: BEEP A,B: NEXT N

6050 DATA .2, 0,-1, 5,. 1,5, .2,0, .2

,5

6055 DATA .2,1,.1,6,.1,6,.2,1,.2
,6

6060 DATA .2,0,-1,5,.1,5,.2,0,.2
,5

6065 DATA .1,1,.1,2,.1,3,.1,4,.1
,5

6100 RETURN

6110 RESTORE 6150: FOR N=1 TO 12
6120 READ A: BEEP .2,A: NEXT N
6130 RETURN

6150 DATA 0,0,4,12,11,9,-1,-1,2,
11,9,7

9000 RESTORE 9500: FOR Z=1 TO 7
9005 READ Z$

9010 FOR N=0 TO 7: READ A: POKE
USR Z$+N,A: NEXT N
9020 NEXT Z
9100 RETURN

6500 DATA "A",60,126,255,255,255
,255,126,60

9510 DATA "B",0,24,60,60,60,60,2
4,0

9520 DATA "E",14,55,248,240,248,
254,126,28

9530 DATA "C",112,236,31,15,31,2
55,124,56

9540 DATA "F",24,60.126,255,245,
227,98,34

9550 DATA "D",68,70,199,175,255,
126,60,24

9560 DATA "G",0,4,8,60,126,126,6
0,24




СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Новости - Круть-верть или наизнанку.
Games - Смесь игр Twins и Tetris
IBM - продолжение известного на IBM'овских модемных сетях рассказа, под названием "9600 бод и все-все-все".
Интервью - отчёт о встрече с гостями из Оболенска.
Что такое пиздяческий подъебизм - И почему станислав юдин - пидор.

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