xecho -b ** Anti-ping enabled

^on -pong "*"
{
	pingkill $0
}

^on -752 "*"
{
	pingkill $0
}


alias pingkill (user)
{
	@checkping=[x$userx]
	if (finditem(checkusrping $checkping) < [0])
	{
		@setitem(checkusrping $numitems(checkusrping) $checkping)
		@setitem(repping $numitems(repping) $checkping)
	}
	@checkusritmping = finditem(checkusrping $checkping)
	@repiping = getitem(repping $checkusritmping) + 1
	@setitem(repping $checkusritmping $repiping)

	switch ($repiping)
	{
		(1)
		{
#			echo ** $user has pinged you.
#			msg $user Stop pinging me..
			timer 20 {
			xecho -b Timing out with user $user after 20 seconds for anti-ping..
			@delarray(repping) 
			@delarray(checkusrping)
			}
		}
		(2)
		{
#			echo ** $user has pinged you. (2x)
			msg $user Stop pinging me, damnit..
		}
		(3)
		{
#			echo ** $user has pinged you. (3x)
			msg $user Stop pinging me, this is your last warning.
#			raw 610 $user "Ping flooding!"
		}
		(*)
		{
#			echo ** $user has pinged you. (4x)
			msg $user Stop pinging me now, won't you fuckhead?
#			raw 610 $user "Ping flooding!"
			whois -cmd
			{
				switch ($tr(/"//$1))
					{
						(Moderator) {;}
						(Admin) {;}
						(Elite) {;}
						(*)
						{
							raw 610 $0 "Ping Flooding!!"
						 }
					}
				} $0
		}
	}
}