Eigenes 3D MMORPG mit Delphi möglich?

[Zudomon]

Habe mal ein Video gemacht, um zu zeigen, wie schnell StoneQuest nun startet.
Außerdem ist das Intro mit der Musik überarbeitet und es werden zu beginn des Spiels auch Credits angezeigt!

YOUTUBE ► StoneQuest Pre-Alpha 0.1.406 - starting time, intro and credits

[Zudomon]

Im Zuge des Geometrie Refactorings musste/wollte ich mich von den Linien trennen.
Die Regentropfen haben diese genutzt. Somit habe ich mich heute nochmal um den Regen gekümmert. Leider erkennt man nicht so viel in dem Video. Insgesamt werden über eine halbe Million Tropen pro Frame gerendert...

Youtube ►http://youtu.be/NRDeG0xjmtU

[Medium]

Das gesamte Projekt sieht einfach nur wahnsinnig aus. DAS alles aus praktisch einer einzigen Hand, mit all den Assets und Sound und weiss der Geier - da gehört ein gewaltig großer Hut abgesetzt. Und der Regen ist ebenfalls klasse, ich glaube ich finde ihn sogar besser als den alten

Und sage mal: Setzt du tatsächlich das specular lighting nur bei nass gewordenen oberflächen höher? Degradiert das über Zeit wenn keine "Nassquelle" mehr da ist? Weil DAS wäre ein echt irres Detail, welches ich so noch bei keinem anderen Spiel gesehen habe. (Gut, sooo viele sehe ich nicht. Aber zumindest wäre es bei dir ja komplett dynamisch, da die gesamte Welt ja im Grunde beliebig ist.)

Starkes Stück, da hast du dir echt etwas für zum mit berechtigt angeben gebaut

[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!

[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.