{****************************************************************
*****************************************************************
*****************************************************************
Jyväskylän Yliopisto
Tietotekniikan Laitos
GKOSYKSY99
Harjoitustyö: Macho Myyrä ja Taistelu Silakka VIII
--------------------------------------------------

        Staattinen.PAS
        ----------------

        Kanta_sprite.pas:sta peritty luokka, jossa lisänä
        pisteet ja vauhdinmuutos

        Mukaan:
        Kanta_Sprite.PAS //Itse luokka
        Kanta_Sprite.DCR //Kuvake
        staattinen.PAS //Itse tama
        staattinen.dcr //Kuvake talle itselle

        Version 0.1
        By:     Lasse Lilja ja Saku
        Date:   22.11.1999
        Comments:       Laitoin niita takas jota kantaluokasta poistin

******************************************************************
******************************************************************
******************************************************************}
unit Staattinen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Kanta_Sprite;

type
     TStaattinen = class(TKanta_Sprite)
  private
     FPisteet:Integer;
     FImpulssi:Integer;
  protected
  public
    constructor Create(AOwner:TComponent); override;
    destructor  Destroy; override;
    procedure SetPisteet(I:integer); virtual;
    procedure SetImpulssi(I:integer); virtual;
  published
    property Pisteet:  Integer read FPisteet  write SetPisteet  default 0;
    property Impulssi: Integer read FImpulssi write SetImpulssi default 0;

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Silli', [TStaattinen]);
end;

{ TStaattinen }
constructor TStaattinen.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FPisteet:=0;
  FImpulssi:=0;
end;

destructor TStaattinen.Destroy;
begin
  inherited;
end;

procedure TStaattinen.SetImpulssi(I: integer);
begin
  if ( abs(i) > 10 ) then FImpulssi :=1
  else FImpulssi := i;
end;

procedure TStaattinen.SetPisteet(I: integer);
begin
  FPisteet := i;
end;

end.