Unnamed

////////////////////////////////////////////////////////////////////////////////
//		Dot command to launch the ShapeChange Script
//		Author: Mithril
//		Create Date: 03/11/02
////////////////////////////////////////////////////////////////////////////////
use uo;
use os;

include ":System:Include/Client";

program DotCommand( who, text )
	var graphic, color;
	var splitText := array;
	var shapeChanger;
	var changeGraphic;
	var normalGraphic;
	var critterGraphic;
	var normalColor;
	var critterColor;
	var changeColor;
	
		SendSysMessage( who, "Who's ShapeChange critter would you like to set?" );
		shapeChanger := Target( who, TGTOPT_NOCHECK_LOS );
		if( !shapeChanger )
			SendSysMessage( who, "Canceled." );
			return;
		endif
		
	if (GetObjProperty( who, "SubRaceName" ) == "Cat") 
		SendSysMessage( who, "You morph into a feline" );
		splitText := SplitWords( text );
		graphic := 0x2119;
		color := CInt( splitText[1] );
		
	
	elseif (GetObjProperty( who, "SubRaceName" ) == "Wolf")
		SendSysMessage( who, "You morph into a wolf" );
		
		splitText := SplitWords( text );
		graphic := 0x2122;
		color := CInt( splitText[1] );

	elseif (GetObjProperty( who, "SubRaceName" ) == "Dragon")
		SendSysMessage( who, "You morph into a dragon" );
		splitText := SplitWords( text );
		graphic := 0x20d6;
		color := CInt( splitText[1] );

	else SendSysMessage( who, "You Cant Morph" );
		endif 
		
		if( color )
			SetObjProperty( shapeChanger, "critterColor", color );
		endif
	

	if (GetObjProperty( who, "graphic" ) == 0x190  or 0x191 );
	   if  ( graphic == 0x20d6 );
	   		who.graphic := 0x20d6;
	   		SendSysMessage( who, "Dragon" );
	   elseif  ( graphic == 0x2122 );
	   		who.graphic := 0x2122;
	   		SendSysMessage( who, "Wolf" );
	   elseif  ( graphic == 0x2119 );
	   		who.graphic := 0x2119;
	   		SendSysMessage( who, "Cat" );
	   endif
	else SetObjProperty( who, "graphic", 0x190 );
	SendSysMessage( who, "Done6." );	
	endif	

endprogram