vl@volk, Оно рисует все быстро но при етом если я буду добавлять все новые кубики они будут с замедлением добавлятся . И чем больше ходов в цикле тем медленнее они будут добавлятся .. Вот код

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. 10 X%=0:Y%=0:FD%=0:C%=0
2. 40 DIM FX%(100)
3. 41 DIM FY%(100)
4. 50 CLS:DRAWRECT X%,Y%,10,10
5. 51 DRAWSTRING STR$(C%),20,0:DRAWSTRING STR$(FD%),50,0
6. 60 IF UP(0) THEN Y%=Y%-10
7. 61 IF DOWN(0) THEN Y%=Y%+10
8. 62 IF LEFT(0) THEN X%=X%-10
9. 63 IF RIGHT(0) THEN X%=X%+10
10. 64 IF FIRE(0) THEN GOTO 400
11. 70 GOTO 200
12. 100 REPAINT:SLEEP 1:GOTO 50
13. 200 FOR FD%=0 TO C%
14. 250 FILLRECT FX%(FD%),FY%(FD%),10,10
15. 251 NEXT FD%
16. 300 GOTO 100
17. 400 FD%=FD%+1
18. 401 C%=C%+1
19. 406 FX%(FD%)=X%
20. 407 FY%(FD%)=Y%
21. 450 GOTO 70

Кальцид, а зачем ты добавляешь новые?
Рисуй на буфер изображения иной тогда

Death, Ну нужно мне что бы кубики в ручную добовлялись . Может я майнкруфт хочу сделать

Кальцид, может не там добавляешь новые, пожумай когда их лучше добавлять

Тут понадобится многопоточность, иначе ничего хорошего не сделать

Aladdin, Многопоточность для чего?

Вроде код на бейсике можно самоизменять, но работают ли такие команды рантайм, я не знаю. На зато так можно избавиться от цикла и рисовать быстрее.
В общем, можно создать файл и записывать туда команды, а потом делать так:

Команды ввода-вывода

OPEN #ch%,file$,mode$ - открывает файл(file) и сопоставляет ему канал (ch). Каналов может быть (0 - 9). Используются для доступа к файлам. [сокращенная форма OP]
Поддерживает протоколы file, socket, http, а так же возможен доступ к файлам из архива приложения ("/"+namefile$) и из RMS.
Тип (mode) может быть:
"OUTPUT" - запись,
"INPUT" - чтение.
Пример:
10 OPEN #0,"/file","INPUT"
- открывает (только для чтения!) любой файл-ресурс из JAR.
10 OPEN #0,"http://site.ru","OUTPUT"
20 PUT #0,ASC("q")
30 PUT #0,ASC("=")
40 PUT #0,ASC("d")
50 GET #0,b%
60 CLOSE #0
70 PRINT CHR$(b%):REPAINT
- отправка POST запроса("INPUT" - GET запрос).

CLOSE #ch% - закрывает канал. [сокращенная форма CL]

GET #ch%,b% - считывает байт.

PUT #ch%,b% - записывает байт.

INPUT #ch%,( /%/$) - считывает переменную (записанную с разделителями). [сокращенная форма IN #]

PRINT #ch%,( /%/$) - записывает переменную. [сокращенная форма PR #]

INPUTTEXT #ch%,s$,n% - считывает n% байт и переводит их в строку s$ в кодировке UTF-8. [сокращенная форма INTXT #]
Если n%=-1 - считывает все оставшиеся байты в файле.

PRINTTEXT #ch%,s$ - записывает строку s$ в кодировке UTF-8. [сокращенная форма PRTXT #]

NOTE #ch%,c% - считывает позицию чтения/записи.

POINT #ch%,c% - устанавливает позицию. Если число отрицательное, то позиция переходит в самый конец файла.
Или рисовать одну огромную карту, которую перерисовывать с помощью команд:

GELGRAB Gel$,X%,Y%,W%,H% - "вырезает" гель из прямоугольника (x,y,w,h). [сокращенная форма GG]
DRAWGEL Gel$,X%,Y%

С помощью них создавать карты, отрисовывая одной командой.

askalite,давно тебе хотел сказать , ты ничтожен , не строй из себя кодера , ты уже мне раз помог
  Это уже выходит за пределы условий. Лучше бы помог дополнить код на проверку этих условий: