[sid]

Код на Pascal ABC, но разница не большая

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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

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