2D Steuerung - Fahrzeug eiert seltsam

Übersicht

BlitzBasic

Beginners-Corner

	Björn Betreff: 2D Steuerung - Fahrzeug eiert seltsam	Mi, März 16, 2005 18:05 Antworten mit Zitat
Hallo, in meinem 2D-Spiel habe ich diese Steuerung: Code: [AUSKLAPPEN] [EINKLAPPEN] Dim player1(359) TFormFilter 0 player1_bild = LoadImage("player.bmp") MaskImage player1_bild,255,102,204 For Winkel = 0 To 359 player1(Winkel) = CopyImage(player1_bild) RotateImage player1(Winkel), Winkel - 90 MidHandle player1(Winkel) Next If KeyDown(links) Then Winkel= Winkel - 5 If KeyDown(rechts) Then Winkel= Winkel + 5 If Winkel > 359 Then Winkel = 0 If Winkel < 0 Then Winkel = 359 If KeyDown(oben) Then V1 = 1 x1 = x1 - Cos(Winkel) * V1 y1 = y1 - Sin(Winkel) * V1 Könnte mir jemand sagen warum das Fahrzeug beim Fahren ab und an nach oben und unten eiert? Björn
www.brickmovies.de

Björn

Betreff: 2D Steuerung - Fahrzeug eiert seltsam

Mi, März 16, 2005 18:05
Antworten mit Zitat

Hallo,
in meinem 2D-Spiel habe ich diese Steuerung:
Code: [AUSKLAPPEN]

Dim player1(359)
TFormFilter 0
player1_bild = LoadImage("player.bmp")
MaskImage player1_bild,255,102,204

For Winkel = 0 To 359
player1(Winkel) = CopyImage(player1_bild)
RotateImage player1(Winkel), Winkel - 90
MidHandle player1(Winkel)
Next

If KeyDown(links) Then Winkel= Winkel - 5
If KeyDown(rechts) Then Winkel= Winkel + 5
If Winkel > 359 Then Winkel = 0
If Winkel < 0 Then Winkel = 359
If KeyDown(oben) Then V1 = 1
x1 = x1 - Cos(Winkel) * V1
y1 = y1 - Sin(Winkel) * V1

Könnte mir jemand sagen warum das Fahrzeug beim Fahren ab und an nach oben und unten eiert?

Björn

www.brickmovies.de

	Ralf	Mi, März 16, 2005 18:53 Antworten mit Zitat
Hallo, setze mal das MidHandle für das erste Image. Ansonsten wird die Drehung des Images nicht korrekt berechnet. Code: [AUSKLAPPEN] [EINKLAPPEN] Dim player1(359) TFormFilter 0 player1_bild = LoadImage("player.bmp") MaskImage player1_bild,255,102,204 MidHandle player1_bild For Winkel = 0 To 359 player1(Winkel) = CopyImage(player1_bild) RotateImage player1(Winkel), Winkel - 90 Next If KeyDown(links) Then Winkel= Winkel - 5 If KeyDown(rechts) Then Winkel= Winkel + 5 If Winkel > 359 Then Winkel = 0 If Winkel < 0 Then Winkel = 359 If KeyDown(oben) Then V1 = 1 x1 = x1 - Cos(Winkel) * V1 y1 = y1 - Sin(Winkel) * V1

Ralf

Mi, März 16, 2005 18:53
Antworten mit Zitat

Hallo,

setze mal das MidHandle für das erste Image. Ansonsten wird die Drehung des Images nicht korrekt berechnet.

Code: [AUSKLAPPEN]

Dim player1(359)
TFormFilter 0
player1_bild = LoadImage("player.bmp")
MaskImage player1_bild,255,102,204
MidHandle player1_bild

For Winkel = 0 To 359
player1(Winkel) = CopyImage(player1_bild)
RotateImage player1(Winkel), Winkel - 90
Next

If KeyDown(links) Then Winkel= Winkel - 5
If KeyDown(rechts) Then Winkel= Winkel + 5
If Winkel > 359 Then Winkel = 0
If Winkel < 0 Then Winkel = 359
If KeyDown(oben) Then V1 = 1
x1 = x1 - Cos(Winkel) * V1
y1 = y1 - Sin(Winkel) * V1

	Björn	Mi, März 16, 2005 18:58 Antworten mit Zitat
Danke hilft leider irgendwie nicht - wenn man mit gedrückter VOR Taste fährt geht es aber sobald man sie los lässt also das Fahrzeug mit der Restspeed fährt, ruckt es teilweise noch nach links/rechts. Björn
www.brickmovies.de

Björn

Mi, März 16, 2005 18:58
Antworten mit Zitat

Danke hilft leider irgendwie nicht - wenn man mit gedrückter VOR Taste fährt geht es aber sobald man sie los lässt also das Fahrzeug mit der Restspeed fährt, ruckt es teilweise noch nach links/rechts.
Björn

www.brickmovies.de

	Ralf	Mi, März 16, 2005 19:02 Antworten mit Zitat
Dann dürfte der Fehler in einer anderen Stelle des Codes sein.

Ralf

Mi, März 16, 2005 19:02
Antworten mit Zitat

Dann dürfte der Fehler in einer anderen Stelle des Codes sein.

	simi	Mi, März 16, 2005 19:50 Antworten mit Zitat
Vielleciht x1 und y1 als Float deklarieren, weiss aber nicht ob es hilft....

simi

Mi, März 16, 2005 19:50
Antworten mit Zitat

Vielleciht x1 und y1 als Float deklarieren, weiss aber nicht ob es hilft....

	Björn	Mi, März 16, 2005 19:56 Antworten mit Zitat
@simi Jo funst! Danke! Björn P.S. Die Idee das die Koord. evtl. zu ungenau sind hatte ich auch, bin nur nicht drauf gekommen
www.brickmovies.de

Björn

Mi, März 16, 2005 19:56
Antworten mit Zitat

@simi
Jo funst! Very Happy

Danke!
Björn
P.S. Die Idee das die Koord. evtl. zu ungenau sind hatte ich auch, bin nur nicht drauf gekommen Very Happy

www.brickmovies.de

	krux Betreff: Re: 2D Steuerung - Fahrzeug eiert seltsam	Mi, März 16, 2005 22:17 Antworten mit Zitat
Björn hat Folgendes geschrieben: Hallo, Code: [AUSKLAPPEN] [EINKLAPPEN] If Winkel > 359 Then Winkel = 0 If Winkel < 0 Then Winkel = 359 Björn du kannst noch mehr verbessern, wenn du anstelle den winkel zurück auf null zu setzen 360 abziehst bzw zu addieren, dann is es ganz genau.