Всем привет, очень нужна помощь с небольшой графической программой. Суть её в том, что она выводит один символ, который можно двигать стрелками, а при нажатии Esc появляется второй символ и когда второй символ двигаем к первому, то первый исчезает. Нужно изменить программу так, чтобы когда второй символ приближался к первому, то он бы перепрыгивал первый символ. Ниже код программы. Заранее спасибо)
Цитата:
program dragging;
uses graph, crt, monsters;
var
Vasia : monstr;
Misha : daemon;
x,y : integer;
gd, gm : integer;
begin
gd := detect;
initgraph(gd, gm, 'c:/BP/BIN');
if graphresult <> grOk then begin
writeln('oshibka inicializacii grafiki'); readln; exit end;
Vasia.init(200,200,10,8);
Vasia.draw;
while vasia.drag do;Misha.init(400, 400, 10, 8 ,2); Misha.draw;
while misha.drag do;
end.
|