function lootmoney( npc )
    local m
    if npc and npc:character_community() ~= "arena_enemy" then    -- убрал лишние проверки
     m = npc:money() or 0
     if m ~= 0 then npc:give_money( -m ) end    -- чистим деньги у непися
    else return    -- откуда-то прилетел глючный вызов. Интересно, откуда ? Ничего не делаем.
    end

    if monnoroch_options.money_real == 1 then    -- зачем-то перевернули смысл опции
     -- должно быть 0 - тогда тогда деньги берутся отсюда, 1 - отдается сколько
     -- было у непися. Ну да ладно...
     local npc_rank = ranks.get_obj_rank_name( npc )    -- уровень непися
     -- здесь был полный глюкодром. Переделал все.
     if npc_rank == "experienced" then m = math.random( 1510, 3079 )
     elseif npc_rank == "veteran" then m = math.random( 3800, 6530 )
     elseif npc_rank == "master" then m = math.random( 6540, 10000 )
     else m = math.random( 100, 1050 )    -- для непися-новичка
    end    end

    -- формируем и выводим сообщение
    local s = "%c[255,255,0,0]Мёртвый сталкер:%c[default]" .. npc:character_name()
     .. "\\n%c[255,255,0,0]Обнаружено денег на счёте:%c[default]" .. m .. "руб."
    db.actor:give_game_news( s, "ui\\ui_iconsTotal", Frect():set( 0, 0, 83, 47 ), 1, 4000 )
    db.actor:give_money( m )    -- даем денег актору
    game_stats.money_quest_update( m )  -- останки "рангового" мода

    if ui_mm_opt_main.GetOption( "autograb_body" ) then    -- автообыск трупа
     start_transfer_all_desired( npc )
    end
end