SolarStrike Software

Code: Select all

	<onSkillCast><![CDATA[
		-- Additional Lua code to execute when casting a skill
		-- Note: arg1 contains the skill being used.
		-- i.e. arg1.Name will be the name of the skill being cast
		-- e.g.:

--	if( 50 > player.HP/player.MaxHP*100 ) then
--		if player.Class1 == CLASS_PRIEST then
--			player:cast("PRIEST_SOUL_SOURCE");
--			player:cast("PRIEST_URGENT_HEAL");
--		end
--		if player.Class2 == CLASS_PRIEST then
--			player:cast("PRIEST_HOLY_AURA");
--			player:cast("PRIEST_URGENT_HEAL");
--			player:cast("PRIEST_URGENT_HEAL");
--		end
--	elseif( 75 > player.HP/player.MaxHP*100 ) then
--		if player.Class1 == CLASS_PRIEST then
--			player:cast("PRIEST_HOLY_AURA");
--			player:cast("PRIEST_URGENT_HEAL");
--		end
--		if player.Class2 == CLASS_PRIEST then
--			player:cast("PRIEST_URGENT_HEAL");
--		end
--	end;
	]]></onSkillCast>

Code: Select all

function CEggPet:Summon()
	self:update()
	while self.EggId > 0 and self.Summoned == false and player.Alive and player.HP > 0 do
		RoMScript("SummonPet("..self.EggSlot..")")
		repeat

Code: Select all

function CEggPet:Summon()
	self:update()
	while self.EggId > 0 and self.Summoned == false and player.Alive and player.HP > 0 do
		RoMScript("SummonPet("..self.EggSlot..")")
		yrest(500)
		repeat

Code: Select all

while self.EggId > 0 and self.Summoned == false and player.Alive and player.HP > 0 do
		yrest(500);
		RoMScript("SummonPet("..self.EggSlot..")")
		yrest(500);
		repeat

Code: Select all

	while self.EggId > 0 and self.Summoned == false and player.Alive and player.HP > 0 do
		keyboardRelease(key.VK_W);
		RoMScript("MoveForwardStop()");
		yrest(500);
		RoMScript("SummonPet("..self.EggSlot..")")
		yrest(500);
		repeat

Code: Select all

	while self.EggId > 0 and self.Summoned == false and player.Alive and player.HP > 0 do
		keyboardRelease(key.VK_W);
		--RoMScript("MoveForwardStop()");
		--yrest(500);
		RoMScript("SummonPet("..self.EggSlot..")")
		--yrest(500);
		repeat

Code: Select all

-- _reagent is the index of the pet you want to merge into this egg.
function CEggPet:merge(_reagent)
	local max, count = RoMScript("GetPetMixDayMergeCount("..tostring(self.EggSlot)..")");
	--printf(tostring(count).."/"..tostring(max).." merges\n");
	if (count >= max) then
		printf("Maximum number of merges has been reached");
	end;
	
	RoMScript("/run PET_MIX_SELECT_ID1="..tostring(self.EggSlot).."; PET_MIX_SELECT_ID2="..tostring(_reagent).."; SetPetMix(PET_MIX_SELECT_ID1, PET_MIX_SELECT_ID2, 0)");
	self:update();
end

-- _eggSlot is the slot you wish to extract the egg to
-- _item is the inventory item that is the pet egg you wish to extract (I haven't gotten to the point yet where I can easily find items that are eggs and that are the level I want etc)
function ExtractNewEgg(_eggSlot, _item)
	if (_item == nil) then
		printf("No egg item was specified. Cannot Extract the egg.\n");
		return;
	end;
	
	if (_eggSlot == nil) then
		printf("You must specify an egg slot into which to extract the new egg.\n");
		return;
	end;
	
	local inUse = RoMScript("HasPetItem("..tostring(_eggSlot)..")");
	
	if (inUse) then
		printf("The pet slot is already in use\n");
		return;
	end;

	_item:use();
	
	RoMScript("SetPetItem("..tostring(_eggSlot)..")");
end;

Code: Select all

   if (count >= max) then
      printf("Maximum number of merges has been reached");
   end;

Code: Select all

egg1 = CEggPet(1)
egg2= CEggPet(2)

Code: Select all

egg1 = CEggPet(1)
if egg1.Empty and egg1.Available then
   ... Extract egg to it.
end

Code: Select all

egg = CPetEgg(item.Address)

Code: Select all

Id -- The Id of the egg
Name -- The name of the egg eg. Holy Pet Egg
PetId -- The id of the creature it creates
PetName -- The name of the creature it creates
Element -- The pets element (-1=none, 0=Earth, 1=Water, 2=Fire, 3=Wind, 4=Light, 5=Dark)
Level 
Aptitude

Code: Select all

if egg.Element == ELEMENT_FIRE then

Code: Select all

egg:extract(slot)

Code: Select all

local slotToUse = 2;
local mainPet = CEggPet(1);

for i=1, inventory.MaxSlots, 1 do
	local item = inventory.BagSlot[i];
	local itemName = string.lower(item.Name);
	if (string.find(itemName, ".*pet egg")) then
		printf("Found a pet egg at slot "..i.." called "..item.Name.."\n");
		local egg = CPetEgg(item);
		if (egg) then
			local reagentPet = egg:extract(slotToUse);
			
			if (mainPet and reagentPet) then
				mainPet:merge(reagentPet);
			end;
		end;
	end;
end;