TR_m2_q_29_3_AkavoriocScript
TR_Mainland.esm
Variables
15
Local Variables
done
fightset
cattlekilled
nolore
nohello
noflee
noidle
nointruder
nothief
TR_Map
T_Local_Vampire
sayonce
summoncattle
T_Local_NPC
T_Local_NoLore
Source
1begin TR_m2_q_29_3_AkavoriocScript
2
3; technically Quarra vampire. Replace with Dun Akafel vampire clan whenif they exist
4
5short done
6short fightset
7short cattlekilled
8short nolore
9short nohello
10short noflee
11short noidle
12short nointruder
13short nothief
14short TR_Map
15short T_Local_Vampire
16short sayonce
17short summoncattle
18short T_Local_NPC
19short T_Local_NoLore
20
21if ( sayonce == 0 )
22 if ( GetDistance, player <= 1028 )
23 ForceGreeting
24 set sayonce to 1
25 endif
26endif
27
28if ( MenuMode == 0 )
29 if ( summoncattle == 1 )
30 "TR_m2_O_Aka_cattle_2"->PositionCell 2781 3241 -905 0 "Dun Akafell, Forsaken Manor, Basement" ;TR_m2_MARK_AkavoriocCattle
31 "TR_m2_O_Aka_cattle_2"->AiWander 0 0 0 0 0 0 0 0 0 0 0 0
32 "TR_m2_O_Aka_cattle_2"->SetFight 100
33 "TR_m2_O_Aka_cattle_3"->PositionCell 2671 3153 -946 0 "Dun Akafell, Forsaken Manor, Basement" ;TR_m2_MARK_AkavoriocCattle
34 "TR_m2_O_Aka_cattle_3"->AiWander 0 0 0 0 0 0 0 0 0 0 0 0
35 "TR_m2_O_Aka_cattle_3"->SetFight 100
36 "TR_m2_O_Aka_cattle_2"->PlaceAtMe, "sprigganup", 1 1 1
37 "TR_m2_O_Aka_cattle_3"->PlaceAtMe, "sprigganup", 1 1 1
38 set summoncattle to 2
39 endif
40endif
41
42if ( OnDeath == 1 )
43 if ( GetJournalIndex "TR_m2_FG_Irano3" >= 10 )
44 if ( GetJournalIndex "TR_m2_FG_Irano3" < 90 )
45 Journal "TR_m2_FG_Irano3" 90
46 "TR_m2_O_Aka_cattle_2"->SetFight 0
47 "TR_m2_O_Aka_cattle_3"->SetFight 0
48 endif
49 endif
50endif
51
52if ( OnDeath == 1 )
53 AddItem "ingred_vampire_dust_01" 1
54endif
55
56
57;-------- vanilla Quarra vampire bits
58
59if ( done == -1 )
60 return
61endif
62
63if ( done == 2 )
64 ;check for PC NO LONGER a Quarra Vampire
65 if ( player->GetSpell "Vampire Quarra Specials" != 1 )
66 setfight 90
67 setdisposition 20
68 set done to -1
69 endif
70endif
71
72if ( done == 1 )
73 ;check for PC as a Quarra Vampire
74 if ( player->GetSpell "Vampire Quarra Specials" == 1 )
75 setfight 30
76 set done to 2
77 elseif ( player->GetSpell "Vampire Quarra Specials" != 1 )
78 if ( fightset == 0 )
79 setfight 90
80 setdisposition 20
81 set fightset to 1
82 endif
83 endif
84 return
85endif
86
87if ( done == 0 )
88 AddSpell "Vampire Blood Quarra" ;this is the blood disease
89 AddSpell "Vampire Attributes"
90 AddSpell "Vampire Skills"
91 AddSpell "Vampire Immunities"
92 AddSpell "Vampire Sun Damage"
93 AddSpell "Vampire Touch"
94 AddSpell "Vampire Quarra Specials"
95 ModRestoration 75
96 set TR_Map to 2
97 set done to 1
98endif
99
100end