Пятница, 29.03.2024, 00:15

..



Главная Регистрация Вход
Приветствую Вас, Гость · Браузер: « v»
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Всё об «Электроника БК0010(-01), БК0011(М)»! » Игры » Описание игр » на «Бейсике» » Разыскиваю игры
Разыскиваю игры
-=RUS=-Дата: Суббота, 09.03.2013, 16:45 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 352
Репутация: 1
Статус: Offline
Разыскиваю игры:

1) PUTUP.COD, редактор лабиринтов к нему;
2) SOSB.COD.


help
 
VladikДата: Воскресенье, 29.09.2013, 17:18 | Сообщение # 2
Рядовой
Группа: Пользователи
Сообщений: 1
Репутация: 0
Статус: Offline
;редактор лабиринтов к игре PUTUP.COD

50 DEF USR=&O3054
60 COLOR 0%
70 ? CHR$(158%)
80 COLOR 1%
85 GOTO 2000
90 I%=&O5256+L%*72%
100 ? CHR$(140%)+CHR$(140%)
110 J%=0%
120 M%=0%
130 KA%=0%
140 FOR Y%=&O42000 TO &O73000 ST 1280%
150 X%=0%
160 GOSUB 440
170 FOR X%=4% TO 56% ST 4%
180 IF Y%=&O42000 TH 250
190 IF J% TH 210 EL N1%=PEEK(I%)
200 I%=I%+2%
210 J%=(J%+1%)MOD4%
220 N%=(N1%AND15%)
230 IF N1%<0% TH N1%=(N1%AND&O77777)\16%+&O4000 EL N1%=N1%\16%
240 IF N%=0% TH 260 EL IF N%=3% TH 310 EL IF N%>6% AND N%<12% TH 330 EL IF N%>12 TH 380
248 POKE &O3066,N%
250 I1%=USR(X%+Y%)
260 NEXT X%
270 GOSUB 440
290 NEXT Y%
300 RETURN
310 EX%=X%+Y%
320 GOTO 248
330 D%(M%)=N%-7%
340 A%(M%)-X%+Y%
350 IF N%=7% TH V%(M%)=1% ELIF N%=8% TH V%(M%)=-1% ELIF N%>8% TH V%(M%)=-640%
360 M%=(M%+1%)MOD2%
370 GOTO 240
380 KA%=KA%+1%
390 GOSUB 440
400 POKE &O3066,12%
410 POKE &O3116,&O40224
420 I1%=USR(X%+Y%)
425 POKE &O3316,&O74224
430 GOTO 260
440 POKE &O3066,1%
450 I1%=USR(X%+Y%)
460 RETURN
2000 ? "ЛАБИРИНТ НОМЕР?"
2020 INPUT N$
2030 L%=VAL(N$)-1%
2040 IF L%<0% OR L%>14% TH 2000 EL X1%=2%
2050 Y1%=2%
2060 LOCATE X1%,Y1%,1%
2070 N$=INKEY$
2080 IF N$="" TH 2070 EL N%=ASC(N$)
2090 IF N%=8% AND X1%>3% TH X1%=X1%-2 ELIF N%=25% AND X1%<28% TH X1%=X1%+2% ELIF N%=26% AND
Y1%>2% TH Y1%=Y1%-2% ELIF N%=27% AND Y1%<20% TH Y1%=Y1%+2% ELIF N%=10% TH 2000 EL 2110
2100 GOTO 2060
2110 N%=N%-48%
2120 IF N%>9% TH N%=N%-6%
2130 IF N%<0% OR N%>13% OR N%=10% TH 2060
2140 I%=(X1%-2%)/2%+(Y1%-2%)*7%
2150 I1%=&O5256+L%*72%+I%\2%
2160 X%=PEEK(I1%)
2170 N1%=I%MOD4%
2180 IF N1%=3% TH 2220 ELIF N1%=1% TH X%=X% AND &O177417 OR (N%*16%) ELIF N1% TH X%=X% AND &O170377
OR (N%*256%) EL X%=X% AND &O177760 OR N%
2190 POKE I1%,X%
2200 GOTO 2055
2220 Y%=N%MOD8%
2230 X%=X% AND &O7777 OR (Y%*4096%)
2240 IF N%>7% TH X%=X% OR &O100000
2250 GOTO 2190

smile
 
Всё об «Электроника БК0010(-01), БК0011(М)»! » Игры » Описание игр » на «Бейсике» » Разыскиваю игры
  • Страница 1 из 1
  • 1
Поиск:

-=RUS=-
ICQ: 320867225
asr-corp@yandex.ru
bk001x@yandex.ru