include library.ai_lib;
include library.callable;
include library.pet_lib;
include library.utils;
include library.chat;
include library.create;

const string MOUNT_VENDOR_CONVO = "beta/mount_vendor";

const int EXPIRATION_TIME = 60 * 60 * 24 * 4; // 4 days
const int MOUNT_EXPIRATION_TIME = 60 * 60 * 24 * 7; // 7 days

trigger OnAttach()
{
	setInvulnerable(self, true);
	persistObject(self);
	setCondition(self, CONDITION_CONVERSABLE);
	ai_lib.setDefaultCalmBehavior(self, ai_lib.BEHAVIOR_SENTINEL);
	setObjVar(self, "ai.diction", "townperson");
	setObjVar(self, "mount_vendor.create", (getGameTime() + EXPIRATION_TIME));
	setName(self, "Travelling Mount Merchant");
	
	messageTo (self, "expireAndCleanup", null, EXPIRATION_TIME, true);
	
	return SCRIPT_CONTINUE;
}

trigger OnInitialize()
{
	int expirationTime = getIntObjVar(self, "mount_vendor.create");

	if(getGameTime() > expirationTime)
		messageTo(self, "expireAndCleanup", null, 0, false);

	return SCRIPT_CONTINUE;
}

messageHandler expireAndCleanup()
{
	destroyObject(self);

	return SCRIPT_CONTINUE;
}

trigger OnObjectMenuRequest(obj_id player, menu_info mi)
{
	int mnu = mi.addRootMenu (menu_info_types.CONVERSE_START, null);
	menu_info_data mdata = mi.getMenuItemById(mnu);
	mdata.setServerNotify(false);

	return SCRIPT_CONTINUE;
}


trigger OnStartNpcConversation (obj_id speaker)
{
	chat.setGoodMood(self);

	faceToBehavior(self, speaker);
	string_id greeting = new string_id (MOUNT_VENDOR_CONVO, "start");//Wanna buy a mount?
	string_id response[] = new string_id [2];
	response[0] = new string_id (MOUNT_VENDOR_CONVO, "yes");//yes
	response[1] = new string_id (MOUNT_VENDOR_CONVO, "no");//no

	npcStartConversation (speaker, self, MOUNT_VENDOR_CONVO, greeting, response);

	return SCRIPT_CONTINUE;
}

trigger OnNpcConversationResponse(string convo, obj_id player, string_id response)
{
	if(!convo.equals(MOUNT_VENDOR_CONVO))
		return SCRIPT_CONTINUE;

	npcRemoveConversationResponse(player, response);

	if(response.getAsciiId().equals("yes"))//yes
	{
		npcRemoveConversationResponse(player, new string_id(MOUNT_VENDOR_CONVO, "no"));

		string_id message = new string_id (MOUNT_VENDOR_CONVO, "choose");//pick a droid
		npcSpeak(player, message);
		string_id[] responses = new string_id[8];
		responses[0] = new string_id(MOUNT_VENDOR_CONVO, "carrion_spat");
		responses[1] = new string_id(MOUNT_VENDOR_CONVO, "kaadu");
		responses[2] = new string_id(MOUNT_VENDOR_CONVO, "dewback");
		responses[3] = new string_id(MOUNT_VENDOR_CONVO, "bol");
		responses[4] = new string_id(MOUNT_VENDOR_CONVO, "falumpaset");
		responses[5] = new string_id(MOUNT_VENDOR_CONVO, "brackaset");
		npcSetConversationResponses(player, responses);
		return SCRIPT_CONTINUE;
	}
	else if(response.getAsciiId().equals("no"))//no
	{
		npcRemoveConversationResponse(player, new string_id(MOUNT_VENDOR_CONVO, "yes"));

		string_id message = new string_id (MOUNT_VENDOR_CONVO, "goodbye");//goodbye
		npcSpeak(player, message);
		npcEndConversation(player);
		return SCRIPT_CONTINUE;
	}

	string mountType = response.getAsciiId();

	string diction = "";

	if(mountType.equals("carrion_spat"))
		mountType = "carrion_spat";
	else if(mountType.equals("kaadu"))
		mountType = "kaadu_motley";
	else if(mountType.equals("dewback"))
		mountType = "lesser_dewback";
	else if(mountType.equals("bol"))
		mountType = "bol_lesser_plains";
	else if(mountType.equals("falumpaset"))
		mountType = "falumpaset_plodding";
	else if(mountType.equals("brackaset"))
		mountType = "brackaset_lowlands";
	else
		return SCRIPT_CONTINUE;

	location spawnLoc = getLocation(self);
	spawnLoc.x += 2;
	spawnLoc.z += 2;

	obj_id mount = create.object(mountType, spawnLoc);

	if(isValidId(mount))
	{
		//attachScript(mount, "ai.pet_advance");
		if(!hasScript(player, "ai.pet_master"))
		{
			attachScript(player, "ai.pet_master");
		}

		if(!createNewMount(player, mount))
		{
			destroyObject(mount);
		}
		else
		{
			if(getMountsEnabled())
			{
				if(couldPetBeMadeMountable(mount) == 0)
				{
					if(makePetMountable(mount))
					{
						obj_id petControlDevice = callable.getCallableCD(mount);
						setObjVar(petControlDevice, "ai.pet.trainedMount", 1);
					}
				}
				else
				{
					sendSystemMessageTestingOnly(player, "For some reason, the creature spawned can NOT be turned into a mount. Might be out of SCALE, could be several other things.");
					sendSystemMessageTestingOnly(player, "Anyhow, try making a mount using the REAL way instead of using a fake-out shortcut method. If you've got GOD access, it shouldn't take *much* longer.");
					sendSystemMessageTestingOnly(player, "And no writing up bugs on a broken TEST script.");
				}

			}

			string_id message = new string_id(MOUNT_VENDOR_CONVO, "ok");//here you go
			npcSpeak(player, message);
			npcEndConversation(player);
		}
	}

	return SCRIPT_CONTINUE;
}

boolean createNewMount(obj_id master, obj_id pet)
{
	string creatureName = ai_lib.getCreatureName(pet);
	
	if(creatureName == null || creatureName == "")
	{
		return false;
	}

	int petSpecies = ai_lib.aiGetSpecies(pet);
	
	if(petSpecies == -1)
	{
		return false;
	}

	if(callable.hasCallable(master, callable.CALLABLE_TYPE_RIDEABLE))
	{
		return false;
	}

	int petType = pet_lib.getPetType(pet);

	if(!pet_lib.hasMaxStoredPetsOfType(master, petType))
	{
		if(!callable.hasCallableCD(pet))
		{
			obj_id datapad = utils.getPlayerDatapad(master);
			
			if(!isIdValid(datapad))
			{
				return false;
			}

			string controlTemplate = "object/intangible/pet/" + utils.dataTableGetString(create.CREATURE_TABLE, creatureName, "template");

			if(!controlTemplate.endsWith(".iff"))
			{
				controlTemplate = pet_lib.PET_CTRL_DEVICE_TEMPLATE;
			}

			obj_id petControlDevice = createObject(controlTemplate, datapad, "");
			
			if(!isIdValid(petControlDevice))
			{
				petControlDevice = createObject(pet_lib.PET_CTRL_DEVICE_TEMPLATE, datapad, "");
				
				if(!isIdValid(petControlDevice))
				{
					sendSystemMessage(master, pet_lib.SID_SYS_TOO_MANY_STORED_PETS);
					return false;
				}
			}
			
			pet_lib.setUpPetControlDevice(petControlDevice, pet);
			callable.setCallableLinks(master, petControlDevice, pet);

			setObjVar(petControlDevice, "mount_vendor.create", (getGameTime() + MOUNT_EXPIRATION_TIME));
			messageTo(petControlDevice, "expireAndCleanup", null, MOUNT_EXPIRATION_TIME, true);
			attachScript(petControlDevice, "beta.free_mount");
		}
		else
		{
			callable.setCallableLinks(master, callable.getCallableCD(pet), pet);
		}

		dictionary params = new dictionary();
		params.put("pet", pet);
		params.put("master", master);
		
		messageTo(pet, "handleAddMaster", params, 1, false);

		return true;
	}
	
	sendSystemMessage(master, pet_lib.SID_SYS_TOO_MANY_STORED_PETS);

	return false;
}