Function Createbowwave(mesh, rotation%, xg#, zg#, time%)
   If xg<>0 Or zg<>0 And MilliSecs()-wtime>=Rand(time,time+20)-(Int(xg)*Int(zg)+0.1)*1000 Then
      a.welle=New welle
      a\sprite=CopyEntity(wsprite)
      a\x=EntityX(mesh)
      a\y=EntityY(mesh)+0.01
      a\z=EntityZ(mesh)
      a\time=MilliSecs()
      a\alpha=1
      a\scale=0.3
      wtime=MilliSecs()
      PositionEntity a\sprite, a\x, a\y, a\z
      RotateSprite a\sprite,rotation
   EndIf
End Function

Function Updatebowwave()
   For timec.welle=Each welle
      timec\alpha=timec\alpha-0.02
      timec\scale=timec\scale+Rnd(0.01,0.03)
      EntityAlpha timec\sprite, timec\alpha
      ScaleSprite timec\sprite, timec\scale, timec\scale
      If MilliSecs()-timec\time>=1000 Then
         FreeEntity timec\sprite
         Delete timec
      EndIf
   Next
End Function

Type welle
   Field sprite
   Field x#
   Field y#
   Field z#
   Field time
   Field alpha#
   Field scale#
End Type