function WalkPath(WhichPath: Integer): Boolean;
var
  I, Location: Integer;
  GL1, GL2: Boolean;
begin
  WriteLn('walking path ' + ToStr(WhichPath));
  case WhichPath of

    P_STAIRSTOBANK:  Location := LOC_BANK;

    P_BANKTOSTAIRS:  Location := LOC_STAIRS;

    P_STAIRSTOCY:    Location := LOC_COURTYARD;

    P_CYTOGOBLINS:   Location := LOC_GOBLINS;

    P_GOBLINSTOGATE: Location := LOC_GATE;

    P_GATETOCOWS:    Location := LOC_COWS;

    P_COWSTOGATE:    Location := LOC_GATE;

    P_GATETOGOBLINS: Location := LOC_GOBLINS;

    P_GOBLINSTOCY:   Location := LOC_COURTYARD;

    P_CYTOSTAIRS:    Location := LOC_STAIRS;
  end;

  case Location of

    1, 3:          GL2 := False;

    2, 4, 5, 6, 7: GL2 := True;
  end;

  case WhichPath of

    0, 1:                   GL1 := False;

    2, 3, 4, 5, 6, 7, 8, 9: GL1 := True;
  end;

  for I := 0 to High(WalkPaths[WhichPath]) do
    ObjDTMWalk(WalkPaths[WhichPath][i], 0, 100, 80, GL1);

  while IsMoving do
    Wait(100);

  Result := InObjDTMArea(Locations[Location], GL2);
end;