#include "defs.h"

#define BREAKINSH "players/jubal/shad/breakinsh"
main(str) {
  object ob,sh;

  SECURE
  if(!str) return write("Usage: breakin <player>\n"), 1;
  if(ob=find_player(str)) {
    if(!(ob=environment(ob))) return write("No environment!\n"), 1;
  } else if(!(ob=find_object(str)))
    return write(str+" doesn't exist\n"), 1;
  sh=clone_object(BREAKINSH)->start(ob);
  move_object(this_player(),ob);
  destruct(sh);
  write("Done.\n");
  return 1;
}