polserver/pol-core/pol/dblclick.cpp

/*
History
=======
2006/05/16 Shinigami: updated doubleclick() to support Elf
2006/05/26 Shinigami: fixed start_script call of dblclickother
2007/01/04 MuadDib:   changed a large if || || || to a case switch in dbl click check.
2007/01/04 MuadDib:   changed flag status in sendpaperdoll to send status, instead of
                      only warmode status. 
2008/09/24 Luth:      If this is my paperdoll, tell me all about me otherwise tell less
2008/09/xx Turley:    Paperdoll info decided with ssopt.cfg option (for luth's update)
2009/07/23 MuadDib:   updates for new Enum::Packet Out ID
2009/09/03 MuadDib:   Relocation of multi related cpp/h

Notes
=======

*/

#include "clib/stl_inc.h"

#include <string.h>

#include "clib/clib.h"
#include "clib/endian.h"

#include "plib/realm.h"

#include "client.h"
#include "eventid.h"
#include "itemdesc.h"
#include "msghandl.h"
#include "charactr.h"
#include "los.h"
#include "npc.h"
#include "pktin.h"
#include "polcfg.h"
#include "realms.h"
#include "scrstore.h"
#include "ufunc.h"
#include "uoscrobj.h"
#include "multi/multi.h"
#include "ssopt.h"

void send_paperdoll( Client *client, Character *chr )
{
	PKTOUT_88 msg;
	memset( &msg, 0, sizeof msg );
	msg.msgtype = PKTOUT_88_ID;
	msg.serial = chr->serial_ext;
	
	if ((!ssopt.privacy_paperdoll) || (client->chr == chr))
	{
		string name = (chr->title_prefix.empty() ? "": chr->title_prefix + " ") + 
					  chr->name() + 
					  (chr->title_suffix.empty() ? "": " " + chr->title_suffix );
		if (!chr->title_race.empty())
			name += " (" +  chr->title_race + ")";
		strzcpy( (char *) msg.text, name.c_str(), sizeof msg.text );
	}
	else
		strzcpy( (char *) msg.text, chr->name().c_str(), sizeof msg.text );


	// MuadDib changed to reflect true status for 0x20 packet. 1/4/2007
	// Paperdoll Appears different type Status byte than other walk/update
	// packets. Using poison/hidden here will break peace/war button.
	u8 flag1;
	if(client->UOExpansionFlag & AOS)
	{
		flag1 = chr->warmode ? 1 : 0;		
		if (client->chr->serial_ext == chr->serial_ext)
			flag1 |= CHAR_FLAG1_CANALTER;
	}
	else
		flag1 = chr->warmode ? 1 : 0;
	msg.flag1 = flag1;
//	msg.flag1 = chr->warmode ? 1 : 0;

	client->transmit( &msg, sizeof msg );
}

void doubleclick( Client *client, PKTIN_06 *msg )
{
	u32 serial = cfBEu32( msg->serial );
	u32 paperdoll_macro_flag = serial & 0x80000000Lu;
	serial &= ~0x80000000Lu; // keypress versus doubleclick switch?

		// the find_character would find this, but most of the time it's your own paperdoll.
		// this is special-cased for two reasons: 
		//	  1) it's commonly done
		//	  2) ghosts can doubleclick ONLY their paperdoll.
	if (serial == client->chr->serial)
	{
		if (!paperdoll_macro_flag)
		{
			ScriptDef sd;
			sd.quickconfig( "scripts/misc/dblclickself.ecl" );
			if (sd.exists())
			{
				ref_ptr<EScriptProgram> prog;
				prog = find_script2( sd, false, config.cache_interactive_scripts );
				if (prog.get() != NULL && client->chr->start_script( prog.get(), false ))
				{
					return;
				}
			}
		}
		send_paperdoll( client, client->chr );
		return;
	}

	if ( client->chr->dblclick_wait > read_gameclock() )
	{
		private_say_above( client->chr, client->chr, "You must wait to use something again." );
		return;
	}
	else
		client->chr->dblclick_wait = read_gameclock() + ssopt.dblclick_wait;

	if ( IsCharacter(serial) ) 
	{ 
		if ( client->chr->dead() )
			return;
		Character *chr = find_character( serial );
		if ( !chr )
			return;

		if (chr->isa( UObject::CLASS_NPC ))
		{
			NPC* npc = static_cast<NPC*>(chr);
			if ( npc->can_accept_event( EVID_DOUBLECLICKED ) )
			{
				npc->send_event( new SourcedEvent( EVID_DOUBLECLICKED, client->chr ) );
				return;
			}
		}
		
		bool script_ran = false;
		ScriptDef sd;
		sd.quickconfig("scripts/misc/dblclickother.ecl");
		if ( sd.exists() )
		{
			ref_ptr<EScriptProgram> prog;
			prog = find_script2(sd, false, config.cache_interactive_scripts);
			if ( prog.get() != NULL )
				script_ran = client->chr->start_script(prog.get(), false, new ECharacterRefObjImp(chr));
		}
		if ( !script_ran && inrange(client->chr, chr) )
		{
// MuadDib Changed from a large if || || || to switch case. 1/4/2007
			switch(chr->graphic)
           {
               case UOBJ_HUMAN_MALE:
               case UOBJ_HUMAN_FEMALE:
               case UOBJ_HUMAN_MALE_GHOST:
               case UOBJ_HUMAN_FEMALE_GHOST:
               case UOBJ_ELF_MALE:
               case UOBJ_ELF_FEMALE:
               case UOBJ_ELF_MALE_GHOST:
               case UOBJ_ELF_FEMALE_GHOST:
               case UOBJ_GAMEMASTER:
               case 0x3de:
               case 0x3df:
               case 0x3e2:
                      send_paperdoll(client, chr);
                      break;
           }
		}
		return;
	}
	else // doubleclicked an item
	{
		// next, search worn items, items in the backpack, and items in the world.
		Item *item = find_legal_item( client->chr, serial );

		// next, check people's backpacks. (don't recurse down)
		//	  (not done yet)

		if (item != NULL)
		{
			const ItemDesc& id = item->itemdesc();
			
			if (!id.ghosts_can_use && client->chr->dead())
			{
				private_say_above( client->chr, client->chr, "I am dead and cannot do that." );
				return;
			}
			if (!id.can_use_while_frozen && client->chr->frozen())
			{
				private_say_above( client->chr, client->chr, "I am frozen and cannot do that." );
				return;
			}
			if (!id.can_use_while_paralyzed && client->chr->paralyzed())
			{
				private_say_above( client->chr, client->chr, "I am frozen and cannot do that." );
				return;
			}
			
			unsigned short dst = pol_distance( client->chr, item );
			if (dst > id.doubleclick_range &&
				!client->chr->can_dblclickany())
			{
				private_say_above( client->chr, item, "That is too far away." );
				return;
			}
			UObject* obj = item->toplevel_owner();
			obj = obj->self_as_owner();
			if (id.use_requires_los && !client->chr->realm->has_los( *client->chr, *obj )) //DAVE 11/24
			{
				private_say_above( client->chr, item, "I can't see that." );
				return;
			}

			item->double_click( client );
			return;
		}

		// allow looking into containers being traded
		if (client->chr->is_trading())
		{
			UContainer* cont = client->chr->trade_container()->find_container( serial );
			if (cont != NULL)
			{
				cont->builtin_on_use( client );
				if (!cont->locked())
				{
					if (client->chr->trading_with->client != NULL)
						cont->builtin_on_use( client->chr->trading_with->client );
				}
				return;
			}
		}
	}
}

MESSAGE_HANDLER( PKTIN_06, doubleclick );