TR_m7_Alanius_Calatus_sc
TR_Mainland.esm
Variables
8
Local Variables
TR_Map
NoLore
control
controlQ
controlD
controlA
T_Local_NPC
T_Local_NoLore
Source
1begin TR_m7_Alanius_Calatus_sc
2
3short TR_Map
4short NoLore
5short control
6short controlQ
7short controlD
8short controlA
9short T_Local_NPC
10short T_Local_NoLore
11
12if ( TR_Map != 7 )
13 set TR_Map to 7
14endif
15
16if ( ondeath )
17 if ( getjournalindex TR_m7_Ns_Arena_06 >= 20 )
18 if ( TR_m7_Ns_ArenaDuelBegun >= 1 )
19 set TR_m7_Ns_ArenaDuelBegun to 0
20 endif
21 set TR_m7_Ns_ArenaDuelActive to 0
22 set TR_m7_Ns_ArenaDuelManager.duelwon to 1
23 set TR_m7_Eralgor.duelwon to 1
24 set controlq to 1
25 TR_m7_Eralgor->forcegreeting
26 return
27 elseif ( controlD )
28 Set TR_m7_Ns_ArenaDuelActive to 0
29 Set TR_m7_Ns_ArenaDuelManager.duelWon to -1
30 Set controlA to 1
31 Set "TR_m7_Eralgor".controlD to 1
32 "TR_m7_Eralgor"->forcegreeting
33 return
34 elseif ( GetPCCell "Narsis, Arena: Pit" == 1 )
35 set TR_m7_Ns_ArenaCurrentDuel to 0
36 set TR_m7_Ns_ArenaDuelBegun to 0
37 set TR_m7_Ns_ArenaCorrectDoor to 0
38 Set TR_m7_Ns_ArenaDuelActive to 0
39 Set TR_m7_Ns_ArenaDuelManager.duelWon to -1
40 Set controlA to 1
41 Set "TR_m7_Eralgor".controlD to 1
42 "TR_m7_Eralgor"->forcegreeting
43 return
44 endif
45endif
46
47if ( controlD == 0 )
48 return
49endif
50
51;For first duel
52if ( getjournalindex TR_m7_Ns_Arena_02 == 20 )
53 if ( GetHealthGetRatio <= 0.20 )
54 set TR_m7_Ns_ArenaDuelActive to 0
55 set TR_m7_Ns_ArenaDuelManager.duelwon to 1
56 set TR_m7_Eralgor.duelwon to 1
57 SetFight 20
58 StopCombat
59 TR_m7_Eralgor->ForceGreeting
60 return
61 elseif ( player->GetHealthGetRatio <= 0.20 )
62 set TR_m7_Ns_ArenaDuelActive to 0
63 set TR_m7_Ns_ArenaDuelManager.duelwon to -1
64 set TR_m7_Eralgor.duelwon to 2
65 SetFight 20
66 StopCombat
67 TR_m7_Eralgor->ForceGreeting
68 return
69 endif
70endif
71
72if ( controlq == 1 )
73 if ( onactivate )
74 messagebox "You cannot loot the corpse of your fallen opponent!"
75 endif
76endif
77
78end