Hilfe beim berechnen von Money!!!!

[Ralph]

Wenn ich richtig verstanden habe, möchtest du wissen wie du eine variable Geldzahl außerhalb von Messages anzeigen kannst. Ich habe zwar den RM2k und nicht den 2k3, aber ich schätze, dass das meiste ähnlich abläuft .

Für die Anzeige brauchst du Ziffern von 0-9 (logisch, da es nur 10 Ziffern gibt ) als Pictures und evt. ein Hintergrund-Pic.
Die Rechnung ist eigentlich einfach, basierent auf das Zehnerprinzip ist sie unendlich erweiterbar und somit sowohl für 2stellig wie für 6stellige Anzeigen geeignet. Du musst zunächst einmal "Money" in so viele Variablen einfliessen lassen, wie die Anzeige Stellen hat (bei 3 Stellen nimmst du z.B. die Variable 21-23 und nennst sie meinetwegen Geld1-3). Dann fragst du mit Forks ab, ob Variable Geld1 über 900 liegt, im Ja-Fall zeigst du die Picture mit der Ziffer 9 an einer bestimmten Stelle (die du festlegen musst) und ziehst dann von den Variablen Geld2 und Geld3 900 ab ; als Else Case fragst du dann ob Geld1 denn über 800 liegt, im Ja-Fall wiederum Show Pic 8 und Geld2 sowie Geld3 minus 800 usw.
Nachdem diese 10 Forks beendet sind kommst du zu den Zehnerstellen, das funktioniert genau gleich, nur halt jedesmal mit 10 weniger und mit den Variablen Geld2 und Geld3, also z.B. Fork Condition : Geld2 : 90 above -> Show Pic 9 und Var. Geld3 minus 90.
Schlussendlich gehts zu den Einerstellen, hier wird mit Geld3 gearbeitet, du musst nichts mehr abziehen. Beispiel : Fork Condition : Geld3 : 9 same -> Show Pic 9.

Hier noch der Code aus dem RM2k (grün markierte Zahlen sind nur Beispiel und unabhängig).

Code:

<>Variable Ch[0021*0023] Set, Money#
<>Fork Optn:Varbl[0021:Geld1]-900abov
 <>Show Picture :  17, Ziffer 9, (43,12)
 <>Varbl Ch:[0022:Geld2] - , 900
 <>
 :Else Case
 <>Fork Optn:Varbl[0021:Geld1]-800abov
  <>Show Picture :  17, Ziffer 8, (43,12)
  <>Varbl Ch:[0022:Geld2] - , 800
  <>
  :Else Case (für 700-000)

... bis zum END Case

Code:

<>Fork Optn:Varbl[0022:Geld2]-90abov
 <>Show Picture :  18, Ziffer 9, (55,12)
 <>Varbl Ch:[0023:Geld3] - , 90
 <>
 :Else Case
 <>Fork Optn:Varbl[0022:Geld2]-80abov
  <>Show Picture :  18, Ziffer 8, (55,12)
  <>Varbl Ch:[0023:Geld3] - , 80
  <>
  :Else Case (für 70-00)

... bis zum END Case

Code:

<>Fork Optn:Varbl[0023:Geld3]-9
 <>Show Picture :  19, Ziffer 9, (67,12)
 <>
 :Else Case
 <>Fork Optn:Varbl[0023:Geld3]-8
  <>Show Picture :  19, Ziffer 8, (67,12)
  <>
  :Else Case (für 7-0)

So, ich hoffe, ich konnte weiterhelfen, wenn nicht ist es ein Tutorial um Zahlen von 0-999 mit Pictures anzuzeigen .