Release Create your Companion 1.2

scriptname MS45DarMaScript

; QUESTS:
; MS45

short forceGreet
short dead
short greetPC
short greetPCHero

ref refnpc
ref refbox
ref Actor
short Faction
short Addpackage
float Timer
short temp
short alert
short Inventory
short regulator


; set to 1 when Dar-Ma is following the player
short following
; 1 means wait here, 0 means keep following
short wait				

begin OnDeath
Message "Einer Eurer Begleiter ist gefallen!"

	set dead to 1
	if getstagedone ms45, 60 == 1 && getstage ms45 < 100
		setstage ms45, 90		; record her death in player's journal only if he actually found her
	endif
end

begin gamemode

set refnpc to getself

	; NPC zur Fraktion zuordnen
	If Faction == 0
		SetFactionRank CYCHumanFaction 10
		Set Faction to 1
	EndIf

	; Gibt dem NPC Heilzauber
	If GetActorValue Restoration >= 1
		AddSpell CYCRestoreHealthTouch1Novice
		AddSpell StandardRestoreHealth1Novice
	ElseIf GetActorValue Restoration >= 25
		AddSpell CYCRestoreHealthTouch2Apprentice
		AddSpell StandardRestoreHealth2Apprentice
	ElseIf GetActorValue Restoration >= 50
		AddSpell CYCRestoreHealthTouch3Journeyman
		AddSpell StandardRestoreHealth3Journeyman
	ElseIf GetActorValue Restoration >= 75
		AddSpell CYCRestoreHealthTouch4Expert
		AddSpell StandardRestoreHealth4Expert
	ElseIf GetActorValue Restoration >= 100
		AddSpell CYCRestoreHealthTouch5Master
		AddSpell StandardRestoreHealth5Master
	EndIf

	; Gibt dem NPC Zerstörungszauber
	ElseIf GetActorValue Destruction >= 25
		AddSpell StandardFireDamageTarget2Apprentice
		AddSpell StandardFrostDamageTarget2Apprentice
		AddSpell StandardShockDamageTarget2Apprentice
	ElseIf GetActorValue Destruction >= 50
		AddSpell StandardFireDamageTarget3Journeyman
		AddSpell StandardFrostDamageTarget3Journeyman
		AddSpell StandardShockDamageTarget3Journeyman
	ElseIf GetActorValue Destruction >= 75
		AddSpell StandardFireDamageTarget4Expert
		AddSpell StandardFrostDamageTarget4Expert
		AddSpell StandardShockDamageTarget4Expert
	ElseIf GetActorValue Destruction >= 100
		AddSpell StandardFireDamageTarget5Master
		AddSpell StandardFrostDamageTarget5Master
		AddSpell StandardShockDamageTarget5Master
	EndIf

	; Gibt dem NPC Beschwörungszauber
	If GetActorValue Conjuration >= 25
		AddSpell StandardSummonSkeletonApprentice
		AddSpell StandardSummonZombieApprentice
		AddSpell StandardSummonScampApprentice
		AddSpell StandardSummonGhostApprentice
	ElseIf GetActorValue Conjuration >= 50
		AddSpell StandardSummonAtronachFlameJourneyman
		AddSpell StandardSummonZombieHeadlessJourneyman
		AddSpell StandardSummonSkeletonGuardianJourneyman
		AddSpell StandardSummonDremoraJourneyman
	ElseIf GetActorValue Conjuration >= 75
		AddSpell StandardSummonClannfearExpert
		AddSpell StandardSummonAtronachFrostExpert
		AddSpell StandardSummonSkeletonHeroExpert
		AddSpell StandardSummonDaedrothExpert
		AddSpell StandardSummonSkeletonChampionExpert
		AddSpell StandardSummonSpiderDaedraExpert
		AddSpell StandardSummonWraithFadedExpert
	ElseIf GetActorValue Conjuration >= 100
		AddSpell StandardSummonAtronachStormMaster
		AddSpell StandardSummonDremoraLordMaster
		AddSpell StandardSummonWraithGloomMaster
	EndIf

	; Gibt dem NPC Schild Zauber
	ElseIf GetActorValue Alteration >= 25
		AddSpell StandardShield2Apprentice
	ElseIf GetActorValue Alteration >= 50
		AddSpell StandardShield3Journeyman
	ElseIf GetActorValue Alteration >= 75
		AddSpell StandardShield4Expert
	ElseIf GetActorValue Alteration >= 100
		AddSpell StandardShield5Master
	EndIf

	; Gibt dem NPC Unsichtbarkeits Zauber
	If GetActorValue Illusion >= 50
		AddSpell StandardInvisibility3Journeyman
	ElseIf GetActorValue Illusion >= 75
		AddSpell StandardInvisibility4Expert
	ElseIf GetActorValue Illusion >= 100
		AddSpell StandardInvisibility5Master
	EndIf

	; Wenn der Spieler schleicht, schleicht auch der NPC
	If Player.IsSneaking  == 1 && GetFactionRank CYCHumanFaction == 1 && IsInCombat == 0
		SetForceSneak 1
	ElseIf GetForceSneak
		SetForceSneak 0
	EndIf

	; Wenn der Spieler die Waffe zieht, zieht auch der NPC seine Waffe
	If alert == 0 && Player.IsWeaponOut == 1 && GetFactionRank CYCHumanFaction == 1
		SetAlert 1
		Set alert to 1
	ElseIf alert == 1 && Player.IsWeaponOut == 0 && GetFactionRank CYCHumanFaction == 1
		SetAlert 0
		Set alert to 0
	EndIf


	If inventory == 1 && GetInFaction CYCHumanFaction == 1
  		if regulator == 3
			AddItem CYCTorch02 1
			EquipItem CYCTorch02
			RemoveItem CYCTorch02 1
			set regulator to 0
			toggleActorsAI
			RemoveScriptPackage "CYCDoShare"
			set inventory to 0
		If CYCQuest.TempFaction == 1
    			AddScriptPackage "CYCFollowNPC"
		EndIf
	EndIf

	if regulator == 2 && MenuMode == 0
		set regulator to 3
		CYCShareBoxRef.RemoveAllItems refnpc
	endif

	if regulator == 1
		toggleActorsAI  
		RemoveAllItems CYCShareBoxRef
		CYCShareBoxRef.Activate Player
		set regulator to 2
	endif
  		if regulator == 0
			CYCShareBoxRef.MoveTo Player 0 0 -50
			refbox.setOwnership
			set regulator to 1
		endif
  	endif


	If CYCQuest.RecallHuman == 1
		Set Actor to Getself
		Actor.MoveTo Player, 128, 0, 0
	EndIf

	If GetFactionRank CYCHumanFaction == 1 && GetDistance Player >= 2048 && GetDead == 0
		Set Actor to GetSelf
		Actor.MoveTo Player
		RemoveScriptpackage
		AddScriptPackage CYCFollowNPC
	EndIf		

	; Belebt NPC nach 30 sec wieder
	If GetDead == 1
		set timer to (timer + getsecondspassed )
		If Timer >= 30
			resurrect 1
			Message "Der Tod wurde überlistet!"
			set timer to 0
		EndIf
	EndIf


if greetPC == 0 && gettalkedtopc == 0
	if getdistance player < 1000
		set greetPC to 1
		startconversation player
	endif
endif

if forcegreet == 0
	if getiscurrentPackage MS45DarMaPrisoner == 1
		if getdistance player < 600
			addscriptpackage MS45DarMaPrisonerGreetPlayer
		endif
	endif
endif

if getiscurrentPackage MS45DarMaPrisonerGreetPlayer == 1
	if getinsamecell player == 0
		removescriptpackage
	endif
endif


end

Begin OnPackageStart "CYCDoShare"

if GetInFaction CYCHumanFaction == 1 && IsInCombat != 1
  set Inventory to 1
endif

End


Begin OnPackageStart "CYCFollowNPC"
	SetAV Responsibility 0
	SetIgnoreFriendlyHits 1
End


begin OnPackageStart MS45DarMaFollowOutside
	sayto player MS45Convo
end

begin OnPackageStart MS45DarMaFollow
	sayto player MS45Convo
end

begin OnPackageStart MS45DarMaTravelHome
	seedneeusref.evp 
end

begin OnPackageEnd MS45DarMaTravelHome
	startquest ms45fin
end