Ответ: Procedure and Function
Пиши функцию проверки на пересечение с прямоугольником.
function peresek(x,y):boolean;
begin
peresek:=((x>left_x) and (x<right_x) and (y>up_y) and(y<down_y));
end;
глобальные переменные
left_x:=40-GetImageWidth(e);
right_x:=40+GetImageWidth(c);
up_y:=40-GetImageHeight(e);
down_y:=40+getImageHeight(c);
...
if peresek(x,y) then halt;
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|