DGL • Thema anzeigen - Problem mit PlayerKlasse und Animation

Problem mit PlayerKlasse und Animation

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Deathball

Betreff des Beitrags: Problem mit PlayerKlasse und Animation

Verfasst: Sa Dez 02, 2006 17:46

DGL Member

Registriert: Do Aug 25, 2005 16:00
Beiträge: 189
Programmiersprache: Java, C#

Hi!
Also, folgendes Problem: Ich kann zwar ohne Probleme 2D Animationen abspielen und meine Spielfigur übers Spielfeld bewegen. Was ich aber nicht kann ist das ganze in gutes OOP zu pressen (wahrscheinlich mangelnde Übung

). Seth' SourceCodes haben mir zwar weiter geholfen, aber ich habe an einigen Stellen immer noch Probleme.

Zuerst mal mein derzeitiger Code:

Code:

 
type
 
  TFACE_POSITION = (
   FACE_DOWN,
   FACE_RIGHT,
   FACE_UP,
   FACE_LEFT
  );
 
  TTexCoords = record
   U, V: Integer;
  end;
 
  TPosition = record
   X, Y: Extended;
  end;
 
  TAnimation = record
    AnimStart: Integer;     //dort wird Animation gestartet
    AnimCount: Integer;     //Max. Zahl an Animationsstufen
 
    Position : Single;      //Die derzeitige Position der Animation
    Duration : Integer;     //Die Dauer in ms
    Coords   : TTexCoords;  //Die Texturkoordinaten
  end;
 
  TAnimationHandler = class
    Animations    : Array of TAnimation;
    AnimationName : TStringList;
 
    constructor Create;
    destructor Destroy ; override;
    function GetTexCoords(Animation: String; FACE: TFace_Position) : TTexCoords;
    procedure AddAnimation(Name: String; Start, End, pDuration: Integer);
  end;
 
 
 
  TPlayer = class
    Textures   : TStringList;
    Animation     : TAnimationHandler;
    Pos           : TPosition;
    TexCoords     : TTexCoords;
    Face          : TFace_Position;
    State         : String;
 
    constructor Create;
    destructor Destroy; override;
    procedure Render;
  end;
 
 
 
constructor TAnimationHandler.Create;
begin
 AnimationName := TStringList.Create;
end;
 
destructor TAnimationHandler.Destroy;
begin
 AnimationName.Free;
end;
 
function TAnimationHandler.GetTexCoords(Animation: String; FACE: TFace_Position) : TTexCoords;
var
 i: Integer;
begin
 i := AnimationName.IndexOf(Animation);
 
  case FACE of
   FACE_UP    : Animations[i].Coords.V := 0;
   FACE_RIGHT : Animations[i].Coords.V := 1;
   FACE_DOWN  : Animations[i].Coords.V := 2;
   FACE_LEFT  : Animations[i].Coords.V := 3;
  end;
 
 Animations[i].Position := Animations[i].Position + 1000 * Speedfactor;
 
 if Animations[i].Position >= (Animations[i].Duration / Animations[i].AnimCount) then
 begin
  Animations[i].Position := 0;
  inc(Animations[i].Coords.U);
 
  if Animations[i].Coords.U > Animations[i].AnimCount then
   Animations[i].Coords.U := Animations[i].AnimStart;
 end;
 
 result := Animations[i].Coords;
end;
 
 
procedure TAnimationHandler.AddAnimation(pName: String; pStart, pEnd, pDuration: Integer);
begin
 SetLength(Animations, (Length(Animations)+1));
 Animations[High(Animations)].AnimStart := pStart;
 Animations[High(Animations)].AnimCount := pEnd;
 Animations[High(Animations)].Duration := pDuration;
 
 AnimationName.Add(pName);
end;
 
 
 
//Player
 
constructor TPlayer.Create;
begin
 TextureName := TStringList.Create;
 State := 'Stand';
 
 SetLength(Textures, 1);
 Textures[0] := TglBitmap2D.Create;
 Textures[0].LoadFromFile('D:\Internet Downloads\Delphi Downloads\hero_mod.bmp');
 Textures[0].AddAlphaFromColorKey(41, 156, 0, 60);
 Textures[0].GenTexture();
 
 TextureName.Add('hero_mod');
 Animation := TAnimationHandler.Create;
 Animation.AddAnimation('Walk', 0, 2, 5000);
 Animation.AddAnimation('Stand', 1, 1, 1000);
 Face := FACE_DOWN;
 TexCoords := Animation.GetTexCoords(State, Face);
 
 Pos.X := 160;
 Pos.Y := 120;
 
end;
 
destructor TPlayer.Destroy;
begin
 Animation.Destroy;
 Texturs.Free;
end;
 
procedure TPlayer.Render;
begin
 glPushMatrix;
 glTranslatef(Pos.X, Pos.Y, -1);
 TexCoords := Animation.GetTexCoords(State, Face); 
 glColor3f(1, 1, 1);
 Player.Bind();                                                    //derzeit gibts nur eine Textur, später ruf ich die Textur über einen 
 glBegin(GL_QUADS);                                         //TexturManager auf 
  glTexCoord2f(TexCoords.U/12, (TexCoords.V+1)/8); glVertex3f(-16, -16, 0);            //das ganze erstmal 
  glTexCoord2f((TexCoords.U+1)/12, (TexCoords.V+1)/8); glVertex3f(16, -16, 0);      //nur für eine bestimmte Textur
  glTexCoord2f((TexCoords.U+1)/12, TexCoords.V/8); glVertex3f(16, 16, 0);             //wird später noch erweitert 
  glTexCoord2f(TexCoords.U/12, TexCoords.V/8); glVertex3f(-16, 16, 0);
 glEnd;
 glPopMatrix;
end;
 
 
 

Änderungen im Status der Figur entstehen dann so:

Code:

 
 
procedure TForm1.KeyStrokes;
begin
 if GetASyncKeyState(VK_DOWN) and GetASyncKeyState(VK_RIGHT) < 0 then
 begin
  Player.State := 'Walk';
  Player.Face := FACE_DOWN;
  Player.Pos.Y := Player.Pos.Y - 2 * Speedfactor;
  Player.Pos.X := Player.Pos.X + 2 * Speedfactor;
 end
 else
  if GetASyncKeyState(VK_DOWN) and GetASyncKeyState(VK_LEFT) < 0 then
  begin
   Player.State := 'Walk';
   Player.Face := FACE_DOWN;
   Player.Pos.Y := Player.Pos.Y - 2 * Speedfactor;
   Player.Pos.X := Player.Pos.X - 2 * Speedfactor;
  end
  else
   if GetASyncKeyState(VK_UP) and GetASyncKeyState(VK_RIGHT) < 0 then
   begin
    Player.State := 'Walk';
    Player.Face := FACE_UP;
    Player.Pos.Y := Player.Pos.Y + 2 * Speedfactor;
    Player.Pos.X := Player.Pos.X + 2 * Speedfactor;
   end
   else
   if GetASyncKeyState(VK_UP) and GetASyncKeyState(VK_LEFT) < 0 then
   begin
    Player.State := 'Walk';
    Player.Face := FACE_UP;
    Player.Pos.Y := Player.Pos.Y + 2 * Speedfactor;
    Player.Pos.X := Player.Pos.X - 2 * Speedfactor;
   end
   else
    if GetASyncKeyState(VK_DOWN) < 0 then
    begin
     Player.State := 'Walk';
     Player.Face := FACE_DOWN;
     Player.Pos.Y := Player.Pos.Y - 2 * Speedfactor;
    end
    else
     if GetASyncKeyState(VK_RIGHT) < 0 then
     begin
      Player.State := 'Walk';
      Player.Face := FACE_RIGHT;
      Player.Pos.X := Player.Pos.X + 2 * Speedfactor;
    end
    else
     if GetASyncKeyState(VK_UP) < 0 then
     begin
      Player.State := 'Walk';
      Player.Face := FACE_UP;
      Player.Pos.Y := Player.Pos.Y + 2 * Speedfactor;
     end
     else
      if GetASyncKeyState(VK_LEFT) < 0 then
      begin
       Player.State := 'Walk';
       Player.Face := FACE_LEFT;
       Player.Pos.X := Player.Pos.X - 2 * Speedfactor;
      end
      else
       Player.State := 'Stand';
end;
 

Das gefällt mir nicht wirklich und ist schätze ich auch mal nicht wirklich elegant. Ich wüsste aber nicht wie ich das ganze anders machen sollte.
Dazu kommt noch eine weitere Einschränkung - Derzeit ist es so das wenn man gehen will man eine Pfeiltaste drückt. Die "Stehen" Animation wird einfach unterbrochen, eine neue Animation angezeigt. Genauso läufts beim Laufen. Wenn man die Pfeiltaste loslässt wird das ganze einfach unterbrochen egal an welcher Stelle der Animation man gerade ist. Das ist beim Laufen und Stehen auch gut so, nur beim Schlagen usw. darf das nicht gehen. Meine Idee wäre ein Boolean à la "Finished" einzuführen um zu testen ob die animation fertig ist - aber mir fällt eigentlich keine gute Möglichkeit ein wann und wo ich das abfragen könnte.

Also, Anregungen, Verbesserungsvorschläge und vernichtende Kritik sehr erwünscht

Die Texturen die die Animationen enthalten sehen btw. so aus:

cya,
Deathball

Nach oben

Billi Berserker

Betreff des Beitrags:

Verfasst: So Dez 03, 2006 01:09

DGL Member

Registriert: Di Jun 24, 2003 19:09
Beiträge: 732

Ohne jetzt groß auf das Problem mit dem wechsel zwischen den Animationen einzugehen was ganz allgemeines zum Code.

Code:

Animations    : Array of TAnimation;
AnimationName : TStringList;

Sowas ist meiner Meinung nach verdammt ungünstig. Sollten aufgrund irgendeines Fehlers mal beide Listen nicht mehr "synchron" sein bricht dir alles zusammen. Auch die Handhabung davon macht sich denke ich relativ schlecht (was wenn du mal eine einzelne Animation raus löschen willst?)
Mein Tipp ist da die Klasse TObjectList (Achtung, es muß eine extra Unit eingebuden werden, siehe Delphi Hilfe). Eine TObjectList ist praktisch wie eine TStringList nur das .Items vom Typ TObject ist. D.h. du kannst beliebige Klassen als Items rein schmeißen. Mag auf den ersten Blick wie ein Array sein, aber es hat den Vorteil das du Exchance,Delete,Remove,Extract,Insert,IndexOf funktionen direkt von der TObjectList Klasse hast. Du müßtest TAnimation einfach als Klasse definieren und Animations in TObjectList ändern. Dann kannst du das AnimationName : TStringList komplett knicken. Natürlich noch den Namen der Animation als neue Eigenschaft in die Klasse.
Für deine TAnimationHandler Klasse kannst du dir dann einfach eine GetItem funktion bauen,
in etwa so:

Code:

function TAnimationHandler.GetItem(pName : String) : TAnimation;
var
  n : integer;
  item : TAnimation;
begin
  for n := 0 to Animations.Count - 1 do
  begin
    item := TAnimation(Animations.Items[n]);
    if item.Name = pName then
    begin
      result := item;
      exit;
    end;
  end;
 
  result := nil;
end;
 

Insgesammt ist es Geschmackssache, aber gerade wenn der Code größer wird es meiner Erfahrung nach besser gleich alles über Klassen und TObjectList zu machen. Das ewige rum gespiele mit Records und Arrays ist bei mir immer viel zu Fehleranfällig

Aber nochma gesagt, alles Geschmackssache - es gibt ja auch durchaus noch Leute die ernsthaft noch mit "MyClass.next" Pointer Listen arbeiten :roll:

der "procedure TForm1.KeyStrokes;" ließe sich bestimmt auch ist ne lustige Liste verpacken.
Sowas wie "KeyStrokes.AddEvent(Key1, Key2 : integer; pNewState : String; pFace : TFace; XMod, YMod : integer);" (oder die Tasten gleich als array bzw. Liste)

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: So Dez 03, 2006 10:26

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

Wieso nimmst du den Namen der Animation nicht einfach in deinen TAnimation-Record auf?

Zitat:

es gibt ja auch durchaus noch Leute die ernsthaft noch mit "MyClass.next" Pointer Listen arbeiten

Wenn es sich anbieten, warum nicht? in meinem aktuellen Projekt verwende ich durchaus doppelt verlinkte Listen, da dabei der verwaltungsoverhead sehr gering ist, und sie für meine Zwecke Optimal geeignet sind. Übrigens bietet auch schon TStringlist das verlinken von Objekten an, TObjectlist übernimmt aber zusätzlich noch die Verwaltun (also freigabe/erstellen), zumindest wenn mich mein Gedächtnis nicht im Stich lässt-

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: So Dez 03, 2006 10:56

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Ich weiss ja nicht ob es allg. bekannt ist, aber man kann bei TStringList auch mit .AddObject(S: String; AObject: TObject) ein Objekt adden welches man dann über .Objects[Index: Integer] bekommt und welches immer zu dem entsprechenden String zugeordnet ist.

Gruß Lord Horazont

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Nach oben

Deathball

Betreff des Beitrags:

Verfasst: So Dez 03, 2006 17:11

DGL Member

Registriert: Do Aug 25, 2005 16:00
Beiträge: 189
Programmiersprache: Java, C#

Billi Berserker hat geschrieben:

Mein Tipp ist da die Klasse TObjectList (Achtung, es muß eine extra Unit eingebuden werden, siehe Delphi Hilfe). Eine TObjectList ist praktisch wie eine TStringList nur das .Items vom Typ TObject ist. D.h. du kannst beliebige Klassen als Items rein schmeißen. Mag auf den ersten Blick wie ein Array sein, aber es hat den Vorteil das du Exchance,Delete,Remove,Extract,Insert,IndexOf funktionen direkt von der TObjectList Klasse hast.

Thx. Für den Tipp. Dann müsste die Funktion "GetTexCoords" ja so oder so ähnlich aussehen (habs jetzt zugegebenermaßen nit ausprobiert):

Code:

 
function TAnimationHandler.GetTexCoords(Animation: TAnimation; FACE: TFACE_POSITION) : TTexCoords;
begin
  case FACE of
   FACE_UP    : Animation.Coords.V := 0;
   FACE_RIGHT : Animation.Coords.V := 1;
   FACE_DOWN  : Animation.Coords.V := 2;
   FACE_LEFT  : Animation.Coords.V := 3;
  end;
 
  Animation.Position := Animation.Position + 1000 * Speedfactor;
  if Animation.Position >= (Animation.Duration / Animation.AnimCount) then
  begin
   Animation.Position := 0;
   inc(Animation.Coords.U);
 
   if Animation.Coords.U > Animation.AnimCount then
    Animation.Coords.U := Animation.AnimStart;
  end;
 
  result := Animation.Coords;
end;
 

Oder hab ich da was falsch verstanden? Naja, das ganze gefällt mir persönlich nit so $\";)\"$ . Was aber weg kommt ist die TStringList. Ich werd Name in den Record mit aufnehmen (wie The-Winner meinte) und mir meine Prozedur zum löschen einer einzelnen Animation selbst schreiben.

Allerdings kannte ich die Klasse noch gar nit und ich glaub ich hab schon ne andere Verwendung dafür gefunden $\":)\"$

Zitat:

Hab jetzt meinen Code folgendermaßen abgeändert:

Code:

 
procedure TForm1.KeyStrokes;
var
 i: Integer;
begin
 for i := 0 to 255 do
  if GetASyncKeyState(i) and $8000 = $8000 then Keys[i] := TRUE
  else Keys[i] := FALSE;
end;
 

Keys ist ein Array[0..255] of Boolean. Falls ein Menü oder so dazu kommen sollte ist das ganze wirklich besser als meine Lösung. Hab mir bisher aber noch keine Gedanken über eine neue Prozedur bei der Player Klasse gemacht, die das ganze dann abfragt. Werd ich wahrscheinlich morgen nach der Mathe Kursarbeit machen.

Seht den Post hier aba bitte nicht als Aufforderung an aufzuhören zu posten :wink:

Will immer noch andere Möglichkeiten wissen

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 15 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.