1:

TColision = function(nx,ny:Integer):boolean;					

1:

function Collision(x,y,index:Integer):boolean;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

{
  Testet ob an den angeben position eine collisions ist oder nicht

  Autor: Michael Springwlad
  Erstellt am: 18.07.2004
  Upgedatet am: 18.07.2004
}

function TPACMan.Collision(x,y,index:Integer):boolean;
var
  i:Integer;
begin
  if index > 0 then begin
    for i:=0 to High(K.KIS) do begin
      if (K.KIS[i].x = x) and (K.KIS[i].y = y) then begin
        result:=True;
        exit;
      end
      else
        result:=False;
    end;
  end;

  if (x <= MapX-1) and (y <= MapY) and (x >= 0) and (y >= 0) and (Map[x,y].isD = True) then
    result:=False
  else
    result:=True;
end;					

1:

k.onColision:=Collision;					

1:

TColision = function(nx,ny:Integer):boolean of object;