Stealth Client Forum

Code: Select all

Unit SinbaDrabadan;

interface

var 
 Path : Array of TPoint;

implementation

procedure AddPointToPathArray(Point : TPoint);
begin
 SetLength(Path, Length(Path) + 1);
 Path[High(Path)].X := Point.X;
 Path[High(Path)].Y := Point.Y;
end;

function Pathfinding(Point : TPoint) : Boolean;
var
 Cell : TMapCell;
 i : Integer;
begin
 //тут должен быть умный код...
end;

function CheckTile(Point : TPoint) : Boolean;
var
 Cell : TMapCell; 
begin  
 Result := False;
 Cell := GetMapCell(Point.X, Point.Y, WorldNum);
 if (Cell.Tile = 168) or (Cell.Tile = 169) or (Cell.Tile = 170) or (Cell.Tile = 171) then
  Result := True;
end;

function CreatePath(Target : TPoint; var ResultString : String) : Boolean;
var
 Current : TPoint;
 cell : TMapCell; 
begin 
 Current.X := GetX(Self);
 Current.Y := GetY(Self);
 repeat   
   if Current.X > Target.X then    
	 Current.X := Current.X - 1;
   if Current.Y > Target.Y then
     Current.Y := Current.Y - 1;
   if Current.X < Target.X then    
	 Current.X := Current.X + 1;
   if Current.Y < Target.Y then
     Current.Y := Current.Y + 1;
   if not CheckTile(Current) then
    begin
	 AddToSystemJournal(IntToStr(Length(Path)));
	 Result := False;
	 ResultString := 'Wrong current tile!';
	 exit;
	end
   else   
    AddPointToPathArray(Current);
   cell := GetMapCell(Current.X, Current.Y, WorldNum);
   AddToSystemJournal(IntToStr(Current.X) + ' ' + IntToStr(Current.Y) + ' tile: ' + IntToStr(cell.Tile));    
 until (Current.X = Target.X) and (Current.Y = Target.Y);     
 AddToSystemJournal(IntToStr(Length(Path)));
 ResultString := 'Everything is ok!'
end;

end.