[Game] 2.6D - Sandb(L)ox

[Custom]

Zitat:

Zitat von himitsu

wenn mehrere Spieler eingeloggt sind, dann bauen alle Figuren einen Würfel, obwohl nur ich das machen wollte.

du hast das spiel zwei mal auf einem PC gestartet richtig? wenn man das tut werden die tasten die man drückt auf beide fenster angewendet -> du baust von beiden fenstern aus einen würfel. Ich muss also nur das fenster mit dem focus beauftragen befehle auszuführen. Versuch es mal von einem zweiten PC aus. (oder frage einen freund wenn du nur einen pc hast) Aber das steht im moment ganz oben auf der to-do liste direkt nach dem flieger-bug ^^ (neues update ist noch heute zu erwarten!)

*edit: moment das kann garnicht sein... es wird schon geguckt ob der focus auf dem fenster ist!...

[Florian H]

Hm, ich hatte ein paar Grafikfehler, als ich ganz im Eck (da wo schon ein Männlein steht) einen hohen Turm baue (siehe Anhang) .. d.h. der oberste Klotz ist nicht sichtbar und in der Mitte irgendwo hat ein Block "Löcher"...

[Custom]

das passiert wenn du zu hoch baust... ich muss gucken was ich machen kann damit das nichtmehr passiert weil ich nicht "erlauben" kann dass man unendlich hoch baut da sonst zuviel arbeitspeicher verbraucht wird (obwohl ich eigendlich eine idee hätte den code umzuschreiben, sodass das ganze spiel weniger verbruacht und die blöcke in alle richtungen unbegrenzt sind...)

[3_of_8]

Du speicherst die Blöcke in einem dreidimensionalen Array? :shock:

Warum nicht einfach eine Liste?

[Custom]

Zitat:

Zitat von 3_of_8

Du speicherst die Blöcke in einem dreidimensionalen Array? :shock:

pschhht muss ja ned jeder wissen was ich manchmal für faxen mache :-D

Zitat:

Zitat von 3_of_8

Warum nicht einfach eine Liste?

hab ich vor aber dafür muss ich den kompletten teil mit der kollisionsabfrage umändern.
und mit einer solchen liste habe ich bis jetzt noch nicht gearbeitet, da ich bis jetzt nur "TSRings" oder "TStringList" benutzt habe...

[olee]

Also ich benutze die ständig.
Ist doch einfach!

Delphi-Quellcode:

for i := 0 to 10 do
begin
  VarX := TX.create(...);
  VarX.X := 100;
  Liste.add(VarX);
end;

[Custom]

was für eine klasse ist "liste" es muss ja eine liste sein in der ich positionX,positionY,positionZ,(evtl noch einige andere daten wie textur farbe etc) speichern kann... natürlich geht das auch als string den man dann splittet aber die variante mag ich irgendwie nicht ^^

[hitzi]

Du kannst doch auch Listen mit Klassen als Listenelement machen.

[igel457]

Records sind natürlich auch möglich:

Delphi-Quellcode:

type TBlock = record
  posx, posy, posz : integer;
end;
PBlock = ^TBlock;

var
  lst : TList;
  p : PBlock;

Hinzufügen:
lst := TList.Create;
New(p);
p^.posx := 0;
lst.Add(p);

Auslesen:
p := lst.Items[i];
xpos := p^.posx;

Löschen:
p := lst.Items[i];
Dispose(p);
Delete(i);

[xZise]

Zuerstmal hast du wohl eine "Feldklasse":

Delphi-Quellcode:

TBlock = class(TObject)
private
  FX, FY : Integer;
public
  property X : Integer read FX;
  property Y : Integer read FY;

  constructor Create(const AX, AY : Integer);
end;

Und entweder nimmst du einfach so eine Liste (Da das Object alles sein könnte, muss man sich sicher sein, was man da macht!):

Delphi-Quellcode:

FList : TObjectList;
[...]
FList := TObjectList.Create;
[...]
block := TBlock.Create([...]);
[...]
FList.Add(block);
[...]

Oder du erstellst dir selber eine Liste (aufwendiger ab im endeffekt Fehlersicherer):

Delphi-Quellcode:

TBlockList = class (TObject)
private
  FList : TObjectList;
  function GetBlock(AIndex : Integer) : TBlock;
  procedure SetBlock(AIndex : Integer; Value : TBlock);
public
  procedure Add(ABlock : TBlock);
  procedure Delete(ABlock : TBlock);

  property Bloecke[AIndex : Integer] : TBlock read GetBlock write SetBlock; default;

  constructor Create;
  destructor Destroy;
end;

Und fertig ;)

Naja jedenfalls die Definition der Klassen.
Diese kannst du genauso wie eine TObjectList-Liste verwenden.

MfG
xZise

PS: Das "default;" hinter der Property bedeutet, dass man die nicht aufrufen muss. Wenn du das bei TStrings machst, machst du ja meißt "MyTStrings[<Zeile>]" ;)