TR_m7_HO_TT_03_RaranNPC
TR_Mainland.esm
Variables
9
Local Variables
TR_Map
T_Local_NPC
T_Local_NoLore
nolore
control
controlQ
controlX
greetOnce
doonce
Source
1begin TR_m7_HO_TT_03_RaranNPC
2
3short TR_Map
4short T_Local_NPC
5short T_Local_NoLore
6short nolore
7short control
8short controlQ
9short controlX
10short greetOnce
11short doonce
12
13set TR_Map to 7
14
15; once the quest is done and you got rewarded, they move on
16if ( getJournalIndex TR_m7_HO_TT_03 == 100 )
17 if ( "TR_m7_Mylis Raran".controlQ1 == 1 )
18 if ( CellChanged == 1 )
19 disable
20 endif
21 endif
22endif
23
24
25; disable until quest happens
26if ( GetDisabled == 0 )
27 if ( GetJournalIndex TR_m7_HO_TT_03 < 10 )
28 Disable
29 return
30 elseif ( GetJournalIndex TR_m7_HO_TT_03 == 100 )
31 Disable
32 return
33 endif
34elseif ( GetDisabled )
35 if ( GetJournalIndex TR_m7_HO_TT_03 >= 10 )
36 if ( GetJournalIndex TR_m7_HO_TT_03 != 100 )
37 Enable
38 return
39 endif
40 endif
41endif
42
43; successfully led him out
44if ( GetPCCell "Sasamsi Egg Mine" != 1 )
45 if ( GetDistance player <= 256 )
46 if ( greetOnce == 0 )
47 ForceGreeting
48 AiWander 0 0 0 60 20 10
49 set greetOnce to 1
50 endif
51 endif
52endif
53
54; reunite him with his sister eventually
55if ( getJournalIndex TR_m7_HO_TT_03 >= 90 )
56 if ( getDeadCount "TR_m7_Malkur Raran" == 0 )
57 if ( doonce == 0 )
58 if ( CellChanged == 1 )
59 PositionCell 5710, 4834, 16388, 15000, "Raran Ancestral Tomb"
60 AiWander 0 0 0 60 20 10
61 set doonce to 1
62 set "TR_m7_Mylis Raran".controlV to 1
63 return
64 endif
65 endif
66 endif
67endif
68
69; give him his shoes, if his sister has them
70if ( "TR_m7_Mylis Raran"->getitemcount TR_m7_HO_TT_03_RaranShoes > 0 )
71 if ( GetPCCell "Raran Ancestral Tomb" == 1 )
72 "TR_m7_Mylis Raran"->removeitem TR_m7_HO_TT_03_RaranShoes 1
73 "TR_m7_Malkur Raran"->additem TR_m7_HO_TT_03_RaranShoes 1
74 endif
75endif
76
77end