-=RUS=- | Дата: Суббота, 09.03.2013, 16:45 | Сообщение # 1 |
 Генералиссимус
Группа: Администраторы
Сообщений: 352
Статус: Offline
| Разыскиваю игры:
1) PUTUP.COD, редактор лабиринтов к нему; 2) SOSB.COD.
|
|
| |
Vladik | Дата: Воскресенье, 29.09.2013, 17:18 | Сообщение # 2 |
Рядовой
Группа: Пользователи
Сообщений: 1
Статус: 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
|
|
| |