EQ2EMu/server/SpawnScripts/PeatBog/aBloodsaberplaguebearer.lua

--[[
    Script Name    : SpawnScripts/PeatBog/aBloodsaberplaguebearer.lua
    Script Author  : Dorbin
    Script Date    : 2022.05.26 04:05:22
    Script Purpose : Running from sewer to location and despawning.
                   : 
--]]
dofile("SpawnScripts/Generic/MonsterCallouts/BaseTroll1.lua")


function spawn(NPC)
waypoints(NPC)
SpawnCheck(NPC, Spawn)
Appearance(NPC,Spawn)
end

function hailed(NPC, Spawn)
end

function respawn(NPC)
	spawn(NPC)
end

function waypoints(NPC)
    
    if GetSpawnLocationID(NPC) == 133773314 then
    MovementLoopAddLocation(NPC, 669.08, -34.1, 410.02, 4, 0)
	MovementLoopAddLocation(NPC, 679.26, -33.36, 424.96, 4, 0)
	MovementLoopAddLocation(NPC, 686.9, -32.43, 458.65, 4, 0)
	MovementLoopAddLocation(NPC, 703.01, -33.46, 485.47, 4, 0)
	MovementLoopAddLocation(NPC, 692.71, -32.6, 496.42, 4, 0)
	MovementLoopAddLocation(NPC, 690.75, -32.44, 496.36, 4, 1)
	MovementLoopAddLocation(NPC, 690.75, -32.44, 496.36, 4, 30,"Action")
	MovementLoopAddLocation(NPC, 690.75, -32.44, 496.36, 4, 1)
	
	elseif GetSpawnLocationID(NPC) == 133773315 then
	    	MovementLoopAddLocation(NPC, 668.86, -34.13, 409.6, 4, 0)
	MovementLoopAddLocation(NPC, 679.24, -33.37, 424.54, 4, 0)
	MovementLoopAddLocation(NPC, 683.93, -33.29, 451.02, 4, 0)
	MovementLoopAddLocation(NPC, 699.36, -32.7, 454.26, 4, 0)
	MovementLoopAddLocation(NPC, 709.55, -33.35, 462.09, 4, 0)
	MovementLoopAddLocation(NPC, 718.29, -33.64, 460.4, 4, 1)
	MovementLoopAddLocation(NPC, 718.29, -33.64, 460.4, 4, 30,"Action")
	MovementLoopAddLocation(NPC, 718.29, -33.64, 460.4, 4, 1)

	elseif GetSpawnLocationID(NPC) == 133773316 then
	MovementLoopAddLocation(NPC, 666.72, -33.63, 403.08, 4, 0)
	MovementLoopAddLocation(NPC, 645.01, -33.36, 419.49, 4, 0)
	MovementLoopAddLocation(NPC, 637.37, -33.14, 423.14, 4, 0)
	MovementLoopAddLocation(NPC, 633.45, -32.81, 427.24, 4, 0)
	MovementLoopAddLocation(NPC, 628.36, -33.28, 435.28, 4, 0)
	MovementLoopAddLocation(NPC, 627.06, -33.11, 443.75, 4, 0)
	MovementLoopAddLocation(NPC, 633.24, -33.41, 457.71, 4, 0)
	MovementLoopAddLocation(NPC, 632.07, -33.16, 459.32, 4, 0)
	MovementLoopAddLocation(NPC, 624.71, -33.10, 458.06, 4, 1)
	MovementLoopAddLocation(NPC, 624.71, -33.10, 458.06, 4, 30,"Action")
	MovementLoopAddLocation(NPC, 624.71, -33.10, 458.06, 4, 1)
    end
end

function Action(NPC,Spawn)
    PlayFlavor(NPC,"","","itch",0,0)
    AddTimer(NPC,6500,"Action2",1)
    end

function Action2(NPC,Spawn)
    PlayFlavor(NPC,"","","result_acid_rain_damage",0,0)
    AddTimer(NPC,2300,"Action3",1)
    end	    
    
function Action3(NPC,Spawn)
    PlayFlavor(NPC,"","","result_poison_cloud_aoe",0,0)
    SpawnSet(NPC,"visual_state",0)
    AddTimer(NPC,2300,"Action4")
    AddTimer(NPC,2200,"despawn",1,Spawn)
    end	     
    
function Action4(NPC)
    Despawn(NPC)
end
    
function SpawnCheck(NPC, Spawn)
    if GetSpawnLocationID(NPC) == 133773314 then
    AddTimer(NPC,60000,"spawn2")
    AddTimer(NPC,120000,"spawn3")
    end
end

function spawn2(NPC,Spawn)
 zone = GetZone(NPC)
    SpawnByLocationID(zone,133773315)
end

function spawn3(NPC,Spawn)
    zone = GetZone(NPC)
    SpawnByLocationID(zone,133773316)
end

function Appearance(NPC,Spawn)
    local choice = math.random (1,2)
        if choice == 1 then
        SpawnSet(NPC,"gender",2)
        SpawnSet(NPC,"model_type",105)
        else
        end
    end