<?php/*** Netlands World Server is the coordinator of the VR in the Netlands Project* Copyright (C) 2002 Ricard Pillosu* * This program is free software; you can redistribute it and/or* modify it under the terms of the GNU General Public License* as published by the Free Software Foundation; either version 2* of the License, or (at your option) any later version.* * This program is distributed in the hope that it will be useful,* but WITHOUT ANY WARRANTY; without even the implied warranty of* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the* GNU General Public License for more details.* * You should have received a copy of the GNU General Public License* along with this program; if not, write to the Free Software* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.*//* vim: set expandtab tabstop=4 shiftwidth=4 *//*** With this command we can "move" objekts. You can give them to other* characater or drop it to the room, or put them into other objekt**  Input: <put [me="x"] id="x" parent_id="x"/>* Output: <put to="x"   id="x" parent_id="x" ok="<0|1>" msg="x"/>** @param connection object  Reference to connection* @param user       object  Reference to user* @param character  object  Reference to character* @param command    array   Contains command received*/function command_put(&$connection, &$user, &$character, $command){    global $entities;    try {        // Check the objekt        $t_objekt = & $entities->get_entity($command["id"]);        if($t_objekt->type != entity_list::T_OBJK) {            throw new exception("this is not an objekt");        }        // Check if this objekt is owned by you        if($character->is_my_child($t_objekt, FALSE) == FALSE) {            throw new exception("this objekt is not yours");        }        // Check the target entity        $t_entity = & $entities->get_entity($command["parent_id"]);        switch($t_entity->type) {        case entity_list::T_OBJK:            // Check if this objekt is owned by you            if($character->is_my_child($t_entity, FALSE) == FALSE) {                throw new exception("parent_id objekt is not yours");            }        break;        case entity_list::T_CHAR:            // Check if this character is near you            if($character->parent->is_my_child($t_entity, FALSE) == FALSE) {                throw new exception("parent_id character is not near");            }        break;        case entity_list::T_ROOM:            // Check if you are in this room            if($t_entity->is_my_child($character, FALSE) == FALSE) {                throw new exception("parent_id room is not here");            }        break;        default:            throw new exception("invalid parent_id type");        break;        }        // Go        if($t_entity->type == entity_list::T_CHAR) {            // "offer" the entity            $t_objekt->offered_to = $t_entity->get_key();        } else {            // move the entity            $entities->move_entity_to($t_objekt, $t_entity);        }    } catch(exception $exception) {        $answer = array(            "ok"    => "0",            "id"    => $command["id"],            "msg"   => $exception->get_msg());        return($answer);    }        // ok, all done :)    $answer = array(        "to"    => $character->get_key(),        "ok"    => "1",        "msg"   => "you put the objekt",        "id"    => $t_objekt->get_key(),        "parent_id" => $t_entity->get_key());    return($answer);}?>