TR_m2_NPC_Va_Weebem_Naez
TR_Mainland.esm
Variables
15
Local Variables
done
fightset
cattlekilled
nolore
nohello
noflee
noidle
nointruder
nothief
TR_Map
T_Local_Vampire
control
controlQ
T_Local_NPC
T_Local_NoLore
Source
1begin TR_m2_NPC_Va_Weebem_Naez
2
3short done
4short fightset
5short cattlekilled
6short nolore
7short nohello
8short noflee
9short noidle
10short nointruder
11short nothief
12short TR_Map
13short T_Local_Vampire
14short control
15short controlQ
16short T_Local_NPC
17short T_Local_NoLore
18
19if ( OnDeath == 1 )
20 if ( GetJournalIndex "VA_VampCountess" == 50 )
21 if ( VampClan == 1 )
22 set VampKills to ( VampKills - 1 )
23 elseif ( VampClan == 2 )
24 set VampKills to ( VampKills + 1 )
25 elseif ( VampClan == 3 )
26 set VampKills to ( VampKills + 1 )
27 endif
28 elseif ( GetJournalIndex "VA_VampAmulet" == 30 )
29 if ( VampClan == 1 )
30 set VampKills to ( VampKills - 1 )
31 elseif ( VampClan == 2 )
32 set VampKills to ( VampKills + 1 )
33 elseif ( VampClan == 3 )
34 set VampKills to ( VampKills + 1 )
35 endif
36 endif
37 AddItem "ingred_vampire_dust_01" 1
38 set done to -2
39endif
40
41if ( done == -2 )
42 return
43endif
44
45if ( GetJournalIndex "VA_VampHunter" == 110 )
46 setFight 100
47 setDisposition 0
48 set cattlekilled to -1
49endif
50
51; remove sun damage when he's inside the ext cave
52if ( GetDistance TR_m2_weeberncave > 800 )
53 if ( GetSpell TR_m2_Va_WeebemNaezSunDmg )
54 AddSpell "Vampire Sun Damage"
55 RemoveSpell "TR_m2_Va_WeebemNaezSunDmg"
56 endif
57elseif ( GetSpell "Vampire Sun Damage" )
58 RemoveSpell "Vampire Sun Damage"
59 AddSpell "TR_m2_Va_WeebemNaezSunDmg"
60endif
61
62if ( done == -1 )
63 return
64endif
65
66if ( done == 2 )
67 ;check for PC NO LONGER a Berne Vampire
68 if ( player->GetSpell "Vampire Berne Specials" != 1 )
69 setfight 90
70 setdisposition 20
71 set done to -1
72 endif
73 return
74endif
75
76if ( done == 1 )
77 ;check for PC as a Berne Vampire
78 if ( player->GetSpell "Vampire Berne Specials" == 1 )
79 setfight 30
80 set done to 2
81 elseif ( player->GetSpell "Vampire Berne Specials" != 1 )
82 if ( fightset == 0 )
83 setfight 90
84 setdisposition 20
85 set fightset to 1
86 endif
87 endif
88 return
89endif
90
91if ( done == 0 )
92 AddSpell "Vampire Blood Berne" ;this is the blood disease
93 AddSpell "Vampire Attributes"
94 AddSpell "Vampire Skills"
95 AddSpell "Vampire Immunities"
96 AddSpell "TR_m2_Va_WeebemNaezSunDmg"
97 AddSpell "Vampire Touch"
98 AddSpell "Vampire Berne Specials"
99 ModRestoration 75
100 set TR_Map to 2
101 set done to 1
102endif
103
104end