Variable von der Prozedure übergeben

[RSBasic]

@ts-soft
Danke
Endlich nach 4 Seiten
Eigentlich wurde ja das Problem gelöst, nur nicht meine Frage (Wo cih es hinmachen soll)

[RSBasic]

Sry hier bin ich wieder
Noch ein(e) Problem/Frage:
Wie kann ich das machen, dass es flüssig 100 Pixel nach rechts bewegt? Das ist zurzeit so abgehackt

Code: Alles auswählen

InitSprite() 
InitKeyboard() 

Procedure abc() 
  For a=0 To 100 
    x+1 
    Delay(1)
  Next
  ProcedureReturn x 
EndProcedure 

If OpenScreen(1024,768,32,"Screen-Vorlage") 
  
  ClearScreen(RGB(0,0,0)) 
  
  x=0 
  
Repeat 
  FlipBuffers() 
  
  ClearScreen(RGB(0,0,0)) 
  
  If StartDrawing(ScreenOutput()) 
    DrawingMode(#PB_2DDrawing_Default) 
    Box(100+x,100,500,500,RGB(50,100,200)) 
    StopDrawing() 
  EndIf 
  
  ExamineKeyboard() 
  
  If KeyboardPushed(#PB_Key_Right) 
    x+1 
  EndIf 
      
  If KeyboardPushed(#PB_Key_Left) 
    x-1 
  EndIf 
  
  If KeyboardPushed(#PB_Key_Return) 
    x+abc()
  EndIf 
  
  If KeyboardReleased(#PB_Key_Escape) 
    End 
  EndIf 
  
  Until Quit=1 
  
EndIf

[ts-soft]

>> Das ist zurzeit so abgehackt
Hatte ich aber bereits geschrieben, Dein Programm läuft erst nach beenden
der Procedure weiter!
Vielleicht nimmste einen Timer oder eine Variable und EllapsedMilliSecond
oder...
Das Forum ist voll