Я написал две компьютерные игры!!!

[Senior Lupasin]

0 REM lupaloader
0 BORDER SGN PI: INK SGN PI: PAPER SGN PI: CLEAR VAL "5E5": POKE VAL "23659", NOT PI: LOAD "$" SCREEN$: PRINT AT VAL "21", NOT PI;: LOAD "CODE" CODE: LOAD "PROGRAM"
0 REM Это был загрузчик с суперкрутой защитой от взлома по системе Лупасина

1 RANDOMIZE USR 61000: REM Сохраняем фоновую картинку при помощи команды LDIR
5 POKE 23659, 2: REM Снимаем крутую защиту загрузчика, ибо версия отладочная
10 POKE 23606, 0: POKE 23607, 239: REM Офигенный русский шрифт, нарисованный в Art Studio
20 RANDOMIZE USR 60001: REM Играет музыка, откомпилированная во Wham-е
30 INK 9: CLS: PRINT "
1 -- SINCLAIR

2 -- KEYBOARD

3 -- REDEFINE": REM Юзаем встроенные теги форматирования и раскраски
40 LET A= CODE INKEY$: IF A<49 OR A>51 THEN GO TO 40: REM Опрос клавиатуры
41 GO TO A: REM Выбираем управление
49 LET LEFT=CODE "6": LET RIGHT=CODE "7": LET UP=CODE "9": LET DOWN=CODE "8": LET FIRE=CODE "0": GO TO 52
50 LET LEFT=CODE "O": LET RIGHT=CODE "P": LET UP=CODE "Q": LET DOWN=CODE "A": LET FIRE=32: GO TO 52
51 GO SUB 9000
60 FOR L=1 TO 25: REM Игровой цикл
70 CLS: LET SCORE=0
80 FOR I=1 TO 25: LET X=RND*31: LET Y=RND*21: POKE 64000+I*2, X: POKE 64001+I*2, Y: PRINT AT Y, X; "$";: NEXT I: REM Раскидываем ништяки
90 FOR I=1 TO L: LET X=RND*31: LET Y=RND*21: POKE 64050+I*2, X: POKE 64051+I*2, Y: PRINT AT Y, X: "Щ";: NEXT I: REM Раскладываем грабли
100 LET X=RND*31: LET Y=RND*21: REM Устанавливаем подлодку
110 PRINT AT Y1, X1; " "; AT Y, X; "@";: REM Рисуем спрайт подлодки
120 LET A=CODE INKEY$: LET X=X-ABS (1-ABS (SGN (A-LEFT)))+ABS (1-ABS (SGN (A-RIGHT))): LET Y=Y-ABS (1-ABS (SGN (A-UP)))+ABS (1-ABS (SGN (A-DOWN))): REM Ну, тут всё должно быть понятно
130 FOR I=64050 TO 64048+L*2 STEP 2
131 IF PEEK I=X AND PEEK (I+1)=Y THEN GO TO 270
133 NEXT I: REM Проверено: мин нет
135 IF A<>FIRE THEN GO TO 145: REM Автосбора ископаемых на подлодке не предусмотрено
140 FOR I=64000 TO 64048 STEP 2
141 IF PEEK I=X AND PEEK (I+1)=Y THEN LET SCORE=SCORE+1: POKE I, 255: POKE (I+1), 255
142 NEXT I: REM Всё подобрали, что плохо лежит
145 PRINT #0; SCORE
150 IF X<0 OR Y<0 THEN PRINT #0; "PODVODNAQ LODKA NAPOROLASb NA SUHU": PAUSE 50: GO TO 270
160 IF X>31 OR Y>21 THEN PRINT #0; "PODVODNAQ LODKA POPALA V LAPbl QPONSKIM IMPERIALISTAM!!!": PAUSE 50: GO TO 270
170 LET X1=X: LET Y1=Y: OUT 254. 31: OUT 254, 7: REM По-моему, за звук один из этих двух битиков отвечает
180 IF SCORE<L THEN GO TO 110
190 FLASH 1: CLS: PRINT "UROVENb "; L; " PROJDEN!!!": FLASH 0: PAUSE 0: CLS
200 NEXT L: REM Переходим на новый уровень
210 REM Игра пройдена!
220 RANDOMIZE USR 61011: Восстанавливаем заставку командой LDIR
222 LET A$='' GRANDIOSNO! Tbl PROWOL IGRU, KAPITAN! "
230 POKE 23277, 12: POKE 23278, 13: POKE 23279, 15: POKE 23280, 81: POKE 23281, 15: POKE 23282, 13: POKE 23283, 12
240 FOR I=0 TO LEN A$-7: PRINT #0: AT 1, 13; INK 8; A$ (I TO I+6);: NEXT I: REM Поздравляем игрока при помощи разноцветной бегущей строки
250 RANDOMIZE USR 50001: REM По этому адресу записано оцифрованное поздравление Лупасина
260 PAUSE 0: GO TO 9999: REM 0 OK, 0:1
270 FOR I=0 TO 200: OUT 254, RND*256: NEXT I: REM Аудиовизуальный видеоэффект, выводимый при крэше
280 BORDER 1: CLS: PRINT "IS4O SblGRAEWb?"
290 LET A=CODE INKEY$: IF A="Y" THEN GO TO 30
291 IF A="y" THEN GO TO 30
300 IF A="N" THEN NEW
301 IF A="n" THEN NEW
310 GO TO 290
9000 PRINT "3TA FUNKCIQ VREMENNO NE PODDERJIVAETSQ": PAUSE 0: RETURN
9001 REM Компьютерная игра "Тайна двух океанов" написана по мотивам одноимённой повести Г. Адамова. Игра повествует о героическом пути подводной лодки "Пионер". Цель игры -- собирать полезные ископаемые, в изобилии водящиеся на дне морском. При этом нужно избегать магнитных торпед, раскиданных классовыми врагами. В конце игры вас ждёт сюрприз!

[Kos-XIII]

Senior Lupasin, никогда не задумывались, чтобы извлекать коммерческую выгоду из вашего программного продукта?

[twisted_existor]

Senior Lupasin, никогда не задумывались, чтобы извлекать коммерческую выгоду из вашего программного продукта?

Для этого Лупасину сначала нужно придумать машину времени.

[Senior Lupasin]

Если с умом взяться, можно и без машины времени.
Но тогда выгоднее на коммодор переучиваться.

[Senior Lupasin]

Теперя, может, халфу под спек портировать?

[twisted_existor]

Пиши ред алерт 4, я к тому времени как раз третий пройду, вчера только установил просто.

[Senior Lupasin]

Я стратегий не пишу.
Может, NFS?

[Beavis]

чтоб она на спектруме работала, нужно туда 500 Z80 поставить вместо одного )))

[Senior Lupasin]

На спектруме работает всё.
Иногда притормаживает.
Два кадра в час -- и можно играть по мылу!

[twisted_existor]

Лупасин, что-то не запускаются твои игрухи. Напиши системные требования.

[Senior Lupasin]

Ну как: Спектрум сорок восьмой с кассетным накопителем, встроенный бейсик или на 100% совместимый с оригиналом, телевизор цветной.

А что пишет эмулятор?

[Blooddrop]

Senior Lupasin, на заводах кстати нужны рабочие руки. Я думаю, если поспрашивать - ещё не поздно пригодиться обществу.

[Senior Lupasin]

Ну, поспрашивай.
Может, и пригодишься.

[Blooddrop]

В Голландии заводы немного другие. Так что мне никак. А вот ты попробуй. Пропадает талант же. Вот представь - а вдруг ты гениальный фрейзеровщик? Или будущий мастер-сантехник?

[Beavis]

основы программирования знаешь опять же... вдруг станками с чпу научишься управлять? )))))))