Jacket   =
Leather  =
Metal    =
Combat   =
Power    =
AdvPower =
Robe     =

stack_offset[curr_stack] <= stack_offset тут смещение на первый отображаемый слот, то ли сверху то ли снизу (первые слоты инвентаря идут снизу к верху)
количество отображаемых слотов в inven_cur_disp

procedure show_steal begin
   variable obj_loot;
   variable loot_obj_inv_offset = read_int(0x59E7EC);
   variable loot_obj_inv_count;
   variable dude_inv_offset = read_int(0x59E844);
   variable dude_inv_count;
   variable item;
   variable item_count;
   variable item_inv_num;
   variable slot_num;
   variable slot_num_under_mouse = read_int(0x59E93C);
   variable inven_max_slots;
   variable i;
   variable refresh;
   variable j;
   if steal_chance_win > 0 then begin
      if (loot_obj_inv_offset != loot_obj_inv_offset_last) orElse (dude_inv_offset != dude_inv_offset_last) orElse (slot_num_under_mouse != slot_num_under_mouse_last) then begin
         loot_obj_inv_offset_last = loot_obj_inv_offset;
         dude_inv_offset_last = dude_inv_offset;
         slot_num_under_mouse_last = slot_num_under_mouse;
         sfall_func2("interface_overlay", WINTYPE_INVENTORY, 0);
         sfall_func2("interface_overlay", WINTYPE_INVENTORY, 1);
         inven_max_slots = read_int(0x519054);
         if slot_num_under_mouse >= 2000 andAlso slot_num_under_mouse < (2000 + inven_max_slots) then begin
            obj_loot = loot_obj;
            loot_obj_inv_count = inven_count(obj_loot) - loot_obj_inv_offset;
            slot_num = slot_num_under_mouse % 2000;
            if slot_num > (loot_obj_inv_count-1) then begin

            end
            else begin
                  item_inv_num = (loot_obj_inv_count - 1) - slot_num;
                  item = inven_ptr(obj_loot, item_inv_num);
                  interface_print(obj_name(item), WINTYPE_INVENTORY, 340, (69 + (slot_num * 50)), (0 bwor 0x0010000));
               end
         end
         else if slot_num_under_mouse >= 1000 andAlso slot_num_under_mouse < (1000 + inven_max_slots) then begin
            dude_inv_count = inven_count(dude_obj) - dude_inv_offset;
            slot_num = slot_num_under_mouse % 1000;
            if slot_num > dude_inv_count-1 then begin

            end
            else begin
               item_inv_num = (dude_inv_count - 1) - slot_num;
               item = inven_ptr(dude_obj, item_inv_num);
               interface_print(obj_name(item), WINTYPE_INVENTORY, 220, (69 + (slot_num * 50)), 0);
            end
         end
      end
   end
end

procedure plasma_alt_explosion(variable attacker, variable target) begin
   variable target_elevation = elevation(dude_obj);
   variable tar_tile = tile_num(target);
   variable new_tar;
   variable blast_radius = 2;
   variable array_critters_in_radius = objects_in_radius(tar_tile,blast_radius, target_elevation, OBJ_TYPE_CRITTER);
   foreach new_tar in array_critters_in_radius begin
      critter_dmg(new_tar, 10, (DMG_plasma bwor DMG_BYPASS_ARMOR));
   end
end

procedure COMBATDAMAGE begin
   variable target = get_sfall_arg;
   variable attacker = get_sfall_arg;
   if attacker == dude_obj then begin
      call plasma_alt_explosion(attacker,target);
   end
end

procedure start begin
   if game_loaded then begin
      register_hook_proc_spec(HOOK_COMBATDAMAGE, COMBATDAMAGE);
      set_global_script_type(0);
      set_global_script_repeat(0);
   end
end