Prevent teleportation, when Calia, Jespar, or Esme follow player

source/scripts/_00e_teleport_suntempleme.psc

@@ -6,7 +6,14 @@ Scriptname _00E_Teleport_SuntempleME extends activemagiceffect
 
 Event OnEffectStart (Actor akTarket, Actor akCaster)
 
-	If (_00E_TeleportGlobal.GetValueInt() == 1 && !(MQ12b.IsRunning())) || PlayerREF.GetWorldSpace() == Akropolis || MQ03.GetCurrentStageID() < 30
+	bool bHasCompanion = false
+	int i = NoTeleportCompanions.GetSize()
+	while i > 0 && ! bHasCompanion
+		i -= 1
+		bHasCompanion = (NoTeleportCompanions.GetAt(i) as Actor).IsPlayerTeammate()
+	endwhile
+
+	If bHasCompanion || (_00E_TeleportGlobal.GetValueInt() == 1 && ! MQ12b.IsRunning()) || PlayerREF.GetWorldSpace() == Akropolis || MQ03.GetCurrentStageID() < 30
         _00E_Teleport_sTeleportNotPossible.Show()
 		MAGVampireSunlight.Play(PlayerREF)
 		PlayerREF.AddItem(_01E_TeleportrolleSonnentempel, 1)
@@ -39,4 +46,6 @@ ObjectReference Property _00E_TeleportMarker_Suntemple Auto
 
 Message Property _00E_Teleport_sTeleportNotPossible Auto 
 
-Scroll Property _01E_TeleportrolleSonnentempel Auto
+Scroll Property _01E_TeleportrolleSonnentempel Auto
+
+Formlist Property NoTeleportCompanions Auto

source/scripts/_00e_teleportationmescript.psc

@@ -7,7 +7,14 @@ Scriptname _00E_TeleportationMEScript extends activemagiceffect
 
 Event OnEffectStart (Actor akTarket, Actor akCaster)
 
-	If (_00E_TeleportGlobal.GetValueInt() == 1) || (PlayerREF.GetWorldSpace() == Akropolis)
+	bool bHasCompanion = false
+	int i = NoTeleportCompanions.GetSize()
+	while i > 0 && ! bHasCompanion
+		i -= 1
+		bHasCompanion = (NoTeleportCompanions.GetAt(i) as Actor).IsPlayerTeammate()
+	endwhile
+
+	If bHasCompanion || (_00E_TeleportGlobal.GetValueInt() == 1) || (PlayerREF.GetWorldSpace() == Akropolis)
 		_00E_Teleport_sTeleportNotPossible.Show()
 		MAGVampireSunlight.Play(PlayerREF)
 		MagicEffect CastedMGEF = Self.GetBaseObject()
@@ -48,6 +55,7 @@ Cell Property ability_container Auto
 
 Formlist Property _00E_TeleportScroll_List Auto
 Formlist Property _00E_TeleportScrollMGEF_List Auto
+Formlist Property NoTeleportCompanions Auto
 
 Actor Property PlayerREF Auto