ZXPRESS
ruseng

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

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


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


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

Share your thoughts about this chapter

No comments yet.