"Gorillas" programmieren

[Matze]

Hi!
Kann mir jemand einen Tipp geben, wie ich das DOS-Game "Gorillas" mit Delphi programmieren kann?
Ich nehme statt Bananen halt ein Shape. Ich verstehe nur nicht, wie ich den Winkel und die Stärke des Schusses einstellen kann und wie der andere Gorilla "merkt", wenn er getroffen worden ist (mit Pixelabfrage?).
Ich weiß, es ist ein bisschen viel verlangt, aber kann mir jemand helfen, den Code raus zu bekommen??

Gruß Matze

[Daniel B]

Hallo,

im Anhang ist mal der Basic-Quelltext, geh doch den einfach durch un vergleiche, bzw. kopiere, oder setze Teile einfach nach Delphi um.

Grüsse, Daniel

[Matze]

Hallo Daniel!
Danke, aber viel versteh ich von dem Quelltext nicht, das muss ich ganz ehrlich sagen. Könntest du vielleicht...
Gruß Matze

[Rotojoto]

Hey Leute!
Ich habe in etwa das gleiche Problem...
Bin jetzt endlich wieder auf das Game gestossen und da ich mit nem Kumpel als Abschlussprojekt irgendetwas, jedenfalls ein wenig anspruchsvolleres programmieren soll haben wir uns vorgenommen dieses Gorillas Spiel zu programmieren.
Allerdings stellen wir uns die gleichen Fragen wie Matze und der Source Code alleine hilft jetzt nicht so übermäßig weiter, also falls wer ne Antwort auf dieses Problem oder zumindestens einen Ansatz hat..., ne?


Gruß

[Cöster]

Ich kenne das Spiel nicht. Kannst du es mal eben kurz beschreiben? Vielleicht kann ich dann ja helfen.

[Khabarakh]

Zitat von Cöster:

Ich kenne das Spiel nicht.

Wikipedia kennt es .

@Rotojojo: Deine Frage ist etwas allgemein gestellt, zu allgemein .
Jedenfalls mal zu Matzes letzter Frage, sollte euch das etwas weiterhelfen: Jupp, ich würde pixelweise, für die Performance jedoch zusätzlich zuerst auf die Boundingbox testen.

[Real_Thunder]

Also, Gorillas, ist ein Spiel dasvon Microsoft's QBasic mitgeliefert wurde, weches widerum in eineigen DOS Paketen vorkam.

Es geht darum, das 2 Gorillas auf hochhausdächern stehen, und sich mit Bananen Bewerfen... wobei immer ein STück von den Hochhäusern, expldiert wenn es von der banane Getroffen wird.

Ziel ist es den anderen Gorilla zu treffen...

Dies erreicht man indem man den Wurfwinkel und die Wurfstärke eintippt....


So, und nun mal wie man sowas realisieren kann....


also die banen fliegen immer in einer Art Kreis...
Stärke = Radius
Wikel = Startwinkel...

Also als Erstes die Kreisfunktionen lernen...
dann eine formel entwickeln, wobei der radius eine varible ist.

Die Position des kreises Passt du je nach winkel an....

davon nimmst du dann die hälfte weg, und sulst das ganze rückwärts ab, wobei du aber den x wert deiner "Banae" ebenso erhöhen mußt


für die Hochhaustreffer, Bzw den anderen affen.. merkt du dir jediglich die Positionen der kanten, und vergleichst sie bei jeder Veränderung der Banenposition.. sobald die identisch sind, Booom..... das war es mal in Grossen zügen...


P.S. Das war noch ne zeit... QBasic............... *Träum*

[3_of_8]

...wobei man auch eine Steuerung mit Pfeiltasten für den Winkel und Leertaste gedrückt halten für Intensität programmieren können.

[Cöster]

Hab das Spiel gerade mal online gespielt. Ist ganz lustig. Aber ich würde die Bananen nicht in einer Kreisbahn fliegen lassen, wie es Real_Thunder geschrieben hat.

Durch Winkel+Winkelfunktionen und Gesamtgeschwindigkeit+Pytagoras berechnest du die anfängliche X- und Y-Geschwindigkeit.

Die einzige physikalilsche Formel, die man braucht ist s=v*t - a*t²/2

in y-Richtung ist a die Erdbeschleunigung, also 9,81
in x-Richtung ist a die Windstärke.
s ist jeweils die zurückgelegte Strecke in die entsprechende Richtung (x oder y), v ist die Startgeschwindigkeit in x- bzw. y-Richtung und t ist die vergangene Zeit seit Abwurf der Banane.

So lässt sich also zu jeder Zeit die Position der Banane berechnen.

Für die Kollisionsüberprüfung benutzt du die Eigenschaften Left, Top, Width und Height von Gorilla und Banane:

Delphi-Quellcode:

function TForm1.IsCollision(Gorilla, Banane: TImage): Boolean;
begin
  result := (Banane.Left < Gorilla.Left + Gorilla.Width) and
    (Banane.Left + Banane.Width > Gorilla.Left) and
    (Banane.Top < Gorilla.Top + Gorilla.Height) and
    (Banane.Top + Banane.Height > Gorilla.Top);
end;

[cruso]

Ich weiß nicht ob Matze nach über 3 Jahren noch interesse an einer Antwort hat.