//Restrict Weapon Command
//Created By: J3ff Hoogland
//Contact Email: blue_starsoar@yahoo.com
//Web address: www.dndsource.net
//Date Started: 10/29/07
block load
{
	es_xset _rw_string 0
	es_xset _rw_count 0
	es_xset _rw_exists 0
	es_xset _rw_userid 0
	es_xset _rw_weapon 0
	es_xset _rw_token 0
	es_xset _rw_item 0
	es_xexists _rw_exists keygroup rwusers
	ifx false(_rw_exists) do
	{
		es_xkeygroupcreate rwusers
	}
	es_xexists _rw_exists command restrictweapon
	ifx false(_rw_exists) do
	{
		es_xregcmd restrictweapon restrictweapon/setrestriction "Usage: restrictweapon <userid> <weapon name>"
	}
}
block unload
{
	es_xkeygroupdelete rwusers
}
event item_pickup
{
	es_keygetvalue _rw_string rwusers event_var(userid) restricted
	es_keygetvalue _rw_count rwusers event_var(userid) count
	while "server_var(_rw_count) >= 1" "es_xdoblock restrictweapon/dropweaponcheck"
}
block dropweaponcheck
{
	es_token _rw_token server_var(_rw_string) server_var(_rw_count) ,
	if (event_var(item) == server_var(_rw_token)) do
	{
		es_set _rw_item event_var(item)
		es_xformatv _rw_item "weapon_%1" _rw_item
		es_sexec event_var(userid) use server_var(_rw_item)
		es_sexec event_var(userid) drop
	}
	else do
	{
		es_xmath _rw_count - 1
		ifx true(_rw_count) do
		{
			es_xdoblock restrictweapon/dropweaponcheck
		}
	}
}
event player_activate
{
	es_exists _rw_exists key rwusers event_var(userid)
	ifx false(_rw_exists) do
	{
		es_keycreate rwusers event_var(userid)
	}
	es_keysetvalue rwusers event_var(userid) restricted 0
	es_keysetvalue rwusers event_var(userid) count 0
}
event player_disconnect
{
	es_keydelete rwusers event_var(userid)
}
block setrestriction
{
	es_xgetargv _rw_userid 1
	es_xgetargv _rw_weapon 2
	es_keygetvalue _rw_string rwusers server_var(_rw_userid) restricted
	es_keygetvalue _rw_count rwusers server_var(_rw_userid) count
	ifx false(_rw_string) do
	{
		es_set _rw_string server_var(_rw_weapon)
	}
	else do
	{
		es_xformatv _rw_string "%1,%2" _rw_string _rw_weapon
	}
	es_keysetvalue rwusers server_var(_rw_userid) restricted server_var(_rw_string)
	ifx false(_rw_count) do
	{
		es_xset _rw_count 1
	}
	else do
	{
		es_xmath _rw_count + 1
	}
	es_keysetvalue rwusers server_var(_rw_userid) count server_var(_rw_count)
}