ep1=(xp/levelxp)*100
ep2=320/100
ep3=ep1*ep2

Color 75,107,101
Rect 160,430, 320,50, 1 ;interface background
Rect 160,415, 320,15,1 ;XP BAR #1
Color 255,0,0
Rect 160,415, ep3,15,1
Color 255,255,255
Rect 160,415, 320,15,0 ;XP BAR #2

Color 255,255,255
Rect 160,415, 320,15,0 ;XP BAR #2

 
print "xp " + xp
print "levelxp " + levelxp
print "ep1 " + ep1
print "ep2 " + ep2
print "ep3 " + ep3

ep1#=(ep#/lvlxp#)*100
ep2#=320/100
ep3#=ep1#*ep2#

xp# = 100
levelxp# = 500

ep1#=(xp#/levelxp#)*100
ep2#=320/100
ep3#=ep1#*ep2#

Color 75,107,101
Rect 160,430, 320,50, 1 ;interface background
Rect 160,415, 320,15,1 ;XP BAR #1
Color 255,0,0
Rect 160,415, ep3#,15,1
Color 255,255,255
Rect 160,415, 320,15,0 ;XP BAR #2

;Willkommen bei meinem Beispiel eines EP-Balkens
;Die nachfolgenden Werte werden erst nach dem Start eingegeben und müssen nicht nachträglich verändert werden!
;Nur die Zuweisungen können nach belieben verändert und müssen nicht über das INPUT Element konfiguriert werden.
;Die Begrenzung auf 100% kann jederzeit entfernt werden um andere Dinge darzustellen.

;Grafischer Bildschirm mit den Einstellungen 640*480,
Graphics 640, 480, 0, 0

;Sonst "hängt" oder "laggt" das Programm
SetBuffer BackBuffer()

;ep$ muss ein Wert zugewiesen werden, sonst weiß das programm nicht zu welchem Wert es +1 dazuzählen soll (wenn er größer als 0 sein soll)
ep = Input("Anfangs EP-Wert (positive Zahl): ")
ep_soll = Input("Soll-EP Wert (mind. 1): ")
ep_plus = Input("Schrittgröße der EP (mind.1): ")

;Anfang Schleife
Repeat

;Macht den Bildschirm sauber
Cls

;Farbe der Folgenden Elemente
Color 255,0,0
;Zeichne Rechteck, x-Position, y-Position, x-Länge nach rechts, y-Länge nach unten, 0 = ungefüllt /// 1 oder "nichts" = gefüllt
;Wenn ungefüllt, dann hat die Umrandung 1 Pixel Stärke
Rect 219,279,200,15,0

;Steigender Balken (Rechteck) mit blauer Füllung
Color 0,0,255
Rect 220,280,ep_balken,13,1

;Text in der EP-Leiste
Color 255,255,255
Text 310,280, ep_haben + "%"
;Veranschaulichungstexte der einzelnen Werte
Text 1,1, "ep_soll = " + ep_soll
Text 1,20, "ep = " + ep
Text 1,40, "ep_haben = " + ep_haben
Text 1,60, "ep_plus = " + ep_plus

;Beschreibung des Schrittzählers ist (auch) im Programm lesbar
Color 255,0,0
Text 1,90, "Das Programm zählt immer " + ep_plus + " EP dazu! Plus und Minus auf dem Nummernblock"
Text 1,105, "ändern den Wert. Mit drücken der Leertaste wird der Ep-Balken auf 0 gesetzt."

;Berechnung der einzelnen Werte
;%-Zahl in der EP-Leiste
ep_haben = (ep*100)/ep_soll
;Prozentualer Anteil an dem 198 Pixel langen Ep-Balken
ep_balken = (ep_haben*198)/100
;Reduzierung bei überschreitung der 100% , z.B. 104% , auf 100%
ep_red = ep - ep_soll

;If-Befehle
;Der Wert des Balken darf nach überschreiten der 100% nicht ein weiteres mal gesteigert werden
If KeyHit(78) And ep_haben < 100  Then ep = ep + ep_plus
;Damit keine negativen % rauskommen
If KeyHit(74) And ep > ep_plus - 1 Then ep = ep - ep_plus
;Auf 100% reduzieren
If ep_soll < ep Then ep = ep - ep_red
;EP-Wert mit der Leertaste zurücksetzen
If KeyHit(57) Then ep = 0

;Den zuerst mit dem BackBuffer gemalten Bildschirm an den FrontBuffer (Sichtbarer Bildschirm, das Ding was vor dir steht
;schicken (flippen, die Bildschirme werden gewechslet) und dort angezeigt.
Flip
;Ende der Schleife, bei drücken der Taste 1 (Esc) wird die Schleife nichtmehr zu Repeat zurückgeführt, sondern es ghet mit
;dem nächsten Schritt (in diesem Fall END) weiter
Until KeyHit(1)

End

;                                                                  (c) 2009 A-o-H