[sid]

Код на 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: Пользуемся тегами!

Подскажите, как сделать эффект змейки. Т.е. все тоже самое, только квадратиков несколько. По алгоритму: первый передвинулся, второй встает на его место и т.д.