IF
Global("X#CoranSuccubus","GLOBAL",3)
InParty("Coran")
Global("AmeliaExist","AR3400",0)
THEN
RESPONSE #100
SetGlobal("AmeliaExist","AR3400",1)
CreateCreature("x#amelia",[4249.2100],3)
END

IF
Dead("x#amelia")
Allegiance("natan",ENEMY)
THEN
RESPONSE #100
ChangeEnemyAlly("natan",NEUTRAL)
END

IF
Dead("x#amelia")
Allegiance("coran",ENEMY)
THEN
RESPONSE #100
ChangeEnemyAlly("coran",ALLY)
END

IF
OR(2)
Dead("x#amelia")
Global("X#CoranSuccubus","GLOBAL",16)
!InParty("coran")
Global("X#CoranCharmed","GLOBAL",1)
THEN
RESPONSE #100
SetGlobal("X#CoranCharmed","GLOBAL",2)
FadeToColor([20.0],0)
MoveGlobalObject("coran",Player1)
ActionOverride("coran",JoinParty())
FadeFromColor([20.0],0)
END
