Eigenes 3D MMORPG mit Delphi möglich?

[Zudomon]

Vielen Dank für das Lob!
Aber ich muss sagen, die Sounds/Musik und die Texturen stammen ja von externen Quellen...
Was den Regen anbelangt, ja, es trocknet mit der Zeit wieder weg, sonst wäre ja blöd wenn einmal nass immer nass wäre
Allerdings funktioniert das alles noch nicht wie gewünscht, da es auch in Gebäude/Höhlen rein regnet.

[Zudomon]

Prozedurale 3D Pilze!

20150329_1.jpg20150329_2.jpg20150329_3.jpg

[stahli]

Ok, Du provozierst ja geradezu eine Nachfrage:

Wie sieht denn so eine Prozedur ganz grob aus?

prozedure DefinierePilz;
begin
Definiere 1000 Dreiecke aus einem Array von Punkten als Gittermodell aber immer zufällig etwas anders.
ÜberzieheDasModellMitEinerHaut;
end

Und das Ergebnis speicherst in Records, nicht in Objekten? Hatte ich das so richtig verstanden?

[Zudomon]

Bisher ist da noch kein Zufall mit drin... d.h. es wird wirklich nur ein einziges Objekt erstellt.
Das Ergebnis wird hinterher in ein Geometrieobjekt umgewandelt und zum Rendern bereitgestellt.
TGeoBase ist in der Tat ein Record. Unterdessen benutze ich aber schon einige Klassen.

Delphi-Quellcode:

function crtMushroom: TGeoBase;
var
  i, i2, j: Integer;
  lp: Integer;
  c: TVecArray;
  cc: Integer;
  s: Integer;
  m: TMatrix;
  v: TVec;
  gb, gb2: TGeoBase;
begin
  Result.Clear;

  s:=16;

  SetLength(c, 7);
  c[0]:=Vec(0,-0.1,0);
  c[1]:=Vec(-0.15,0,0);
  c[2]:=Vec(-0.175,0.15,0);
  c[3]:=Vec(-0.225,0.4,0);
  c[4]:=Vec(-0.175,0.8,0);
  c[5]:=Vec(-0.15,1.2,0);
  c[6]:=Vec(-0.15,1.3,0);

  gb.Clear;
  gb.Modifier_ExtrudeLattice(c, s);
  gb.Modifier_TransformTex0(MatOff(MatScl(0.99), Vec(0.5, 0.5)));
  gb.Modifier_MapAtlas(2, 2, 1, 0);
  gb.Modifier_SmoothGrp(1);
  Result.add(gb);

  SetLength(c, 4);
  c[0]:=Vec(-0.15,1.3,0);
  c[1]:=Vec(-0.16,1.3,0);
  c[2]:=Vec(-0.6,1.3,0);
  c[3]:=Vec(-0.9,0.9,0);

  gb.Clear;
  gb.Modifier_ExtrudeLattice(c, s);
  gb.Modifier_TransformTex0(MatScl(1,0.02,1));
  gb.Modifier_SmoothGrp(2);
  gb.Modifier_TransformTex0(MatOff(MatScl(0.99), Vec(0.5, 0.5)));  
  gb.Modifier_MapAtlas(2, 2, 0, 1);
  Result.add(gb);

  SetLength(c, 4);
  c[0]:=Vec(-0.9,0.9,0);
  c[1]:=Vec(-0.8,1.3,0);
  c[2]:=Vec(-0.3,1.6,0);
  c[3]:=Vec( 0.0,1.6,0);

  gb.Clear;
  gb.Modifier_ExtrudeLattice(c, s);
  gb.Modifier_SmoothGrp(4);
  Result.add(gb);

  Result.Modifier_Weld(lt_Position);
  Result.Modifier_Subdivide(1, true, false);
  Result.Modifier_Noise2(MatScl(1,0.2,1), Vec(0.5,1,0.5)*0.5, 4);
  Result.Modifier_Subdivide(1, true, false);

  gb_Sel:=st_Intersect;
  lp:=Result.FindLayer(lt_Position);
  Result.Layer[lp].SelP_Clear;
  Result.Layer[lp].SelP_ByGrp(4);

  gb:=CutGeoBase_SelP(Result);
  gb.Modifier_MapPlanar(MatScl(0.59)*MatRotX(pi/2)*MatPos(0.5, 0.5, 0));
  gb.Modifier_MapAtlas(2, 2, 0, 0);
  Result.add(gb);

  SetLength(c, 3);
  c[0]:=Vec( 0,1.0,0);
  c[1]:=Vec(-0.3,0.95,0);
  c[2]:=Vec(-0.45,0.7,0);

  gb.Clear;
  gb.Modifier_ExtrudeLattice(c, s);
  gb.Modifier_SmoothGrp(1);

  SetLength(c, 3);
  c[0]:=Vec(-0.45,0.7,0);
  c[1]:=Vec(-0.3,0.95,0);
  c[2]:=Vec( 0,1.05,0);

  gb2.Clear;
  gb2.Modifier_ExtrudeLattice(c, s);
  gb2.Modifier_SmoothGrp(2);
  gb.add(gb2);

  gb.Modifier_TransformTex0(MatScl(1,0.02,1));  
  gb.Modifier_Weld(lt_Position);
  gb.Modifier_Subdivide(1, true, false);
  gb.Modifier_Noise2(MatScl(3), Vec(0.5,1,0.5)*0.5, 4);
  gb.Modifier_Subdivide(1, true, false);             
  gb.Modifier_TransformTex0(MatOff(MatScl(0.99), Vec(0.5, 0.5))); 
  gb.Modifier_MapAtlas(2, 2, 0, 1);  

  Result.add(gb);
end;

[himitsu]

Ich glaub ich hatte anfangs mal sowas wie Pilze gesehn (die kleinen roten Knubbelchen) ... bevor ich wusste, daß man Essen muß.

Aber nach meinem ersten Tot, hab ich nie wieder welche gesehn.



Auf'm Ultrabook, im Energiesparmodus, war es aber nicht spielbar. (hatte es anfangs fast vergessen, da der Modus für's normale Leben ausreicht) ... 1-2 FPS.
Eine etwas bessere Graka sollte man also schon benutzen.

Witzig ist, daß der Sound schon abgespielt wird, kurz nachdem die Sounddatei erst angefangen hatte sich runterzuladen.


Es wäre nett, wenn man irgendwo die Maus umgrehen könnte.
Ich kann sorum einfach nicht und drehe mir die Maus immer um, also Hoch und runter.
Das war schon mit Maus so, aber jetzt mit Trackball, ist das ganz schlimm.

[Zudomon]

Maus-Flipping ist fast von Anfang an implementiert gewesen... im Menü ist so ein Joystick Symbol und da hast du das

Achja und die Pilze waren jetzt recht selten, weil sie viel zu spärlich verteilt waren... habe das vorhin erst angepasst, als ich sie dann durch das Model ersetzt habe.

[himitsu]

Na dann .... nicht, daß sich wer wundert, wenn überall meine Leichen rumliegen.

Mal sehn ob ich einen Fliegenpilz finde.



Die Third-Person-Ansicht war auch witzig.

[jobo]

Zitat von himitsu:

Auf'm Ultrabook, im Energiesparmodus, war es aber nicht spielbar. (hatte es anfangs fast vergessen, da der Modus für's normale Leben ausreicht) ... 1-2 FPS.
Eine etwas bessere Graka sollte man also schon benutzen.

Apropos:
Gibt's ne Empfehlung zur Hardware? Auf meinem Laptop mit separater Graka komme ich glaub ich auf 6 FPS ( NVIDIA GT 550M), dabei ist nicht mal das HD Display drin. Dem Geräusch nach gibt sich die Kiste allerdings echt Mühe.

[himitsu]

Ein kleiner 2,5 Jahre alter i7U, mit 1,9 GHz und Intel HD Graphics 4000, schaffte so um die bis 15-20 FPS

[rweinzierl]

Hallo

Auch von mir Respekt ! Ein solches Projekt über Jahre durchzuziehen! Immer wieder erstaunlich was Menschen schaffen können wenn sie Spass an Ihrem Hobby haben. Wirklich aufrichtigen Respekt.

Ich habe nur minimal mit OpenGL und VRML/X3D gearbeitet. (Aber kein Vergleich mit diesem Projekt)

Was mich neugieriegerweise intessiert, wie lautet die Vision des Projektes / Quellcode.

Soll der Quellcode eines Tages als Open Source freigegen / oder als Closed Source verkauft werden ?
Sollen weitere Mitstreiter gefunden werden die am Source Code mitarbeiten ?
Ist zwar nur meine Meinung aber ohne ausführliche Kommentare wirds für aussenstehende schwierig Code diesen Umfangs zu verstehen.

Alles alleine zu machen hat Charme, aber irgendwann wirds zu viel / dann machts auch keinen Spass mehr.

mfg

Reinhold

Zitat von Zudomon:

Bisher ist da noch kein Zufall mit drin... d.h. es wird wirklich nur ein einziges Objekt .

Delphi-Quellcode:

function crtMushroom: TGeoBase;
var
  i, i2, j: Integer;
....
begin
  Result.Clear;
.....
  Result.add(gb);
end;