Код на Pascal ABC, но разница не большая
Код:
var
x,y: integer;
dx: integer;
Procedure KeyDown(Key: integer);
begin
if Key= VK_ESCAPE then halt;
end;
BEGIN
x:= 200;
y:= 220;
dx:= 20;
repeat
SetBrushColor(clBlue);
FillRectangle(x,y,x+20,y+20);
Sleep(100);
SetBrushColor(clWhite);
FillRectangle(x,y,x+20,y+20);
if (x=0) or (x=300) then dx:= -dx;
x += dx;
until OnKeyDown = KeyDown;
end.
Admin: Пользуемся тегами!
Подскажите, как сделать эффект змейки. Т.е. все тоже самое, только квадратиков несколько. По алгоритму: первый передвинулся, второй встает на его место и т.д.