Bush an der Nase herumführen ;)
Übersicht

![]() |
SmilyBetreff: Bush an der Nase herumführen ;) |
![]() Antworten mit Zitat ![]() |
---|---|---|
ohne große worte ![]() Code: [AUSKLAPPEN] Type image
Field img Field x# Field y# End type Graphics 800,600,16,2 SetBuffer BackBuffer() img = LoadImage("bush.bmp") MaskImage img,255,0,255 DrawImage img,0,0 Text 0,0,"Bitte auf die Nase oder einen anderen 'Zieh-Punkt' klicken" Flip Repeat Until MouseHit(1) Cls Text 0,0, "Bitte warten" Flip mx = MouseX() my = MouseY() sx = ImageWidth(img) sy = ImageHeight(img) mask = CreateImage(sx,sy) MaskImage mask,0,0,0 Color 0,0,0 For x = 100 To 1 Step -3 image.image = New image image\img = CopyImage(img) SetBuffer ImageBuffer(mask) ClsColor 255,0,255 Cls Color 0,0,0 Oval mx-x,my-x,x*2,x*2 SetBuffer ImageBuffer(image\img) DrawImage mask,0,0 HandleImage image\img, mx, my image\x = 400 image\y = 300 next HandleImage img, mx, my SetBuffer BackBuffer() ClsColor 0,0,0 Color 255,255,255 Repeat Cls ox = MouseX() oy = MouseY() image.image = Last image Repeat If image\x <> ox Or image\y <> oy ri = ATan2(image\x-ox, image\y-oy) a = sqr((image\x-ox)^2 + (image\y-oy)^2) image\x = image\x - Sin(ri) * a/2 image\y = image\y - Cos(ri) * a/2 ox = image\x oy = image\y End If If image.image = First image Exit image.image = Before image Forever image.image = First image DrawImage img, image\x, image\y For image.image = Each image DrawImage image\img, image\x, image\y Next fps = fps + 1 If MilliSecs() > tick+1000 tick = MilliSecs() fpss = fps fps = 0 End if Text 0,0, fpss Flip Until KeyHit(1) Dazu folgendes Bild: http://phpprogger.ph.funpic.de/uploads/bush.bmp Getestet in Blitzplus mfg, Smily0412 EDIT: Code etwas angepasst damit er läuft - Bilder bitte nach Graphics laden. MfG BladeRunner |
||
![]() |
Eingeproggt |
![]() Antworten mit Zitat ![]() |
---|---|---|
Geht übrigens auch in B3D
Witzige Sache. Leider nur in den ersten 2 Minuten... dann wirds schnell langweilig |
||
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 |
![]() |
hazumu-kun |
![]() Antworten mit Zitat ![]() |
---|---|---|
vollig sinnbereit aber lustig und ne gute programmierübung | ||
Warum kann es keine omnipotente Macht geben?
Weil diese omnipotente Macht in der Lage sein müsste, einen so schweren Stein zu schaffen, dass sie ihn nicht heben kann -> nicht omnipotent |
![]() |
FireballFlame |
![]() Antworten mit Zitat ![]() |
---|---|---|
LOOL ![]() ![]() ![]() Ich spiel schon seit 5 Minuten damit rum, sehr lustig ^^ läuft bei mir (B3D) im Vollbild übrigens wesentlich schneller |
||
PC: Intel Core i7 @ 4x2.93GHz | 6 GB RAM | Nvidia GeForce GT 440 | Desktop 2x1280x1024px | Windows 7 Professional 64bit
Laptop: Intel Core i7 @ 4x2.00GHz | 8 GB RAM | Nvidia GeForce GT 540M | Desktop 1366x768px | Windows 7 Home Premium 64bit |
![]() |
KabelbinderSieger des WM-Contest 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Lol man kann Bush auch durch den Hai von Findet Nemo Ersetzen:
![]() Hat irgendwie was |
||
<Wing Avenger Download> ◊◊◊ <Macrophage Download> |
![]() |
maboxBetreff: sau luschdig |
![]() Antworten mit Zitat ![]() |
---|---|---|
also mir gefällt das Programm super!!! das ist mal was wirklich lustiges!
mfg Mabox |
||
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl Dönerfresser Homepage |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group