Floor66
2009-04-18 20:36:48
How do I do this?
The NPC doesn't move.
I've tried GetObjectAt but that just won't work =\
The NPC doesn't move.
I've tried GetObjectAt but that just won't work =\
2009-04-18 20:36:48
2009-04-18 21:06:06
TNPC = record
Tile, MS, MM: TPoint;
Index, NPCType, Height, Animation, TurnDirection, Combat: Integer;
HPRatio: Integer;
Name: string;
InFight, IsMoving: Boolean;function GetNPCAtTile(Tile: TPoint): Integer;
var
NPCs: array of TNPC;
i: Integer;
begin
NPCs := GetNPCs;
for i := 0 to High(NPCs) do
begin
if (NPCs[i].Tile.x = Tile.x) and (NPCs[i].Tile.y = Tile.y) then
Result := NPCs[i].NPCType;
end;
end;
2009-04-18 21:09:16
2009-04-19 01:29:29
2009-04-19 10:19:11