Balanced das Spiel für Starke Nerven und Starke Graphikkarte

[Corpsman]

!! ACHTUNG !!

Balanced2 ist nun Verfügbar, den Link zum Thema gibts hier.

Hallo alle miteinander,

in den Letzten 9 Wochen habe ich ja des öfteren mal wieder ein paar fragen zur OpenGL Programmierung gestellt.

Hier ist nun das Resultat meiner Arbeit.

Zugegeben noch lange nicht fertig. Aber die Richtung ist durchaus erkennbar.

Und Spass macht es schon lange mein Spiel zu spielen.

Worum es Geht ?

Jeder der Marble Madness kennt weis sofort worum es hier geht.

Für alle anderen :

Im Spiel hat der Spieler 1 Kugel diese kann 3 verschiedene Materialien annehmen. Je nach Material gibt es unterschiedliche Eigenschaften der Kugel.

Ziel des Spieles ist es mit dieser zu einem FINISH Punkt zu gelangen. Wie das geschieht ist dabei dem Spieler überlassen.
Einzige Bedingung, man mus alle Checkpoints besuchen.

Das im Kurzen.

Für alle die nur diesen Post lesen und das File dann gleich laden hier noch die Steuerung:

Pfeiltasten = Bewegung der Kugel
Space = Rauszoomen
STRG + K = Selfkill
SHIFT + Pfeiltasten ( oder mit ASDW ) = Kamera Drehen


Was dieses Spiel so besonders macht ist der Leveleditor !!!

Ihr könnt also nach herzenslust neue Levels erstellen und spielen...

Ich hoffe sogar das ihr viele neue Levels erstellt und mir diese dann zusendet, mit den Besten Levels baue ich dann eine Spielschrittkette ( zumindest Hoffe ich das es genug werden das ich das auch wirklich machen kann).


Wer Ideen , Fragen , Kritik , Wünsche oder BUGS loswerden will der soll sich mal melden. Ich versuche dann mein bestes


Ach fast hätte ich den Link vergessen

Balanced ( ca. 3,5 mb )

Levelpacks

Makros

Graphik_Pack

euer

Corpsman

[edit] anscheinend darf man anwendugnen nur direkt verlinken, also hab ich das mal gemacht.
[edit2] Erweiterungen für die Steuerung nachgetragen.
[edit3] Link für die Makros mit reingemacht.
[edit4] Aufgrund von änderungen auf meiner HP musten die Links aktualisiert werden
[edit5] Level Download Link entfernt, die Levels sind ab sofort nur noch über www.Balanced.de.vu verfügbar.
[edit6] Links Aktualisiert

[TimerTim]

So, hier ist das Level endlich!

[TimerTim]

Ach ja, und hier auch noch das Replay von dem Level.
Leider mit ein paar Fehlern, aber das ist ja auch ziemlich schwer.

[xZise]

Hi...
Ich bekomme mit der aktuellen Version einen Error, wenn ich das 1. Level lade (AV)...

[edit]Also ich hab mal probiert:
Ich bekomme den Fehler nur bei 1280 x 1024 px[/edit]

[Corpsman]

Lol,

Also an der Community wird Kräftig Gearbeitet wie ich so ab und mit Bekomme.

@TimerTim
Im Zweifel kannst mir das Level kannst mir das Level auch Per Email schicken und ich stelle es dann hier On .

@XZise

Ist 1280x1024 deine Native Aufösung, Probier mal das du die Option Fullscreen Aktivierst.

Wenn das auch nicht Hilft schick mir deien User.cfg und genauere Daten wie du den Fehler Erzeugst.

Übrigens :

Ich habe mich nu dazu entschlossen euren so viel gewünschten Multiplayer Modus zu implementieren.

Ich habe mich für Indy 9 entschieden.

Das Spiel wird dann Hauptsächlich mit UDP aber auch TCP / Ip Arbeiten.

Der Launcher ist schon fertig. Hier wird es dann jede Menge neue Einstellmöglichkeiten geben .

Momentan baue ich die Ganzen Menues in Balanced.exe, es wird also noch ein wenig duaern.

Weis zufällig jemand wie man mit Indy UDP was anderes wie Strings versenden kann ?

Im Speziellen will ich Records verschicken ( Jedes Rekord hat ne Size von etwa 50 Byte, also nich gerade viel ).

[DGL-luke]

naja, du kannst deine Records natürlich auch in Strings kopieren.

[Corpsman]

@Dgl_Luke

meien Records enthalten sehr viele Float Variablen ?

wie mache ich das Kopieren dann ohne floattostr ?

Ich will ja möglsicht die Reinen Daten Senden.

[C.Schoch]

Hi,
Bei meinem Indy 10 IdUDPClient gibts ne funktion "SendBuffer(ABuffer : Byte)" damit sollte das doch möglich sein. Ich weis allerdings nicht ob das Indy 9 auch schon kann

[DGL-luke]

du sollt sie nicht in strings umwandeln.

Delphi-Quellcode:

type
  TDataRec = record
    aString: string[128];
    aFloat: float;
    aByte: Byte;
  end;


function MakeString(drec: TDataRec): string;
begin
  Setlength(Result, sizeof(drec));
  CopyMem(@drec,@Result[1],sizeof(drec));
end;

[Corpsman]

Da du ja nur den Speicher Kopierst müste die Rückwärtsfunction so aussehen, oder ?

Delphi-Quellcode:

type
  TDataRec = record
    aString: string[128];
    aFloat: float;
    aByte: Byte;
  end;


function MakeString(drec: TDataRec): string;
begin
  Setlength(Result, sizeof(drec));
  CopyMem(@drec,@Result[1],sizeof(drec));
end;

function ReverseMakeString(drec: String): TDataRec;
begin
//  Setlength(Result, sizeof(drec));
  CopyMem(@drec[1],@Result,sizeof(Result));
end;

[xZise]

Probiere es doch aus:

Delphi-Quellcode:

procedure Test;
var
  in, out : TDataRec;
begin
  in.aString := 'Test';
  in.aFloat := 0.123456789;
  in.aByte := 123;
  out := ReverseMakeString(MakeString(in));
  Showmessage(out.aString);
  Showmessage(FloatToStr(out.aFloat));
  Showmessage(IntToStr(out.aByte));
end;

Jetzt sollte er:

• Test
• 0.123456789
• 123

ausgeben Ansonsten haste was falsch gemacht

PS: Ich hatte Fullscreen auch an, und es ist die native Auflösung!