| Kleines Alien, das auf die Maus heiß ist... von ??? |
| *hehe* mein jetziger Code ist zwar schon etwas älter, aber da er nicht mehr im Forum steht, finde ich, sollte er unbedingt wieder gepostet werden. Schließlich ist hier sein Platz und nicht auf meiner HD! [code:1:72923f6fb1]Graphics 800,600 SetBuffer BackBuffer() Msg$ = "Wir sind die Bork. Widerstand ist zwecklos - wir sind einfach unwiderstehlich! ;)" MsgLeft = -StringWidth(Msg$) Fuehler = 270 Plus = 1 While Not KeyDown(1) Cls x = MouseX() y = MouseY() mx = 400 my = 300 Color 255,255,255 MsgLeft = MsgLeft + 1 If MsgLeft > 800 Then MsgLeft = -StringWidth(Msg$) Text MsgLeft,10,Msg$ Text MsgLeft+Rand(-4,4),10+Rand(-4,4),Msg$ Oval x-5,y-5,10,10,0 Oval mx-100,my-75,200,130+Mund/4,0 Fuehler = Fuehler + Plus If Fuehler > 300 Then Plus = -1 If Fuehler < 240 Then Plus = 1 Line mx-20,my-75,mx-20+Cos(Fuehler-20)*80,my-75+Sin(Fuehler-20)*80 Line mx+20,my-75,mx+20+Cos(Fuehler+20)*80,my-75+Sin(Fuehler+20)*80 Oval mx-20+Cos(Fuehler-20)*80-10,my-75+Sin(Fuehler-20)*80-10,20,20,1 Oval mx+20+Cos(Fuehler+20)*80-10,my-75+Sin(Fuehler+20)*80-10,20,20,1 Oval mx-40,my-60,40,40,1 Oval mx,my-60,40,40,1 If Mund = NewMund Then NewMund = Rand(60) Else Mund = Mund + Sgn(NewMund - Mund) EndIf Oval mx-50,my+30-Mund/2,100,Mund,0 Color 0,0,0 Oval mx-30+Cos(Winkel#((mx-20),(my-40),x,y))*10,my-50+Sin(Winkel#((mx-20),(my-40),x,y))*10,20,20,1 Oval mx+10+Cos(Winkel#((mx+20),(my-40),x,y))*10,my-50+Sin(Winkel#((mx+20),(my-40),x,y))*10,20,20,1 Flip Wend End Function Winkel#(x1,y1,x2,y2) Dif# = x2 - x1 If Dif# = 0 Then Dif# = 0.001 Alpha# = (ATan((y2 - y1) / Dif#)) Mod 360 If x2 < x1 Then Alpha# = (180 + Alpha#) Mod 360 If (x2 > x1) And (y2 <= y1) Then Alpha# = (360 + Alpha#) Mod 360 If (x2 = x1) And (y2 < y1) Then Alpha# = (180 - Alpha#) Mod 360 Return Alpha# End Function [/code:1:72923f6fb1] Haff Phun |
| von ??? |
| LOL da hatte jemand aber ganz schön viel langweile :wink:. Echt nice... mal wat neues |
| von ??? |
| lol ^_^ |