bes. Mauszeiger

Übersicht

BlitzBasic

Beginners-Corner

	flexo Betreff: bes. Mauszeiger	Do, Sep 22, 2005 13:47 Antworten mit Zitat
Hi! also gleich zu meinem problem... ich möchte jetzt für mein spiel bzw programm einen besonderen mauszeiger programmieren. Und zwar soll er sich drehen. Also soll der mauszeiger den MouseX() und Mousey() koordinaten "nachlaufen" und sich in die richtung drehen, in der die mauszeigerkoordinaten sind. und eben immer mitkommen. hoffe es ist einigermaßen verständlich geworden.. klar ist mir schon dass ich am anfang 360 bilder erzeugen muss (bzw den mauszeiger einfaach um 360° drehen) nur dann die verbindung herzustellen zwischen Mauskoordinaten, das mit der drehung einzubauen hat bei mir ziemlich schwirigkeiten verursacht... f1, hilfe mfg flexo
Du bist eizigartig - genau wie jeder andere auch.

flexo

Betreff: bes. Mauszeiger

Do, Sep 22, 2005 13:47
Antworten mit Zitat

Hi!

also gleich zu meinem problem...
ich möchte jetzt für mein spiel bzw programm einen besonderen mauszeiger programmieren.
Und zwar soll er sich drehen.
Also soll der mauszeiger den MouseX() und Mousey() koordinaten
"nachlaufen" und sich in die richtung drehen, in der die mauszeigerkoordinaten sind. und eben immer mitkommen.

hoffe es ist einigermaßen verständlich geworden..

klar ist mir schon dass ich am anfang 360 bilder erzeugen muss (bzw den mauszeiger einfaach um 360° drehen)
nur dann die verbindung herzustellen zwischen Mauskoordinaten,
das mit der drehung einzubauen hat bei mir ziemlich schwirigkeiten verursacht...

f1, hilfe Rolling Eyes

mfg flexo

Du bist eizigartig - genau wie jeder andere auch.

	Spikespine	Do, Sep 22, 2005 14:40 Antworten mit Zitat
sowas? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SeedRnd MilliSecs() HidePointer Dim pointer(89) pointer(0) = CreateImage(3,10) SetBuffer ImageBuffer(pointer(0)) Rect 0,0,3,10 For i=1 To 89 pointer(i) = CopyImage(pointer(0)) RotateImage pointer(i),-i4 Next SetBuffer BackBuffer() x# = MouseX() y# = MouseY() Repeat Cls mx = MouseX() my = MouseY() w# = (ATan2(mx-x,my-y)+360) Mod 360 s# = Sqr((mx-x)^2+(my-y)^2) v# = s#/10 x# = x# - Sin(360-w#) v# y# = y# + Cos(360-w#) * v# w2# = Ceil(w#/4) If w2# < 0 Then w2# = w2# - 90 If w2# > 89 Then w2# = w2# - 90 DrawImage pointer(w2),x#,y# Rect mx-1,my-1,2,2 Text 0,0,s Flip Until KeyHit(1) End
Athlon 64 3700+ \| 1024 MB RAM \| GeForce 7900 GT \| Blitz2D, Blitz3D, BlitzPlus, BlitzMax

Spikespine

Do, Sep 22, 2005 14:40
Antworten mit Zitat

sowas?
BlitzBasic: [AUSKLAPPEN]

Graphics 800,600,32,2
SeedRnd MilliSecs()
HidePointer

Dim pointer(89)
pointer(0) = CreateImage(3,10)
SetBuffer ImageBuffer(pointer(0))
Rect 0,0,3,10

For i=1 To 89
	pointer(i) = CopyImage(pointer(0))
	RotateImage pointer(i),-i*4
Next


SetBuffer BackBuffer()

x# = MouseX()
y# = MouseY()

Repeat
	Cls
	mx = MouseX()
	my = MouseY()
	
	w# = (ATan2(mx-x,my-y)+360) Mod 360
	s# = Sqr((mx-x)^2+(my-y)^2)
	v# = s#/10
	
	x# = x# - Sin(360-w#) * v#
	y# = y# + Cos(360-w#) * v#
	
	w2# = Ceil(w#/4)
	If w2# < 0 Then w2# = w2# - 90
	If w2# > 89 Then w2# = w2# - 90
	
	DrawImage pointer(w2),x#,y#
	Rect mx-1,my-1,2,2
	Text 0,0,s
	Flip
Until KeyHit(1)
End

Athlon 64 3700+ | 1024 MB RAM | GeForce 7900 GT | Blitz2D, Blitz3D, BlitzPlus, BlitzMax

	Waveblue	Do, Sep 22, 2005 14:44 Antworten mit Zitat
oder sowas? https://www.blitzforum.de/viewtopic.php?t=10230
This is 10% luck 20% skill 15% concentrated power of will 5% pleasure, 50% pain and 100% reason to remember the name