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

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


Помогите доброму приведению выбраться из эктоплаэмениой ловуш-
ки, в которую его (по ошибке, конечно), посадили охотники за приве-
дениями . Вам надо пройти все эктоплазмениые препятствия и загражде-
ния , и добраться до выхода, обозначенного символом "Н".

320 PLOT 35,20: DRAW 176,0: DRA
W 0,15: DRAW -176,0: DRAW 0,-15

330 PAUSE 0: RESTORE 340: FOR N
=1 TO 14: READ A: BEEP .1,A: HEX'
T N

340 DATA 5,5,12,12,14,14,12,10,
10,9,9,7,7,5
345 LET HI=0
350 CLS

380 LET SC=0: LET LI=3
390 LET A=19: LET B=16
400 LET C=INT (RND*30)+1
410 LET D=INT (RND*30)+1
420 LET E=INT (RND»30)+1
430 PRINT AT 1,1;"СЧЕТ ";SC;AT
1,11;"ЖИЗНИ ";LI;AT 1,21;"РЕКОРД
" ;HI

440 PLOT 0,175: DRAW 255,0: DRA
W 0,-20: DRAW -255,0: DRAW 0,20

450 LET A$=" С С С С

£ С С С "
460 LET В$=" В В В В

В В В В "
4 70 PRINT AT 3,0; INK 4:"АААААА
АААААААААААААААААААААААААААААААА
АААААААААААААААААААААААААА"

480 PRINT AT 7,0; INK 4;"АААААА
АААААААААААААААААААААААААААААААА
АААААААААААААААААААААААААА"

490 PRINT AT 11,0; INK 4; "ААААА
АААААААААААААААААААААААААААААААА
ААААААААААААААААААААААААААА"

500 PRINT AT 15,0; INK 4;"ААААА
АААААААААААААААААААААААААААААААА
ААААААААААААААААААААААААААА"

510 PRINT AT 3,15; FLASH 1;"Н";
AT 4,15; FLASH 0;" "
520 PRINT AT 7,С;" ";AT 8,C," "
530 PRINT AT 11,D;" " ;AT 12,D;"

II

540 PRINT AT 15,E;" ";AT 16,E;"

II

550 PRINT AT A,В;" "
560 POKE 23658,8: LET A=A+(INKE
Y$="A" AND A<19)-(INKEY$="Q" AND
A>0 )
570 LET B=B+(INKEY$="P" AND B<3
1)-(INKEY$="0" AND B>0)

580 PRINT AT 5,0; INK 1;A$;AT 6
,0; INK 2;B$
590 PRINT AT 9,0; INK 2;A$;AT 1
0,0; INK 1;B$

600 PRINT AT 13,0; INK 3;A$;AT
14,0; INK 2:B$

610 IF SCREENS (A,B)="" THEN G
О TO 670
620 PRINT AT A,B;"D":BEEP .05,5
630 LET A$=A$(2 TO )+A$(l)
640 LET B$=B$(31)+B$( TO 31)
650 IF A=3 AND B=15 THEN GO TO
700

660 GO TO 550

670 PRINT AT A,B; FLASH 1; "D" :
FOR A=0 TO 30: BEEP .05,A+5: NEX
T A

680 LET LI=LI-1: IF LI=0 THEN
PRINT AT 1,17; " 0 " : GO TO 720
690 GO TO 390

700 FOR A=-40 TO 50 STEP 4: BEE
P .02,A+10: BEEP .02,A-5: NEXT A
710 LET SC=SC+10: GO TO 390
720 PRINT AT 18,11; FLASH l;"KO
НЕЦ ИГРЫ": FOR A=1 TO 5: BEEP .0
5,5: BEEP .05,2: BEEP .03,1: BEE
P .04,2: NEXT A
730 CLS

740 PRINT AT 0,10;"GHOST MONSTE
R"

750 PRINT AT 8,11;"ВАШ СЧЕТ ";S

С

760 IF SC>HI THEN LET HI=SC
770 PRINT AT 10,4 .-"ЗАФИКСИРОВАН
НЫЙ РЕКОРД ";HI

780 PRINT AT 12,6;"ПОВТОРИТЬ ИГ
РУ (Y/N)"

790 IF INKEY$="Y" THEN GO TO 3
50

800 IF INKEY$="N" THEN GO TO 8
20

810 GO TO 790

820 CLS : PRINT AT 0,0;"0.к. С
ПАСИБО ЗА ИГРУ."

1 GO ТО 10

2 CLEAR 64599: LOAD »chr"C0DE
64600

4 GO SUB 9000: RUN

5 SAVE "MUTANT" LINE 2: STOP
8 POKE 23606,88: POKE 23607,2

51: RETURN

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

10 BORDER 3: PAPER 3: INK 1: С
LS : GO SUB 8

20 LET ST=1: LET LV-3

30 LET A$="..........» GO SUB

ST*100+1900

35 RESTORE 8900: FOR N-l TO ST
: READ LM NEXT N

40 LET Y-19: LET X=15" LET A=2
LET B=15

50 LET G$=SCREEN$ (A,B)
60 PRINT AT A,B;"E"
70 LET A$=INKEY$
75 PRINT AT Y,x;" "
80 LET X=X+(AS="8" AND ATTR (Y
,X+1)-41)-(AS="5" AND ATTR (Y,X-
1)=41)

85 LET Y-Y+(A$="6" AND ATTR (Y
+l,X)«41)-(A$-"7" AND ATTR (Y-l,
X)=41)




СОДЕРЖАНИЕ:


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

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



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

Похожие статьи:
Премьера - Flash Tracker Song Compiler: Кoмпилятoр для пeрeвoда рабoчeгo мoдуля в удoбoваримый вид, кoтoрый ужe мoжeт примeняться в прoграммах всякoгo рoда.
Список людей с модемами - Список Спектрумистов имеющих модем в г. Гомеле
Коры - Слухи, сплетни, скандалы - рулез!
Железо - о новом проекте фирмы Peters - "Sprinter". Новый Spectrum-совместимый компьютер нового поколения Speccy.
Софт - новая операционная система для ZX Spectrum: TASiS.

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