0oFreako0
Anmeldungsdatum: 17.12.2011
Beiträge: 114
|
 Verfasst am: 09.06.2012, 21:07 Titel: Bewegungspfad? |
 |
|
Hi ich habe ein kleines Problem und zwar Versuche ich mich gerade daran eine bewegungs pfad zu coden.
Meine Figur soll sich Automatisch-Dynamisch in der landschaft bewegen also nicht ruckartig von Richtung A nach Richtung B soweit bin ich schonmal gekommen.
| Code: |
ScreenRes 400,400,32
Declare Function rand(var1 As Double,var2 As double) As Double
Randomize
Dim x As Double = 200
Dim y As Double = 200
Dim speed As Double = 0.8
Dim angle As Double = 2.3
Dim angle_drift As Double = 2.3
Dim counter As Integer
Dim randvar As Double
Do
x += (Sin(angle) * speed)
y += (Cos(angle) * speed)
If x < 50 Then
randvar = rand(1,2.3)
angle_drift = randvar
angle = randvar
EndIf
If x > 350 Then
randvar = - rand(1,2.5)
angle_drift = randvar
angle = randvar
EndIf
If y < 50 Then
randvar = rand(-0.8,0.8)
angle_drift = randvar
angle = randvar
EndIf
If y > 350 Then
randvar = rand(-1,1)
angle_drift = randvar
angle = randvar
EndIf
If angle_drift < angle Then angle -= 0.05
If angle_drift > angle Then angle += 0.05
counter += 1
If counter = 120 Then
counter = 0
angle_drift = rand (-2,2)
EndIf
PSet (x,y),RGB(255,0,0)
Sleep 10
Loop Until InKey = "q"
End
Function rand(var1 As Double,var2 As double) As Double
Return var1 + (Rnd * (var2)+var1)
End Function
|
Das ganze klappt noch nicht so ganz vielleicht hat der ein oder andere von euch einen Tip wie ichs anders oder besser machen könnte. |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
