Vampire_Berne
Morrowind.esm
Variables
9
Local Variables
done
fightset
cattlekilled
nolore
nohello
noflee
noidle
nointruder
nothief
Source
1begin Vampire_Berne
2
3short done
4short fightset
5short cattlekilled
6short nolore
7short nohello
8short noflee
9short noidle
10short nointruder
11short nothief
12
13if ( GetJournalIndex "VA_VampCountess" == 70 )
14 setFight 100
15 setDisposition 0
16 set cattlekilled to -1
17 return
18endif
19
20if ( OnDeath == 1 )
21 if ( GetJournalIndex "VA_VampHunter" == 90 )
22 if ( VampClan == 1 )
23 set VampKills to ( VampKills + 1 )
24 elseif ( VampClan == 2 )
25 set VampKills to ( VampKills - 1 )
26 elseif ( VampClan == 3 )
27 set VampKills to ( VampKills + 1 )
28 endif
29 elseif ( GetJournalIndex "VA_VampAmulet" == 30 )
30 if ( VampClan == 1 )
31 set VampKills to ( VampKills + 1 )
32 elseif ( VampClan == 2 )
33 set VampKills to ( VampKills - 1 )
34 elseif ( VampClan == 3 )
35 set VampKills to ( VampKills + 1 )
36 endif
37 endif
38 AddItem "ingred_vampire_dust_01" 1
39endif
40
41if ( done == -1 )
42 return
43endif
44
45if ( done == 2 )
46
47 ;check for PC NO LONGER a Berne Vampire
48 if ( player->GetSpell "Vampire Berne Specials" != 1 )
49 setfight 90
50 setdisposition 20
51 set done to -1
52 endif
53
54endif
55
56if ( done == 1 )
57
58 ;check for PC as a Berne Vampire
59 if ( player->GetSpell "Vampire Berne Specials" == 1 )
60 setfight 30
61 set done to 2
62 elseif ( player->GetSpell "Vampire Berne Specials" != 1 )
63 if ( fightset == 0 )
64 setfight 90
65 setdisposition 20
66 set fightset to 1
67 endif
68 endif
69return
70
71endif
72
73if ( done == 0 )
74 AddSpell, "Vampire Blood Berne" ;this is the blood disease
75 AddSpell, "Vampire Attributes"
76 AddSpell, "Vampire Skills"
77 AddSpell, "Vampire Immunities"
78 AddSpell, "Vampire Sun Damage"
79 AddSpell, "Vampire Touch"
80 AddSpell, "Vampire Berne Specials"
81 ModRestoration 75
82
83 set done to 1
84endif
85end Vampire_Berne