Große Probleme mit einem Kleinen Spiel!

[Die Muhkuh]

Hi,

ich mach ein Kleines Spiel: jede Person hat einen Spieler (insegesamt kann man zu zweit spielen)und jeder Person hat ne kleine Waffe mit der sie eine Kugel abfeuern kann. Alles sind selbgezeichnete Männchen und kugeln!

Das 1. Prob:

Wie schaffe ich es das wenn ich ne Kugel schieß und den anderen treefe das da ein MessageDialog (showmessage) kommt?

Das 2. Prob:

wenn das Männchen am linken rechten. oberen, oder unteren Bildschirmrand gelangt soll es auf der gegenüberliegenden Seite wieder rauskommen! nur wie???



Spider

[Die Muhkuh]

Problem 2 gelöst!:

Delphi-Quellcode:

If Spieler1.Left < 0 then
    Spieler1.Left := Form1.ClientWidth - Spieler1.Width
  else if Spieler1.Top < 0 then
    Spieler1.Top := Form1.ClientHeight - Spieler1.Height
  else if Spieler1.Left > Form1.ClientWidth - Spieler1.Width then
    Spieler1.Left := 0
  else if Spieler1.Top > Form1.ClientHeight - Spieler1.Height then
    Spieler1.Top := 0;

Spider

[axelf98]

Delphi-Quellcode:

function Istgetroffen(GeschossX,GeschossY:integer;SpielerX,SpielerY:integer): boolean;
var X : real;
begin
X :=  SQRT(SQR(GeschossX-SpielerX)+SQR(GeschossY-SpielerY)); // Abstandsformel
if X < 5 then result := true  ELSE result := false;
// wenn der Abstand zwischen Geschoss und Spieler kleiner als 5 ist, dann knallts
end;

Aufruf wäre dann:
if Istgetroffen(Geschoss1.left,Spieler2.Left,Geschoss1.top,spieler2.top) then showmessage('Spieler 2 getroffen')

[Die Muhkuh]

ne das geht auch net! Schade!

ich werd mal das Spiel anhängen sobald daniel mal meine Attachmentbox wieder freigeschaltet hat!

Spiddi

[axelf98]

Man muss das andauernd abfragen, bis das Geschoss an eine Wand kommt... Wenn mans nur einmal macht, dann kanns net klappen!

[Die Muhkuh]

So hier ist das Spiel!

[Die Muhkuh]

Zitat von axelf98:

Man muss das andauernd abfragen, bis das Geschoss an eine Wand kommt... Wenn mans nur einmal macht, dann kanns net klappen!

Meinst mit Timer?

[Die Muhkuh]

Jetzt geht's aber nur wenn männchen 2 am rand steht wenn in der mitte steht kommt keine Meldung!

[axelf98]

Zitat von Spider:

Jetzt geht's aber nur wenn männchen 2 am rand steht wenn in der mitte steht kommt keine Meldung!

Das könnte daran liegen, dass das Geschoss vor dem letzten Feld vor der wand schon aufhört... liegt meistens daran das irgendeine positionsangabe nicht ganz richtig ist.. genau kann ichs jetzt auch nicht sagen, hast du schon mal versucht die 5 aus der Treffen-Funktion zu erhöhen?

[Die Muhkuh]

Zitat:

hast du schon mal versucht die 5 aus der Treffen-Funktion zu erhöhen?

Jep aber dann kommt dauernd der showmessage!