Problem mit eigenem KS

[BB2k3]

Machs so:
Du hast eine Variable auf der Gerechnet wird eine, und drei
für die Anzeige (100er 10er 1er). Und eine als Speicher!

Also die Variable Wert wird als Variable Speicher gespeichert.
Nun machst du folgende Prozedur

(Call Event)
Var Speicher set Wert

Label1
IF Var Speicher >= 100 //Hier wird geprüft, wieviele 100er es gibt
Then Var "100er" + 1
Speicher - 100
Goto1
EndIf

Label2
IF Var Speicher >= 10 //Hier wird geprüft, wieviele 10er es gibt
Then Var "10er" + 1
Speicher - 10
Goto2
Endif

Var 1er set Speicher //Rest


Ende

Jetzt wurde die Eingangszahl in ihre Ziffern gesplittet!


Du Rechnest immer mit der Wertvariable und am ende eines Prozesses
(z.b. Trank einnehmen) rufst du dieses Event auf!