WebSVN – spacemission – Diff – /GamMain.pas

 // [OK SVN 19]  Pause wird nicht in Caption geschrieben
 // [OK SVN 19]  Wenn man pause gemacht hat und fenster wechselt und wieder zurückwechselt, ist pause aufgehoben.
 // [OK SVN 21]  DPlayX.dll auskommentieren wegen Windows Meldung
 // [OK SVN 22]  Vollbild entf.
 // [OK SVN 22]  Credits: unDelphiX (micrel.cz/Dx)
-//              Quellcode optimieren und klassen-namen überdenken
+// [OK SVN 24]  Quellcode optimieren
 //              EV CodeSign
 //              Spielstände usw. "Spiele" Ordner speichern, Config in Registry sichern, etc.
 //              Neue Einheiten => Medikit, Ufo das im Kreis fliegt und nicht weggeht
 //              Bei Pause => Entweder alles grau werden lassen
 //              Alle Notizen durchschauen
   MainForm: TMainForm;
 implementation
 uses
-  GamSplash, GamSpeicherung, ComInfo, GamCheat, Global;
+  GamSplash, GamSpeicherung, ComInfo, GamCheat, Global, MMSystem;
 const
-  conleicht = 650 div 60; // 10
+  conleicht =  650 div 60; // 10
   conmittel = 1000 div 60; // 16
   conschwer = 1350 div 60; // 22
   conmaster = 2000 div 60; // 33
   lives = 6;
   DEFAULT_ANIMSPEED = 15/1000;
-resourcestring
-  FileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
+  ADDITIONAL_ENEMIES_PER_LEVEL = 75;
 {$R *.DFM}
 var
   Crash2, EnemyCounter: integer;
     isButton4, isButton5, isButton6, isButton7, isButton8, isButton9, isButton10, isButton11,
     isButton12, isButton13, isButton14, isButton15, isButton16, isButton17, isButton18,
     isButton19, isButton20, isButton21, isButton22, isButton23, isButton24, isButton25,
     isButton26, isButton27, isButton28, isButton29, isButton30, isButton31, isButton32];
+// https://www.delphipraxis.net/post43515.html
+function GetHTML(AUrl: string): string;
+var
+  databuffer : array[0..4095] of char;
+  ResStr : string;
+  hSession, hfile: hInternet;
+  dwindex,dwcodelen,dwread,dwNumber: cardinal;
+  dwcode : array[1..20] of char;
+  res    : pchar;
+  Str    : pchar;
+begin
+  ResStr:='';
+  if (system.pos('http://',lowercase(AUrl))=0) and
+     (system.pos('https://',lowercase(AUrl))=0) then
+     AUrl:='http://'+AUrl;
+  // Hinzugefügt
+  application.ProcessMessages;
+  hSession:=InternetOpen('InetURL:/1.0',
+                         INTERNET_OPEN_TYPE_PRECONFIG,
+                         nil,
+                         nil,
+);
+  if assigned(hsession) then
+  begin
+    // Hinzugefügt
+    application.ProcessMessages;
+    hfile:=InternetOpenUrl(
+           hsession,
+           pchar(AUrl),
+           nil,
+,
+           INTERNET_FLAG_RELOAD,
+);
+    dwIndex  := 0;
+    dwCodeLen := 10;
+    // Hinzugefügt
+    application.ProcessMessages;
+    HttpQueryInfo(hfile,
+                  HTTP_QUERY_STATUS_CODE,
+                  @dwcode,
+                  dwcodeLen,
+                  dwIndex);
+    res := pchar(@dwcode);
+    dwNumber := sizeof(databuffer)-1;
+    if (res ='200') or (res ='302') then
+    begin
+      while (InternetReadfile(hfile,
+                              @databuffer,
+                              dwNumber,
+                              DwRead)) do
+      begin
+        // Hinzugefügt
+        application.ProcessMessages;
+        if dwRead =0 then
+          break;
+        databuffer[dwread]:=#0;
+        Str := pchar(@databuffer);
+        resStr := resStr + Str;
+      end;
+    end
+    else
+      ResStr := 'Status:'+res;
+    if assigned(hfile) then
+      InternetCloseHandle(hfile);
+  end;
+  // Hinzugefügt
+  application.ProcessMessages;
+  InternetCloseHandle(hsession);
+  Result := resStr;
+end;
+{ TBackground }
+procedure TBackground.DoMove(MoveCount: Integer);
+var
+  ran: integer;
+begin
+  inherited DoMove(MoveCount);
+  X := X - MoveCount*(60/1000)*FSpeed;
+  randomize;
+  ran := Random(1500);
+  if ran = 150 then
+  begin
+    with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
+    begin
+      SetMapSize(1, 1);
+      Image := mainform.ImageList.Items.Find('Background-Planet1');
+      Width := Image.Width;
+      Height := Image.Height;
+      Y := random(mainform.dxdraw.height);
+      X := mainform.dxdraw.width;
+      ran := Random(2);
+      if ran = 0 then
+      begin
+        Z := -20;
+        FSpeed := 1.8;
+      end
+      else if ran = 1 then
+      begin
+        Z := -40;
+        FSpeed := 0.8;
+      end
+      else if ran = 2 then
+      begin
+        Z := -60;
+        FSpeed := 0.3;
+      end;
+    end;
+  end
+  else if ran = 500 then
+  begin
+    with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
+    begin
+      SetMapSize(1, 1);
+      ran := Random(4);
+      if ran = 0 then
+        Image := mainform.ImageList.Items.Find('Background-Red')
+      else if ran = 1 then
+        Image := mainform.ImageList.Items.Find('Background-Blue')
+      else if ran = 2 then
+        Image := mainform.ImageList.Items.Find('Background-Yellow')
+      else if ran = 3 then
-// TODO: Code komplett überarbeiten. Bessere Ableitungen machen
+        Image := mainform.ImageList.Items.Find('Hintergrund-Rot');
+      Width := Image.Width;
+      Height := Image.Height;
+      Y := random(mainform.dxdraw.height);
+      X := mainform.dxdraw.width;
+      { ran := Random(2);
+      if ran = 0 then
+      begin
+        Z := -20;
+        FSpeed := 1.8;
+      end
+      else if ran = 1 then
+      begin
+        Z := -40;
+        FSpeed := 0.8;
+      end
+      else if ran = 2 then
+      begin }
+        Z := -60;
+        FSpeed := 0.3;
+      { end; }
+    end;
+  end;
+end;
+{ TBackgroundSpecial }
+procedure TBackgroundSpecial.DoMove(MoveCount: Integer);
+begin
+  inherited DoMove(MoveCount);
+  X := X - MoveCount*(60/1000)*FSpeed;
+  if X<-Width then Dead;
+end;
+{ TExplosion }
+constructor TExplosion.Create(AParent: TSprite);
+begin
+  inherited Create(AParent);
+  mainform.PlaySound('Explosion', false);
+  Image := MainForm.ImageList.Items.Find('Explosion');
+  Width := Image.Width;
+  Height := Image.Height;
+  AnimCount := Image.PatternCount;
+  AnimLooped := True;
+  AnimSpeed := DEFAULT_ANIMSPEED;
+  AnimPos := Random(AnimCount);
+end;
+procedure TExplosion.DoMove(MoveCount: Integer);
+begin
+  inherited DoMove(MoveCount);
+  inc(FCounter, MoveCount);
+  if FCounter > 2999 then dead;
+end;
+{ TPlayerSprite }
 constructor TPlayerSprite.Create(AParent: TSprite);
 begin
   inherited Create(AParent);
   Image := MainForm.ImageList.Items.Find('Machine');
 procedure TPlayerSprite.FlyAway;
 begin
   FState := pmFlyaway;
 end;
-procedure TMainForm.DXInit;
-begin
-  try
-    Imagelist.Items.LoadFromFile(FDirectory+'DirectX\Graphic.dxg');
-    ImageList.Items.MakeColorTable;
-    DXDraw.ColorTable := ImageList.Items.ColorTable;
-    DXDraw.DefColorTable := ImageList.Items.ColorTable;
-    DXDraw.UpdatePalette;
-    DXDraw.Finalize;
+{ TPlayerTamaSprite }
-    DXDraw.Options := DXDraw.Options - [doFullScreen];
-    DXDraw.autosize := true;
-    DXDraw.Initialize;
-  except
-    //Imagelist.Items.clear;
-    //application.terminate;
-  end;
-end;
 constructor TPlayerTamaSprite.Create(AParent: TSprite; APlayerSprite: TPlayerSprite);
 begin
   inherited Create(AParent);
   FPlayerSprite := APlayerSprite;
   X := X+(800/1000)*MoveCount;
   if X>=mainform.dxdraw.surfacewidth then Dead;
   Collision;
 end;
-procedure TBackground.DoMove(MoveCount: Integer);
-var
-  ran: integer;
-begin
-  inherited DoMove(MoveCount);
-  X := X - MoveCount*(60/1000)*FSpeed;
-  randomize;
+{ TEnemy }
-  ran := Random(1500);
-  if ran = 150 then
-  begin
-    with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
-    begin
-      SetMapSize(1, 1);
-      Image := mainform.ImageList.Items.Find('Background-Planet1');
-      Width := Image.Width;
-      Height := Image.Height;
-      Y := random(mainform.dxdraw.height);
+constructor TEnemy.Create(AParent: TSprite; ALifes: integer);
-      X := mainform.dxdraw.width;
-      ran := Random(2);
-      if ran = 0 then
-      begin
-        Z := -20;
-        FSpeed := 1.8;
-      end
-      else if ran = 1 then
-      begin
-        Z := -40;
-        FSpeed := 0.8;
-      end
-      else if ran = 2 then
-      begin
+begin
-        Z := -60;
+  inherited Create(AParent);
-        FSpeed := 0.3;
+  FLife := ALifes;
-      end;
+  inc(EnemyCounter);
-    end;
+end;
-  end
-  else if ran = 500 then
-  begin
-    with TBackgroundSpecial.Create(mainform.SpriteEngine.Engine) do
-    begin
-      SetMapSize(1, 1);
-      ran := Random(4);
-      if ran = 0 then
-        Image := mainform.ImageList.Items.Find('Background-Red')
-      else if ran = 1 then
-        Image := mainform.ImageList.Items.Find('Background-Blue')
-      else if ran = 2 then
-        Image := mainform.ImageList.Items.Find('Background-Yellow')
-      else if ran = 3 then
-        Image := mainform.ImageList.Items.Find('Hintergrund-Rot');
-      Width := Image.Width;
-      Height := Image.Height;
-      Y := random(mainform.dxdraw.height);
-      X := mainform.dxdraw.width;
-      { ran := Random(2);
+destructor TEnemy.Destroy;
-      if ran = 0 then
-      begin
-        Z := -20;
-        FSpeed := 1.8;
-      end
-      else if ran = 1 then
-      begin
+begin
-        Z := -40;
-        FSpeed := 0.8;
+  inherited Destroy;
-      end
-      else if ran = 2 then
-      begin }
-        Z := -60;
-        FSpeed := 0.3;
+  dec(EnemyCounter);
-      { end; }
-    end;
-  end;
 end;
-procedure TBackgroundSpecial.DoMove(MoveCount: Integer);
+procedure TEnemy.Hit(AHitStrength: integer = 1);
 begin
-  inherited DoMove(MoveCount);
+  Dec(FLife, AHitStrength);
-  X := X - MoveCount*(60/1000)*FSpeed;
-  if X<-Width then Dead;
+  if FLife<=0 then
-end;
-constructor TExplosion.Create(AParent: TSprite);
-begin
+  begin
-  inherited Create(AParent);
+    Collisioned := False;
-  mainform.PlaySound('Explosion', false);
-  Image := MainForm.ImageList.Items.Find('Explosion');
-  Width := Image.Width;
+    HitEnemy(True);
-  Height := Image.Height;
+  end
-  AnimCount := Image.PatternCount;
-  AnimLooped := True;
+  else
-  AnimSpeed := DEFAULT_ANIMSPEED;
-  AnimPos := Random(AnimCount);
+    HitEnemy(False);
 end;
-procedure TExplosion.DoMove(MoveCount: Integer);
+procedure TEnemy.HitEnemy(ADead: Boolean);
 begin
-  inherited DoMove(MoveCount);
+  if ADead then
-  inc(FCounter, MoveCount);
+    MainForm.PlaySound('Explosion', False)
+  else
-  if FCounter > 2999 then dead;
+    MainForm.PlaySound('Hit', False);
 end;
+{ TEnemyTama }
 constructor TEnemyTama.Create(AParent: TSprite; AEnemySprite: TSprite);
 begin
   inherited Create(AParent);
   FEnemySprite := AEnemySprite;
   Image := MainForm.ImageList.Items.Find('Bounce2');
   inherited DoMove(MoveCount);
   X := X - MoveCount*(600/1000);
   if X<-Width then Dead;
 end;
+{ TEnemyMeteor }
-procedure TEnemy.Hit(AHitStrength: integer = 1);
+constructor TEnemyMeteor.Create(AParent: TSprite; ALifes: integer);
 begin
+  inherited Create(AParent, ALifes);
+  Image := MainForm.ImageList.Items.Find('Enemy-Meteor');
+  Width := Image.Width;
-  Dec(FLife, AHitStrength);
+  Height := Image.Height;
+  AnimCount := Image.PatternCount;
-  if FLife<=0 then
+  AnimLooped := True;
+  AnimSpeed := DEFAULT_ANIMSPEED;
+  PixelCheck := True;
+end;
+procedure TEnemyMeteor.HitEnemy(ADead: Boolean);
-  begin
+begin
-    Collisioned := False;
-    HitEnemy(True);
+  inherited HitEnemy(False);
-  end
-  else
-    HitEnemy(False);
+  if ADead then Collisioned := True;
 end;
-procedure TEnemy.HitEnemy(ADead: Boolean);
+procedure TEnemyMeteor.DoMove(MoveCount: Integer);
 begin
-  if ADead then
-    MainForm.PlaySound('Explosion', False)
+  X := X - MoveCount*(250/1000);
-  else
-    MainForm.PlaySound('Hit', False);
+  if X < -Width then Dead;
 end;
+{ TEnemyUFO }
 constructor TEnemyUFO.Create(AParent: TSprite; ALifes: integer);
 begin
   inherited Create(AParent, ALifes);
   Image := MainForm.ImageList.Items.Find('Enemy-disk');
   Width := Image.Width;
   AnimCount := Image.PatternCount;
   AnimLooped := True;
   AnimSpeed := DEFAULT_ANIMSPEED;
 end;
-constructor TEnemy.Create(AParent: TSprite; ALifes: integer);
-begin
-  inherited Create(AParent);
-  FLife := ALifes;
-  inc(EnemyCounter);
-end;
-destructor TEnemy.Destroy;
-begin
-  inherited Destroy;
-  dec(EnemyCounter);
-end;
 procedure TEnemyUFO.HitEnemy(ADead: Boolean);
 begin
   inherited HitEnemy(ADead);
   if ADead then
   begin
     Inc(MainForm.FScore, 100);
   end;
 end;
-procedure TEnemyUFO2.DoMove(MoveCount: Integer);
+procedure TEnemyUFO.DoMove(MoveCount: Integer);
 begin
   inherited DoMove(MoveCount);
   if FMode=0 then
   begin
     X := X - MoveCount*(300/1000);
     Y := Y + Cos256(FCounter div 15)*2;
     if X<-Width then Dead;
-    if FCounter-FOldTamaTime>=100 then
-    begin
-      Inc(FTamaCount);
-      with TEnemyTama.Create(Engine, Self) do
-      begin
-        X := Self.X;
-        Y := Self.Y+Self.Height div 2-Height div 2;
-        Z := 10;
-      end;
-      FOldTamaTime := FCounter;
-    end;
   end
   else if FMode=2 then
   begin
     X := X - MoveCount*(300/1000);
     if FCounter>200 then Dead;
   end;
   inc(FCounter, MoveCount);
 end;
+{ TEnemyUFO2 }
+constructor TEnemyUFO2.Create(AParent: TSprite; ALifes: integer);
+begin
+  inherited Create(AParent, ALifes);
+  Image := MainForm.ImageList.Items.Find('Enemy-disk2');
+  Width := Image.Width;
+  Height := Image.Height;
+  AnimCount := Image.PatternCount;
+  AnimLooped := True;
+  AnimSpeed := DEFAULT_ANIMSPEED;
+end;
 procedure TEnemyUFO2.HitEnemy(ADead: Boolean);
 begin
   inherited HitEnemy(ADead);
   if ADead then
   begin
     Inc(MainForm.FScore, 100);
   end;
 end;
-constructor TEnemyUFO2.Create(AParent: TSprite; ALifes: integer);
-begin
-  inherited Create(AParent, ALifes);
-  Image := MainForm.ImageList.Items.Find('Enemy-disk2');
-  Width := Image.Width;
-  Height := Image.Height;
-  AnimCount := Image.PatternCount;
-  AnimLooped := True;
-  AnimSpeed := DEFAULT_ANIMSPEED;
-end;
-procedure TEnemyUFO.DoMove(MoveCount: Integer);
+procedure TEnemyUFO2.DoMove(MoveCount: Integer);
 begin
   inherited DoMove(MoveCount);
   if FMode=0 then
   begin
     X := X - MoveCount*(300/1000);
     Y := Y + Cos256(FCounter div 15)*2;
     if X<-Width then Dead;
+    if FCounter-FOldTamaTime>=100 then
+    begin
+      Inc(FTamaCount);
+      with TEnemyTama.Create(Engine, Self) do
+      begin
+        X := Self.X;
+        Y := Self.Y+Self.Height div 2-Height div 2;
+        Z := 10;
+      end;
+      FOldTamaTime := FCounter;
+    end;
   end
   else if FMode=2 then
   begin
     X := X - MoveCount*(300/1000);
     if FCounter>200 then Dead;
   end;
   inc(FCounter, MoveCount);
 end;
+{ TEnemyAttacker }
 constructor TEnemyAttacker.Create(AParent: TSprite; ALifes: integer);
 begin
   inherited Create(AParent, ALifes);
   Image := MainForm.ImageList.Items.Find('Enemy-Attacker');
   Width := Image.Width;
     if FCounter>200 then Dead;
   end;
   inc(FCounter, MoveCount);
 end;
+{ TEnemyAttacker2 }
-constructor TEnemyBoss.Create(AParent: TSprite; ALifes: integer);
+constructor TEnemyAttacker2.Create(AParent: TSprite; ALifes: integer);
 begin
   inherited Create(AParent, ALifes);
-  Image := MainForm.ImageList.Items.Find('Enemy-boss');
+  Image := MainForm.ImageList.Items.Find('Enemy-Attacker2');
   Width := Image.Width;
   Height := Image.Height;
-  BossExists := true;
-  MainForm.MusicSwitchTrack(mtBoss);
   AnimCount := Image.PatternCount;
   AnimLooped := True;
   AnimSpeed := DEFAULT_ANIMSPEED;
   PixelCheck := True;
-  Collisioned := False;
-  MainForm.FBossLife := FLife;
-  waiter1 := 0;
-  waiter2 := 0;
 end;
-procedure TEnemyBoss.HitEnemy(ADead: Boolean);
+procedure TEnemyAttacker2.HitEnemy(ADead: Boolean);
 begin
   inherited HitEnemy(ADead);
   if ADead then
   begin
     FMode := 2;
     FCounter := 0;
-    Inc(MainForm.FScore, 100000);
+    Inc(MainForm.FScore, 5000);
+    Image := MainForm.ImageList.Items.Find('Explosion');
+    Width := Image.Width;
+    Height := Image.Height;
+    AnimCount := Image.PatternCount;
-    BossExists := false;
+    AnimLooped := False;
+    AnimSpeed := DEFAULT_ANIMSPEED;
-    dec(MainForm.FBossLife);
+    AnimPos := 0;
   end
   else
   begin
     Inc(MainForm.FScore, 100);
-    dec(MainForm.FBossLife);
   end;
 end;
-procedure TEnemyBoss.DoMove(MoveCount: Integer);
+procedure TEnemyAttacker2.DoMove(MoveCount: Integer);
 begin
   inherited DoMove(MoveCount);
   if FMode=0 then
   begin
-    if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/4)){450} then
+    if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/2)){450} then
       X := X - MoveCount*(300/1000)
     else
     begin
       Collisioned := True;
       FMode := 1;
       end;
     end;
   end
   else if FMode=2 then
   begin
-    inc(waiter1);
+    if FCounter>200 then Dead;
+  end;
-    if waiter1 = 3 then
+  inc(FCounter, MoveCount);
+end;
+{ TEnemyAttacker3 }
+constructor TEnemyAttacker3.Create(AParent: TSprite; ALifes: integer);
-    begin
+begin
+  inherited Create(AParent, ALifes);
+  Image := MainForm.ImageList.Items.Find('Enemy-Attacker3');
-      waiter1 := 0;
+  Width := Image.Width;
+  Height := Image.Height;
+  AnimCount := Image.PatternCount;
-      inc(waiter2);
+  AnimLooped := True;
+  AnimSpeed := DEFAULT_ANIMSPEED;
-      if waiter2 <= 20 then
+  PixelCheck := True;
+end;
+procedure TEnemyAttacker3.HitEnemy(ADead: Boolean);
-      begin
+begin
-        with TExplosion.Create(Engine) do
+  inherited HitEnemy(ADead);
+  if ADead then
-        begin
+  begin
-          Z := 10;
+    FMode := 1;
+    FCounter := 0;
+    Inc(MainForm.FScore, 5000);
+    Image := MainForm.ImageList.Items.Find('Explosion');
-          X := Self.X+Random(Self.Width)-16;
+    Width := Image.Width;
-          Y := Self.Y+Random(Self.Height)-16;
+    Height := Image.Height;
+    AnimCount := Image.PatternCount;
+    AnimLooped := False;
+    AnimSpeed := DEFAULT_ANIMSPEED;
-        end;
+    AnimPos := 0;
-      end
+  end
-      else
+  else
-      begin
+  begin
-        Inc(MainForm.FScore, 1000);
+    Inc(MainForm.FScore, 100);
+  end;
+end;
+procedure TEnemyAttacker3.DoMove(MoveCount: Integer);
+begin
+  inherited DoMove(MoveCount);
+  if FMode=0 then
+  begin
+    X := X - (250/1000)*MoveCount;
+    if X<-Width then Dead;
+    if FCounter-FOldTamaTime>=100 then
+    begin
+      Inc(FTamaCount);
+      with TEnemyTama.Create(Engine, Self) do
+      begin
+        X := Self.X;
+        Y := Self.Y+Self.Height div 2-Height div 2;
-        FMode := 3;
+        Z := 10;
       end;
+      FOldTamaTime := FCounter;
-    end;
+     end;
   end
-  else if FMode=3 then
+  else if FMode=1 then
   begin
-    if FCounter>4000 then Dead;
+    if FCounter>200 then Dead;
   end;
   inc(FCounter, MoveCount);
 end;
+{ TEnemyBoss }
-constructor TEnemyAttacker2.Create(AParent: TSprite; ALifes: integer);
+constructor TEnemyBoss.Create(AParent: TSprite; ALifes: integer);
 begin
   inherited Create(AParent, ALifes);
-  Image := MainForm.ImageList.Items.Find('Enemy-Attacker2');
+  Image := MainForm.ImageList.Items.Find('Enemy-boss');
   Width := Image.Width;
   Height := Image.Height;
+  BossExists := true;
+  MainForm.MusicSwitchTrack(mtBoss);
   AnimCount := Image.PatternCount;
   AnimLooped := True;
   AnimSpeed := DEFAULT_ANIMSPEED;
   PixelCheck := True;
+  Collisioned := False;
+  MainForm.FBossLife := FLife;
+  waiter1 := 0;
+  waiter2 := 0;
 end;
-procedure TEnemyAttacker2.HitEnemy(ADead: Boolean);
+procedure TEnemyBoss.HitEnemy(ADead: Boolean);
 begin
   inherited HitEnemy(ADead);
   if ADead then
   begin
     FMode := 2;
     FCounter := 0;
-    Inc(MainForm.FScore, 5000);
+    Inc(MainForm.FScore, 100000);
-    Image := MainForm.ImageList.Items.Find('Explosion');
-    Width := Image.Width;
-    Height := Image.Height;
-    AnimCount := Image.PatternCount;
-    AnimLooped := False;
+    BossExists := false;
-    AnimSpeed := DEFAULT_ANIMSPEED;
-    AnimPos := 0;
+    dec(MainForm.FBossLife);
   end
   else
   begin
     Inc(MainForm.FScore, 100);
+    dec(MainForm.FBossLife);
   end;
 end;
-procedure TEnemyAttacker2.DoMove(MoveCount: Integer);
+procedure TEnemyBoss.DoMove(MoveCount: Integer);
 begin
   inherited DoMove(MoveCount);
   if FMode=0 then
   begin
-    if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/2)){450} then
+    if X>((mainform.dxdraw.width/4) + (mainform.dxdraw.width/2) - (width/4)){450} then
       X := X - MoveCount*(300/1000)
     else
     begin
       Collisioned := True;
       FMode := 1;
       end;
     end;
   end
   else if FMode=2 then
   begin
-    if FCounter>200 then Dead;
+    inc(waiter1);
-  end;
-  inc(FCounter, MoveCount);
+    if waiter1 = 3 then
-end;
-procedure TEnemyAttacker3.HitEnemy(ADead: Boolean);
-begin
+    begin
+      waiter1 := 0;
-  inherited HitEnemy(ADead);
+      inc(waiter2);
-  if ADead then
+      if waiter2 <= 20 then
-  begin
+      begin
-    FMode := 1;
-    FCounter := 0;
-    Inc(MainForm.FScore, 5000);
-    Image := MainForm.ImageList.Items.Find('Explosion');
-    Width := Image.Width;
-    Height := Image.Height;
-    AnimCount := Image.PatternCount;
+        with TExplosion.Create(Engine) do
-    AnimLooped := False;
-    AnimSpeed := DEFAULT_ANIMSPEED;
-    AnimPos := 0;
-  end
-  else
-  begin
+        begin
-    Inc(MainForm.FScore, 100);
+          Z := 10;
-  end;
+          X := Self.X+Random(Self.Width)-16;
+          Y := Self.Y+Random(Self.Height)-16;
-end;
+        end;
-procedure TEnemyAttacker3.DoMove(MoveCount: Integer);
-begin
-  inherited DoMove(MoveCount);
-  if FMode=0 then
-  begin
+      end
-    X := X - (250/1000)*MoveCount;
-    if X<-Width then Dead;
-    if FCounter-FOldTamaTime>=100 then
-    begin
+      else
-      Inc(FTamaCount);
-      with TEnemyTama.Create(Engine, Self) do
       begin
-        X := Self.X;
+        Inc(MainForm.FScore, 1000);
-        Y := Self.Y+Self.Height div 2-Height div 2;
-        Z := 10;
+        FMode := 3;
       end;
-      FOldTamaTime := FCounter;
-     end;
+    end;
   end
-  else if FMode=1 then
+  else if FMode=3 then
   begin
-    if FCounter>200 then Dead;
+    if FCounter>4000 then Dead;
   end;
   inc(FCounter, MoveCount);
 end;
-constructor TEnemyAttacker3.Create(AParent: TSprite; ALifes: integer);
-begin
-  inherited Create(AParent, ALifes);
-  Image := MainForm.ImageList.Items.Find('Enemy-Attacker3');
-  Width := Image.Width;
-  Height := Image.Height;
-  AnimCount := Image.PatternCount;
-  AnimLooped := True;
+{ TMainForm }
-  AnimSpeed := DEFAULT_ANIMSPEED;
-  PixelCheck := True;
-end;
 procedure TMainForm.FormCreate(Sender: TObject);
+resourcestring
+  SFileError = 'Die Datei kann von SpaceMission nicht geöffnet werden!';
 var
   SavGame: TSaveData;
 begin
   LevelData := TLevelData.Create;
         mainform.FScore := SavGame.FScore;
         mainform.FLife := SavGame.FLife;
         mainform.FLevel := SavGame.FLevel;
         mainform.FGameMode := SavGame.FGameMode;
       except
-        showmessage(FileError);
+        showmessage(SFileError);
         GameStartClick(GameStart);
         exit;
       end;
     finally
       FreeAndNil(SavGame);
     if Assigned(DXTimer.OnActivate) then
       DXTimer.OnActivate(DXTimer);
   end;
 end;
-// https://www.delphipraxis.net/post43515.html
-Function GetHTML(AUrl: string): string;
-var
-  databuffer : array[0..4095] of char;
-  ResStr : string;
-  hSession, hfile: hInternet;
+procedure TMainForm.DXInit;
-  dwindex,dwcodelen,dwread,dwNumber: cardinal;
-  dwcode : array[1..20] of char;
-  res    : pchar;
-  Str    : pchar;
-begin
-  ResStr:='';
-  if (system.pos('http://',lowercase(AUrl))=0) and
-     (system.pos('https://',lowercase(AUrl))=0) then
-     AUrl:='http://'+AUrl;
-  // Hinzugefügt
-  application.ProcessMessages;
-  hSession:=InternetOpen('InetURL:/1.0',
-                         INTERNET_OPEN_TYPE_PRECONFIG,
-                         nil,
-                         nil,
-);
-  if assigned(hsession) then
-  begin
-    // Hinzugefügt
-    application.ProcessMessages;
-    hfile:=InternetOpenUrl(
-           hsession,
-           pchar(AUrl),
-           nil,
-,
-           INTERNET_FLAG_RELOAD,
-);
-    dwIndex  := 0;
-    dwCodeLen := 10;
-    // Hinzugefügt
-    application.ProcessMessages;
-    HttpQueryInfo(hfile,
-                  HTTP_QUERY_STATUS_CODE,
-                  @dwcode,
-                  dwcodeLen,
-                  dwIndex);
-    res := pchar(@dwcode);
-    dwNumber := sizeof(databuffer)-1;
-    if (res ='200') or (res ='302') then
-    begin
-      while (InternetReadfile(hfile,
-                              @databuffer,
-                              dwNumber,
-                              DwRead)) do
-      begin
+begin
+  try
+    Imagelist.Items.LoadFromFile(FDirectory+'DirectX\Graphic.dxg');
-        // Hinzugefügt
+    ImageList.Items.MakeColorTable;
-        application.ProcessMessages;
+    DXDraw.ColorTable := ImageList.Items.ColorTable;
-        if dwRead =0 then
+    DXDraw.DefColorTable := ImageList.Items.ColorTable;
-          break;
+    DXDraw.UpdatePalette;
-        databuffer[dwread]:=#0;
+    DXDraw.Finalize;
-        Str := pchar(@databuffer);
+    DXDraw.Options := DXDraw.Options - [doFullScreen];
-        resStr := resStr + Str;
+    DXDraw.autosize := true;
-      end;
+    DXDraw.Initialize;
-    end
+  except
-    else
-      ResStr := 'Status:'+res;
+    //Imagelist.Items.clear;
-    if assigned(hfile) then
-      InternetCloseHandle(hfile);
+    //application.terminate;
   end;
-  // Hinzugefügt
-  application.ProcessMessages;
-  InternetCloseHandle(hsession);
-  Result := resStr;
 end;
 procedure TMainForm.CheckUpdatesClick(Sender: TObject);
 var
   cont: string;
   WriteOptions;
 end;
 procedure TMainForm.SoundInit;
 begin
+  if (WaveOutGetNumDevs < 1) or not FileExists(FDirectory+'DirectX\Sound.dxw') then
+  begin
+    OptionSound.Checked := false;
+    OptionSound.Enabled := False;
+    exit;
+  end;
   if OptionSound.Checked then
   begin
     if not DXSound.Initialized then
     begin
       try
 procedure TMainForm.MusicInit;
 var
   i: integer;
 begin
+  if (WaveOutGetNumDevs < 1) or not FileExists(FDirectory+'DirectX\Music.dxm') then
+  begin
+    optionmusic.Checked := false;
+    optionmusic.Enabled := False;
+    exit;
+  end;
   try
     dxmusic.Midis.LoadFromFile(FDirectory+'DirectX\Music.dxm');
     for i := 0 to dxmusic.Midis.Count-1 do
     begin
       if not dxmusic.Midis.Items[i].IsInitialized then
 begin
   LevelData.Clear;
   FRestEnemies := 0;
 end;
-const
-  ADDITIONAL_ENEMIES_PER_LEVEL = 75;
 procedure TMainForm.NewLevel(lev: integer);
 resourcestring
   LNG_LEVEL_INVALID = 'Das Level Nr. %d ist ungültig!'+#13#10+'Das Programm wird beendet.';
 var
   act: integer;
   master.checked := true;
   FInterval := giMaster;
   writeoptions;
 end;
-procedure TEnemyMeteor.DoMove(MoveCount: Integer);
-begin
-  X := X - MoveCount*(250/1000);
-  if X < -Width then Dead;
-end;
-procedure TEnemyMeteor.HitEnemy(ADead: Boolean);
-begin
-  inherited HitEnemy(False);
-  if ADead then Collisioned := True;
-end;
 procedure TMainForm.PlayMusic(Name: TMusicTrack);
 begin
   if not OptionMusic.checked then exit;
+  if Ord(Name) > dxmusic.Midis.Count then exit;
   dxmusic.Midis.Items[Ord(Name)-1].Play;
 end;
 procedure TMainForm.StopMusic(Name: TMusicTrack);
 begin
   if Name = mtNone then exit;
+  if Ord(Name) > dxmusic.Midis.Count then exit;
   dxmusic.Midis.Items[Ord(Name)-1].Stop;
 end;
 procedure TMainForm.ResumeMusic(Name: TMusicTrack);
 begin
   if not OptionMusic.checked then exit;
+  if Ord(Name) > dxmusic.Midis.Count then exit;
   dxmusic.Midis.Items[Ord(Name)-1].Play; // TODO: how to pause/resume instead play/stop
 end;
 procedure TMainForm.PauseMusic(Name: TMusicTrack);
 begin
   if Name = mtNone then exit;
+  if Ord(Name) > dxmusic.Midis.Count then exit;
   dxmusic.Midis.Items[Ord(Name)-1].Stop; // TODO: how to pause/resume instead play/stop
 end;
-constructor TEnemyMeteor.Create(AParent: TSprite; ALifes: integer);
-begin
-  inherited Create(AParent, ALifes);
-  Image := MainForm.ImageList.Items.Find('Enemy-Meteor');
-  Width := Image.Width;
-  Height := Image.Height;
-  AnimCount := Image.PatternCount;
-  AnimLooped := True;
-  AnimSpeed := DEFAULT_ANIMSPEED;
-  PixelCheck := True;
-end;
 procedure TMainForm.SpielstandClick(Sender: TObject);
 begin
   speicherungform.showmodal;
 end;

Subversion Repositories spacemission

spacemission/GamMain.pas – Rev 23 → 24