GTA Steuerung mit Maus

Übersicht

BlitzBasic

Allgemein

	mitschi2807 Betreff: GTA Steuerung mit Maus	Di, Jul 08, 2008 15:33 Antworten mit Zitat
Ich hab hier ne GTA Steuerung von http://home.arcor.de/inpac/tut1.htm Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,1 SetBuffer BackBuffer() Dim Auto(359) TFormFilter 0 For winkel = 0 to 359 Auto(winkel)=LoadImage(„auto.bmp“) RotateImage auto(winkel),winkel MaskImage Auto(winkel),255,0,255 Next Global x#,y# Global geschwindigkeit#=1 While Not Keyhit(1) ;Beginn der Hauptschleife Cls If KeyDown(203) then winkel= winkel -1 ; Winkel wird verkleinert If KeyDown(205) then winkel= winkel +1 ; Winkel wird erhöht If winkel > 359 Then winkel = 0 If winkel < 0 Then winkel = 359 If KeyDown(200) Then x = x + Cos(winkel)geschwindigkeit y = y - Sin(winkel)geschwindigkeit EndIf DrawImage auto(winkel),x,y Flip Wend End Ich hätte es aber gern so das ich das auto nicht mit tasten drehe sondern das es immer in richtung der Maus fährt geht das?

mitschi2807

Betreff: GTA Steuerung mit Maus

Di, Jul 08, 2008 15:33
Antworten mit Zitat

Ich hab hier ne GTA Steuerung von http://home.arcor.de/inpac/tut1.htm

Code: [AUSKLAPPEN]

Graphics 800,600,32,1
SetBuffer BackBuffer()

Dim Auto(359)
TFormFilter 0

For winkel = 0 to 359

Auto(winkel)=LoadImage(„auto.bmp“)
RotateImage auto(winkel),winkel
MaskImage Auto(winkel),255,0,255

Next

Global x#,y#
Global geschwindigkeit#=1

While Not Keyhit(1) ;Beginn der Hauptschleife
Cls

If KeyDown(203) then winkel= winkel -1 ; Winkel wird verkleinert
If KeyDown(205) then winkel= winkel +1 ; Winkel wird erhöht

If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359

If KeyDown(200) Then
x = x + Cos(winkel)*geschwindigkeit
y = y - Sin(winkel)*geschwindigkeit
EndIf

DrawImage auto(winkel),x,y

Flip
Wend

End

Ich hätte es aber gern so das ich das auto nicht mit tasten drehe sondern das es immer in richtung der Maus fährt

geht das?