-
Notifications
You must be signed in to change notification settings - Fork 2
/
INVB_Milking_WorkShop_Adder.psc
341 lines (298 loc) · 13.3 KB
/
INVB_Milking_WorkShop_Adder.psc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
Scriptname INVB_Milking_WorkShop_Adder extends ObjectReference
Actor target
Keyword Property kw_Morph_Milk Auto
Keyword Property kw_MilkOne Auto
Keyword Property kw_MilkTwo Auto
Perk Property Perk_Virus Auto
GlobalVariable property INVB_Global_BodyType Auto Const Mandatory
GlobalVariable property INVB_Global_BodyType_Enable Auto Const Mandatory
GlobalVariable property INVB_Global_Milking_MaxSize Auto Const Mandatory
INVB_QuestScript Property varTrigger Auto Const
GlobalVariable property INVB_Global_Gift_Amount Auto Const Mandatory
ActorValue Property Rads Auto Const
GlobalVariable property INVB_Global_Milking_Amount_1 Auto Const Mandatory
GlobalVariable property INVB_Global_Milking_Amount_2 Auto Const Mandatory
GlobalVariable property INVB_Global_Milking_Virus_Mod Auto Const Mandatory
GlobalVariable property INVB_Global_Milking_Virus_Morph Auto Const Mandatory
GlobalVariable property INVB_Global_Notes Auto Const Mandatory
Potion Property Milk_Breast Auto Const
Potion Property Milk_Rads Auto Const
Race Property GhoulRace Auto Const Mandatory
Race Property SynthGen1Race Auto Const Mandatory
Potion Property Milk_Synth Auto Const
Race Property SynthGen2Race Auto Const Mandatory
Race Property SynthGen2RaceValentine Auto Const Mandatory
GlobalVariable property INVB_Global_Rads auto Const
Perk Property Perk_Lactation Auto
GlobalVariable property INVB_Global_Lactation Auto Const Mandatory
GlobalVariable property INVB_Global_Gender_Roles Auto Const Mandatory
bool Property Milk Auto Const
Bool Property bool_Slow Auto
SPELL Property SP_MilkOverlay Auto
SPELL Property SP_MilkOverlay_Green Auto
GlobalVariable property INVB_Global_Overlay_Boolean Auto Const Mandatory
GlobalVariable property INVB_Global_NPC_Workshop Auto Const Mandatory
GlobalVariable property INVB_Global_Gift_GameHours Auto Mandatory
GlobalVariable property INVB_Global_Milking_Time_Type Auto Const Mandatory
GlobalVariable property INVB_Global_Spend_Toggle Auto Const Mandatory
Potion Property Aid_Spend Auto Const
Perk Property Perk_Spend Auto
Perk Property Perk_Active Auto
int int_milkcount
GlobalVariable property INVB_Global_Milking_Amount_Max Auto Const Mandatory
Armor Property pArmor_Milker Auto Const Mandatory
GlobalVariable property INVB_Global_Workshop_Gifter Auto Const Mandatory
Actor Property PlayerRef Auto Const
Bool Equipped = False
Event OnEquipped(Actor akActor)
int_milkcount = 0
Equipped = True
target = akActor
if INVB_Global_NPC_Workshop.GetValue() == 1 && akActor != PlayerRef
if Milk == true
if INVB_Global_Gender_Roles.GetValue() == 0 ; Enforced
If akActor.GetLeveledActorBase().GetSex() == 1
If INVB_Global_Lactation.GetValue() >= 1
Do_Milk_Timer(akActor)
elseif akActor.HasPerk(Perk_Lactation) && INVB_Global_Lactation.GetValue() >= 0
Do_Milk_Timer(akActor)
else
akActor.unequipitem(self,true,true)
endif
elseIf akActor.GetLeveledActorBase().GetSex() == 0
akActor.unequipitem(self,true,true)
endif
elseif INVB_Global_Gender_Roles.GetValue() == 1 ; Disable
Do_Milk_Timer(akActor)
endif
else
if INVB_Global_Gender_Roles.GetValue() == 0 ; Enforced
if akActor.GetLeveledActorBase().GetSex() == 0
Do_Milk_Timer(akActor)
elseIf akActor.GetLeveledActorBase().GetSex() == 1
akActor.unequipitem(self,true,true)
endif
elseif INVB_Global_Gender_Roles.GetValue() == 1 ; Disable
Do_Milk_Timer(akActor)
endif
endif
endif
EndEvent
Event OnUnequipped(Actor akActor)
Equipped = False
Float RadLevel = akActor.GetValue(Rads) as float
if akActor.HasPerk(Perk_Active)
akActor.removeperk(Perk_Active)
endIf
if int_milkcount >= 1
if INVB_Global_Spend_Toggle.GetValue() == 1
akActor.equipitem(Aid_Spend, false, true)
endIf
if INVB_Global_Overlay_Boolean.GetValue() == 1
If RadLevel > INVB_Global_Rads.GetValue()
SP_MilkOverlay_Green.Cast(akActor, akActor)
else
SP_MilkOverlay.Cast(akActor, akActor)
endIf
endIf
endIf
EndEvent
Function Do_Milk_Timer(Actor akActor)
if INVB_Global_Milking_Time_Type.GetValue() == 1
if int_milkcount < INVB_Global_Milking_Amount_Max.getvalue() && Equipped
RegisterForCustomEvent(varTrigger, "TriggerCollection")
elseif int_milkcount >= INVB_Global_Milking_Amount_Max.getvalue() && Equipped
akActor.unequipitem(pArmor_Milker, true, true)
if INVB_Global_Notes.GetValue() == 1
debug.notification(akActor.GetLeveledActorBase().GetName() +" has been Milked Out")
endif
endIf
else
if int_milkcount < INVB_Global_Milking_Amount_Max.getvalue() && Equipped
Utility.WaitGameTime(GetUpdateTime())
Get_Milk(akActor)
Do_Milk_Morphs(akActor)
Do_Milk_Timer(akActor)
elseif int_milkcount >= INVB_Global_Milking_Amount_Max.getvalue() && Equipped
akActor.unequipitem(pArmor_Milker, true, true)
if INVB_Global_Notes.GetValue() == 1
debug.notification(akActor.GetLeveledActorBase().GetName() +" has been Milked Out")
endif
endIf
endIf
EndFunction
Float Function GetUpdateTime()
float time_milking = INVB_Global_Gift_GameHours.getvalue()
if bool_Slow == true
time_milking = time_milking * 2
endIf
If time_milking > 0
return time_milking
Else
return 24.0
EndIf
EndFunction
Event INVB_QuestScript.TriggerCollection(INVB_QuestScript varSender, Var[] varArgs)
if canproduceforworkshop() == true
Get_Milk(target)
Do_Milk_Morphs(target)
endif
RegisterForCustomEvent(varTrigger, "TriggerCollection")
EndEvent
Function Get_Milk(Actor akActor)
Float RadLevel = akActor.GetValue(Rads) as float
int GiftAmount = INVB_Global_Gift_Amount.getvalue() as int
int_milkcount += 1
if bool_Slow == true && GiftAmount > 1
GiftAmount = GiftAmount / 2
endIf
if akActor.wornHasKeyword(kw_MilkTwo)
GiftAmount = GiftAmount * 2
endIf
if akActor.HasPerk(Perk_Virus)
GiftAmount = GiftAmount * (1 * INVB_Global_Milking_Virus_Mod.getvalue() as int)
endIf
if INVB_Global_Workshop_Gifter.GetValue() == 1
If akActor.GetDistance(PlayerRef) > 1024.000
If akActor.GetLeveledActorBase().GetRace() == GhoulRace
PlayerRef.additem(Milk_Rads, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen1Race
PlayerRef.additem(Milk_Synth, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen2Race
PlayerRef.additem(Milk_Synth, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen2RaceValentine
PlayerRef.additem(Milk_Synth, GiftAmount, true)
elseIF (RadLevel > INVB_Global_Rads.GetValue())
PlayerRef.additem(Milk_Rads, GiftAmount, true)
Else
PlayerRef.additem(Milk_Breast, GiftAmount, true)
Endif
else
If akActor.GetLeveledActorBase().GetRace() == GhoulRace
akActor.additem(Milk_Rads, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen1Race
akActor.additem(Milk_Synth, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen2Race
akActor.additem(Milk_Synth, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen2RaceValentine
akActor.additem(Milk_Synth, GiftAmount, true)
elseIF (RadLevel > INVB_Global_Rads.GetValue())
akActor.additem(Milk_Rads, GiftAmount, true)
Else
akActor.additem(Milk_Breast, GiftAmount, true)
Endif
endif
else
If akActor.GetLeveledActorBase().GetRace() == GhoulRace
akActor.additem(Milk_Rads, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen1Race
akActor.additem(Milk_Synth, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen2Race
akActor.additem(Milk_Synth, GiftAmount, true)
elseIf akActor.GetLeveledActorBase().GetRace() == SynthGen2RaceValentine
akActor.additem(Milk_Synth, GiftAmount, true)
elseIF (RadLevel > INVB_Global_Rads.GetValue())
akActor.additem(Milk_Rads, GiftAmount, true)
Else
akActor.additem(Milk_Breast, GiftAmount, true)
Endif
endif
EndFunction
Function Do_Milk_Morphs(Actor akActor)
if INVB_Global_BodyType_Enable.GetValue() == 2
string M_string_01
string string_02
string string_03
string string_04
Float RadLevel = akActor.GetValue(Rads) as float
If (INVB_Global_BodyType.GetValue() == 0) ; CBBE
M_string_01 = "DoubleMelon"
string_02 = ""
string_03 = ""
string_04 = ""
ElseIf (INVB_Global_BodyType.GetValue() == 1) ; CBBE Redux
M_string_01 = "Breasts"
string_02 = "BreastsNewSH"
string_03 = "NippleLength"
string_04 = "NipplePerk2"
ElseIf (INVB_Global_BodyType.GetValue() == 2) ; Fusion Girl
M_string_01 = "Boobs Yuge"
string_02 = "Nipples Areola"
string_03 = "Nipples Distance"
string_04 = ""
ElseIf (INVB_Global_BodyType.GetValue() == 3) ; Fusion Girl Redux
M_string_01 = "Boobs Yuge"
string_02 = "Nipples Areola"
string_03 = "Nipples Distance"
string_04 = ""
ElseIf (INVB_Global_BodyType.GetValue() == 4) ; AtomicBeauty
M_string_01 = "Breasts_Huge"
string_02 = ""
string_03 = ""
string_04 = ""
Else ; JaneBod
M_string_01 = "BreastsNaturalTypeSeven"
string_02 = "BreastSize"
string_03 = "NippleShapeLargerSeven"
string_04 = ""
Endif
Float original_String_01 = (BodyGen.GetMorph(akActor, true, M_string_01, none)) as float
Float original_String_02 = (BodyGen.GetMorph(akActor, true, string_02, none)) as float
Float original_String_03 = (BodyGen.GetMorph(akActor, true, string_03, none)) as float
Float original_String_04 = (BodyGen.GetMorph(akActor, true, string_04, none)) as float
Float original_String_01_M = (BodyGen.GetMorph(akActor, false, "BTBallSize", none)) as float
Float adjusted_String_01 = (BodyGen.GetMorph(akActor, true, M_string_01, kw_Morph_Milk)) as float
Float adjusted_String_02 = (BodyGen.GetMorph(akActor, true, string_02, kw_Morph_Milk)) as float
Float adjusted_String_03 = (BodyGen.GetMorph(akActor, true, string_03, kw_Morph_Milk)) as float
Float adjusted_String_04 = (BodyGen.GetMorph(akActor, true, string_04, kw_Morph_Milk)) as float
Float adjusted_String_01_M = (BodyGen.GetMorph(akActor, false, "BTBallSize", kw_Morph_Milk)) as float
Float MorphPower_String_01 = (adjusted_String_01 + original_String_01)
Float MorphPower_String_02 = (adjusted_String_02 + original_String_02)
Float MorphPower_String_03 = (adjusted_String_03 + original_String_03)
Float MorphPower_String_04 = (adjusted_String_04 + original_String_04)
Float MorphPower_String_01_M = (adjusted_String_01_M + original_String_01_M)
Float Milked_Breasts
Float Milked_BTBallSize
If (akActor.GetLeveledActorBase().GetSex() == 1)
If (MorphPower_String_01 >= INVB_Global_Milking_MaxSize.GetValue())
Milked_Breasts = INVB_Global_Milking_MaxSize.GetValue()
BodyGen.SetMorph(akActor, true, M_string_01, kw_Morph_Milk, Milked_Breasts)
BodyGen.SetMorph(akActor, true, string_02, kw_Morph_Milk, Milked_Breasts)
BodyGen.SetMorph(akActor, true, string_03, kw_Morph_Milk, Milked_Breasts)
BodyGen.SetMorph(akActor, true, string_04, kw_Morph_Milk, Milked_Breasts)
else
If akActor.wornHasKeyword(kw_MilkOne) && akActor.HasPerk(Perk_Virus)
Milked_Breasts = (MorphPower_String_01 + (INVB_Global_Milking_Amount_1.GetValue() * INVB_Global_Milking_Virus_Morph.getvalue()))
ElseIf akActor.wornHasKeyword(kw_MilkTwo) && akActor.HasPerk(Perk_Virus)
Milked_Breasts = (MorphPower_String_01 + (INVB_Global_Milking_Amount_2.GetValue() * INVB_Global_Milking_Virus_Morph.getvalue()))
ElseIf akActor.wornHasKeyword(kw_MilkOne)
Milked_Breasts = (MorphPower_String_01 + INVB_Global_Milking_Amount_1.GetValue())
ElseIf akActor.wornHasKeyword(kw_MilkTwo)
Milked_Breasts = (MorphPower_String_01 + INVB_Global_Milking_Amount_2.GetValue())
Endif
BodyGen.SetMorph(akActor, true, M_string_01, kw_Morph_Milk, Milked_Breasts)
BodyGen.SetMorph(akActor, true, string_02, kw_Morph_Milk, Milked_Breasts)
BodyGen.SetMorph(akActor, true, string_03, kw_Morph_Milk, Milked_Breasts)
BodyGen.SetMorph(akActor, true, string_04, kw_Morph_Milk, Milked_Breasts)
Endif
BodyGen.UpdateMorphs(akActor)
ElseIf (akActor.GetLeveledActorBase().GetSex() == 0)
If (adjusted_String_01_M >= INVB_Global_Milking_MaxSize.GetValue())
Milked_BTBallSize = INVB_Global_Milking_MaxSize.GetValue()
BodyGen.SetMorph(akActor, false, "BTBallSize", kw_Morph_Milk, Milked_BTBallSize)
else
If akActor.wornHasKeyword(kw_MilkOne) && akActor.HasPerk(Perk_Virus)
Milked_BTBallSize = (adjusted_String_01_M + (INVB_Global_Milking_Amount_1.GetValue() * INVB_Global_Milking_Virus_Morph.getvalue()))
ElseIf akActor.wornHasKeyword(kw_MilkTwo) && akActor.HasPerk(Perk_Virus)
Milked_BTBallSize = (adjusted_String_01_M + (INVB_Global_Milking_Amount_2.GetValue() * INVB_Global_Milking_Virus_Morph.getvalue()))
ElseIf akActor.wornHasKeyword(kw_MilkOne)
Milked_BTBallSize = (adjusted_String_01_M + INVB_Global_Milking_Amount_1.GetValue())
ElseIf akActor.wornHasKeyword(kw_MilkTwo)
Milked_BTBallSize = (adjusted_String_01_M + INVB_Global_Milking_Amount_2.GetValue())
Endif
BodyGen.SetMorph(akActor, false, "BTBallSize", kw_Morph_Milk, Milked_BTBallSize)
Endif
BodyGen.UpdateMorphs(akActor)
endif
endif
EndFunction