Subversion Repositories AndroidProjects

unit app_entity_warp;

interface

uses sux_constant, sux_object, app_constant, app_entity_main,
     app_game_player;

type
  TWarp=record
  end;
  SAEWarp=class(SAEntity)
    warp:TWarp;

    procedure setSize(size:SXFloat;density:SXFloat);

    procedure onTimer; override;

    procedure initialize; override;
    constructor Create(parent:TObject);
    destructor Destroy; override;
  end;

implementation

uses main;


// --- SAEWarp


procedure SAEWarp.setSize(size:SXFloat;density:SXFloat);
begin
  settings.size:=size;
  settings.density:=density;
end;




procedure SAEWarp.onTimer;
begin
  sx.timer.decTimer(settings.density,1);
  sx.timer.incTimer(settings.size,20);
  if (settings.density<=0) then delete;
end;




procedure SAEWarp.initialize;
begin
end;


constructor SAEWarp.Create(parent:TObject);
begin
  inherited Create(parent);

  setupAppearance(app.scene.board.settings.warp,20);
  setBlending(SX_GL_BLEND_ADDITIVE,0.4);
end;


destructor SAEWarp.Destroy;
begin
  inherited;
end;


end.