void SkullKey shape#(0x400) ()
{
	if (event == DOUBLECLICK)
	{
		UI_close_gumps();
		// This is only needed once:
		// UI_click_on_item();
		var target = UI_click_on_item();
		// This is the case where nothing is clicked:
		if (!target)
		{
			randomPartyBark("@That is the ground, avatar!@");
			return;
		}
		var lock_shapes = [SHAPE_DOOR_HORIZONTAL, SHAPE_DOOR_VERTICAL, SHAPE_DOOR2_HORIZONTAL, SHAPE_DOOR2_VERTICAL, SHAPE_CHEST, SHAPE_LOCKED_CHEST];
		var target_shape = target->get_item_shape();
		if (target_shape in lock_shapes)
		{
			var target_frame = target->get_item_frame();
			if (((target_frame + 1) % 4) == 0)
			{
				var unlock_frame = (target_frame - 3);
				// This is wrong:
				// set_item_frame(target, unlock_frame);
				// It is equivalent to
				// item->set_item_frame(target);
				// This is the correct form:
				target->set_item_frame(unlock_frame);
				// Also correct would be:
				// UI_set_item_frame(target, unlock_frame);
				return;
			}
			else
			{
				avatarBark("@The key doesn't fit.@");
				return;
			}
		}
		else
		{
			randomPartyBark("@There is no lock on that.@");
			return;
		}
	}
}

void HornOfPlenty shape#(0x402) ()
{
	if (event == DOUBLECLICK)
	{	
		var target = UI_click_on_item();
		var party = UI_get_party_list();
		if (!target)
		{
			UI_flash_mouse(1);
			return;
		}
		else if (!(target in party))
		{
			UI_flash_mouse(1);
			return;
		}
		else
		{
			var targetfood = (target->get_npc_prop(9));
			if (targetfood > 24)
			{
				target->item_say("@No, thank thee.@");
				return;
			}
			else
			{
				target->set_npc_prop(9, (targetfood + 31));
				target->item_say("@Ahh, I am full now.@");
				return;
			}
		}
	}
}

target->set_npc_prop(9, (targetfood + 31));

target->set_npc_prop(9, (31-targetfood));

void ChaosSword shape#(0x403) ()
{
	if (event == WEAPON)
	{
		var wielder = UI_get_container(ChaosSword);
		wielder->set_item_flag(CHARMED);
		UI_set_attack_mode(wielder, 0);
		return;
	}
}

void SpellBook shape#(0x2f9) ()
{
	if (event == DOUBLECLICK)
	{
		var HornOfPlenty = UI_find_object(PARTY,0x402,QUALITY_ANY,FRAME_ANY);
		HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,FRAME_ANY);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,0);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,1);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,2);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,3);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,4);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,5);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,6);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,7);
		SpellBook.original();
	}
}

void HornOfPlenty shape#(0x402) ()
{
	if (event == DOUBLECLICK)
	{	
		HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,FRAME_ANY);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,0);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,1);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,2);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,3);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,4);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,5);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,6);
		HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,7);
	}
}

void CurePoison object#(0x649) ()
{
	var HornOfPlenty = UI_find_object(PARTY,0x402,QUALITY_ANY,FRAME_ANY);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,0);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,1);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,2);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,3);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,4);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,5);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,6);
	HornOfPlenty->remove_cont_items(10,0x34a,QUALITY_ANY,7);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,0);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,1);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,2);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,3);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,4);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,5);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,6);
	HornOfPlenty->add_cont_items(10,0x34a,QUALITY_ANY,7);
	CurePoison.original();
}

void AntiMagic object#(0x906) ()
{
	<custom stuff here>
	AntiMagic.original();
}