This repository was archived by the owner on Feb 4, 2025. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy path[proc,script6311].cs2
288 lines (288 loc) · 11.5 KB
/
[proc,script6311].cs2
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
// 6311
[proc,script6311](int $int0, component $component1, component $component2, component $drop3, component $component4, enum $enum5)
def_int $intarray0(calc(enum_getoutputcount(enum_4390) + 1));
def_int $int6 = -1;
def_int $int7 = -1;
def_int $int8 = -1;
def_int $int9 = -1;
def_int $int10 = -1;
def_component $component11 = null;
def_int $int12 = 0;
def_namedobj $namedobj13 = null;
def_enum $enum14 = enum(int, enum, $enum5, $int0);
def_int $int15 = 0;
def_int $size16 = inv_size(worn);
while ($int15 < $size16) {
$component11 = enum(int, component, $enum14, $int15);
if ($component11 ! null) {
cc_deleteall($component11);
cc_create($component11, ^iftype_graphic, 0);
cc_setposition(0, 0, ^setpos_abs_centre, ^setpos_abs_centre);
cc_setsize(36, 36, ^setsize_abs, ^setsize_abs);
cc_setgraphic("miscgraphics,0");
cc_create($component11, ^iftype_graphic, 1);
cc_setsize(36, 32, ^setsize_abs, ^setsize_abs);
cc_setposition(2, 0, ^setpos_abs_centre, ^setpos_abs_centre);
$int12 = ~script6322($int0, $int15);
$namedobj13 = enum(int, namedobj, enum_4390, $int12);
if ($namedobj13 ! null) {
cc_settrans(0);
cc_setgraphicshadow(0x333333);
cc_setoutline(1);
if (oc_stackable($namedobj13) = true) {
cc_setobject($namedobj13, 5000);
} else {
cc_setobject($namedobj13, 1);
}
$intarray0($int12) = ~min(calc($intarray0($int12) + 1), enum(obj, int, enum_4392, $namedobj13));
cc_setopbase("<col=ff9040><oc_name($namedobj13)></col>");
cc_setop(1, "Discard");
cc_setop(10, "Examine");
cc_setonop("cc_settrans_temporarily(event_com, event_comsubid, 100, 0)");
cc_setdraggable($component1, -1);
cc_setondragcomplete("script6313($int0, event_com, event_comsubid, event_com2, event_comsubid2, $int12, $component1, $component2, $drop3, $component4, $enum5)");
cc_setondrag("br_loadout_hidewarning(event_com, event_comsubid, 1)");
cc_setdragdeadzone(5);
cc_setdragdeadtime(5);
if (oc_param($namedobj13, loadout_iteminfo) ! 13) {
switch_int (oc_param($namedobj13, loadout_ammotype)) {
case 3 :
$int6 = max($int6, oc_param($namedobj13, loadout_ammoreq));
case 5 :
$int7 = max($int7, oc_param($namedobj13, loadout_ammoreq));
case -6 :
$int8 = max($int8, oc_param($namedobj13, loadout_ammoreq));
case -7 :
$int9 = max($int9, oc_param($namedobj13, loadout_ammoreq));
case -8 :
$int10 = max($int10, oc_param($namedobj13, loadout_ammoreq));
}
}
} else {
cc_settrans(255);
cc_clearops;
cc_create($component11, ^iftype_graphic, 2);
cc_setsize(32, 32, ^setsize_abs, ^setsize_abs);
cc_setposition(0, 0, ^setpos_abs_centre, ^setpos_abs_centre);
cc_setgraphic(enum(int, graphic, enum_904, $int15));
}
}
$int15 = calc($int15 + 1);
}
cc_deleteall($component2);
def_int $int17 = calc((if_getwidth($component2) - 6 - 4 * 36) / 3 + 36);
def_int $int18 = calc((if_getheight($component2) - 6 - 7 * 32) / 6 + 32);
$int15 = 0;
def_int $size19 = inv_size(inv);
while ($int15 < $size19) {
$int12 = ~script6321($int0, $int15);
$namedobj13 = enum(int, namedobj, enum_4390, $int12);
cc_create($component2, ^iftype_graphic, $int15);
cc_setposition(calc(4 + $int17 * ($int15 % 4)), calc(3 + $int18 * ($int15 / 4)), ^setpos_abs_left, ^setpos_abs_top);
cc_setsize(36, 32, ^setsize_abs, ^setsize_abs);
if ($namedobj13 ! null) {
cc_settrans(0);
cc_setgraphicshadow(0x333333);
cc_setoutline(1);
if (oc_stackable($namedobj13) = true) {
cc_setobject($namedobj13, 5000);
} else {
cc_setobject($namedobj13, 1);
}
$intarray0($int12) = min(calc($intarray0($int12) + 1), enum(obj, int, enum_4392, $namedobj13));
cc_setopbase("<col=ff9040><oc_name($namedobj13)></col>");
if ($namedobj13 = rune_pouch_27086) {
cc_setop(1, "Configure");
}
cc_setop(2, "Discard");
cc_setop(10, "Examine");
cc_setonop("cc_settrans_temporarily(event_com, event_comsubid, 100, 0)");
cc_setdraggable($component1, -1);
cc_setondragcomplete("script6313($int0, event_com, event_comsubid, event_com2, event_comsubid2, $int12, $component1, $component2, $drop3, $component4, $enum5)");
cc_setondrag("br_loadout_hidewarning(event_com, event_comsubid, $size19)");
cc_setdragdeadzone(5);
cc_setdragdeadtime(5);
if (oc_param($namedobj13, loadout_iteminfo) ! 13) {
switch_int (oc_param($namedobj13, loadout_ammotype)) {
case 3 :
$int6 = max($int6, oc_param($namedobj13, loadout_ammoreq));
case 5 :
$int7 = max($int7, oc_param($namedobj13, loadout_ammoreq));
case -6 :
$int8 = max($int8, oc_param($namedobj13, loadout_ammoreq));
case -7 :
$int9 = max($int9, oc_param($namedobj13, loadout_ammoreq));
case -8 :
$int10 = max($int10, oc_param($namedobj13, loadout_ammoreq));
}
}
} else {
cc_settrans(255);
cc_clearops;
}
$int15 = calc($int15 + 1);
}
def_int $int20 = $int15;
def_int $int21 = 0;
def_int $int22 = 0;
def_int $int23 = 0;
def_int $int24 = 0;
def_int $int25 = 0;
def_int $int26 = 0;
def_int $int27 = 0;
def_int $int28 = 0;
def_int $int29 = 0;
def_int $int30 = 0;
def_int $int31 = 0;
def_int $int32 = 0;
$int25, $int26, $int27, $int28, $int29, $int30, $int31, $int32 = ~script6335($int0);
def_int $intarray1(calc(23 + 1));
def_int $int33 = 23;
while ($int33 > 0) {
switch_int ($int33) {
case 1 :
$intarray1($int33) = $int25;
case 2 :
$intarray1($int33) = $int26;
case 3 :
$intarray1($int33) = $int27;
case 4 :
$intarray1($int33) = $int28;
case 5 :
$intarray1($int33) = $int29;
case 6 :
$intarray1($int33) = $int30;
case 7 :
$intarray1($int33) = $int31;
case default :
$intarray1($int33) = $int32;
}
$int33 = calc($int33 - 1);
}
$int15 = $size16;
while ($int15 > 0) {
$int15 = calc($int15 - 1);
$component11 = enum(int, component, $enum14, $int15);
if ($component11 ! null) {
$int12 = ~script6322($int0, $int15);
$namedobj13 = enum(int, namedobj, enum_4390, $int12);
if ($namedobj13 ! null) {
$int21 = 0;
if ($intarray0($int12) > 0) {
$intarray0($int12) = calc($intarray0($int12) - 1);
} else {
$int21, $int24 = 1, 1;
}
if (oc_param($namedobj13, param_434) ! null & oc_param($namedobj13, param_436) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_434))) | oc_param($namedobj13, param_435) ! null & oc_param($namedobj13, param_437) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_435))) | oc_param($namedobj13, param_191) ! null & oc_param($namedobj13, param_613) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_191))) | oc_param($namedobj13, param_579) ! null & oc_param($namedobj13, param_614) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_579))) | oc_param($namedobj13, param_610) ! null & oc_param($namedobj13, param_615) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_610))) | oc_param($namedobj13, param_611) ! null & oc_param($namedobj13, param_616) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_611))) | oc_param($namedobj13, param_612) ! null & oc_param($namedobj13, param_617) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_612)))) {
$int21, $int22 = 1, 1;
}
if (oc_param($namedobj13, loadout_iteminfo) = 13) {
switch_int (oc_param($namedobj13, loadout_ammotype)) {
case 3 :
if ($int6 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case 5 :
if ($int7 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case -6 :
if ($int8 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case -7 :
if ($int9 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case -8 :
if ($int10 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
}
}
if ($int21 = 1) {
cc_create($component11, ^iftype_model, 2);
cc_setsize(36, 32, ^setsize_abs, ^setsize_abs);
cc_setposition(1, 0, ^setpos_abs_centre, ^setpos_abs_centre);
cc_setmodel(bank_filler_7669);
cc_setmodelangle(0, 0, 512, 512, 0, 1800);
}
}
}
}
$int15 = 0;
while ($int15 < $size19) {
cc_create($component2, ^iftype_model, $int20);
$int20 = calc($int20 + 1);
$int12 = ~script6321($int0, $int15);
$namedobj13 = enum(int, namedobj, enum_4390, $int12);
if ($namedobj13 ! null) {
$int21 = 0;
if ($intarray0($int12) > 0) {
$intarray0($int12) = calc($intarray0($int12) - 1);
} else {
$int21, $int24 = 1, 1;
}
if (oc_param($namedobj13, param_434) ! null & oc_param($namedobj13, param_436) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_434))) | oc_param($namedobj13, param_435) ! null & oc_param($namedobj13, param_437) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_435))) | oc_param($namedobj13, param_191) ! null & oc_param($namedobj13, param_613) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_191))) | oc_param($namedobj13, param_579) ! null & oc_param($namedobj13, param_614) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_579))) | oc_param($namedobj13, param_610) ! null & oc_param($namedobj13, param_615) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_610))) | oc_param($namedobj13, param_611) ! null & oc_param($namedobj13, param_616) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_611))) | oc_param($namedobj13, param_612) ! null & oc_param($namedobj13, param_617) > $intarray1(enum(stat, int, enum_81, oc_param($namedobj13, param_612)))) {
$int21, $int22 = 1, 1;
}
if (oc_param($namedobj13, loadout_iteminfo) = 13) {
switch_int (oc_param($namedobj13, loadout_ammotype)) {
case 3 :
if ($int6 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case 5 :
if ($int7 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case -6 :
if ($int8 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case -7 :
if ($int9 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
case -8 :
if ($int10 < oc_param($namedobj13, loadout_ammoreq)) {
$int21, $int23 = 1, 1;
}
}
}
if ($int21 = 1) {
cc_sethide(false);
cc_setsize(36, 32, ^setsize_abs, ^setsize_abs);
cc_setposition(calc(4 + $int17 * ($int15 % 4)), calc(3 + $int18 * ($int15 / 4)), ^setpos_abs_left, ^setpos_abs_top);
cc_setmodel(bank_filler_7669);
cc_setmodelangle(0, 0, 512, 512, 0, 1800);
} else {
cc_sethide(true);
}
} else {
cc_sethide(true);
}
$int15 = calc($int15 + 1);
}
$int20 = ~thinbox($component2, $int20);
if ($int22 = 1) {
if_settextfont(p11_full, $component4);
if_setcolour(~tob_hud_nameflasher, $component4);
if_setontimer("tob_hud_nameflasher($component4)", $component4);
if_settext("This build's stats will not permit you to equip some of your items.", $component4);
} else if ($int24 = 1) {
if_settextfont(p11_full, $component4);
if_setcolour(~tob_hud_nameflasher, $component4);
if_setontimer("tob_hud_nameflasher($component4)", $component4);
if_settext("Your load-out contains too many of certain items - please discard some.", $component4);
} else if ($int23 = 1) {
if_settextfont(p11_full, $component4);
if_setcolour(~tob_hud_nameflasher, $component4);
if_setontimer("tob_hud_nameflasher($component4)", $component4);
if_settext("You have some ammo that cannot be fired by any of your weaponry.", $component4);
} else {
if_settextfont(p12_full, $component4);
if_setcolour(0xff981f, $component4);
if_setontimer(null, $component4);
if_settext("This build's stats should allow you to equip these items.", $component4);
}