TR_m4_Thadar_Bels_scr
TR_Mainland.esm
Variables
6
Local Variables
TR_Map
control
controlQ
NoLore
T_Local_NPC
T_Local_NoLore
Source
1Begin TR_m4_Thadar_Bels_scr
2
3short TR_Map
4short control
5short controlQ
6short NoLore
7short T_Local_NPC
8short T_Local_NoLore
9
10if ( OnDeath ) ; fail if he dies without being attacked
11 if ( GetJournalIndex "TR_m4_Ord_Rite" >= 10 )
12 if ( GetJournalIndex "TR_m4_Ord_Rite" < 100 )
13 Journal TR_m4_Ord_Rite 200
14 set controlQ to 5
15 endif
16 endif
17endif
18
19if ( GetAttacked ) ; fail if he gets attacked by you, too
20 if ( GetJournalIndex "TR_m4_Ord_Rite" >= 10 )
21 if ( GetJournalIndex "TR_m4_Ord_Rite" < 100 )
22 Journal TR_m4_Ord_Rite 200
23 set controlQ to 5
24 endif
25 endif
26endif
27
28if ( controlQ >= 5 )
29 return
30endif
31
32if ( CellChanged )
33 if ( GetJournalIndex "TR_m4_Ord_Rite" >= 80 )
34 PositionCell -276 1959 -1034 6900 "Olms Ancestral Tomb, Sepulcher" ; TR_m4_MARK_ThadarBels
35 AIWander 0 0 0
36 set controlQ to 5
37 endif
38endif
39
40if ( controlQ == 1 )
41 AiTravel 830 1824 -747 16500 ;top of stairs - TR_m4_MARK_ThadarBels
42 set controlQ to 2
43elseif ( controlQ == 2 )
44 if ( GetAIPackageDone )
45 AIWander 0 0 0
46 Face 790 1824
47 set TR_m4_Ord_Rite_state to 1
48 set controlQ to 3
49 Say "Vo\ord\Idl_ORM002.mp3" "Own no weakness or fault."
50 endif
51elseif ( controlQ == 3 )
52 if ( TR_m4_Ord_Rite_state == 2 )
53 AiTravel -276 1959 -1034 6900 ; TR_m4_MARK_ThadarBels
54 set controlQ to 4
55 endif
56elseif ( controlQ == 4 )
57 if ( GetAIPackageDone )
58 AIWander 0 0 0
59 Face -200 1907
60 set controlQ to 5
61 endif
62endif
63
64if ( TR_Map )
65 return
66endif
67
68set TR_Map to 4
69
70End