| 2D Pixel schießen auf Maus von Markus |
| Für Anfänger ... [code:1:4d4cfcfe8f] Graphics 640,480 SetBuffer BackBuffer() Type KugelType Field px# Field py# Field sx# Field sy# Field zx# Field zy# Field timeout End Type Global Kugel.KugelType While Not KeyHit(1) Cls db=1-db Color 255,0,0 Plot 400,300 If MouseDown(1)=1 And db=0 Then KugelNeu 400,300,MouseX(),MouseY(),1 KugelZeigen Flip Wend End Function KugelNeu(x1,y1,x2,y2,Speed#) Kugel.KugelType=New KugelType Kugelpx=x1 ;Start Kugelpy=y1 Kugelzx=x2 ;Ziel Kugelzy=y2 dx#=x2-x1 dy#=y2-y1 w#=ATan2(dx,dy) sx#=Sin(w)*Speed# sy#=Cos(w)*Speed# Kugelsx=sx ;Richtung Kugelsy=sy KugelTimeOut =200 End Function Function KugelZeigen() Color 255,255,0 For Kugel.KugelType=Each KugelType kugelpx#=kugelpx#+kugelsx kugelpy#=kugelpy#+kugelsy Plot kugelpx,kugelpy kugelTimeOut=kugelTimeOut-1 If kugelTimeOut<=0 Then Delete Kugel ;If Entfernung zu abs(zx,zy)<5 then Delete Kugel Next End Function [/code:1:4d4cfcfe8f] |