Delphi Snake

Glenraven · 26. April 2006, 14:32

Hey Leute,
habe da ein klitzekleines großes Problem und bitte mal ganz kleinlaut um Hilfe... ich bin in einer Informatik-Ag, in der man jedoch sogut wie kein Wort versteht und wenn man sich auch dann zu Hause alles selbt erarbeitet, so kommt man auf Dauer jedoch auch nicht wirklich hinterher und nachdem ich als ziemlicher Anfänger endlich Galgenraten hinter mich gebracht habe, so habe ich nun das gleiche Problem mit Snake.

Ich brauche eine relativ simple Ausführung davon. Bzw. es wäre sehr, sehr hilfreich. Nur leider brauche ich dazu nicht nur den Quelltext, sondern wäre furchtbar froh, wenn mir jemand alle dazugehörigen Dateien vllt. geben könnte. Ansonsten wäre ich aber natürlich auch für kleine Tipps sehr dankbar.
Bis denne.

Max123 · 26. April 2006, 15:29

Versuchs mal mit [google]Delphi Snake[/google], da sollte sich shcon was finden lassen!
Ansonten bekommst du hier glaub ich nicht einen komplett fertigen Code her, Tipps geben und Fehler ausmertzen ist kein Problem.

chräbs · 3. Mai 2006, 13:10

Hallo zusammen
ich habe ein ähnliches Problem wie Glenraven, wenn nicht sogar dass gleiche. Ich bin in einem Informatikkurs und muss das Spiel Snake programmieren, habe jedoch keine Ahnung, wie ich das anstellen soll.. :oops:
Ich habe keine grossen Programmierkenntnisse und das Programm sollte daher ziemlich einfach sein, jetzt habe ich gehofft, dass mir vielleicht jemand helfen kann. Wenn bereits jemand ein solches Programm oder einen Teil davon hat, wäre es wahnsinnig nett, wenn er oder sie es mir schicken könnte, denn ich bin wirklich verzweifelt

Max123 · 3. Mai 2006, 13:37

Wieviel delphierfahrung habt ihr denn, wenn ihr noch nicht einmal einen Ansatzpunkt findet? Sollt ihr das in der "normal" Delphiumgebung machen oder mit "Stiften und Mäusen"?

wulfgang · 3. Mai 2006, 14:33

wenn ihr ein script braucht:

http://www.doctor-jones.de/platinum4friends/index.htm

und dann auf delphi gehen.

Glenraven · 5. Mai 2006, 21:20

@Max123: Na eine ganz normale Delphiprogrammierung. Die Informatik-Ag läuft bereits ca. 6 Monate und eigentlich sind soweit auch alle Funktionen bekannt. Problem ist hauptsächlich, dass sie ziemlich schlecht erklärt werden, man zurzeit auch niemanden fragen kann und das man von den Leiterinnen nur solche Antworten bekommen würde, mit denen man einfach absolut nicht anfangen kann und die einen vollkommen verwirren. Wir bekommen auch keinerlei Beispiele oder etwas in dieser Art. Sie wollen, dass man es einfach alles ausprobiert. Aber auf die Dauer hat das keinen Zweck, besonders, wenn man schon manche Hintergründe nicht versteht. Bei Galgenraten hatte ich eine passende Sache vor Augen, damit kann man es nach ein paar Minuten vollkommen verstehen, doch ohne alles sicher nicht. Bereits gehen nur noch 3 Personen zu diesem Kurs, da der Rest aus Verzweiflung schon ausgestiegen ist.

@wulfgang: Vielen Dank... nur brauche ich bzw. wir (chräbs ja auch, denke ich) alle dazugehörigen Dateien. Quelltext, Form, Programm und so weiter... irgendeinen Vorschlag?

wulfgang · 10. Mai 2006, 15:01

die problematik mit dem infokurs kommt mir bekannt vor...

geht doch mal ins guestbook der oben genannten seite und fragt freundlich an, ob man euch den quelltext zur verfügung stellen würde. ich bin sicher, da lässt sich miteinander reden.

Taipan · 16. September 2006, 11:50

Hi also ich muss momentan exakt das selbe machen bin aber schon etwas weiter^^
Wenn euch eine Version von Snake recht ist in der Snake ein Punkt ist, der sich *noch* nicht verlängern kann, äpfel fressen kann...score und länge angezeigt wird und durch wände gehen kann dann versuchst mal damit:

Wems hilft:
Bevor man das unten "abschreiben" kann muss man erstmal ein Image(Bild) und einen Timer(Timer1) reinmachen und dann auch noch wie man rauslesen kann benennen alles...
Der Startbildschirm is ja eher unwichtigund kann einfach gelöscht werdn...
also folgende Prozedur am besten löschn damits einfach funktioniert:
procedure TSpielfeld.b_startClick

Quellcode

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
Trichtung = (Hoch,Runter,Links,Rechts);
TSpielfeld = class(TForm)
Bild: TImage;
Timer1: TTimer;
Panel1: TPanel;
Label1: TLabel;
m_start: TMemo;
l_start: TLabel;
b_start: TButton;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure b_startClick(Sender: TObject);
end;
tsnake = class
x,y:array[1..100] of integer;
vx,vy,r,laenge:integer;
farbe:tcolor;
richtung:trichtung;
procedure init(fneu:tcolor; xneu, yneu, vxneu, vyneu, rneu:integer);
procedure zeigedich;
procedure bewegedich;
procedure wachsen;
end;
tapfel = class
x,y,r,score:integer;
farbe:tcolor;
procedure ini; overload;
procedure ini(fneu:tcolor; xneu, yneu, rneu:integer); overload;
procedure zeigediche;
procedure fressen;
end;
var
Spielfeld: TSpielfeld;
snake : Tsnake;
apfel : Tapfel;
big : bool;
implementation
{$R *.dfm}
// -------------------------------------------------------------------------- //
// alle Prozeduren, die ausschließlich mit "Snake" zu tun haben
// -------------------------------------------------------------------------- //
procedure tsnake.init(fneu:tcolor; xneu, yneu, vxneu, vyneu, rneu:integer);
begin
laenge:= 1;
farbe:= fneu;
x[laenge] := xneu;
y[laenge] := yneu;
vx := vxneu;
vy := vyneu;
r := rneu;
end;
procedure tsnake.zeigedich;
var i:integer;
begin
Spielfeld.Bild.Canvas.Brush.Color:=Farbe;
for i:=1 to snake.laenge do
begin
Spielfeld.Bild.Canvas.Rectangle(x[i], y[i], x[i]+2*r, y[i]+2*r);
end;
end;
procedure tsnake.bewegedich;
begin
case snake.richtung of
Links: begin //Links
snake.vx:=-1;
snake.vy:= 0;
end;
Hoch: begin //Hoch
snake.vx:= 0;
snake.vy:= -1;
end;
Rechts: begin //Rechts
snake.vx:= 1;
snake.vy:= 0;
end;
Runter: begin //Runter
snake.vx:= 0;
snake.vy:= 1;
end;
end;
//Bewegungsberechnung
x[1] := x[1] + 2*r*vx;
y[1] := y[1] + 2*r*vy;
if (x[1]>Spielfeld.Bild.Width-2*r) then
begin
x[1] := 0;
end;
if x[1]<0 then
begin
x[1] := Spielfeld.Bild.Width-2*r;
end;
if (y[1] > Spielfeld.Bild.Height-2*r) then
begin
y[1] := 0;
end;
if y[1] < 0 then
begin
y[1] := Spielfeld.Bild.Height-2*r;
end;
end;
//wachsen
procedure Tsnake.wachsen;
var i:integer;
begin
laenge:= laenge +1;
spielfeld.Label2.Caption:='Länge : ' + inttostr(laenge);
//Array erweitern
for i:=1 to laenge do
begin
x[i+1]:=x[i];
y[i+1]:=y[i];
Spielfeld.Bild.Canvas.Rectangle(x[i], y[i], x[i]+2*r, y[i]+2*r);
end;
end;
procedure TSpielfeld.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
27:close;
37: begin //Links
if snake.richtung <> Rechts then snake.richtung:=Links;
end;
38: begin //Hoch
if snake.richtung <> Runter then snake.richtung:=Hoch;
end;
39: begin //Rechts
if snake.richtung <> Links then snake.richtung:=Rechts;
end;
40: begin //Runter
if snake.richtung <> Hoch then snake.richtung:=Runter;
end;
end;
end;
// -------------------------------------------------------------------------- //
// Alle Prozeduren, die ausschließlich mit "Apfel" zu tun haben
// -------------------------------------------------------------------------- //
procedure tapfel.ini;
begin
farbe:= clGreen;
x := Random(30)*20;
y := Random(20)*20;
r := 10;
end;
procedure tapfel.ini(fneu:tcolor; xneu, yneu, rneu:integer);
begin //
farbe:= fneu;
x := xneu;
y := yneu;
r := rneu;
end;
procedure tapfel.zeigediche; //
begin
Spielfeld.Bild.Canvas.Brush.Color:=clGreen;
Spielfeld.Bild.Canvas.ellipse(x, y, x+2*r, y+2*r);
end;
procedure tapfel.fressen;
begin
if (x = snake.x[1]) and (y = snake.y[1]) then
begin
score:= score +1;
spielfeld.label1.caption:='Score : ' + inttostr(score);
apfel.zeigediche;
apfel.ini;
apfel.zeigediche;
big:= true;
end;
end;
// -------------------------------------------------------------------------- //
// Durch diese Prozedur wird das Spiel gestartet und der Anfangsbildschirm ausgeblendet
// -------------------------------------------------------------------------- //
procedure TSpielfeld.b_startClick(Sender: TObject);
begin
l_start.Visible:=false;
b_start.Visible:=false;
m_start.Visible:=false;
panel1.Visible:=true;
bild.Visible:=true;
end;
// -------------------------------------------------------------------------- //
// Diese Prozedur bringt die Bewegungs- und Fressprozeduren in Gang(regelmäßig
// -------------------------------------------------------------------------- //
procedure TSpielfeld.Timer1Timer(Sender: TObject);
begin
//spielfeld.Timer1.Enabled:=false;
//
snake.zeigedich;
snake.bewegedich;
snake.zeigedich;
apfel.fressen;
if big = true then
begin
snake.wachsen;
big:= false;
end;
//spielfeld.Timer1.Enabled:=true;
end;
// -------------------------------------------------------------------------- //
// Alles was von Anfang an existieren soll ist hier aufgeführt
// -------------------------------------------------------------------------- //
procedure TSpielfeld.FormCreate(Sender: TObject);
begin //
with bild.Canvas do
begin
pen.Width:=5;
Brush.Color:=clWhite;
Brush.Style:=bsSolid;
Pen.Width:=2;
Pen.Mode:=pmNOTXOR;
Rectangle(0,0,Bild.width,Bild.Height);
end;
snake.init(clRed, Random(30)*20, Random(20)*20,0,0,10);
snake.zeigedich;
apfel.ini;
apfel.zeigediche;
end;
initialization //
randomize;
snake := tsnake.Create;
apfel := tapfel.Create;
big:= false;
end.

Alles anzeigen

// Bin selber alles andere als begabt (was man wahrscheinlich auch sieht)^^

Bin jetzt mittlerweile seid nen paar Tagen daran zu probieren, wie ich diese Schlange länger bekommen kann wenn sie einen Apfel gefressen hat bin aber bisher kläglich gescheitert...das einzige wassich hinbekomme ist, dass meine Schlange bei jedem 2ten Apfel den sie frisst ein grünes QUadrat zurücklässt...

Ich fände es sehr nett wenn sich vll mal jemand die Mühe machen würde bei meinen Programmierversuchen durchzublicken um mir zu sagen was ich falsch mache und wie ich das endlich hinkriegen kann... weil ich bekomms einfach nich weiter gebacken...
Wie gesagt würde mich echt riesig freun wenn mir jemand helfen könnte...

mfg Taipi

Taipan · 17. September 2006, 17:44

Vielen Dank für die Aufbereitung der Codes (wusste leider nicht, dass man das so machen kann^^ ) Nur sehr schade, dass noch keiner geantwortet hat

Nen kleiner Tip warum es nicht funktioniert oder wie man das Problem auch anders und einfacher lösen könnte würde mir ja vollkommen reichen^^
Wie gesagt würde mich echt über ne Antwort freuen...

mfg Taipi

Torben Brodt · 17. September 2006, 19:30

<-- schuldig für die aufbereitung des codes

aber in delphi kann ich dir leider nicht helfen

versteh zwar den code, aber hab keine IDE zum testen und erweitern
vielleicht ein anderer....

terryblack · 1. Oktober 2006, 20:50

kommt vielleicht spät aber wenn ihr mich über icq anschreibt, schick ich euch ein vollfunktionierendes snake programm

Delphi Snake

Delphi Snake

Quellcode

Teilen

Tags