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

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

[Zalm]

Создать динамический массив благодаря которому вы будете отрисовывать картинку. Меняете координаты в массиве - рисуете картинку - стираете всё с экрана - меняете координаты - рисуете картинку. Выйдет то что вы хотите. Я так когда-то делал когда делал змейку, имхо самый простой способ

[sid]

Направте меня на путь истинный. Мне нужно только чтобы по горизонт. двиг.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

type TRecord = record  x:integer;  y:integer; end;   var  a: array[1..5] of TRecord;  i: integer; begin  For i:= 1 to 5 do  begin   DrawRectangle(a[i].x+i*20, a[i].y, a[i].x+20, a[i].y+20);  end; end.

[Страдалецъ]

Порядок вроде такой должен быть.
Стираем старый квадратик. Получаем новые координаты, рисуем квадратик. Повторяем операцию со всеми квадратиками в массиве.

[sid]

Заработало!!! Остались вопросы по поводу рисования клеток путем перебора (For..do). Никак не получается правильно рисовать.
Вот нарисовал я сетку:

Код:

1 2 3

for i:byte:= 1 to 20 do   for k:byte:= 1 to 20 do    Rectangle(i*20,k*20,20,20);

А как в данном случае добавить зазор между ячейками?
Спасибо.

[Страдалецъ]

А так если?

Код:

1 2 3

for i:byte:= 1 to 20 do   for k:byte:= 1 to 20 do    Rectangle(i*20,k*20,19,19);

[sid]

Так тоже не получается

[Страдалецъ]

А у Rectangle какие параметры?

[sid]

стандартные x1,y1,x2,y2. Почему в Pascal нет оператора STEP? По моему до меня дошло Надо для x2 тоже перемен. созд. типа размер

[Страдалецъ]

Если x2 тогда конечно не будет работать, я предположил что там размер.
Так попробуй.

Код:

1 2 3

for i:byte:= 1 to 20 do   for k:byte:= 1 to 20 do    Rectangle(i*20,k*20,i*20+19,k*20+19)

[Страдалецъ]

а Step нет, потому-что не нужен. Есть while и Repeat которые спокойно позволяют решить проблему счетчиков с любым шагом.

[sid]

А у меня вот так получилось: Rectangle(i*20+1,k*20+1,i*20+20,k*20+20);
Тоже самое, только менее красиво.
Спасибо!