AV bei Shooter-game

[dajuhsa]

Tach erstmal,

ich sitze also vor meinem Computer, versuche mich an einem Shooter und ahne nichts böses. :mrgreen: :coder:
Ich versuchs mal, gebe 20 Schüsse ab und ernte etwas, das einer AV ähnelt und um mir zu zeigen, was nicht stimmt, zeigt Delphi mir die "böse" Stelle im compillierten Code :pale: , naja ich bin kein Computer deswegen möchte ich euch fragen, was nicht stimmt.

Steuerung: Pfeiltasten und Leertaste

:dp:

[CalganX]

Ohne den entsprechenden Code, werden wir dir wahrscheinlich nicht helfen können. Wenn eine AV auftritt, wirst du irgendwo auf ein nicht mehr existierendes Objekt zugreifen oder dergleichen.

Chris

[edit]Sorry, hab übersehen, dass auch Code dabei ist. Mfg, CalganX[/edit]

[dajuhsa]

der code liegt bei...

[Cyberaxx]

---------------------------
shogame
---------------------------
Cannot open file "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\flyer.bmp". Das System kann die angegebene Datei nicht finden.
---------------------------
OK
---------------------------

Vllt. sollte man auch alles mitliefern wenn man die exe starten soll ;)
Habe da so nicht viel Ahnung aber sollten nicht vllt die Images oder sonstiges was das Game laden sollte in Game Ordner liegen?

Die AV kam mir eindeutig zu heufig.

[Edit]

Delphi-Quellcode:

      0: Loadfromfile('.\flyer.bmp');
      1: Loadfromfile('.\flyer Kopie.bmp');

Pfadangaben stimmen nicht so richtig. Die exe und der Source sind auf meinem Desktop.

[dajuhsa]

:oops: ich hab noch mal editiert jetzt müsste alles gehen, es ist mir auch schon aufgefallen :oops:
die bilder sind jetzt dabei...

[Cyberaxx]

Nicht so ganz, die AV kommt immernoch, er sucht immernoch die Images im falschen Ordner.

---------------------------
shogame
---------------------------
Cannot open file "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\flyer.bmp". Das System kann die angegebene Datei nicht finden.
---------------------------
OK
---------------------------

Delphi-Quellcode:

0: Loadfromfile('.\flyer.bmp');
1: Loadfromfile('.\flyer Kopie.bmp');
ersetzen :)
0: Loadfromfile('flyer.bmp');
1: Loadfromfile('flyer Kopie.bmp');

[Edit] Achja ich bin nicht als Admin angemeldet. :D

[CalganX]

Grundsätzlich empfiehlt es sich bei sowas, den gesamten Pfad anzugeben:

Delphi-Quellcode:

LoadFromFile( IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'flyer.bmp' );

Wenn man es richtig schön machen will, lagert man den Pfad in eine Funktion aus:

Delphi-Quellcode:

LoadFromFile( ImagePath('flyer.bmp') );

{ ... }

function ImagePath(AFileName: string);
begin
  Result := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + AFileName;
end;

Chris

[turboPASCAL]

Delphi-Quellcode:

procedure TForm2.Timer2Timer(Sender: TObject);
begin
  with Image2.Picture do
    case feuer of
      0: Loadfromfile('.\flyer.bmp');
      1: Loadfromfile('.\flyer Kopie.bmp');
    end;
  case feuer of
    0: inc(feuer);
    1: dec(feuer);
  end;
end;

Tschuldigung aber so etwas Programiermüll. Alle X Millisec auf der Festplatte rumkratzen... :?
Lade es dir in eine Bitmap und gut ist. Meinetwegen auch in ein Image dann kanst du es einfach
mit Top/Left verschieben.

Der Fewhler kommt beim Timer2:

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
  with Image2 do begin
    if GetAsyncKeyState(VK_left)<>0 then Left := Left-2;
    if GetAsyncKeyState(VK_right)<>0 then Left := Left+2;
    if GetAsyncKeyState(VK_Up)<>0 then Top := Top-2;
    if GetAsyncKeyState(VK_Down)<>0 then Top := Top+2;
  end;

  for i := low(Schuss) to high(Schuss) do begin
    if Schuss[i].Y > 0 then Schuss[i].Y := Schuss[i].Y-1;   // sollte so aussehen
  //^^^^^^^^^^^^^^^^^^^^^^^^

    if Schuss[i].Y<20 then begin 
      Move(Schuss[1], Schuss[0], Length(Schuss)); // und hier das zweite Problem
      SetLength(Schuss, Length(Schuss)-1);        //   das solltest du dir nochmal 
    end;                                          //   genau durchdenken.

    Canvas.Ellipse(Schuss[i].X-5, Schuss[i].Y-5, Schuss[i].X+5, Schuss[i].Y+5);
  end;
end;

[dajuhsa]

okay, ich hab das mit den bildern jetzt auskommentiert und werde das mit der imagelist machen wenn das andere klappt.

Zitat:

Delphi-Quellcode:

...
for i := low(Schuss) to high(Schuss) do begin 
  if Schuss[i].Y > 0 then Schuss[i].Y := Schuss[i].Y-1;   // sollte so aussehen 
  //^^^^^^^^^^^^^^^^^^^^^^^^ 
...

okay, danke hab ich nicht dran gedacht.

Zitat:

Delphi-Quellcode:

...
if Schuss[i].Y<20 then begin 
      Move(Schuss[1], Schuss[0], Length(Schuss)); // und hier das zweite Problem 
      SetLength(Schuss, Length(Schuss)-1);        //   das solltest du dir nochmal 
    end;                                          //   genau durchdenken. 

...

dass ich es mir durchdenken soll war mir klar, deswegen frag ich jetzt ja auch nach, weil das durchdenken nix gebracht hat...
hat also irgendjemand ne idee wie ich das hinbiegen soll? :spin2:

[dajuhsa]

ähäm... :mrgreen: nur zur info, will ja niemanden belästigen, die frage ist noch nicht beantwortet... :stupid:

[bitsetter]

Hi,

ein Paar Sachen habe ich noch gefunden:

Delphi-Quellcode:

procedure TForm2.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
  with Image2 do begin
    if GetAsyncKeyState(VK_left)<>0 then Left := Left-2;
    if GetAsyncKeyState(VK_right)<>0 then Left := Left+2;
    if GetAsyncKeyState(VK_Up)<>0 then Top := Top-2;
    if GetAsyncKeyState(VK_Down)<>0 then Top := Top+2;
  end;
  for i := high(Schuss) downto low(Schuss) do begin
  //for i := low(Schuss) to high(Schuss) do begin
    Schuss[i].Y := Schuss[i].Y-1;
    if Schuss[i].Y<20 then begin
      if Length(Schuss)> 1 then
        Move(Schuss[1], Schuss[0], Length(Schuss)* SizeOf(TPoint)-SizeOf(TPoint));
      //Move(Schuss[1], Schuss[0], Length(Schuss));
      SetLength(Schuss, Length(Schuss)-1);
    end;
    if i<= high(Schuss) then
      Canvas.Ellipse(Schuss[i].X-5, Schuss[i].Y-5, Schuss[i].X+5, Schuss[i].Y+5);
  end;
end;

Edit: Oder mit else:

Delphi-Quellcode:

    end
    else
    //if i<= high(Schuss) then
      Canvas.Ellipse(Schuss[i].X-5, Schuss[i].Y-5, Schuss[i].X+5, Schuss[i].Y+5);

[dajuhsa]

ja danke probier ich mal aus!

aber ich verstehe nicht:

Zitat:

Move(Schuss[1], Schuss[0], Length(Schuss)* SizeOf(TPoint)-SizeOf(TPoint));

ist der letzte Parameter ne zahl von bytes oder von Variablen?

[Namenloser]

hi,

anscheinend die Anzahl von Bytes :wink:. Achja, und soweit ich weiß, muss man bei move darauf achten, dass es sich um ein packed array handelt, weil das Array vom Speichermanager sonst unter umständen zerstückelt in den Arbeitsspeicher geschoben wird. Move funktioniert aber nur, wenn die Daten "in einem Guss" da liegen.