TR_m7_NPC_ForenBeldo
TR_Mainland.esm
Variables
8
Local Variables
nolore
T_Local_NoLore
T_Local_NPC
control
controlQ
TR_Map
doonce
OnPCHitMe
Source
1Begin TR_m7_NPC_ForenBeldo
2
3short nolore
4short T_Local_NoLore
5short T_Local_NPC
6short control
7short controlQ
8short TR_Map
9
10short doonce
11short OnPCHitMe
12
13if ( Menumode )
14 return
15endif
16
17if ( GetJournalIndex TR_m7_AI_JNS_6 < 20 )
18 if ( control == 0 )
19 Disable
20 TR_m7_AI_JNS_6_Cart->disable
21 TR_m7_AI_JNS_6_Chair->disable
22 TR_m7_AI_JNS_6_ChestS->disable
23 TR_m7_AI_JNS_6_Crate->disable
24 TR_m7_AI_JNS_6_Crate2->disable
25 TR_m7_AI_JNS_6_Sack->disable
26 TR_m7_AI_JNS_6_Sack2->disable
27 TR_m7_AI_JNS_6_SackS->disable
28 TR_m7_AI_JNS_6_Guar->disable
29 "TR_m7_Radix Aladui"->disable
30 TR_m7_Edel->disable
31 set control to 1
32 endif
33elseif ( control == 1 )
34 Enable
35 TR_m7_AI_JNS_6_Cart->enable
36 TR_m7_AI_JNS_6_Chair->enable
37 TR_m7_AI_JNS_6_ChestS->enable
38 TR_m7_AI_JNS_6_Crate->enable
39 TR_m7_AI_JNS_6_Crate2->enable
40 TR_m7_AI_JNS_6_Sack->enable
41 TR_m7_AI_JNS_6_Sack2->enable
42 TR_m7_AI_JNS_6_SackS->enable
43 TR_m7_AI_JNS_6_Guar->enable
44 "TR_m7_Radix Aladui"->enable
45 TR_m7_Edel->enable
46 set control to 2
47endif
48
49if ( GetDisabled )
50 return
51endif
52
53if ( OnDeath )
54 set controlQ to -1
55 if ( GetJournalIndex TR_m7_AI_JNS_6 < 50 )
56 additem gold_001 1000
57 endif
58 return
59endif
60
61if ( OnPCHitMe )
62 set controlQ to -1
63 if ( doonce == 0 )
64 if ( GetDeadCount "TR_m7_Edel" == 0 )
65 TR_m7_Edel->startcombat player
66 TR_m7_Edel->setfight 100
67 endif
68 if ( GetDeadCount "TR_m7_Radix Aladui" == 0 )
69 "TR_m7_Radix Aladui"->startcombat player
70 "TR_m7_Radix Aladui"->setfight 100
71 endif
72 set doonce to 1
73 endif
74 set OnPCHitMe to 0
75 startcombat player
76endif
77
78if ( controlQ == 0 )
79 if ( getdistance player < 750 )
80 set controlQ to 3
81 Forcegreeting
82 return
83 elseif ( getdistance player < 1000 )
84 set controlQ to 1
85 Forcegreeting
86 return
87 endif
88elseif ( controlQ == 2 ) ;set in dialogue
89 if ( getdistance player < 750 )
90 set controlQ to 3
91 Forcegreeting
92 return
93 endif
94endif
95
96if ( TR_Map )
97 Return
98endif
99
100set TR_Map to 7
101
102end