Mauszeiger die 2.

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

sbrog

Betreff: Mauszeiger die 2.

 BeitragMo, Aug 23, 2004 9:42
Antworten mit Zitat
Benutzer-Profile anzeigen
da meine erste Maus auf soviel Außerungen gestoßen ist, hab ich mal ne 2. programmiert.
Sie ist noch nicht ganz perfekt, aber das wird noch.


http://sbrog.tim-koepsel.de/Mauszeiger2.ace
 

Blitzkrieg Bop

 BeitragMo, Aug 23, 2004 18:22
Antworten mit Zitat
Benutzer-Profile anzeigen
Hab da nen Array Index Fehler... Wink
~ Hey Ho Let's Go ~
 

OJay

 BeitragMo, Aug 23, 2004 18:39
Antworten mit Zitat
Benutzer-Profile anzeigen
och bitte jungchen, erspare uns deine minutenterinen! das ist ein codearchiv, und keine spielwiese für verirrte test-codes...

im übrigen glaube ich kaum, das mehr als 10% der leute hier im forum in der lage sind, *.ace zu öffnen...

Lord_Vader

 BeitragMo, Aug 23, 2004 18:47
Antworten mit Zitat
Benutzer-Profile anzeigen
Heute wird viel mit .rar gemacht und wer rar öffnen will braucht winrar (das beste halt) und wer winrar hat kann ace öffnen!

Travis

 BeitragMo, Aug 23, 2004 19:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Wow, ist ja Hammernützlich. Falls ich irgendwann mal eine Maussteuerung für irgendetwas machen möchte, werde ich mal mit dir über das Copyright verhandeln.

BlitzBasic: [AUSKLAPPEN] 

Graphics 640,480,16,2
TFormFilter = 0

zs = LoadImage("maus.bmp")
RotateImage zs, 180
MidHandle zs
MaskImage zs, 255,255,255

Dim z(360)

For w = 0 To 359
 z(w) = CopyImage(zs)
 RotateImage z(w), w
Next

SetBuffer BackBuffer()
 Repeat
  Cls

   mx = MouseX()
   my = MouseY()

   w = winkel(mx,my,zx,zy)

   zx = zx + Cos(w)*2
   zy = zy + Sin(w)*2

   DrawImage z(w), zx, zy

  Flip
 Until KeyHit(1)
End

Function Winkel#(x1#,y1#,x2#,y2#) 
 Return (450-ATan2(x1#-x2#,y1#-y2#)) Mod 360 
End Function
www.funforge.org

Ich hasse WASD-Steuerung.

Man kann alles sagen, man muss es nur vernünftig begründen können.

sbrog

 BeitragMo, Aug 23, 2004 20:08
Antworten mit Zitat
Benutzer-Profile anzeigen
ok, hier das ganze in rar

http://sbrog.tim-koepsel.de/Mauszeiger.rar

@Travis
War das jetzt ironisch gemeint ?

Kabelbinder

Sieger des WM-Contest 2006

BeitragDo, Aug 26, 2004 21:49
Antworten mit Zitat
Benutzer-Profile anzeigen
Man könnte einen Schönen Gags aus diesem Programm machen. Vielleicht eine Maus, die neugierig andauernd diesen Mauszeiger aufsucht undwenn man ihn bewegt erschreckt sich diese und nimmt reiß aus.
Aber wie ihr wollt...
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group