L2Tower Discord Let's keep the community alive with discord. Discussions about plugins and scripts L2Tower Discord

Post Reply 
 
Thread Rating:
  • 34 Vote(s) - 2.62 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Solo iss+summoner scripts combo
Author Message
capucine Offline
Expired VIP Member
**

Posts: 1,083
Joined: Jan 2013
Reputation: 208
Version: 1.4.2.142
Post: #101
RE: Solo iss+summoner scripts combo

(08-02-2014 01:45 AM)pushiputak Wrote:  is it possible guys with this script pet summons to use skills also :?

Here is the script im using for "mage" summons and it uses aoe skill...

+2 rep me if it helped you...!

    LUA Programming
me = GetMe();
 
TankAura = true;					-- Auto Tank Aura (false/true)(enables auto Rage aura, etc)
CubicSummon = true;					-- Auto Summon Cubic (atm only for dark elf tank)
TankAuraSkillId = 10030;				-- 10028:Rage, 10032:Iron, 10030:Challenge (find id of skill for tank auras)
TankAuraSkill = GetSkills():FindById(TankAuraSkillId);	-- 
 
DualHPSkillId = 1986;					-- Dual Maximum HP
DualHPSkill = GetSkills():FindById(DualHPSkillId);	-- 
 
WynPetSummon = true;					-- Auto Summon Pets & Shots (false/true)
WhenManaPercentIsOver = 0;				-- Transfer Pain (101 to not use, 0 to use all time)
SummonType = "m"; 					-- Changes pet type to summon, (m: magic summons, t: tanking summons, w: warrior summons)
BeastSSSummon = true;					-- Auto Shot summon (false/true)
BeastSSMinCount = 5000;					-- value * 1k to start shot summon
BeastSS = "Beast Soulshot";				-- Shot name for pets
CrystalNameCount = "Crystal (R-grade)";			-- Crystal Name
 
 
-- if you want you servitors to use any particular skill they have otherwise set it -1, for list of servitor/pets skill Ids check each class description
if (me:GetClass() == 177) then				-- Wynn Elemental Master
	PetActionID = 1135; 					-- Merrow (1130 Unicorn's Aggression, 1131 Unicorn's Stun), Magnus (1132 Unicorn's Bite, 1133 Unicorn's Pounce), Seraphim (1134 Unicorn's Touch, 1135 Unicorn's Power)
elseif (me:GetClass() == 178) then			-- Wynn Spectral Master
	PetActionID = 1141; 					-- Nightshade (1136 Phantom Aggression, 1137 Phantom Stun), Spectral Lord (1138 Phantom Bite, 1139 Phantom Pounce), Soulless (1140 Phantom Touch, 1141 Phantom Power)
elseif (me:GetClass() == 176) then			-- Wynn Arcana Lord
	PetActionID = -1129; 					-- Kai the Cat (1124 Feline Aggression, 1125 Feline Stun), Feline King (1126 Feline Bite, 1127 Feline Pounce), Feline Queen (1128 Feline Touch, 1129 Feline Power)
end;
 
 
function SummonPetsType(tips)
local me = GetMe();
	if (me:GetClass() == 177) then			
		if (tips == "m") then
			return 11331;		
		elseif (tips == "w") then
			return 11330;		
		elseif (tips == "t") then
			return 11329;		
		end;
	end;
	if (me:GetClass() == 178) then		
		if (tips == "m") then
			return 11340;		
		elseif (tips == "w") then
			return 11339;		
		elseif (tips == "t") then
			return 11338;	
		end;
	end;
	if (me:GetClass() == 176) then		
		if (tips == "m") then
			return 11322;	
		elseif (tips == "w") then
			return 11321;	
		elseif (tips == "t") then
			return 11320;	
		end;
	end;
return -1;
end; 
 
function isTransferPainNeedActivation()
	if (me:GetMpPercent() > WhenManaPercentIsOver) then
		return true;
	end;
		return false;
end;
 
 
function GetItemAmountByName(name)
local invList = GetInventory();
	for item in invList.list do
		if (item.Name == name) then
			ShotsDisId = item.displayId;
			return item.ItemNum;
		end;
	end;
			return 0;
end; 
 
 
function GetSummonCount()
local petlistaround = GetPetList();
local count = 0;
 
	for Apet in petlistaround.list do
		if (Apet:GetNickName() == me:GetName()) then
			count = count +1;
		end;
	end;
	return count;
end;
 
 
--   AEORE   --
if (me:GetClass() == 179) or (me:GetClass() == 180) or (me:GetClass() == 181) then
	ShowOnScreen(2,1000,0,"Auras ON - AERO");
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(1939) or not me:GotBuff(DualHPSkillId) then
				if (MySkills:FindById(1939) ~= nil) and not me:GotBuff(1939) then
					UseSkillRaw(1939,false,false);
					Sleep(2500);
				end;
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
end;
 
---- SIGEL ----
if (me:GetClass() == 148) or (me:GetClass() == 149)  or (me:GetClass() == 150)  or (me:GetClass() == 151) then
	ShowOnScreen(2,1000,0,"Auras ON - Sigel");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if CubicSummon then
				if not me:HaveCubic(16) then
					if (MySkills:FindById(10043) ~= nil) then
						UseSkillRaw(10043,false,false); -- Summon Knight Cubic
						Sleep(1000);
					end;
				end;
				if (me:GetClass() == 151) then			
					if not me:HaveCubic(21) then
						if (MySkills:FindById(10080) ~= nil) then
							UseSkillRaw(10080,false,false); -- Summon Hex Cubic
							Sleep(1500);
						end;
					end;
					if not me:HaveCubic(20) then
						if (MySkills:FindById(10079) ~= nil) then
							UseSkillRaw(10079,false,false); -- Summon Phantom Cubic
							Sleep(1500);
						end;
					end;
				end;
			end;
 
			if not me:GotBuff(1927) or not me:GotBuff(TankAuraSkillId) or not me:GotBuff(DualHPSkillId) then
				if (MySkills:FindById(1927) ~= nil) and not me:GotBuff(1927) then
					UseSkillRaw(1927,false,false);
					Sleep(2500);
				end;
				if TankAura then
					if (TankAuraSkill ~= nil) and not me:GotBuff(TankAuraSkillId) then
						UseSkillRaw(TankAuraSkillId,false,false);
						Sleep(2500);
					end;
				end;
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
 
end;
 
---- WYNN ----
if (me:GetClass() == 176) or (me:GetClass() == 177) or (me:GetClass() == 178) then
	ShotsActivated = false;
	ShowOnScreen(2,1000,0,"Auras ON - WYNN");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		target = GetTarget();
 
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(1937) or not me:GotBuff(DualHPSkillId) then
				if (MySkills:FindById(1937) ~= nil) and not me:GotBuff(1937) then
					UseSkillRaw(1937,false,false);
					Sleep(2500);
				end;
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
 
			if WynPetSummon then
				if not me:GotBuff(11270) then
					if isTransferPainNeedActivation() then
						if (MySkills:FindById(11270) ~= nil) and not me:GotBuff(11270) then
							UseSkillRaw(11270,false,false);
							Sleep(4*1000);
						end;
					end;
				end;
				if (GetSummonCount() < 2) then
					if (GetSummonCount() == 0) then
						ShotsActivated = false;
					end;
					if (SummonPetsType(SummonType) > 0) then
						UseSkillRaw(SummonPetsType(SummonType),false,false); 
						Sleep(1000);
						ShotsActivated = false;
					end;
				end;
				if BeastSSSummon then
					if (GetItemAmountByName(BeastSS) < BeastSSMinCount*1000) then
						if (GetItemAmountByName(BeastSS) == 0) then
							ShotsActivated = false;
						end;
						if (MySkills:FindById(11316) ~= nil) and GetItemAmountByName(CrystalNameCount) > 0 and(MySkills:FindById(11316):IsSkillAvailable()) then
							UseSkillRaw(11316,false,false);
							Sleep(400);
						end;
					end;
				end;
				if not (ShotsActivated) and (GetSummonCount() > 0) and (GetItemAmountByName(BeastSS) > 5) then
					ActivateSoulShot(ShotsDisId, true);
					ShotsActivated = true;
					Sleep(1000);
				end;
				if (target ~= nil) and (me ~= nil) and target:IsMonster() and (GetSummonCount() > 0) and (target:GetDistance() < 1000) then 
					if not (target:IsAlikeDeath()) then
						if (PetActionID > 0) then
							Action(PetActionID,false,false);
							Sleep(400);
						end;
					end;
				end;
			end;
		end;
	Sleep(1*1000);
	until false;
 
 
end;
 
---- FEOH ----
if (me:GetClass() == 166) or (me:GetClass() == 167) or (me:GetClass() == 168) or (me:GetClass() == 169)  or (me:GetClass() == 170) then
	ShowOnScreen(2,1000,0,"Auras ON - FEOH");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(1935) or not me:GotBuff(DualHPSkillId) then
				if (MySkills:FindById(1935) ~= nil) and not me:GotBuff(1935) then
					UseSkillRaw(1935,false,false);
					Sleep(2500);
				end;
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
 
end;
 
---- OTHELL ----
if (me:GetClass() == 158) or (me:GetClass() == 159) or (me:GetClass() == 160) or (me:GetClass() == 161) then
	ShowOnScreen(2,1000,0,"Auras ON - OTHELL");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(1931) or not me:GotBuff(DualHPSkillId)  then
				if (MySkills:FindById(1931) ~= nil) and not me:GotBuff(1931) then
					UseSkillRaw(1931,false,false);
					Sleep(2500);
				end;
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
 
end;
 
---- YUL ----
if (me:GetClass() == 162) or (me:GetClass() == 163) or (me:GetClass() == 164) or (me:GetClass() == 165)then
	ShowOnScreen(2,1000,0,"Auras ON - YUL");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(1933) or not me:GotBuff(DualHPSkillId) then
				if (MySkills:FindById(1933) ~= nil) and not me:GotBuff(1933) then
					UseSkillRaw(1933,false,false);
					Sleep(2500);
				end;
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
 
end;
 
---- TYRR ----
if (me:GetClass() == 152) or (me:GetClass() == 153) or (me:GetClass() == 154) or (me:GetClass() == 155) or (me:GetClass() == 156) or (me:GetClass() == 157) then
	ShowOnScreen(2,1000,0,"Auras ON - TYRR");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(1929) or not me:GotBuff(DualHPSkillId) then
				if (MySkills:FindById(1929) ~= nil) and not me:GotBuff(1929) then
					UseSkillRaw(1929,false,false);
					Sleep(2500);
				end;
 
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
 
end;
 
---- ISS ----
if (me:GetClass() == 171) or (me:GetClass() == 172) or (me:GetClass() == 173) or (me:GetClass() == 174) or (me:GetClass() == 175) then
	ShowOnScreen(2,1000,0,"Auras ON - ISS");
 
	me = GetMe();
	MySkills = GetSkills();
	repeat
		if (GetMe():IsAlikeDeath() == true)then
			Sleep(5*1000)
			repeat
				Sleep(1000);
			until (GetMe():IsAlikeDeath() == false);
		end;
 
		if (me ~= nil) then
			if not me:GotBuff(DualHPSkillId) then
				if (DualHPSkill ~= nil) and not me:GotBuff(DualHPSkillId) then
					UseSkillRaw(DualHPSkillId,false,false);
					Sleep(2500);
				end;
			end;
		end;
	Sleep(10*1000);
	until false;
 
end;

08-02-2014 01:57 AM
Find all posts by this user Quote this message in a reply
dalmas Offline
Elpy
*

Posts: 4
Joined: Mar 2013
Reputation: 0
Version: 1.4.3.143
Post: #102
RE: Solo iss+summoner scripts combo

The AioSummoner v3 script worked like a charm until ertheia update. Now it does summon pets but it doesn't do any heal, any solution?
Big GrinBig GrinBig Grin
08-09-2014 22:02 PM
Find all posts by this user Quote this message in a reply
zition Offline
Gremlin
*

Posts: 8
Joined: Sep 2012
Reputation: 0
Version: 1.4.2.133
Post: #103
RE: Solo iss+summoner scripts combo

edit skills id
PHP Code:
function GetServitorHealSkill()
    
ServitorHealSkill nil;
    
ServitorHealSkill MySkills:FindById(11302); -- Major Servitor heal
    
if (ServitorHealSkill == nil) or not ServitorHealSkill:IsSkillAvailable() then    
 ServitorHealSkill 
MySkills:FindById(1127); -- Servitor Heal
    end
;
    
    if (
ServitorHealSkill == nil) or not ServitorHealSkill:IsSkillAvailable() then    
 ServitorHealSkill 
MySkills:FindById(11755); -- Radiant Heal
    end
;    
    
    if (
ServitorHealSkill == nil) or not ServitorHealSkill:IsSkillAvailable() then    
 ServitorHealSkill 
MySkills:FindById(11756); -- Panic Heal
    end

    
    if (
ServitorHealSkill == nil) or not ServitorHealSkill:IsSkillAvailable() then    
 ServitorHealSkill 
MySkills:FindById(1218); --Greater Battle Heal
    end
;
    
    if (
ServitorHealSkill == nil) or not ServitorHealSkill:IsSkillAvailable() then    
 ServitorHealSkill 
MySkills:FindById(1015); -- battle heal
    end
;
end
(This post was last modified: 08-18-2014 00:11 AM by zition.)
08-18-2014 00:09 AM
Find all posts by this user Quote this message in a reply
macacoprego Offline
VIP Member
***

Posts: 23
Joined: Jun 2013
Reputation: 0
Version: 1.4.2.142
Post: #104
RE: Solo iss+summoner scripts combo

it work for like an hour, then i got critical error on the inviter box.
08-21-2014 14:44 PM
Find all posts by this user Quote this message in a reply
Manboi_74 Offline
Expired VIP Member
**

Posts: 29
Joined: Aug 2014
Reputation: 4
Version: 1.4.2.132
Post: #105
RE: Solo iss+summoner scripts combo

These has to be an easier way to set up Servitor skill usage then a massively drawn out script like that, surely.

Maybe have the Servitor assist the Master and have a Nuke check list similar to the Masters?
09-03-2014 10:25 AM
Find all posts by this user Quote this message in a reply
capucine Offline
Expired VIP Member
**

Posts: 1,083
Joined: Jan 2013
Reputation: 208
Version: 1.4.2.142
Post: #106
RE: Solo iss+summoner scripts combo

(09-03-2014 10:25 AM)Manboi_74 Wrote:  These has to be an easier way to set up Servitor skill usage then a massively drawn out script like that, surely.

Maybe have the Servitor assist the Master and have a Nuke check list similar to the Masters?

Can't be simpler then this... Put the pet skill on your bar 1 position 6 or modify the script for your shortcut...

+2 rep me if it helped you...!

Since there is no condition at all, it may crash or take more cpu resources...

    LUA Programming
repeat
 
   Command("/useshortcut 1 6");   
   Sleep(1*1000);    -- 1000ms = 1 sec
 
until false;

09-03-2014 14:11 PM
Find all posts by this user Quote this message in a reply
 Reputed by : Manboi_74(+1) , peet007(+1)
Archerakosss Offline
Goblin Grave Robber
*

Posts: 10
Joined: Sep 2014
Reputation: 0
Version: 1.4.2.133
Post: #107
RE: Solo iss+summoner scripts combo

hi guyz i have problem with the leader script or even with the issLindvior script
the leader doesnt kick the iss or iss leave party after buff

anyone knows why?
09-10-2014 22:02 PM
Find all posts by this user Quote this message in a reply
llbean4106 Offline
Expired VIP Member
**

Posts: 19
Joined: Jul 2013
Reputation: 2
Version: 1.4.2.133
Post: #108
RE: Solo iss+summoner scripts combo

ya i need some assistance with this here, I powerlevel with my summoner but my iss is to high of a level, I just want my summoner to invite when need buffs and iss will buff then either leave or summoner will kick the iss.
01-10-2015 10:11 AM
Find all posts by this user Quote this message in a reply
rhadamants Offline
Expired VIP Member
**

Posts: 27
Joined: Jun 2012
Reputation: 6
Version: 1.4.2.136
Post: #109
RE: Solo iss+summoner scripts combo

ID skil Greater Servitor Might Wynn Summoner Spectral?
05-10-2015 00:50 AM
Find all posts by this user Quote this message in a reply
Morgal904 Offline
Expired VIP Member
**

Posts: 6
Joined: Aug 2013
Reputation: 0
Version: 1.4.2.142
Post: #110
RE: Solo iss+summoner scripts combo

hello have someone ID new summons? for example commando cat and witch cat??
06-09-2015 14:21 PM
Find all posts by this user Quote this message in a reply
Post Reply 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  Summoner Minion kyr 8 7,633 08-16-2015 22:42 PM
Last Post: mikey651990
  Premium+scripts questions krums 13 8,244 07-10-2015 08:19 AM
Last Post: TheQQmaster
  WTB Auto accept mail scripts or plugins king200527 0 2,234 07-07-2015 11:39 AM
Last Post: king200527
  weapon for summoner for best pve dps? drake182 3 5,926 06-28-2015 16:39 PM
Last Post: drake182
  100 LVL summoner action ID for commando - witch Leloudi7 3 3,190 06-24-2015 11:16 AM
Last Post: sl86
  K90, K95 solo and group script wodzu1982 0 2,564 05-05-2015 23:23 PM
Last Post: wodzu1982
  Start and Stop Scripts benbt91 4 4,858 03-20-2015 14:05 PM
Last Post: kerberos464
Smile Elemental Summoner (Merrow the Unicorn) Skill Script feoh_wizard 0 3,212 02-14-2015 09:19 AM
Last Post: feoh_wizard
  WTB scripts/setup for exp 85 group krevty 1 2,773 01-03-2015 13:20 PM
Last Post: amiroooo
  Summoner + iss OOP buff exxolon 3 3,868 11-12-2014 18:17 PM
Last Post: tophersoccer



User(s) browsing this thread: 1 Guest(s)