#strict
#appendto EGBL

func Activate(pClonk)
{
 [$Shot$|Image=GNPW]
 Sound("Blast2");
 Sound("Crystal3");
 Exit(this(),-20+40*GetDir(pClonk));
 SetXDir(-100+200*GetDir(pClonk));
 SetYDir(-10);
 return(1);
}