// (c) 2001 05.09.01 13:11, gray@kr.ru
//
// changes:
// 05.09.01 13:09	gray	added code for STWDebugger:
//				cprop flag '#is_in_pack' so Debugger can
//				determine items is inside of player's backpack

use uo;
use guilds;

program can_remove (who, container, item);

if (who.backpack.serial == container.serial)
     return 1;
else

  var tempcntr := container;

  while(tempcntr.serial)


     if (tempcntr.locked)
        sendsysmessage ( who, tempcntr.desc+" is locked");
        reserveitem(item);
        return 0;
     endif


if(GetObjProperty(tempcntr, "ghostserial") )
  var cmdlevel := who.cmdlevel;
  if (!cmdlevel)
     if (who.hidden)
       who.hidden := 0;
     endif
     PrintTextAbove(who, "You see " + who.name + " looting " + tempcntr.name);

     if(   ( Cint(GetObjProperty(tempcntr, "ghostserial")) != who.serial ) &&
           ( !GetObjProperty(tempcntr, "criminal")) && ( !GetObjProperty(tempcntr, "longmurders")  or
           ( Cint(GetObjProperty(tempcntr, "longmurders")) < 5 )) )
        var guildid := Cint(GetObjProperty( who, "guild_id"));
        var guild := FindGuild(guildid);

        var corpseguildid :=  CInt(GetObjProperty ( tempcntr, "guild_id"));
        var corpseguild := FindGuild(corpseguildid);

        if ( !guildid or !corpseguildid or !(guild.isallyguild(corpseguild) or guild.isenemyguild(corpseguild) or corpseguild.ismember(who)))
            PrintTextAbove(who, "Criminal!!!");
            who.SetCriminal(1);
        endif
     endif
  endif
endif

     tempcntr := tempcntr.container;
  endwhile
     return 1;

endif
endprogram