Wenn man die Werte vergleichen/übergeben möchte, also hiermit:
Code: Alles auswählen
x = 5

Code: Alles auswählen
x = 5
statt Erhoehe() würde an der Stelle x + 1 mehr Sinn machenPureBasic4.0 hat geschrieben:Warum machst du es nicht einfach so?:
Code: Alles auswählen
Global x.l Procedure ErhoeheX() x + 1 EndProcedure x = 5 Debug x ErhoeheX() Debug x
Code: Alles auswählen
GoTo5 = 1
x = 100
y = 100
Repeat
If GoTo5 = 1 ; falls das bewegen flag "an" ist:
If x > 5 ; falls bewegung von nöten
x - 1 ; bewege um eins
EndIf
If y > 5 ; das seleb mit y
y - 1
EndIf
If x <= 5 And y <= 5 ; wenn an 5 angekommen
GoTo5 = 0 ;flag aus
EndIf
EndIf
DisplaySprite(0,x,y)
FlipBuffers()
Until Exit = 1