adkwalkers.pas

N年前有个法国小组用Delphi写了一个2D网游（AD&D类型）

unit ADKWalkers;

interface

uses
 Windows,Types,
 ADKObjects,
 ADKMaps,ADKSprites,ADKPathFinder,ADKIniLoader,ADKScreens;

const
 HalfTile=24;
 Walkable=[TobsStandard..TobsSand];

type
 TOnCellType=procedure(Sender:TObject; x,y:integer; var Obstable:TObstacle) of object;

 TADKWalkableMap=class(TADKMap,IMap)
  RefCount:integer;
  fOnCellType:TOnCellType;
  procedure FixPos(var x,y:integer);
 // IUnknown
  function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
  function _AddRef: Integer; stdcall;
  function _Release: Integer; stdcall;
 // IMap (pour ADKPathFinder)
 {function Width :integer;}
 {function Height:integer;}
  function CanWalk(const Pos:TPoint):boolean;
 end;

 TWalker=class;

 TWalkerStart=procedure(Walker:TWalker; const Target:TPoint; How:TAction; var Cancel:boolean);
 TWalkerMove=procedure(Walker:TWalker; const Leave,Enter:TPoint);
 TWalkerStop=procedure(Walker:TWalker; const Target:TPoint);
 TRotateEvent=procedure(Walker:TWalker; Dir:TDirection);

 TWalker=class(TADKObject)       // informations sur un sprite donn