[proc,deathkeep_left_deleteditem].cs2

// 978
[proc,deathkeep_left_deleteditem](obj $obj0, int $num1, int $int2, int $int3, int $int4, int $int5)(int, int)
cc_create(interface_4:10, ^iftype_graphic, $int5);
cc_setsize(36, 32, ^setsize_abs, ^setsize_abs);
def_int $int6 = calc(17 + $int5 / $int2 * (32 + $int3));
cc_setposition(calc($int4 + $int5 % $int2 * (36 + $int3)), $int6, ^setpos_abs_left, ^setpos_abs_top);
cc_setgraphicshadow(0x333333);
cc_setoutline(1);
cc_setobject($obj0, $num1);
cc_setop(1, "Check");
cc_setopbase("<col=ff9040><oc_name($obj0)></col>");
def_string $mes0 = "";
if ($num1 > 1) {
	$mes0 = "<~tostring_spacer($num1, ",")> x <oc_name($obj0)>: These items will be deleted.";
} else {
	$mes0 = "<oc_name($obj0)>: This item will be deleted.";
}
cc_setonop("deathkeep_opitem(event_com, event_comsubid, $mes0)");
return(calc($int5 + 1), $int6);