11-13-2014, 06:59 AM
CUNADO SE ACTIVA, INVITA Y AL TERMINAR DE BUFEAR NO SACA A LA ISS DE PARTY, AL QUITAR LA PARTY MANUALMENTE Y SE TERMINAN LOS BUFF NO INVITA.
ShowToClient("SYS","Script Para Buffear Comenzado");
PPName = ""; --here write name of your PPname
DDName = ""; --write name of char you want buff
SendInvItBufferInRange = 800;
----------------------------------------------------------------
WhoToInv = nil;
repeat
if(GetUserByName(PPName) == nil)then
ShowToClient("SYS","Iss lejos, espera");
repeat
Sleep(1000);
until (GetUserByName(PPName) ~= nil);
ShowToClient("SYS","La ISS esta cerca");
WhoToInv = GetUserByName(PPName);
elseif(GetUserByName(PPName) ~= nil)then
WhoToInv = GetUserByName(PPName);
end;
if((GetMe():GotBuff(11517) == false) or --
(GetMe():GotBuff(11518) == false) or --
(GetMe():GotBuff(11519) == false) or --
(GetMe():GotBuff(11520) == false) or --
(GetMe():GotBuff(11521) == false) or --
(GetMe():GotBuff(11522) == false) or --
(GetMe():GotBuff(11524) == false) or --
(GetMe():GotBuff(11565) == false) or --
(GetMe():GotBuff(11566) == false) or --
(GetMe():GotBuff(11567) == false) or --
(GetMe():GotBuff(11610) == false) or --
(GetMe():GotBuff(11611) == false) or --
(GetMe():GotBuff(11612) == false)) and --
(WhoToInv ~= nil) and
(WhoToInv:IsMyPartyMember() == false) and
(GetMe():GetRangeTo(WhoToInv) < SendInvItBufferInRange)then
ShowToClient("SYS", "Invitando " ..PPName .. " Para Buffear");
Sleep(400);
Command("/invite "..PPName);
repeat
Sleep(100);
until ((GetMe():GotBuff(11517)) and --
(GetMe():GotBuff(11518)) and --
(GetMe():GotBuff(11519)) and --
(GetMe():GotBuff(11520)) and --
(GetMe():GotBuff(11521)) and --
(GetMe():GotBuff(11522)) and --
(GetMe():GotBuff(11524)) and --
(GetMe():GotBuff(11565)) and --
(GetMe():GotBuff(11566)) and --
(GetMe():GotBuff(11567)) and --
(GetMe():GotBuff(11610)) and --
(GetMe():GotBuff(11611)) and --
(GetMe():GotBuff(11612))) and --
(WhoToInv:IsMyPartyMember() == true);
ShowToClient("SYS", "Buffs Ok, Saliendo de pt la Iss");
Sleep(5000);
Command("/dismiss "..PPName);
Sleep(400);
end;
Sleep(1000);
until false;
ShowToClient("SYS","Script Para Buffear Comenzado");
PPName = ""; --here write name of your PPname
DDName = ""; --write name of char you want buff
SendInvItBufferInRange = 800;
----------------------------------------------------------------
WhoToInv = nil;
repeat
if(GetUserByName(PPName) == nil)then
ShowToClient("SYS","Iss lejos, espera");
repeat
Sleep(1000);
until (GetUserByName(PPName) ~= nil);
ShowToClient("SYS","La ISS esta cerca");
WhoToInv = GetUserByName(PPName);
elseif(GetUserByName(PPName) ~= nil)then
WhoToInv = GetUserByName(PPName);
end;
if((GetMe():GotBuff(11517) == false) or --
(GetMe():GotBuff(11518) == false) or --
(GetMe():GotBuff(11519) == false) or --
(GetMe():GotBuff(11520) == false) or --
(GetMe():GotBuff(11521) == false) or --
(GetMe():GotBuff(11522) == false) or --
(GetMe():GotBuff(11524) == false) or --
(GetMe():GotBuff(11565) == false) or --
(GetMe():GotBuff(11566) == false) or --
(GetMe():GotBuff(11567) == false) or --
(GetMe():GotBuff(11610) == false) or --
(GetMe():GotBuff(11611) == false) or --
(GetMe():GotBuff(11612) == false)) and --
(WhoToInv ~= nil) and
(WhoToInv:IsMyPartyMember() == false) and
(GetMe():GetRangeTo(WhoToInv) < SendInvItBufferInRange)then
ShowToClient("SYS", "Invitando " ..PPName .. " Para Buffear");
Sleep(400);
Command("/invite "..PPName);
repeat
Sleep(100);
until ((GetMe():GotBuff(11517)) and --
(GetMe():GotBuff(11518)) and --
(GetMe():GotBuff(11519)) and --
(GetMe():GotBuff(11520)) and --
(GetMe():GotBuff(11521)) and --
(GetMe():GotBuff(11522)) and --
(GetMe():GotBuff(11524)) and --
(GetMe():GotBuff(11565)) and --
(GetMe():GotBuff(11566)) and --
(GetMe():GotBuff(11567)) and --
(GetMe():GotBuff(11610)) and --
(GetMe():GotBuff(11611)) and --
(GetMe():GotBuff(11612))) and --
(WhoToInv:IsMyPartyMember() == true);
ShowToClient("SYS", "Buffs Ok, Saliendo de pt la Iss");
Sleep(5000);
Command("/dismiss "..PPName);
Sleep(400);
end;
Sleep(1000);
until false;