araxiaonline/RandomScriptsforAzerothCore
3
0
Fork 0
mirror of https://github.com/araxiaonline/RandomScriptsforAzerothCore.git synced 2026-06-13 02:22:19 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Dinkledork
2023-03-18 03:05:01 -06:00
committed by GitHub
parent 4ba87552c3
commit 3d8464205f
7 changed files with 82 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
quest_30018_spawn_bunnies.lua
View File

@@ -1,46 +1,63 @@
local CREATURE_EVENT_ON_QUEST_ACCEPT = 31
local CREATURE_EVENT_ON_DIE = 4
local QUEST_ID = 30018
local CREATURE_SPAWNER = 400096
local BUNNY_ENTRY = 400099
local UNDEAD_BUNNY_ENTRY = 400100
local UNDEAD_WARLORD = 400101
local UNDEAD_WARLORD = 400103
local SPAWN_TYPE = 3
local DESPAWN_TIMER = 600000 -- 10 minutes in milliseconds
local CAST_SPELL_ID = 37679
local DESPAWN_TIMER = 200000 -- 3 minutes and 20 seconds in milliseconds
local CAST_SPELL_ID = 67040
local CAST_SPELL_ID2 = 32826
local function DespawnCreatures(spawner)
local spawnedCreatures = spawner:GetCreaturesInRange(100, {BUNNY_ENTRY, UNDEAD_BUNNY_ENTRY})
for _, spawnedCreature in ipairs(spawnedCreatures) do
spawnedCreature:DespawnOrUnsummon(100) -- Despawn with a 100 ms delay
end
local function CastSpellWithDelay(event, delay, calls, creature)
creature:CastSpell(creature, CAST_SPELL_ID, false)
end
local function CastSpellPolyVis(event, delay, calls, creature)
creature:CastSpell(creature, CAST_SPELL_ID2, false)
end
local function OnQuestAccept(event, player, creature, quest)
if quest:GetId() == QUEST_ID then
creature:SetReactState(0) -- Set react state to passive
creature:CastSpell(creature, CAST_SPELL_ID, true) -- Cast the specified spell on self
local x, y, z = creature:GetLocation()
creature:PerformEmote(1)
creature:SetReactState(0)
creature:RegisterEvent(CastSpellPolyVis, 17000, 1)
creature:RegisterEvent(CastSpellWithDelay, 18200, 1) -- 10-second delay before casting the spell
local x, y, z, o = creature:GetLocation()
for i = 1, 5 do
local randomX = x + math.random(-5, 5)
local randomY = y + math.random(-5, 5)
creature:SpawnCreature(BUNNY_ENTRY, randomX, randomY, z, SPAWN_TYPE, DESPAWN_TIMER)
local randomX = x + math.random(-4, 4)
local randomY = y + math.random(-4, 4)
creature:SpawnCreature(BUNNY_ENTRY, randomX, randomY, z, o, SPAWN_TYPE, DESPAWN_TIMER)
end
local undeadX = x + math.random(-5, 5)
local undeadY = y + math.random(-5, 5)
creature:SpawnCreature(UNDEAD_BUNNY_ENTRY, undeadX, undeadY, z, SPAWN_TYPE, DESPAWN_TIMER)
local undeadX = x + math.random(-4, 4)
local undeadY = y + math.random(-4, 4)
creature:SpawnCreature(UNDEAD_BUNNY_ENTRY, undeadX, undeadY, z, o, SPAWN_TYPE, DESPAWN_TIMER)
end
end
local function OnCreatureDeath(event, creature, killer)
if creature:GetEntry() == UNDEAD_WARLORD then
local spawner = creature:GetNearestCreature(100, CREATURE_SPAWNER)
local spawner = creature:GetNearestCreature(CREATURE_SPAWNER, 100)
if spawner then
DespawnCreatures(spawner)
spawner:SetReactState(1) -- Set react state back to aggressive
spawner:StopSpellCast(CAST_SPELL_ID)
spawner:StopSpellCast(CAST_SPELL_ID)
end
end
end
local function OnSpawnerDeath(event, creature, killer)
if creature:GetEntry() == CREATURE_SPAWNER then
local players = creature:GetPlayersInRange(100)
for _, player in ipairs(players) do
if player:HasQuest(QUEST_ID) then
player:FailQuest(QUEST_ID)
end
end
end
end
RegisterCreatureEvent(CREATURE_SPAWNER, CREATURE_EVENT_ON_QUEST_ACCEPT, OnQuestAccept)
RegisterCreatureEvent(UNDEAD_WARLORD, 4, OnCreatureDeath) -- 4 is the event for creature death
RegisterCreatureEvent(UNDEAD_WARLORD, CREATURE_EVENT_ON_DIE, OnCreatureDeath)
RegisterCreatureEvent(CREATURE_SPAWNER, CREATURE_EVENT_ON_DIE, OnSpawnerDeath)