Well my events are kinda stupid as well, which doesn't really help with the speed issue.
You can remove the second loop event and replace the following action in the first:
Gun: set Angle to Gun.Angle + 1
replace with
Gun: set Angle to Random(360)
While it's still no speed wonder it does run faster and you don't see the circle building up degree by degree (which sometimes was the case).
EDIT: I'll stop now but here's a smoother version.