[proc,script1772].cs2

// 1772
[proc,script1772]()(int)
def_obj $obj0 = inv_getobj(worn, 1);
if (oc_param($obj0, param_1791) = 1) {
	return(1);
}
def_int $size1 = inv_size(inv);
def_int $size2 = 0;
while ($size2 < $size1) {
	$obj0 = inv_getobj(inv, $size2);
	if (oc_param($obj0, param_1791) = 1) {
		return(1);
	}
	$size2 = calc($size2 + 1);
}
return(0);