Friendly Vampire

[wesaynothin]

Is there a way to make it so a vampire will not attack you, and will talk to you? I tried mixing one of the vampire scripts with a fight seting of 0, but it still attacked me. I'm stumped.

[Kevin Woodman]

Set the default fight setting in the AI box to 0. Also the fight gets set by different conditions in the script, you'll have to change those settings also. Sounds like you figured that out, maybe missed one of them. I think you could add the comand StopCombat instead of or after each setfight command. Or just change them to setfight 0.

[Abramul]

If fight is not 0, then STOPCOMBAT works...until the NPC/Creature sees you again. I found this out after placing 20 Golden Saints in Firewatch. It hurt.

[wesaynothin]

Thanks for your input. I have managed to make him stop attacking me, but his face is no longer a vampire face, which sort of defeats the purpose, eh?

 

This is the script:

 

short noflee

short noidle

short nointruder

short nothief

 

if ( GetJournalIndex "VA_VampAmulet" == 50 )

stopcombat

setDisposition 0

set cattlekilled to -1

return

endif

 

if ( OnDeath == 1 )

if ( GetJournalIndex "VA_VampCountess" == 50 )

if ( VampClan == 1 )

set VampKills to ( VampKills + 1 )

elseif ( VampClan == 2 )

set VampKills to ( VampKills + 1 )

elseif ( VampClan == 3 )

set VampKills to ( VampKills - 1 )

endif

elseif ( GetJournalIndex "VA_VampHunter" == 90 )

if ( VampClan == 1 )

set VampKills to ( VampKills + 1 )

elseif ( VampClan == 2 )

set VampKills to ( VampKills + 1 )

elseif ( VampClan == 3 )

set VampKills to ( VampKills - 1 )

endif

endif

AddItem "ingred_vampire_dust_01" 1

endif

 

if ( done == -1 )

return

endif

 

if ( done == 2 )

 

;check for PC NO LONGER a Quarra Vampire

if ( player->GetSpell "Vampire Quarra Specials" != 1 )

stopcombat

setdisposition 20

set done to -1

endif

 

endif

 

if ( done == 1 )

 

;check for PC as a Quarra Vampire

if ( player->GetSpell "Vampire Quarra Specials" == 1 )

stopcombat

set done to 2

elseif ( player->GetSpell "Vampire Quarra Specials" != 1 )

if ( fightset == 0 )

stopcombat

setdisposition 20

set fightset to 1

endif

endif

return

 

endif

 

if ( done == 0 )

AddSpell, "Vampire Blood Quarra" ;this is the blood disease

AddSpell, "Vampire Attributes"

AddSpell, "Vampire Skills"

AddSpell, "Vampire Immunities"

AddSpell, "Vampire Sun Damage"

AddSpell, "Vampire Touch"

AddSpell, "Vampire Quarra Specials"

ModRestoration 75

set done to 1

endif

end LabQuarra

 

anything wrong?