Игры на QBasic

Перемещение смайлика по осям X, Y:

w - верх
s - вниз
a - влево
d - вправо

Код:

SCREEN 12
 
DIM Smile(100)
 
DATA 0,0,0,14,14,14,14,0,0,0
DATA 0,0,14,14,14,14,14,14,0,0
DATA 0,14,0,0,14,14,0,0,14,0
DATA 14,14,0,0,14,14,0,0,14,14
DATA 14,14,0,0,14,14,0,0,14,14
DATA 14,14,14,14,14,14,14,14,14,14
DATA 14,14,0,0,0,0,0,0,14,14
DATA 0,14,14,0,0,0,0,14,14,0
DATA 0,0,14,14,0,0,14,14,0,0
DATA 0,0,0,14,14,14,14,0,0,0
 
FOR y = 0 TO 9: FOR x = 0 TO 9
 
READ c: PSET (x, y), c: NEXT x, y
 
GET (0, 0)-(9, 9), Smile
 
CLS : y = 220: x = 320: PUT (x, y), Smile
 
DO
 
k$ = INKEY$
 
IF k$ = "w" THEN PUT (x, y), Smile: y = y - 3: PUT (x, y), Smile
 
IF k$ = "s" THEN PUT (x, y), Smile: y = y + 3: PUT (x, y), Smile
 
IF k$ = "a" THEN PUT (x, y), Smile: x = x - 3: PUT (x, y), Smile
 
IF k$ = "d" THEN PUT (x, y), Smile: x = x + 3: PUT (x, y), Smile
 
LOOP

--- добавлено 17 сен 2018 ---

Super, Спасибо большое!

--- добавлено 17 сен 2018, предыдущее сообщение размещено: 17 сен 2018 ---

Код:

DO WHILE INKEY$ = ""
SCREEN 13
FOR i = 1 TO 100
PSET (RND * 340, RND * 230), i
FOR a = 1 TO 100
PSET (RND * 350, RND * 340), 0
NEXT a, i
LOOP

 

Современный иностранный форум qbasic qb64

Новый
QB64 Phoenix Edition - Programs
_qb64phoenix.com/forum/forumdisplay.php?fid=7

Старый
Programs
_qb64forum.alephc.xyz/index.php?board=6

И я оттуда скачал автоматически сотни тем

 

@DANILIN, да, вот:

Высматривал там игры ещё издавна, пока эти ценные кадры не умудрились профукать:
— домен qb64.net;
— базу знаний (wiki, интергированную в IDE);
— файловый архив;
— форум;
— и сообщество, часть из которого перешла на менее ламповый FreeBASIC.
Список, если кто в курсе, можно дополнить...

Всё это чуть не год не восстанавливали почему-то, при наличии Google кэша, ну и резервных копий на хостинге наверняка...

 

Активисты из команды выбыли по любой причине, либо стали пассивом, остаток актива и убежал.

 

1. Смотрите какая интересная библиотека для QuickBasic'а была:

2. Вот тут какие-то простые игры должны быть.

 

Бейсик, оказывается, не такой уж и Quick.

Автор: Dmitry Blau, В. Алексанов
Издатель: -
Год выпуска: 1997
Описание:
Перед нами оказалась «змейка» с подвывертом. Согласно воспоминанию автора, посвящена долговязому однокласснику, который постоянно ел бананы. Вот эти плоды, причём анимированные и меняющие положение, и состоят в качестве провизии для управляемого нами смайла с хвостом. Помимо этого, на поле появляются знаки вопроса, при подбирании которых активируется случайный бонус, например удлинение на пять или пятьдесят секций, невидимые бананы на полминуты, двойное увеличение или уменьшение скорости на 2 минуты, неограниченные патроны на 1 минуту и другие. Собранные патроны, обозначаемые цифрами, подразумевающими количество таковых, позволяют расстреливать мины при помощи клавиши пробела. Подавиться собственным хвостом нельзя, допускается даже движение в обратном направлении, а вот краёв экрана и появляющихся внутри оного мин лучше не касаться. Никаких уровней или набора очков не предусмотрено, как и счётчика длины змейки.

Вместо графики здесь цветные псевдографические символы и спецэффект при попадании змейки в критическое состояние. Звуковое сопровождение отсутствует. Для продолжения игры после змеиного фиаско предлагается ввести «д», любой другой символ означает выход в ДОС (интерпретатор Бейсика). В общем, получился довольно любопытный экземпляр известной с 1970-х годов игры с интересными нововведениями.

Спойлер: Скриншоты:

 

Игра называется «Евса»? Что делают бомбы, как выглядят, для чего собирать и как пользоваться?
Прошу проверить описание из предыдущего сообщения, есть ли неточности, ничего ли не упущено из виду?
В каком году вышла? В 1999-м?

 

Но вот собрал Б: 1, на скриншоте:



Это явно не мина.

Сделано, спасибо.

Автором и издателем кого назначим?

 

Да.

Спасибо.

Уточнил оба пункта в описании.

 

@kreol, вот "первоначальная" версия игры, без мин и стен. Предлагаю выложить её тоже. Хотя я не совсем уверен, что это можно считать той же самой игрой. Думаю, можно запросить комментарий автора @Dimouse : это две разные игры или две версии одной?)

 

@kreol, она сильно отличается и она является играбельной (на сайте выложены змейки и похуже).