Игры на 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. Вот тут какие-то простые игры должны быть.