PVP | Auto Death / Innerfocus (Aura Mastery) / Stopcast Instant Spells | Script

Page 1 of 9

07/15/2013 23:39 Pand0r#1

Moin Leute,

da ich eigentlich kaum noch aktiv WoW Spiele (PvP jedenfalls, xxx R1 erreicht), release ich mal mein kleines aber feines Script, das automatisch

- Blind / Scatter / Paralyze / Solarplexus deathed,
- Silence / Counterspell / Silence Shot / Solarbeam / Garrote (Dance) innerfocused
- Furchtzauberschutz bei Warrior Fear castet
- Stopcasted bei kick etc

--> Alles nur, wenn die Spells auf ein SELBER sind.

Vor paar Patches davor ging auch noch Verblassen bei Stuns / Deepfreeze etc, war ganz praktisch ;).
Leider haben sie den Spell Verblassen ein wenig ge�ndert.

Desweiteren checked es noch, ob der Cast auch tats�chlich ankommt, also nicht verfehlt, wiederstanden wird oder man immun ist. Sprich alles im "SPELL_MISSED" au�er Absorb nat�rlich.
(Block, Deflect, Dodge, Evade, Immune, Miss, Parry, Reflect, Resist)

Programm um Script in WoW zu laden: Firehack (Google fh-wow)
(Lua Script laden + Lua Unlocker um die Protected Funktionen auszuf�hren)

Es wird nat�rlich auch eine gute Latenz vorausgesetzt. Ich beweg mich im 10-30ms Bereich.

Lua Script f�r deutschen WoW Client [Only registered and activated users can see links. Click Here To Register...]

So much Leecher...

Code:

--[[ AntiCCv3 EPvP Pand0r]]--

--[[ Settings ]]--
local Spells1 = {"Streuschuss", "Blenden", "Paralyse", "Solarplexus"}
local Spells2 = {"Stille", "Gegenzauber", "Unterdr\195\188ckender Schuss", "Strangulieren", "Erdrosseln", "Sonnenstrahl", "Zaubersperre"}
local Spells3 = {"Drohruf"}
local Spells4 = {"Tritt", "Zurechtweisung", "Windsto\195\188", "Zuschlagen", "Gedankenfrost", "Sch\195\164delsto\195\188"}
local Spells5 = {"Tieffrieren"}
local ShowInfo = true; -- Prints information about taken actions in Chatwindow
local Delay = 0.002; -- The Delay the Script waits for casting in seconds.
local SetStopCasting = true;

function ACCprint(msg)
 if ShowInfo == true then print("|cFF00CCFFAntiCC: |r" .. msg); end
end

function IsCastingOrChanneling()
if UnitCastingInfo("player") or UnitChannelInfo("player") and SetStopCasting == true then return 1; end
end

local Timer, Reset, ACCSpell = 0, true;
local type, hideCaster, srcGUID, srcName, srcFlags, srcFlags2, dstGUID, dstName, spellName, spellSchool, missType;
function Queue()
 if GetTime() >= Timer and Reset == false then
	if GetSpellCooldown(ACCSpell) == 0 then
		if IsCastingOrChanneling() == 1 then SpellStopCasting(); end
		ACCprint("|cFFFF6060" .. srcName .. "|r" .. " hits you with " .. "|cFFFFFF00" .. spellName .. "|r" .. ". Trying to cast " .. ACCSpell .. "...");
	else
		ACCprint("|cFFFF6060" .. srcName .. "|r" .. " hits you with " .. "|cFFFFFF00" .. spellName .. "|r" .. ". Unfortunately " .. ACCSpell .. " is on Cooldown. :(");
	end
	CCSrc = GetObjectFromGUID(srcGUID);
	CCSrc:CastSpellByName(ACCSpell);
	Reset = true;
 end
end
SetTimerCallback (Queue, 1);

local frame = CreateFrame("FRAME", "AntiCC");
frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED");
local function eventHandler(self, event, ...)
 type, hideCaster, srcGUID, srcName, srcFlags, srcFlags2, dstGUID, dstName = select(2, ...); -- Read Combat Log
 if type == "SPELL_CAST_SUCCESS" then
	spellName = select(13, ...)
	if dstName == UnitName("player") and tContains(Spells1, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Schattenwort: Tod";
	elseif dstName == UnitName("player") and tContains(Spells2, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Innerer Fokus";
	elseif dstName == UnitName("player") and tContains(Spells3, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Furchtzauberschutz";
	elseif dstName == UnitName("player") and tContains(Spells4, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Automatischer Angriff";
	elseif dstName == UnitName("player") and tContains(Spells5, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Spektralerscheinung";
	end	
 elseif type == "SPELL_MISSED" then
 	spellName, spellSchool, missType = select(13, ...)
	if dstName == UnitName("player") and (tContains(Spells1, spellName) or tContains(Spells2, spellName) or tContains(Spells3, spellName) ) and not missType == "ABSORB"  then
		Reset = true;
		ACCprint("|cFFFF6060" .. srcName .. "|r" .. " casted " .. "|cFFFFFF00" .. spellName .. "|r" .. " on you, but it failed (" .. missType .. ").");
	end
 end
end
frame:SetScript("OnEvent", eventHandler);

print("|cFF00CCFFAntiCC Epvp Pand0r: |r" .. "loaded.");

Lua Script f�r englischen WoW Client (Nach Anfrage von User) [Only registered and activated users can see links. Click Here To Register...]

So much Leecher...

Code:

--[[ AntiCCv3 EPvP Pand0r]]--

--[[ Settings ]]--
local Spells1 = {"Scatter Shot", "Blind", "Paralysis", "Gouge"}
local Spells2 = {"Silence", "Counterspell", "Silencing Shot", "Strangulate", "Garrote", "Solar Beam", "Spell Lock"}
local Spells3 = {"Intimidating Shout"}
local Spells4 = {"Kick", "Rebuke", "Wind Shear", "Pummel", "Mind Freeze", "Skull Bash"}
local Spells5 = {"Deep Freeze"}
local ShowInfo = true; -- Prints information about taken actions in Chatwindow
local Delay = 0.002; -- The Delay the Script waits for casting in seconds.
local SetStopCasting = true;

function ACCprint(msg)
 if ShowInfo == true then print("|cFF00CCFFAntiCC: |r" .. msg); end
end

function IsCastingOrChanneling()
if UnitCastingInfo("player") or UnitChannelInfo("player") and SetStopCasting == true then return 1; end
end

local Timer, Reset, ACCSpell = 0, true;
local type, hideCaster, srcGUID, srcName, srcFlags, srcFlags2, dstGUID, dstName, spellName, spellSchool, missType;
function Queue()
 if GetTime() >= Timer and Reset == false then
	if GetSpellCooldown(ACCSpell) == 0 then
		if IsCastingOrChanneling() == 1 then SpellStopCasting(); end
		ACCprint("|cFFFF6060" .. srcName .. "|r" .. " hits you with " .. "|cFFFFFF00" .. spellName .. "|r" .. ". Trying to cast " .. ACCSpell .. "...");
	else
		ACCprint("|cFFFF6060" .. srcName .. "|r" .. " hits you with " .. "|cFFFFFF00" .. spellName .. "|r" .. ". Unfortunately " .. ACCSpell .. " is on Cooldown. :(");
	end
	CCSrc = GetObjectFromGUID(srcGUID);
	CCSrc:CastSpellByName(ACCSpell);
	Reset = true;
 end
end
SetTimerCallback (Queue, 1);

local frame = CreateFrame("FRAME", "AntiCC");
frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED");
local function eventHandler(self, event, ...)
 type, hideCaster, srcGUID, srcName, srcFlags, srcFlags2, dstGUID, dstName = select(2, ...); -- Read Combat Log
 if type == "SPELL_CAST_SUCCESS" then
	spellName = select(13, ...)
	if dstName == UnitName("player") and tContains(Spells1, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Shadow Word: Death";
	elseif dstName == UnitName("player") and tContains(Spells2, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Inner Focus";
	elseif dstName == UnitName("player") and tContains(Spells3, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Fear Ward";
	elseif dstName == UnitName("player") and tContains(Spells4, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Auto Attack";
	elseif dstName == UnitName("player") and tContains(Spells5, spellName) then
		Timer = GetTime() + Delay;
		Reset = false;
		ACCSpell = "Spectral Guise";
	end	
 elseif type == "SPELL_MISSED" then
 	spellName, spellSchool, missType = select(13, ...)
	if dstName == UnitName("player") and (tContains(Spells1, spellName) or tContains(Spells2, spellName) or tContains(Spells3, spellName) ) and not missType == "ABSORB"  then
		Reset = true;
		ACCprint("|cFFFF6060" .. srcName .. "|r" .. " casted " .. "|cFFFFFF00" .. spellName .. "|r" .. " on you, but it failed (" .. missType .. ").");
	end
 end
end
frame:SetScript("OnEvent", eventHandler);

print("|cFF00CCFFAntiCC EPvP Pand0r: |r" .. "loaded.");

PS: Gr��e an Hydra ;)

Lg,
Pand0r

07/25/2013 18:53 sk0r88#2

gibt es zu FireHack eine kostenfreie Alternative um das Skript in WoW auszuf�hren?

07/25/2013 22:32 SICKB0YV#3

Werde das mal an testen, ist vl ein Anreiz wieder selber mit WoW anzufangen!

07/26/2013 19:39 sk0r88#4

Ich bekomme es im PQR Bot nicht zum laufen, aber ich kenne mich damit nicht aus, und mache vermutlich was falsch.
Kann jmd ein kurzes Tutorial erstellen?

Brauch ich den LUA Unlocker, wenn ich PQR verwende?

07/26/2013 22:40 Pand0r#5

Quote:

Originally Posted by sk0r88

Ich bekomme es im PQR Bot nicht zum laufen, aber ich kenne mich damit nicht aus, und mache vermutlich was falsch.
Kann jmd ein kurzes Tutorial erstellen?

Brauch ich den LUA Unlocker, wenn ich PQR verwende?

1. Nein du brauchst kein weiteren LUA Unlocker, PQR hat das bereits integriert.

Tutorial
1. WoW Starten und PQR mit WoW verbinden.
--> Es m�sste nun ein Menu kommen wo unten 3 Buttons sind, wie Settings, Rotation Editor und Abilitly Editor.
2. Geh auf Abilitly Editor
3. Class, w�hle Interrupt aus
4. Profil --> Xelper
5. Bei Abillies l�sch alles bis auf eins zum Beispiel (Ability ausw�hlen und auf Delete selected jeweils klicken)
6. Das eine was �brig ist, l�sch das Script, was rechts steht und kopier unser PQR Script rein.
7. Speicher Script ab (Save)

--> Fertig

Nun kannst du es mit ALT + C starten in WoW (Standart einstellung PQR f�r Interrupt:) (Sollte meldung kommen, blablablub geladen)

Das ist nur die einfachste Methode gewesen, um es jemand zu zeigen. Alles zu l�schen ist nat�rlich nicht sinnvoll gewesen, aber brauchen tut man es auch nicht wirklich, wenn man nur das Script hier benutzt.

ALL in ALL: Ich empfehle FH zu nutzen, allein schon wegen der Warden Protection.

07/27/2013 17:11 sk0r88#6

Zun�chst mal, Top Support hier im Forum.

Klappt auch alles sehr gut, habe es geschafft mithilfe deiner Anleitung.
K�nnte man es auch so einrichten das es Sheep Death`t?
Ich hab oben in die Zeile schon "Verwandlung" reingeschrieben:

local deathId = { "Streuschuss", "Blenden","Paralyse", "Solarplexus" "Verwandlung" }
aber funst nicht

07/27/2013 18:06 Pand0r#7

So wie das Script momentan ist, nein. Das ist nur f�r Instant Spells. Und ehrlich gesagt finde ich, sheep deathen sollte man alleine :). Ist doch sonst langweilig :P.

Aber psst hab sogar ein Script f�r Sheep / Bu�e etc deathen (0,1sec bevor cast fertig) (Fh nur).
Aber posten will ich es nicht, hab es auch selbst eigentlich nie benutzt.

07/28/2013 12:17 sk0r88#8

FireHack hab ich auch, nur da funktioniert es nicht.
da habe ich das skript in eine .lua Textdatei kopiert.
dann mit Firehack das Skript ausgew�hlt und gestartet, aber funst iwie nicht.

(LUA unlocker ist aktiviert)

Aber mit PQR geht es ja auch ganz gut.

07/28/2013 12:39 Pand0r#9

FH in WoW Injecten.
Dann .luaload namederdatei.lua in chat (BITTE VORHER /w nblaflasdfkasdfjasklfjsdklfjalfjasd in chat, damit falls es nicht geht, nicht in /s geschrieben wird)
(Datei muss im Scripts order von FH sein)

Das wars schon

07/28/2013 22:01 sk0r88#10

Das .luaload muss ich nicht machen, es l�d standartm��ig das Skript, jedes mal wenn ich wow injecte, kommte auch "AntiCC Epvp Pand0r loaded" aber das skript wird halt nicht ausgef�hrt

08/02/2013 16:08 ♠Ometrus ♠#11

Kann jemand mal es was ausf�rhlciher machen? Ich verstehe gar nix? PQR? Was soll das sein? Hacken in WoW? Man wird sofort gebannt? Was sind das f�r codes wo solle ich die einf�gen? Was muss ich runterladen und wo?

08/02/2013 16:28 Pand0r#12

Quote:

Originally Posted by ♠Ometrus ♠

Kann jemand mal es was ausf�rhlciher machen? Ich verstehe gar nix? PQR? Was soll das sein? Hacken in WoW? Man wird sofort gebannt? Was sind das f�r codes wo solle ich die einf�gen? Was muss ich runterladen und wo?

Google oder les die Posts.
Es wurde alles gesagt bzw. genannt.

08/02/2013 17:02 ♠Ometrus ♠#13

Ich m�chte aber nicht bezahlen.

08/02/2013 20:33 Pand0r#14

Quote:

Originally Posted by ♠Ometrus ♠

Ich m�chte aber nicht bezahlen.

Ist es wirklich so schwer alle Posts zu lesen?
Es gibt eine kostenlose alternative, allerdings empfehle ich sie nicht, sondern FH.

Wie, wo, was, wann?
Les einfach die Posts, wurde schon bereits alles genannt.

08/03/2013 02:06 ♠Ometrus ♠#15

Der unterbricht mit meinem Ret gar nix :o

Hab das jetzt so eingef�gt, kann mir jemand helfen? Ich hab unter Abilities nur eine Zeile, so, und da das reinkopiert was da oben steht, hab doch alle srichtig gemacht wieso funktioniert das denn nicht?

Page 1 of 9

Last »