IF
	Global("CuChoinneach","GLOBAL",1)
	Global("ShadowWolfStart","GLOBAL",0)
	Global("ShadowWolf","GLOBAL",0)
THEN
	RESPONSE #100
		SetGlobal("ShadowWolf","GLOBAL",1)
		SetGlobal("ShadowWolfStart","GLOBAL",1)
END

IF
	Global("CuChoinneach","GLOBAL",1)
	GlobalTimerExpired("ShadowWolfDie","GLOBAL")
	Global("ShadowWolf","GLOBAL",2)
THEN
	RESPONSE #100
		SetGlobal("ShadowWolf","GLOBAL",1)
END

IF
	Global("CuChoinneach","GLOBAL",1)
	!Exists("BUBBA")
	Global("ShadowWolf","GLOBAL",0)
	Global("ShadowWolfClaw","GLOBAL",1)
	Exists("CuChoinneach")
THEN
	RESPONSE #100
		SetGlobal("ShadowWolf","GLOBAL",1)
		SetGlobal("ShadowWolfClaw","GLOBAL",0)
END

IF
	Global("CuChoinneach","GLOBAL",1)
	!Exists("BUBBA")
	Global("ShadowWolf","GLOBAL",2)
	Global("ShadowWolfClaw","GLOBAL",1)
	Exists("CuChoinneach")
THEN
	RESPONSE #100
		SetGlobal("ShadowWolf","GLOBAL",1)
		SetGlobal("ShadowWolfClaw","GLOBAL",0)
END

IF
	Global("CuChoinneach","GLOBAL",1)
	Global("ShadowWolf","GLOBAL",1)
	Exists("CuChoinneach")
THEN
	RESPONSE #100
		CreateCreature("WOLFSHD",[-1.-1],0) // Madadh n'Sgàil
		SetGlobal("ShadowWolf","GLOBAL",2)
		SetGlobal("ShadowWolfClaw","GLOBAL",0)
END

IF
	Global("VampirDead","GLOBAL",0)
	!PartyHasItem("GILYBABY") // Berrto Ghaskill
	Global("TalkedClairis","GLOBAL",0)
	Global("CuChoinneachDelayed","GLOBAL",0)
	GlobalTimerExpired("Vampr","GLOBAL")
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachDelayed","GLOBAL",1)
		SetGlobalTimer("CuWarning1","GLOBAL",TWO_DAYS)
END

IF
	Global("TalkedClairis","GLOBAL",0)
	Global("VampirDead","GLOBAL",0)
	!PartyHasItem("GILYBABY") // Berrto Ghaskill
	Global("CuChoinneachDelayed","GLOBAL",1)
	GlobalTimerExpired("CuWarning1","GLOBAL")
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachDelayed","GLOBAL",1)
		SetGlobalTimer("CuWarning2","GLOBAL",ONE_DAY)
END

IF
	Global("TalkedClairis","GLOBAL",0)
	Global("VampirDead","GLOBAL",0)
	!PartyHasItem("GILYBABY") // Berrto Ghaskill
	Global("CuChoinneachDelayed","GLOBAL",1)
	GlobalTimerExpired("CuWarning2","GLOBAL")
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachDelayed","GLOBAL",2)
END

IF
	Global("CuChoinneachLeaves","GLOBAL",1)
	!HasItem("GILYBABY",Myself) // Berrto Ghaskill
	NumInPartyGT(4)
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachLeaves","GLOBAL",2)
END

IF
	Global("CuChoinneachLeaves","GLOBAL",1)
	HasItem("GILYBABY",Myself) // Berrto Ghaskill
	NumInPartyGT(4)
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachLeaves","GLOBAL",2)
END

IF
	Global("CuChoinneachLeaves","GLOBAL",1)
	!HasItem("GILYBABY",Myself) // Berrto Ghaskill
	NumInPartyLT(4)
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachLeaves","GLOBAL",2)
END

IF
	Global("CuChoinneachLeaves","GLOBAL",1)
	HasItem("GILYBABY",Myself) // Berrto Ghaskill
	NumInPartyLT(4)
THEN
	RESPONSE #100
		Dialogue([PC])
		SetGlobal("CuChoinneachLeaves","GLOBAL",2)
END


