Graphics 640,480

saenger=LoadImage("sänger1.png")
MaskImage saenger,255,255,255
shot=LoadImage("schuss.png")
level=LoadImage("zimmer.png")
MaskImage level,0,0,255
tisch=LoadImage("tisch.png")
MaskImage tisch,0,0,255

Global angry=1

Type schuss
  Field schuss_x
  Field schuss_y
  Field theta2
End Type

HidePointer

Repeat
Cls

DrawImage level,0,0 
DrawImage saenger,280,430
DrawImage tisch,100,100

x# = MouseX()
  y# = MouseY()
  r# = Sqr((x#*x#)+(y#*y#))

  Color 104,104,104

  Color 255,255,255
  Line 150,115,x#,y#
  theta# = ACos(x#/r#)
  Text 20,20,"Winkel:"+theta

  For degrees#=0 To theta

  Next

  If MouseHit(1) And MouseDown(1) Then
    s.schuss = New schuss
    s\schuss_x = MouseX()
 
    s\schuss_y = MouseY()
    s\theta2 = theta
  EndIf

  For s.schuss = Each schuss
    DrawImage shot, s\schuss_x,s\schuss_y
    s\schuss_x = s\schuss_x + Cos(s\theta2)*2
    s\schuss_y = s\schuss_y + Sin(s\theta2)*2
 
If ImagesCollide(shot,s\schuss_x,s\schuss_y,0,saenger,280,430,0) Then angry=angry+1
Next
Text 30,30,angry

wuetend()

Flip
Until KeyDown(1)


Function wuetend()



If angry=1 Then rot=0:gruen=255:blau=0
If angry=2 Then rot=237:gruen=190:blau=3
If angry=3 Then rot=240:gruen=114:blau=0
If angry=4 Then rot=240:gruen=0:blau=0
If angry=5 Then rot=128:gruen=0:blau=0


Color rot,gruen,blau
Rect 0,0,50,10,1

End Function

If ImagesCollide([...]) then
If s.schuss <> Null then
Delete s.schuss
angry = angry + 1
EndIf
EndIf