Horsegame

[KeyKon]

lol, dann wär ja jeder gleich dahintergekommen...

[AND51]

Als kleiner Gag nicht schlecht, habs nem Freund gezeigt, der kein Programmierer ist.
Der dachte auch erst aufgrund der Beschreibung, es sei ein Spiel aus dem Hause "2D Sprites".

Haben nicht schlecht gelacht.

Ich verstehe das Wettsystem absolut nicht, aber anscheinend hab ich nen Highscore geschafft (hab 'Horst' eingegeben). Anscheinend kann man auch mit 0 Geld wetten.




// Edit:
...dieser Weg ist steinig und schwer...

[X360 Andy]

// Edit:
...dieser Weg ist steinig und schwer...

Lag das an meiner Faulheit den Key umzuschreiben oder is das ne Lücke von STARGÅTEs Hs system ?
Oder hast du dich "Legal" so hochgespielt ?


>>> 0 Geld
Jo warum nicht , kann man doch im richtigen Leben auch
Aber selbst wenn man gewinnt bekommt man kein Cent von daher ist das auch egal.

Das WettSystem ist eigentlich ganz einfach.
Per Zufall gibts immer mal wieder "Prämien Pferde" auf diese bekommt man mehr wenn man wettet.
Wenn man gewinnt bekommt man den Einsatz 4 mal zurück + die Prämie falls das Pferd eine Prämie hat. ( 2x - 4x - 8x )

Wenn man verliert zahlt man nur den Einsatz.

[AND51]

> Lag das an meiner Faulheit den Key umzuschreiben
Nein.
> oder is das ne Lücke von STARGÅTEs Hs system
Nein.
> Oder hast du dich "Legal" so hochgespielt
Ja.
Hab einfach mit negativen Beträgen gewettet.

Danke übrigens für die kurze Erklärung zum Wettsystem.

[Kaeru Gaman]

Hab einfach mit negativen Beträgen gewettet.

[X360 Andy]

Hab einfach mit negativen Beträgen gewettet.

und genau das DÜRFTE ja eigentlich nicht gehen.

http://www.purebasic.fr/german/viewtopic.php?t=19801

Hab zwar daran gedacht und es auch selber getestest mit den Minus werten, aber dafür extra noch was einbauen ,habs irgendwie vergessen ....

Btw der Highscore

[cxAlex]

Naja, mehr dürfte nicht gehen sonst überschlägt sich der Long

[AND51]

Hab zwar daran gedacht und es auch selber getestest mit den Minus werten, aber dafür extra noch was einbauen ,habs irgendwie vergessen ....

Das Minus selber eintippen geht nicht, aber ich habs aus der Zwischenablage einffügt, mit Strg+V unter Vista. Kannste vielleicht noch in den anderen verlinken Thread posten, hab den bisher noch gar nicht gesehen gehabt.

Wie wir alle wissen, kann man jeden beliebigen String in Val() stecken, es kommt immer eine gültige Zahl dabei heraus, wenn's nicht klappt, ergibt es eine Null. Du bräuchtest lediglich diese Zeile einfügen, um negative Beträge in positive umzuwandeln:

Code: Alles auswählen

zahl=Val(einsatz$)
If zahl < 0 : zahl = -zahl : EndIf

[KeyKon]

Das Einfachste is immernoch nich Blind jeden Wert anzunehmen sondern nach dem Auslesen zu überprüfen ob der Wert in einem Entsprechenden bereich liegt...

[X360 Andy]

Geht auch über "Kopieren - Einfügen" mit der Maus

Achja bin mal gespannt ob jemand 0 Punkte hinbekommt
Es geht, auch ein Hinweis steht hier irgendwo im Thread.


Wie kann sowas sein ?


Auf Vista läuft ein Rennen ca. 10 Sekunden
auf XP ( 2 verschiedenen Kumpels ) ca.10 MINUNTEN

Code: Alles auswählen

  If rennen = 1
    weiterrandomzahl = 1 + Random(7)
    If weiterrandomzahl = 1
      state1 + 1
      SetGadgetState(1, state1)
    ElseIf weiterrandomzahl = 2
      state2 + 1
      SetGadgetState(2, state2)
    ElseIf weiterrandomzahl = 3
      state3 + 1
      SetGadgetState(3, state3)
    ElseIf weiterrandomzahl = 4
      state4 + 1
      SetGadgetState(4, state4)
    ElseIf weiterrandomzahl = 5
      state5 + 1
      SetGadgetState(5, state5)
    ElseIf weiterrandomzahl = 6
      state6 + 1
      SetGadgetState(6, state6)
    ElseIf weiterrandomzahl = 7
      state7 + 1
      SetGadgetState(7, state7)
    ElseIf weiterrandomzahl = 8
      state8 + 1
      SetGadgetState(8, state8)
    EndIf
  EndIf

Mir ist klar dass das SPiel auf diese Art auf jedem PC verschieden Schenll läuft, aber so ein großer Unterschied ?