mapactionunit.pas 461 B

123456789101112131415161718192021222324252627
  1. unit mapactionunit;
  2. {$mode objfpc}{$H+}
  3. interface
  4. uses
  5. Classes, SysUtils, mapchangeunit, tileselectionunit, fpjson;
  6. type
  7. TMapAction = class
  8. private
  9. function GetMapChange: TMapChange; abstract;
  10. public
  11. Brush: TTileSelection;
  12. Map: TJSONObject;
  13. procedure Start(X, Y); virtual; abstract;
  14. procedure Continue(X, Y); virtual; abstract;
  15. property MapChange: TMapChange read GetMapChange;
  16. end;
  17. implementation
  18. end.