# Assassin Ball
#
# By Edward
flags=0x240
symbols

message		created
message		pulse
message		damaged

thing		ball		local
thing		player		local

template	shoot=+repeaterball	local

sound		firesnd=LASER5.WAV	local
sound		bounce=BOUNCE.wav	local

model		ballmodel=ball2.3do	local

template	boom=+ball_exp		local

int		victim			local
flex		maxdot			local
flex		dot			local
int		potential		local

end
#
code
created:
	ball=GetSenderRef();
	player=GetThingParent(ball);
	SetThingPulse(ball,0.01);
return;
pulse:

	victim = -1;
	maxDot = 0;

	// Search for all players and actors.
	potential = FirstThingInView(GetSenderRef(), 180, 10, 0x404);
	while(potential != -1)
	{
		if(HasLOS(GetSenderRef(), potential) && (potential != player) && !(GetThingModel(GetSenderRef())==ballmodel) && (VectorDist(GetThingPos(GetSenderRef()), GetThingPos(potential)) <= 10) && !(GetThingFlags(potential) & 0x200) && !((jkGetFlags(potential) & 0x20) && !IsInvActivated(player, 23)))
		{
			dot = ThingViewDot(GetSenderRef(), potential);
			if(dot > maxDot)
			{
				victim = potential;
				maxDot = dot;
			}
		}
		potential = NextThingInView();
	}

	// If we have a victim...
	if((victim != -1)) 
	{
		SetThingLook(GetSenderRef(), VectorSub(GetThingPos(victim), GetThingPos(GetSenderRef())));
		FireProjectile(GetSenderRef(),shoot,firesnd,-1,'0 0 0','0 0 0',0,0,0,0);
		if(!(GetThingAttachFlags(GetSenderRef())==0) || (GetThingFlags(GetSenderRef()) & 0x2000000))
		{
			DetachThing(GetSenderRef());
			SetThingVel(GetSenderRef(),VectorAdd(GetThingLVec(GetSenderRef()),'0 0 1'));
			PlaySoundThing(bounce,GetSenderRef(),1,-1,10,0x80);
		}
	}
	else
	{
		jkEndTarget();
		SetThingLook(GetSenderRef(),VectorSet(rand()*360,rand()*360,rand()*360));
	}
return;
damaged:
	If(GetSenderRef()==ball)
	{
		CreateThing(boom,ball);
		destroyThing(ball);
	}
return;
end

+ball1		   none                 orient=(0/0/0) type=actor model3d=ball1.3DO size=0.025 movesize=0.025 soundclass=ball1.snd height=0.025 health=10 maxhealth=10 damageclass=0x1 damage=100 move=physics collide=1 vel=(0.000000/2.000000/1.500000) physflags=0x4267 mass=2 airdrag=0 surfdrag=1 buoyancy=1 typeflags=0x100161 thingflags=0x20000000 explode=+ball_exp cog=ball.cog

+assassinball	+ball1			model3d=ball2.3DO size=.0125 movesize=.0125 health=10 maxhealth=10 angvel=(0/0/0) vel=(0.000000/1.000000/0.000000) surfdrag=0 mass=1 physflags=0x4267 cog=assassinball.cog