123456789101112131415161718192021222324252627 |
- unit mapactionunit;
- {$mode objfpc}{$H+}
- interface
- uses
- Classes, SysUtils, mapchangeunit, tileselectionunit, fpjson;
- type
- TMapAction = class
- private
- function GetMapChange: TMapChange; abstract;
- public
- Brush: TTileSelection;
- Map: TJSONObject;
- procedure Start(X, Y); virtual; abstract;
- procedure Continue(X, Y); virtual; abstract;
- property MapChange: TMapChange read GetMapChange;
- end;
- implementation
- end.
|