Subversion Repositories AndroidProjects

unit app_entity_powerup;

interface

uses sux_constant, sux_object, app_constant, app_entity_main,
     app_game_player, resource_texture;

type
  TPowerUp=record
    typus: SXState;
  end;
  SAEPowerUp=class(SAEntity)
    powerup: TPowerUp;

    procedure onRender; override;

    function getCrystalCount: SXInt;
    function getBombCount: SXInt;

    procedure appears;
    procedure setPowerUp(const powerup: SXState);
    procedure destroyAllCrystals;
    procedure collect;

    procedure onTimer; override;

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

implementation

uses main, app_entity_crystal, gl_main, OpenGL, app_particle_powerupappears;


// --- SAEPowerUp


procedure SAEPowerUp.onRender;
var size: SXFloat;
begin
  inherited;

  size := sx.math._sin(app.game.getGameTimer * 400) * 0.05;

  glPushMatrix;
  glTranslatef(settings.pos.x, settings.pos.y, 0);
  glScalef(1 + size, (1 - size), 1);

  gl.gl2D.renderPatternQuad(app.scene.board.settings.icon, SX_GL_BLEND_AVERAGE,
    sx.convert.ColorRGBOf(1,1,1), 0.5, 0, 0, 1, 1, 0, 0, 23);

  glPopMatrix;
end;




function SAEPowerUp.getCrystalCount: SXInt;
var e, count: SXInt;
begin
  count := 0;
  for e := 0 to app.game.entities.getMax do
  if (app.game.getEntity(e).settings.typus = SX_ENTITY_CRYSTAL) then inc(count);
  result := count;
end;


function SAEPowerUp.getBombCount: SXInt;
var e, count: SXInt;
begin
  count := 0;
  for e := 0 to app.game.entities.getMax do
  if (app.game.getEntity(e).settings.typus = SX_ENTITY_POWERUP) then
  begin
    if (SAEPowerUp(app.game.getEntity(e)).powerup.typus = SX_EPOWERUP_TYPUS_BOMB) then inc(count);
  end;

  result := count;
end;




procedure SAEPowerUp.appears;
var appear: SAPPowerUpAppears;
begin
  appear := SAPPowerUpAppears(app.game.createParticleSystem(SX_PARTICLESYSTEM_POWERUPAPPEARS));
  appear.createBubbles(getPos);
end;


procedure SAEPowerUp.setPowerUp(const powerup: SXState);
begin
  self.powerup.typus := powerup;
  case powerup of
    SX_EPOWERUP_TYPUS_PIXEL           : settings.texture := app.scene.board.settings.icon_pixel;
    SX_EPOWERUP_TYPUS_FLOWERS         : settings.texture := app.scene.board.settings.icon_flowers;
    SX_EPOWERUP_TYPUS_SLOWMOTION      : settings.texture := app.scene.board.settings.icon_slowmotion;
    SX_EPOWERUP_TYPUS_CREATECRYSTALS  : settings.texture := app.scene.board.settings.icon_createcrystals;
    SX_EPOWERUP_TYPUS_CONCAVE         : settings.texture := app.scene.board.settings.icon_concave;
    SX_EPOWERUP_TYPUS_BOMB            : settings.texture := app.scene.board.settings.icon_bomb;
  end;
end;


procedure SAEPowerUp.destroyAllCrystals;
var e: SXInt;
    entity: SAEntity;
begin
  for e := app.game.entities.getMax downto 0 do
  if (e <= app.game.entities.getMax) then
  begin
    entity := SAEntity(app.game.entities.getObject(e));
    if (entity is SAECrystal) then
    begin
      SAECrystal(entity).generateShards;
      app.game.deleteEntity(entity);
    end;
  end;
end;


procedure SAEPowerUp.collect;
begin
  case powerup.typus of
    SX_EPOWERUP_TYPUS_PIXEL           : app.game.settings.effects.pixel := 5;
    SX_EPOWERUP_TYPUS_FLOWERS         : app.game.settings.effects.flowers := 7;
    SX_EPOWERUP_TYPUS_SLOWMOTION      : app.game.settings.effects.slowmotion := 4;
    SX_EPOWERUP_TYPUS_CREATECRYSTALS  : app.game.settings.effects.createcrystals := 1;
    SX_EPOWERUP_TYPUS_CONCAVE         : app.game.settings.effects.concave := 10;
    SX_EPOWERUP_TYPUS_BOMB            : destroyAllCrystals;
  end;
  app.sound.playSample2D('sounds\pickup');
end;




procedure SAEPowerUp.onTimer;
begin
end;




procedure SAEPowerUp.initialize;
begin
end;


constructor SAEPowerUp.Create(parent:TObject);
var randomvalue: SXInt;
    totalrandom: SXInt;
    powerup: SXState;
begin
  inherited Create(parent);

  setupAppearance(nil, 20);
  setBlending(SX_GL_BLEND_ADDITIVE, 1.0);

  with app.ini.settings.gameplay do
  begin
    totalrandom := poweruprandomcrystal + poweruprandomconcave + poweruprandompixel
      + poweruprandomflowers + poweruprandomslowmotion + poweruprandombomb;
    randomvalue := sx.math.random.getRandomInt(1, totalrandom);

    // Select powerup by given chances.
    powerup := SX_NONE;
    if (randomvalue <= poweruprandomcrystal) then powerup := SX_EPOWERUP_TYPUS_CREATECRYSTALS
      else if (randomvalue <= poweruprandomcrystal + poweruprandomconcave) then powerup := SX_EPOWERUP_TYPUS_CONCAVE
        else if (randomvalue <= poweruprandomcrystal + poweruprandomconcave + poweruprandompixel) then powerup := SX_EPOWERUP_TYPUS_PIXEL
          else if (randomvalue <= poweruprandomcrystal + poweruprandomconcave + poweruprandompixel + poweruprandomflowers) then powerup := SX_EPOWERUP_TYPUS_FLOWERS
            else if (randomvalue <= poweruprandomcrystal + poweruprandomconcave + poweruprandompixel + poweruprandomflowers + poweruprandomslowmotion) then powerup := SX_EPOWERUP_TYPUS_SLOWMOTION
              else powerup := SX_EPOWERUP_TYPUS_BOMB;

    // Select bomb if enough crystals are present.
    if (getCrystalCount >= app.ini.settings.gameplay.spawnpowerupbomboncrystals) then
    if (getBombCount = 0) then powerup := SX_EPOWERUP_TYPUS_BOMB;

    if (powerup = SX_NONE) then powerup := SX_EPOWERUP_TYPUS_CREATECRYSTALS;
    setPowerUp(powerup);
  end;

  app.sound.playSample2D('sounds\powerup_appears');
  setFlipVertical(true);

  settings.pos.x := sx.math.random.getRandomFloat(-100, 100);
  settings.pos.y := sx.math.random.getRandomFloat(-100, 100);
  appears;
end;


destructor SAEPowerUp.Destroy;
begin
  inherited;
end;


end.