DelphiX - Snake Tutor

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,

hier mein Snake Tutor.

Bevor du das Tutorial list, musst du unbedingt folgendes Tutorial lesen. Hier kann man die Grundlagen von DelphiX kennen lernen

Also fangen wir an:

Als erstes startest du Delphi und machst ein Neues Projekt auf.

Dann gehst du zur DelphiX-Seite bei den Komponenten und nimmst: TDXdraw, TDXImageListe, DXTimer.

So jetzt bereiten wir die DXImageList vor: du klickst auf Items und fügst 4 Items hinzu, 1 = Body, 2 = Head, 3 = Wand und 4 = Futter und lädst die einzelnen Bilder rein. Nun legen wir eine Struktur (oder wie die Dinger heißen) an:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

// Karten Infos (a)
const
  MapX   = 39;
  MapY   = 23;
// Karte (b)
  None   = -1;
  Wand   = 3;

// Richtungen (c)
  links  = 0;
  rechts = 1;
  oben   = 2;
  unten  = 3;

type
// 1
  MSnkae = record
    X,Y,richtung,tick:Integer;
    E:array of TPoint;
    KeyDown:Bool
  end;

// 2
  SFutter = record
    x,y,punkte,tex:Integer;
  end;

// 3
  MGkarte = record
    Typ,Tex:Integer;
    Visible:Bool;
  end;

// 4
  MGame = record
    karte: array[0..MapX,0..MapY] of MGkarte;
    Snake:MSnkae;
    futter:array of SFutter;
    FutterIndex:Integer;
  end;

Ich habe die Struktur in einer extra unit gespeichert (wegen des Level Editors, den ich gerade schreibe).

a:
MapX und MapY sind die Kartengrößen. Sie geben an: wie groß die einzelnen Felder sind; wir verwenden hier ein Raster. Jeder Kasten ist 16x16 Pixel groß. Wir haben in diesem Fall: Breite 640 und Höhe 480. Jetzt müssen wir einfach 640 durch die Breite der Kästchen teilen also z.b. so:
640 / 16 = 40 -1 da wir von 0 ausgehen und nicht von 1 muss das -1 genommen werden.

Bei der Höhe ist das das Gleiche. 480 / 16 = 30 - 1 Aber hier ist etwas anders. Im Quellcode steht 23 und nicht 30 drin. Das ist aber schnell erklärt: da wir nicht alles für das Spielfeld haben wollen, sondern noch ein Display einblenden wollen, müssen wir 112 von den 480 abziehen; und so kommen wir auf 23 in Y-Richtung.

b:
None sind leere Felder. Wand ist der Index in der DXImageList. Also hier 3.

c:
Sind die Richtungsangaben.

1:
Für die Schlange: x und y die Position, tick ist das Zeitinterval, in der DXTimer* die Funktion MoveSnake(die wir noch schreiben werden) aufrufen soll. Wenn wir das nicht machen, ist die Schlange in 1 Sekunde in der Wand. e ist der "body array", also die Elemente der Schlange. Kurz: der Schwanz. KeyDown wird in Move_Snake genommen(darauf gehe ich später noch ein)

2:
x und y die Futter-Position, Punkte ist klar, tex ist der pattern Index.

3:
Die Karte: in Typ wird der Feld-Typ gespeichert, also ob es nun eine Wand ist. Visible gibt an, ob der Typ angezeigt werden soll.

4:
Der Hauptrecord: in Karte werden die Objekte drinnen gespeichert (wirst du später noch sehen) Snake enthält alle variablen, die für die Schlange gebraucht werden. Futter für das Futter

In FutterIndex wird das aktuelle Futter gespeichert, also die Position, welches Futter er von dem FutterIndex anzeigen soll.

Das sind die Vorbereitungen. Sobald du damit fertig bist, kannst du weiterlesen:

So als erstes schreiben wir die Procedure, die die Schlange zum Bewegen bringt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure SnakeMove;
var
  i:integer;
  check_c:Bool;
begin
  check_c:=False;
// Hier wird geschaut ob die Karten Grenzen erreicht wurden, also ob x = 0, y = 0, x = MapX, y = MapY
  with Game.Snake do begin
    if (X-1 < 0) and (game.Snake.richtung = Links) then  check_c:=True;
    if (Y-1 < 0) and (game.Snake.richtung = Unten) then  check_c:=True;
    if (X+1 > MapX) and (game.Snake.richtung = rechts) then  check_c:=True;
    if (Y+1 > MapY) and (game.Snake.richtung = Oben) then  check_c:=True;
  end;

// Hier wird geschaut, ob die Schlange mit einem Stein zusammen stoßen könnte,   wenn ja wird check_c auf True gesetzt
  if (Game.karte[Game.Snake.X+1,Game.Snake.y].typ <> None) and (game.Snake.richtung = rechts) then check_c:=True;
  if (Game.karte[Game.Snake.X-1,Game.Snake.y].typ <> None) and (game.Snake.richtung = Links) then check_c:=True;

  if (Game.karte[Game.Snake.X,Game.Snake.y+1].typ <> None) and (game.Snake.richtung = Oben)then check_c:=True;
  if (Game.karte[Game.Snake.X,Game.Snake.y-1].typ <> None) and (game.Snake.richtung = Unten) then check_c:=True;
  
// Wenn Snake Kartengrenzen nicht erreicht hat, und auch nicht gegen eine Wand gestoßen ist: position ändern
  if Check_c = False then begin    
  // Futter wird eingesammelt
    if (Game.futter[Game.FutterIndex].x = Game.Snake.x) and (Game.futter[Game.FutterIndex].y = Game.Snake.y) then begin
      inc(Game.FutterIndex);
      SetLength(Game.Snake.e,high(Game.Snake.e)+2);
      Game.Snake.e[high(Game.Snake.e)]:=Game.Snake.e[high(Game.Snake.e)-1];
    end;
   // die Schlange wird bewegt: 
    case Game.Snake.richtung of
      Rechts: inc(Game.Snake.X);
      Links: dec(Game.Snake.X);
      Oben: inc(Game.Snake.Y);
      Unten: dec(Game.Snake.Y);
    end;
  
    // Neue Position, vom Schwanz erstellen
    for i:=high(Game.Snake.e) downto 1 do
      Game.Snake.E[i]:=Game.Snake.E[i-1];

    // den Snake-Kopf auf die neue Position setzen
    Game.Snake.E[0].x:=Game.Snake.X; Game.Snake.E[0].y:=Game.Snake.Y;
  end;  
end;

Ich denke, die procedure sollte klar sein, oder ?

Weiter geht es: das Wichtigste überhaupt, das Anzeigen der Bilder auf der DXDraw-Komponente:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var
  i,m,px,py:Integer;
begin
// Bildschrim wird schwarz eingefärbt:
  DXDraw1.Surface.Fill(0);

// Wände werden gezeichnet
  for px:=0 to MapX do begin
    for py:=0 to MapY do begin
      // Wenn Typ = none, wenn tex = none und wenn Visible = true sind, dann wird gezeichnet
      if (Game.karte[px,py].typ <> None) and (Game.karte[px,py].tex <> None) and  (Game.karte[px,py].Visible = True) then 
        DXImageList1.Items[Game.karte[px,py].typ].Draw(DXDraw1.surface,px*16,py*16,Game.karte[px,py].tex);
    end;
  end;

// Timer für die Bewegung der Schlange wird raufgezählt:
  inc(Game.Snake.tick);
  // Wenn eine Taste gedrückt wird, bewegt sich die Schlange schneller also:
  if Game.Snake.KeyDown = True then
    m:=4
  else // wenn keine Taste gedrückt wurde, auf normale Geschwindigkeit schalten:
    m:=10;
    
  // Wenn die Zeit erreicht wurde, bewegt sich die Schlange:
  if Game.Snake.tick >= m then begin
    Game.Snake.tick:=0;
    SnakeMove;
  end;

// Anzeigen vom Snake-Body:
  for i:=1 to HIGH(Game.Snake.e) do
    DXImageList1.Items[1].Draw(DXDraw1.surface,Game.Snake.e[i].x*16,Game.Snake.e[i].y*16,0);

// Anzeigen vom Snake-Head
  DXImageList1.Items[0].Draw(DXDraw1.surface,Game.Snake.x*16,Game.Snake.y*16,0);

// Wenn Futterindex = -1 ist dann wird es übersprungen:
  if Game.FutterIndex <> -1 then begin
    // wenn Futterindex nicht auf -1 ist, wird das Futter angezeigt 
    with Game.futter[Game.FutterIndex] do begin
      if Tex <> -1 then
        DXImageList1.Items[2].Draw(DXDraw1.surface,x*16,y*16,tex);
    end;
  end;
  
// Hiermit werden die Sachen sichtbar gemacht  
  DXDraw1.Flip;
end;

Noch Fragen zum Zeichnen ? Nein? Gut;)

Weiter: jetzt wird alles initialisiert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

procedure TForm1.FormCreate(Sender: TObject);
var
  i,px,py:Integer;
begin
  // Dynamische Arrays werden mit einer Länge initialisiert.
  SetLength(Game.futter,5);
  SetLength(Game.snake.e,5);

// Zum Anfang wird die gesammte Karte auf 0 gesezt, also "nil*"
  for px:=0 to MapX do begin
    for py:=0 to MapY do begin
      Game.karte[px,py].typ:=None;
      Game.karte[px,py].Tex:=None;
      Game.karte[px,py].Visible:=False;      
    end;
  end;
  
// Zum Start wird hier, wie bei der Karte, alles auf "nil*" gesetzt
  for i:=0 to 4 do begin
    with Game.Futter[i] do begin
      x:=-1; y:=-1; punkte:=-1; tex:=-1;
    end;
  end;
  
// Der Snake-Body wird gesetzt:
  Game.Snake.X:=10; Game.Snake.y:=10;
  Game.Snake.e[0].x:=Game.Snake.X; Game.Snake.e[0].y:=Game.Snake.y;
  Game.Snake.e[1].x:=11; Game.Snake.e[1].y:=10;
  Game.Snake.e[2].x:=12; Game.Snake.e[2].y:=10;
  Game.Snake.e[3].x:=13; Game.Snake.e[3].y:=10;
  Game.Snake.e[4].x:=14; Game.Snake.e[4].y:=10;
// die Wiederholungsschleife für SnakeMove im DXTimer wird auf 0 gesezt
  Game.Snake.tick:=0;
// zum Anfang hat man noch keine Taste gedrückt, also wird KeyDown auch auf False gesetzt
  Game.Snake.KeyDown:=False;

// Snake-Futter, wird erstellt: 
  Randomize;
  for i:=0 to 4 do begin
    with Game.Futter[i] do begin
      x:=random(MapX);
      y:=random(MapY);
      tex:=random(2);
    end;
  end;
  game.FutterIndex:=0;

// Wände werden initialisiert
  // Wand oben
  for px:=0 to MapX do begin
    Game.karte[px,0].typ:=Wand;    
    Game.karte[px,0].Tex:=0;
    Game.karte[px,0].Visible:=True;
  end;

  // Wand Unten
  for px:=0 to MapX do begin
    Game.karte[px,MapY].typ:=Wand;    
    Game.karte[px,MapY].Tex:=2;
    Game.karte[px,MapY].Visible:=True;
  end;

  // Wand Links
  for py:=0 to MapY do begin
    Game.karte[0,py].typ:=Wand;
    Game.karte[0,py].Tex:=0;
    Game.karte[0,py].Visible:=True;
  end;

  // Wand Rechts
  for py:=0 to MapY do begin
    Game.karte[MapX,py].typ:=Wand;
    Game.karte[MapX,py].Tex:=2;
    Game.karte[MapX,py].Visible:=True;
  end;

end;

* Nil kann man hier nicht sagen, sondern hier wird alles auf -1 gesetzt, aber zum klaren Verständnis verwende ich nil. Ich hoffe, die "lange" procedure ist dir auch klar.....

Die Schlange bewegt sich schneller wenn eine Taste gedrückt wurde. Nun kommen wir zu der Steuerung der Schlange:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Wenn die Pfeiltaste: Links gedrückt wurde:
  if key = VK_LEFT then begin
    Game.Snake.KeyDown:=True;
    Game.Snake.richtung:=Links;
  end;

  // Wenn die Pfeiltaste: Rechts gedrückt wurde:
  if key = VK_RIGHT then begin
    Game.Snake.KeyDown:=True;
    Game.Snake.richtung:=Rechts;
  end;

  // Wenn die Pfeiltaste: Oben gedrückt wurde:
  if key = VK_DOWN then begin
    Game.Snake.KeyDown:=True;
    Game.Snake.richtung:=Oben;
  end;

  // Wenn die Pfeiltaste: Unten gedrückt wurde:
  if key = VK_UP then begin
    Game.Snake.KeyDown:=True;
    Game.Snake.richtung:=Unten;
  end; 
end;

Wenn die Taste losgelassen wurde, Schlange auf normale Geschwindigkeit einstellen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Game.Snake.KeyDown:=False;
end;

So. Das wäre es gewesen. Ich hoffe, ich konnte euch helfen

Moderiert von Klabautermann: Code durch Delphi-Tags ersetzt.

_________________
MFG
Michael Springwald, "kann kein englisch...."

Lhid · Beiträge: 831

Meinung und mich grundlegend geändert-> alte beiträge gelöscht

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

was für fehler ???

_________________
MFG
Michael Springwald, "kann kein englisch...."

CABALxx · Beiträge: 174 D7 Ent

cooles tut =) :lol:

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

danke

ich werde evtl, noch eins machen aber mit GLXTreem *G*

_________________
MFG
Michael Springwald, "kann kein englisch...."

Johannes Maier · Beiträge: 173 Win XP D7 Prof

edit: hat sich erledigt!

_________________
MfG
Johannes ehem. jbmaier

F34r0fTh3D4rk · Verfasst: So 24.10.04 14:22

bei mir sind da auch so um die 10 - 15 fehler

F34r0fTh3D4rk · Verfasst: So 24.10.04 14:25

bitte den ganzen SC, plz

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

> bitte den ganzen SC, plz
was meinst du damit ???

_________________
MFG
Michael Springwald, "kann kein englisch...."

F34r0fTh3D4rk · Verfasst: So 24.10.04 17:31

SourceCode

Ich denke, dass viele die gleichen Probleme haben ....

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

den habe ich leider nicht mehr bzw. ich müsste erst auf meine sicherungen schauen. aber was für ein problem habt ihr???
evtl. schreibe ich ein neues(hätte nicht gedacht das delphiX so viel genutzt wird)

ich möchte ja immer noch(mal sehen wann ich dazu komme)
so eine art delphiX Lexikon schreiben da sollen Tutor rein, tipps erfahrungen und sowas
z.b. auch geschiechte und sowas halt, alles was mit DelphiX zu tuen hat

_________________
MFG
Michael Springwald, "kann kein englisch...."

F34r0fTh3D4rk · Verfasst: Mo 25.10.04 15:14

die solln mal den delphix sourcecode rausgeben, damit schlaue leute
den verbessern könn, dieses generve von wegen delphix ist *mist*e geht mir
verdammt auf den sack :evil:

ich finde delphix rockt ! :wink:

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

delphIX ist openSource und jede kann die Qullcode verändern.
was gefält dir dann an delphiX nicht ?
ich nutze es bestimmt schon seit 2 Jahren wenn nicht mehr *G*

_________________
MFG
Michael Springwald, "kann kein englisch...."

F34r0fTh3D4rk · Verfasst: Sa 30.10.04 12:06

im forum nerven mich alle, dass delphiX fürn *popo* ist,
weil es nicht open source ist und ruckelt wie sau ...

Dabei weiß ich auch das delphi open source ist aber :?:

Sowas macht einen bekloppt im kopf :autsch:

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

also ich finde delphiX auch supper gerade für 2D spiele.
ich habe mir eine kleine klasse geschrieben die den zugrief auf delphiX vereinfacht.
naja wie dem auch sei *G*

_________________
MFG
Michael Springwald, "kann kein englisch...."

F34r0fTh3D4rk · Verfasst: Sa 30.10.04 20:35

ich habe auch nichts gegen delphiX, nur wenn man hier im Forum jemadem eine
Frage stellt, dann fragt der benutzt du DelphiX. Antwort: ja !
Dann kommt gleich: Kannste vergessen, mach es lieber ohne DelphiX,
DelphiX ist unzuverlässig, langsam....

Aber ich komm mit Snake auch net weiter, wie gesagt, ich habe um die 10-15 Fehler :nixweiss:

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

was für fehler ?
im grunde ist Snake mit DelphiX sehr einfach, ich überleg mir gerade ob ich nicht ein neues Snake erstellen soll problem ist nur: ich habe leide kein WebSpace mehr und könnte es dann nicht hochladen. ich müste es also bei delphipraxis hochladen.

du musst bei snake im grunde nur folgendes machen(das ist der wichtiges teiel)
du hast ein raster jedes feld hat die gleiche größe(16X16)(die schlange auch) es gibst 2 array ein für die map(map:array[0..40,0..39] of TMap). jetzt kannst du ihn per zufall füllen lassen und bei der schlange gehst jetzt weiter:
Snake:array of TPoint;

jetzt erhöst du immer wenn du zusammen gestoßen bis:

if map[Snake[0].x,Snake[0].y].type = Freesen then
.....
und jetzt musst du einfach denn array um eins erhöhen.

das problem ist nur bei der bewegung du muss alle elemente vom array um einen bestimmten wert veränden z.b. so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

const
lings = -1
rechts = +1
oben = -1;
unten = +1

richtung:=Lings;

procedure move;
var
  i:Integer;
begin
  for i:=0 to high(Snake) do begin
    if (richtung = lings) or (richtung = rechts) then
      Snake[i].x:=Snake[i].x+richtung;

    if (richtung = oben) or (richtung = unten) then
      Snake[i].y:=Snake[i}.y+richtung
  end;
end;

das müsste normaler weise gehen(ich habst nicht getestet) wenn es nicht geht werde ich morgen ein kleiens Snake schreiben

ich hoffe du kannst damit was anfangen *G*

_________________
MFG
Michael Springwald, "kann kein englisch...."

F34r0fTh3D4rk · Verfasst: Mo 01.11.04 18:17

danke, und wenn du es geschrieben hast, kannst du ja einen kleinen sourcecode
hier reinschreiben : :eyecrazy:

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

ich weiß aber noch nicht genau wann ich damit anfangen.
ich wollte ersteinmal ein kleines snake Game schreiben. und daraus dann ein tutor entwickeln, dann kann sich aber hinziehen

_________________
MFG
Michael Springwald, "kann kein englisch...."

F34r0fTh3D4rk · Verfasst: Mo 01.11.04 19:24

ich hab zeit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme