Всем ПРИВЕТ! Я тут примерчик набросал небольшой.
Открыть спойлер
Закрыть спойлер
GR.OPEN 255,0,0,0,0,1
GR.BITMAP.LOAD stena,"stena.png"
DIM plitka[7,10]
FOR y=1 to 10
FOR x=1 TO 6
GR.BITMAP.DRAW plitka[x,y],stena,x*80-80,y*80-80
NEXT
NEXT
sp=5
DO
y1=y1+sp
IF y1=100 THEN sp=sp*-1
IF y1=-100 THEN sp=sp*-1
FOR y=1 to 10
FOR x=1 TO 6
GR.MODIFY plitka[x,y],"y",(y*80-80)+y1
NEXT
NEXT
GR.RENDER
UNTIL 2=3
Уникальная переменная для каждой GR.BITMAP.DRAW нужна именно для того чтобы потом двигать любую плитку. Я наверное пропаду на 2 -3 дня хочу попробовать написать горошки на подобие
этого. К вечеру ,как соберусь с силами, перепечатаю то что перевёл(там про работу с файлами и графика, но мой перевод).
Прикрепленные файлы:
PLITKA.rar (11.52 кб.) Скачано 83 раза