Vampire_Quarra
Morrowind.esm
Variables
9
Local Variables
done
fightset
cattlekilled
nolore
nohello
noflee
noidle
nointruder
nothief
Source
1begin Vampire_Quarra
2
3short done
4short fightset
5short cattlekilled
6short nolore
7short nohello
8short noflee
9short noidle
10short nointruder
11short nothief
12
13if ( GetJournalIndex "VA_VampAmulet" == 50 )
14 setFight 100
15 setDisposition 0
16 set cattlekilled to -1
17 return
18endif
19
20if ( OnDeath == 1 )
21 if ( GetJournalIndex "VA_VampCountess" == 50 )
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_VampHunter" == 90 )
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 Quarra Vampire
48 if ( player->GetSpell "Vampire Quarra 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 Quarra Vampire
59 if ( player->GetSpell "Vampire Quarra Specials" == 1 )
60 setfight 30
61 set done to 2
62 elseif ( player->GetSpell "Vampire Quarra 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 Quarra" ;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 Quarra Specials"
81 ModRestoration 75
82 set done to 1
83endif
84end Vampire_Quarra