Objekt soll nur 1 Schritt alle 2 sekunden machen,

Übersicht

BlitzBasic

Beginners-Corner

	MikeDee Betreff: Objekt soll nur 1 Schritt alle 2 sekunden machen,	Mi, Apr 29, 2009 19:59 Antworten mit Zitat
aber bis jetzt bekomme ich nur hin das es 2 sekunden lang in eine Richtung geht -.- Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,0,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Local Timer=CreateTimer(60) Local PlotX = 400 Local PlotY = 300 Local PlotTimer Local PlotRichtung Repeat Cls If MilliSecs()-Plottimer>2000 Then Plotrichtung=Rand(0,3) Plottimer=MilliSecs() EndIf Select PlotRichtung Case 0 PlotY=PlotY+1 Case 1 PlotY=PlotY-1 Case 2 PlotX=PlotX+1 Case 3 PlotX=PlotX-1 End Select PlotX=(PlotX+800) Mod 800 PlotY=(PlotY+600) Mod 600 Color 255,255,255 Plot PlotX,PlotY WaitTimer(Timer) Flip 0 Until KeyHit(1) End
Nicht wenige benutzen die Anonymität des Internets um berühmt zu werden.

MikeDee

Betreff: Objekt soll nur 1 Schritt alle 2 sekunden machen,

Mi, Apr 29, 2009 19:59
Antworten mit Zitat

aber bis jetzt bekomme ich nur hin das es 2 sekunden lang in eine Richtung geht -.-
Code: [AUSKLAPPEN]

Graphics 800,600,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Local Timer=CreateTimer(60)
Local PlotX = 400
Local PlotY = 300
Local PlotTimer
Local PlotRichtung

Repeat
Cls

If MilliSecs()-Plottimer>2000 Then
   Plotrichtung=Rand(0,3)
      Plottimer=MilliSecs()
EndIf

Select PlotRichtung
   Case 0
      PlotY=PlotY+1
      Case 1
         PlotY=PlotY-1
      Case 2
      PlotX=PlotX+1
      Case 3
      PlotX=PlotX-1
End Select

PlotX=(PlotX+800) Mod 800
PlotY=(PlotY+600) Mod 600

Color 255,255,255
Plot PlotX,PlotY

WaitTimer(Timer)
Flip 0
Until KeyHit(1)
End

Nicht wenige benutzen die Anonymität des Internets um berühmt zu werden.

	d-bug	Mi, Apr 29, 2009 20:08 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Repeat Cls PlotRichtung = -1 ; Nicht von Select/Case abarbeiten lassen If MilliSecs()-Plottimer>2000 Then Plotrichtung=Rand(0,3) Plottimer=MilliSecs() EndIf Bitte sehr

d-bug

Mi, Apr 29, 2009 20:08
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Repeat 
   Cls 
   
   PlotRichtung = -1 ; Nicht von Select/Case abarbeiten lassen
   If MilliSecs()-Plottimer>2000 Then 
        Plotrichtung=Rand(0,3) 
       Plottimer=MilliSecs() 
   EndIf

Bitte sehr