Игра “Вовик и Бобины”

Цель: собрать все бобины () на кукурузном поле, управляя Вовиком (В). Вас преследует злой доктор Ворон 🐦⬛ не попадитесь ему!

10 REM === ВОВИК И БОБИНЫ: ДОКТОР ВОРОН ИДЁТ ===
20 BORDER 0: PAPER 0: INK 7: CLS
30 REM МЕЛОДИЯ
40 BEEP .2,10: BEEP .2,12: BEEP .2,15: BEEP .4,7: BEEP .2,10: BEEP .2,13: BEEP .6,15
50 REM НАСТРОЙКА
60 LET S=5: LET X=5: LET Y=5
70 LET EX=1: LET EY=1 REM ДОКТОР ВОРОН
80 DIM F(10,10)
90 FOR I=1 TO 10: FOR J=1 TO 10: LET F(I,J)=0: NEXT J: NEXT I
100 FOR I=1 TO 10:
110 LET FX=INT(RND10)+1: LET FY=INT(RND10)+1
120 IF (FX=X AND FY=Y) OR (FX=EX AND FY=EY) THEN GOTO 110
130 LET F(FX,FY)=1: NEXT I
140 REM === ИГРА ===
150 CLS
160 FOR I=1 TO 10
170 FOR J=1 TO 10
180 IF X=J AND Y=I THEN PRINT "В";
190 ELSE IF EX=J AND EY=I THEN PRINT "Ж";
200 ELSE IF F(J,I)=1 THEN PRINT "";
210 ELSE PRINT ".";
220 NEXT J: PRINT: NEXT I
230 PRINT "5← 6↑ 7↓ 8→ СОБРАНО: ";10-S;" / 10 БОБИН"
240 IF X=EX AND Y=EY THEN PRINT "ТЕБЯ СХВАТИЛ ДОКТОР ВОРОН!": STOP
250 LET K$=INKEY$
260 IF K$="" THEN GOTO 250
270 IF K$="5" AND X>1 THEN LET X=X-1
280 IF K$="6" AND Y>1 THEN LET Y=Y-1
290 IF K$="7" AND Y<10 THEN LET Y=Y+1
300 IF K$="8" AND X<10 THEN LET X=X+1
310 IF F(X,Y)=1 THEN LET F(X,Y)=0: LET S=S-1: BEEP .1,20
320 IF S=0 THEN PRINT "ПОБЕДА! ВОВИК СОБРАЛ ВСЕ БОБИНЫ!": STOP
330 REM === ДОКТОР ВОРОН ПРИБЛИЖАЕТСЯ ===
340 IF EX<X THEN LET EX=EX+1 ELSE IF EX>X THEN LET EX=EX-1
350 IF EY<Y THEN LET EY=EY+1 ELSE IF EY>Y THEN LET EY=EY-1
360 GOTO 150

Вот ещё игра про Вовика и пирамиду ностальгии на ягодном.

10 REM === ВОВИК В ЯГОДНОМ: ПИРАМИДА НОСТАЛЬГИИ ===
20 BORDER 0: PAPER 0: INK 7: CLS
30 REM === МУЗЫКА ===
40 BEEP .2,10: BEEP .2,12: BEEP .2,15: BEEP .3,7: BEEP .2,10: BEEP .2,13: BEEP .5,15
50 REM === ПЕРЕМЕННЫЕ ===
60 LET C=5: REM КАССЕТЫ
70 LET X=5: LET Y=5: REM ВОВИК
80 LET EX=1: LET EY=1: REM ДОКТОР ВОРОН
90 LET PX=INT(RND10)+1: LET PY=INT(RND10)+1: REM ПИРАМИДА
95 IF (PX=EX AND PY=EY) OR (PX=X AND PY=Y) THEN GOTO 90
100 DIM F(10,10): DIM L$(5)
110 LET L$(1)="Терминатор (1984)"
120 LET L$(2)="Хищник (1987)"
130 LET L$(3)="Коммандо (1985)"
140 LET L$(4)="Рэмбо II (1985)"
150 LET L$(5)="Разборка в Бронксе (1995)"
160 REM === КАССЕТЫ НА ПОЛЕ ===
170 FOR I=1 TO 10: FOR J=1 TO 10: LET F(I,J)=0: NEXT J: NEXT I
180 FOR I=1 TO 5
190 LET VX=INT(RND10)+1: LET VY=INT(RND10)+1
200 IF (VX=X AND VY=Y) OR (VX=EX AND VY=EY) OR (VX=PX AND VY=PY) OR F(VX,VY)>0 THEN GOTO 190
210 LET F(VX,VY)=I
220 NEXT I
230 REM === ИГРОВОЙ ЦИКЛ ===
240 CLS
250 PRINT "ХУТОР ЯГОДНЫЙ — ПИРАМИДА НОСТАЛЬГИИ"
260 FOR I=1 TO 10
270 FOR J=1 TO 10
280 IF X=J AND Y=I THEN PRINT "В";
290 ELSE IF EX=J AND EY=I THEN PRINT "Ж";
300 ELSE IF PX=J AND PY=I THEN PRINT "P";
310 ELSE IF F(J,I)>0 THEN PRINT "V";
320 ELSE PRINT ".";
330 NEXT J: PRINT: NEXT I
340 PRINT "КАССЕТ СОБРАНО: ";5-C;" / 5"
350 IF X=EX AND Y=EY THEN PRINT "ТЕБЯ ДОГНАЛ ДОКТОР ВОРОН!": STOP
360 IF C=0 AND X=PX AND Y=PY THEN GOSUB 1000: STOP
370 LET K$=INKEY$
380 IF K$="" THEN GOTO 370
390 IF K$="5" AND X>1 THEN LET X=X-1
400 IF K$="6" AND Y>1 THEN LET Y=Y-1
410 IF K$="7" AND Y<10 THEN LET Y=Y+1
420 IF K$="8" AND X<10 THEN LET X=X+1
430 IF F(X,Y)>0 THEN LET N=F(X,Y): LET F(X,Y)=0: LET C=C-1: BEEP .2,20: PRINT "НАШЁЛ: ";L$(N): PAUSE 50
440 REM === ДОКТОР ВОРОН ===
450 IF EX<X THEN LET EX=EX+1 ELSE IF EX>X THEN LET EX=EX-1
460 IF EY<Y THEN LET EY=EY+1 ELSE IF EY>Y THEN LET EY=EY-1
470 GOTO 240

1000 REM === ФИНАЛ ===
1010 CLS
1020 PRINT "КАССЕТЫ ВСТАВЛЕНЫ..."
1030 PRINT "ПИРАМИДА НОСТАЛЬГИИ АКТИВИРУЕТСЯ"
1040 FOR I=1 TO 5: BEEP .2,10+I*2: NEXT I
1050 PRINT "ВОВИК УХОДИТ В 90-Е..."
1060 PRINT "ТЕРМИНАТОР, КОММАНДО, ХИЩНИК..."
1070 PRINT "ГДЕ ВСЁ ПО 3 РУБЛЯ, ПУГОВИЦЫ МИГАЮТ А ПАША КИНАМАН ХОДИТ"
1080 RETURN

БУДЕТ ИГРАТЬ КТО? Вовик и людоеды 2: Бойня в Рубашкине

После побега из колодца, Вовик вернулся в Рубашкин с огнемётом, чтобы отомстить людоедам и спасти черванов.

10 REM === ВОВИК И ЛЮДОЕДЫ 2: БОЙНЯ В РУБАШКИНЕ ===
20 CLS: LET X=5: LET Y=5: REM ВОВИК
30 LET B=3: REM ТОПЛИВО
40 DIM F(10,10): REM КАРТА
50 FOR I=1 TO 10: FOR J=1 TO 10: LET F(I,J)=0: NEXT J: NEXT I
60 REM ПРЕДМЕТЫ: 1-БЕНЗИН, 2-ЧЕРВАН, 3-МОСТ
70 FOR I=1 TO 2: LET A=INT(RND10)+1: LET B1=INT(RND10)+1: LET F(A,B1)=1: NEXT I
80 FOR I=1 TO 3: LET A=INT(RND10)+1: LET B1=INT(RND10)+1: LET F(A,B1)=2: NEXT I
90 LET MX=INT(RND10)+1: LET MY=INT(RND10)+1: LET F(MX,MY)=3
100 LET L1X=1: LET L1Y=10: LET L2X=10: LET L2Y=1
110 LET P=0
120 REM ИГРА
130 CLS
140 FOR I=1 TO 10
150 FOR J=1 TO 10
160 IF X=J AND Y=I THEN PRINT "В";
170 ELSE IF L1X=J AND L1Y=I THEN PRINT "Л";
180 ELSE IF L2X=J AND L2Y=I THEN PRINT "Л";
190 ELSE IF F(J,I)=1 THEN PRINT "Б";
200 ELSE IF F(J,I)=2 THEN PRINT "П";
210 ELSE IF F(J,I)=3 THEN PRINT "М";
220 ELSE PRINT ".";
230 NEXT J: PRINT: NEXT I
240 PRINT "ЧЕРВАНЫ: ";P;" ТОПЛИВО: ";B
250 IF L1X=X AND L1Y=Y OR L2X=X AND L2Y=Y THEN PRINT "ТЕБЯ СЪЕЛ ЛЮДОЕД!": STOP
260 IF P=3 AND X=MX AND Y=MY THEN PRINT "ВСЕ ЧЕРВАНЫ СПАСЕНЫ! ЭВАКУАЦИЯ УДАЛАСЬ!": STOP
270 LET K$=INKEY$
280 IF K$="" THEN GOTO 270
290 IF K$="5" AND X>1 THEN LET X=X-1
300 IF K$="6" AND Y>1 THEN LET Y=Y-1
310 IF K$="7" AND Y<10 THEN LET Y=Y+1
320 IF K$="8" AND X<10 THEN LET X=X+1
330 IF F(X,Y)=1 THEN LET B=B+2: LET F(X,Y)=0: BEEP .1,15
340 IF F(X,Y)=2 THEN LET P=P+1: LET F(X,Y)=0: BEEP .2,20
350 IF B>0 THEN
360 IF L1X=X+1 AND L1Y=Y OR L1X=X-1 AND L1Y=Y OR L1X=X AND L1Y=Y+1 OR L1X=X AND L1Y=Y-1 THEN LET L1X=0: LET L1Y=0: LET B=B-1: BEEP .1,-10
370 IF L2X=X+1 AND L2Y=Y OR L2X=X-1 AND L2Y=Y OR L2X=X AND L2Y=Y+1 OR L2X=X AND L2Y=Y-1 THEN LET L2X=0: LET L2Y=0: LET B=B-1: BEEP .1,-10
380 END IF
390 REM ЛЮДОЕДЫ ДВИЖУТСЯ
400 IF L1X>0 THEN IF L1X<X THEN LET L1X=L1X+1 ELSE IF L1X>X THEN LET L1X=L1X-1
410 IF L1Y>0 THEN IF L1Y<Y THEN LET L1Y=L1Y+1 ELSE IF L1Y>Y THEN LET L1Y=L1Y-1
420 IF L2X>0 THEN IF L2X<X THEN LET L2X=L2X+1 ELSE IF L2X>X THEN LET L2X=L2X-1
430 IF L2Y>0 THEN IF L2Y<Y THEN LET L2Y=L2Y+1 ELSE IF L2Y>Y THEN LET L2Y=L2Y-1
440 GOTO 130