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

Pand0r · 07/15/2013, 23:39

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

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)

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

sk0r88 · 07/25/2013, 18:53

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

SICKB0YV · 07/25/2013, 22:32

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

sk0r88 · 07/26/2013, 19:39

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?

Pand0r · 07/26/2013, 22:40

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.

sk0r88 · 07/27/2013, 17:11

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

Pand0r · 07/27/2013, 18:06

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.

sk0r88 · 07/28/2013, 12:17

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.

Pand0r · 07/28/2013, 12:39

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

sk0r88 · 07/28/2013, 22:01

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

♠Ometrus ♠ · 08/02/2013, 16:08

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?

Pand0r · 08/02/2013, 16:28

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.

♠Ometrus ♠ · 08/02/2013, 17:02

Ich möchte aber nicht bezahlen.

Pand0r · 08/02/2013, 20:33

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.

♠Ometrus ♠ · 08/03/2013, 02:06

Der unterbricht mit meinem Ret gar nix

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?