hircineringScript
Bloodmoon.esm
Variables
10
Local Variables
button
MessageOn
messageOnce
doOnce
OnPCEquip
reset
usering
timer
hourcheck
changetime
Source
1Begin hircineringScript
2
3short button
4short MessageOn
5short messageOnce
6short doOnce
7short OnPCEquip
8short reset
9short usering
10float timer
11float hourcheck
12float changetime
13
14if ( OnPCEquip == 0 )
15 set reset to 0
16endif
17
18if ( reset == 1 )
19 return
20endif
21
22if ( OnPCEquip == 1 )
23 if ( reset == 0 )
24 if ( messageOnce == 0 )
25 ;Set OnPCEquip to 0
26 MessageBox "Would you like to use the Ring of Hircine?" "Yes" "No"
27 set messageOn to 1
28 set messageOnce to 1
29 endif
30 endif
31endif
32
33if ( messageOn == 1)
34
35 set button to GetButtonPressed
36
37 if ( button >= 0 )
38 set messageOn to 0
39 endif
40
41 if ( button == 0 )
42 set usering to 1
43 ;set reset to 1
44
45 elseif ( button == 1 )
46 set reset to 1
47 set messageOnce to 0
48 return
49 endif
50endif
51
52if ( usering == 1 )
53 if ( OnPCEquip == 1 )
54 if ( MenuMode == 0 )
55 DisablePlayerControls
56 FadeOut 5
57 set usering to 2
58 Set OnPCEquip to 0
59 set messageOnce to 0
60 if ( PCWerewolf == 1 )
61 set PCWerewolf to -2
62 endif
63 endif
64 else
65 set usering to 0
66 set messageOnce to 0
67 return
68 endif
69endif
70
71if ( usering == 2 )
72 set timer to ( timer + GetSecondsPassed )
73 if ( timer > 5 )
74 PlayBink "bm_werewolf2.bik" 1
75 set usering to 3
76 set timer to 0
77 endif
78endif
79
80if ( usering == 3 )
81 Player->BecomeWereWolf
82 Player->AddSpell "werewolf vision"
83 Player->AddSpell "werewolf regeneration"
84 Player->SetWereWolfAcrobatics
85 FadeIn 5
86 set usering to 4
87 set timer to 0
88endif
89
90if ( usering == 4 )
91 set timer to ( timer + GetSecondsPassed )
92 if ( timer > 5 )
93 EnablePlayerControls
94 set usering to 5
95 set hourcheck to ( GameHour + 6 )
96 if ( hourcheck > 24 )
97 set ChangeTime to 1
98 set hourcheck to ( hourcheck - 24 )
99 endif
100 endif
101endif
102
103if ( usering == 5 )
104 if ( ChangeTime == 0 )
105 if ( GameHour > hourcheck )
106 set usering to 6
107 set timer to 0
108 endif
109 elseif ( ChangeTime == 1 )
110 if ( GameHour < 6 )
111 if ( GameHour > hourcheck )
112 set usering to 6
113 set timer to 0
114 endif
115 endif
116 endif
117endif
118
119if ( usering == 6 )
120 DisablePlayerControls
121 FadeOut 5
122 set usering to 7
123endif
124
125if ( usering == 7 )
126 set timer to ( timer + GetSecondsPassed )
127 if ( timer > 5 )
128 Player->UndoWerewolf
129 Player->RemoveSpell "werewolf vision"
130 Player->RemoveSpell "werewolf regeneration"
131 set usering to 8
132 set timer to 0
133 endif
134endif
135
136if ( usering == 8 )
137 FadeIn 5
138 set usering to 9
139endif
140
141if ( usering == 9 )
142 set timer to ( timer + GetSecondsPassed )
143 if ( timer > 5 )
144 EnablePlayerControls
145 set reset to 1
146 set usering to 0
147 set timer to 0
148 set ChangeTime to 0
149 if ( PCWerewolf == -2 )
150 set PCWerewolf to 1
151 endif
152 endif
153endif
154
155
156End hircineringScript