WebSVN – spacemission – Diff – /GamMain.pas

     procedure DoMove(MoveCount: Integer); override;
   public
     constructor Create(AParent: TSprite); override;
   end;
-  TPlayerOrEnemyState = (
+  TPlayerOrEnemyOrItemState = (
     pesUnknown,
     pesNormal,
     pesExploding, // only boss, as preparation of pesDead
     pesDead,
     pesDeadVanished,
     pesFlyaway, // only player at mission end
     pesEntering,
     pesHovering // only some kind of enemies
   );
-  TPlayerOrEnemy = class abstract (TImageSprite)
+  TPlayerOrEnemyOrItem = class abstract (TImageSprite)
   strict protected
-    State: TPlayerOrEnemyState;
+    State: TPlayerOrEnemyOrItemState;
   end;
-  TPlayerSprite = class(TPlayerOrEnemy)
+  TPlayerSprite = class(TPlayerOrEnemyOrItem)
   private
     FTamaCount: Integer; // accessed by TPlayerTamaSprite.Destroy
   strict private
     FCounter: Integer;
     FOldTamaTime: Integer;
     constructor Create(AParent: TSprite; APlayerSprite: TPlayerSprite); reintroduce;
     destructor Destroy; override;
   end;
   TEnemyClass = class of TEnemy;
-  TEnemy = class abstract (TPlayerOrEnemy)
+  TEnemy = class abstract (TPlayerOrEnemyOrItem)
   strict protected
     FCounter: Integer;
     FLife: integer;
     procedure HitEnemy(ADead: Boolean); virtual;
   public
     procedure HitEnemy(ADead: Boolean); override;
   public
     constructor Create(AParent: TSprite; ALifes: integer); override;
   end;
+  TItemClass = class of TItem;
+  TItem = class abstract (TPlayerOrEnemyOrItem)
+  strict protected
+    procedure DoMove(MoveCount: Integer); override;
+  public
+    procedure Collected; virtual;
+  end;
+  TItemMedikit = class(TItem)
+  public
+    procedure Collected; override;
+    constructor Create(AParent: TSprite); override;
+  end;
   TMainForm = class(TDXForm)
     MainMenu: TMainMenu;
     Spiel: TMenuItem;
     GameStart: TMenuItem;
     GamePause: TMenuItem;
 end;
 procedure TPlayerSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
 begin
   if mainform.FCheat then exit;
+  if (Sprite is TItem) then
+  begin
+    TItem(Sprite).Collected;
+  end
-  if (Sprite is TEnemy) or (Sprite is TEnemyTama) then
+  else if (Sprite is TEnemy) or (Sprite is TEnemyTama) then
   begin
     if not mainform.crash then
     begin
       dec(MainForm.FLife);
       mainform.Crash := true;
     end;
   end;
   inc(FCounter, MoveCount);
 end;
+{ TItem }
+procedure TItem.Collected;
+begin
+  MainForm.PlaySound(smsItemCollected, false);
+  Dead;
+end;
+procedure TItem.DoMove(MoveCount: Integer);
+begin
+  X := X - MoveCount*(250/1000);
+  if X < -Width then Dead;
+end;
+{ TItemMedikit }
+procedure TItemMedikit.Collected;
+begin
+  Inc(MainForm.FLife);
+  inherited;
+end;
+constructor TItemMedikit.Create(AParent: TSprite);
+begin
+  inherited Create(AParent);
+  State := pesNormal;
+  Image := MainForm.GetSpriteGraphic(smgItemMedikit);
+  Width := Image.Width;
+  Height := Image.Height;
+  AnimCount := Image.PatternCount;
+  AnimLooped := True;
+  AnimSpeed := DEFAULT_ANIMSPEED;
+  PixelCheck := True;
+end;
 { TMainForm }
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
   Randomize;
 var
   act: integer;
   Enemies: array[1..27] of TEnemyType;
   numEnemies: integer;
   e: TEnemyAdvent;
-  bossPosition: integer;
+  bossPosition, medikitPosition: integer;
   levFile: TLevelFile;
 begin
   ResetLevelData;
   if FGameMode = gmRandom then
   begin
       e.x := LevelData.EnemyAdventTable[bossPosition-1].x;
       e.y := (dxdraw.surfaceheight div 2) - (MainForm.GetSpriteGraphic(smgEnemyBoss).height div 2);
       e.lifes := lev*5;
       LevelData.EnemyAdventTable[bossPosition] := e;
     end;
+    medikitPosition := 0;
+    LevelData.EnemyAdventTable[medikitPosition].enemyType := etItemMedikit;
+    LevelData.EnemyAdventTable[medikitPosition].lifes := 0;
     {$ENDREGION}
   end
   else
   begin
     {$REGION 'Normal game'}
 end;
 procedure TMainForm.SceneMain;
 var
   Enemy: TSprite;
-  spriteClass: TEnemyClass;
+  spriteClass: TClass;
   tmpEnemyAnzeige: integer;
 begin
   case FInterval of
     giLeicht: SpriteEngine.Move(conleicht);
     giMittel: SpriteEngine.Move(conmittel);
         etEnemyAttacker3: spriteClass := TEnemyAttacker3;
         etEnemyMeteor:    spriteClass := TEnemyMeteor;
         etEnemyUFO:       spriteClass := TEnemyUFO;
         etEnemyUFO2:      spriteClass := TEnemyUFO2;
         etEnemyBoss:      spriteClass := TEnemyBoss;
+        etItemMedikit:    spriteClass := TItemMedikit;
       end;
       if spriteClass <> nil then
       begin
+        Enemy := nil;
+        if spriteClass.InheritsFrom(TEnemy) then
-        Enemy := spriteClass.Create(SpriteEngine.Engine, lifes);
+          Enemy := TEnemyClass(spriteClass).Create(SpriteEngine.Engine, lifes)
+        else if spriteClass.InheritsFrom(TItem) then
+          Enemy := TItemClass(spriteClass).Create(SpriteEngine.Engine)
+        else
+          Assert(False);
         Enemy.x := dxdraw.surfacewidth;
         //Enemy.y := y;
         if y <> 0 then
           Enemy.y := dxdraw.surfaceheight / (480{maximale Bandbreite im alten Format} / y)
         else

Subversion Repositories spacemission

spacemission/GamMain.pas – Rev 71 → 72