<?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 *//*** Get info on some entity** Input: <get_entity me="x" id="x" [filter="x,x,x,..."]/>* Ouput: <get_entity to="x" id="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_get_entity(&$connection, &$user, &$character, $command){    global $entities;    // TODO    // From now all players can ask about any entity. This logically is bad.    // We have to put a lot of filters here, since you cannot get info    // about an object far from you ...    // In short, we would have to check if $character can perceive the data    // from one of his senses    // Search id    try {        $entity = &$entities->get_entity($command["id"]);    } catch(exception $exception) {        $answer = array(            "ok"    => "0",            "id"    => $command["id"],            "msg"   => $exception->get_msg());        return($answer);    }    // Fill $answer with all relevant entity variables    $answer = $entity->get_game_vars();    $answer["parent_id"] = $entity->parent->get_key();    $answer["type"] = $entities->get_type_name($entity->type);    // filter if we need to    if(!empty($command["filter"])) {        $keys_to_filter = preg_split("/,/", $command["filter"]);           $keys = array_keys($answer);        $valid_keys = array_intersect($keys, $keys_to_filter);        foreach($answer as $k => $v) {            if(in_array($k, $valid_keys) == FALSE) {                unset($answer[$k]);            }        }    }    // We always return these    $answer["to"] = $character->get_key();    $answer["id"] = $entity->get_key();    return($answer);}/*** Get all entities included in id's entity ** Input: <get_childs me="x" id="x" [type="x"]/>* Ouput: <get_childs to="x" id="x" child_id="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_get_childs(&$connection, &$user, &$character, $command){    global $entities;    // TODO    // As get_entity ... can the character perceive this data?    // Search id    try {        $entity = &$entities->get_entity($command["id"]);        if(!empty($command["type"])) {            $filter_type = TRUE;            $f_type = $entities->get_type_from_name($command["type"]);        } else {            $filter_type = FALSE;        }    } catch(exception $exception) {        $answer = array(            "ok"    => "0",            "id"    => $command["id"],            "msg"   => $exception->get_msg());        return($answer);    }    // Fill $answer with all relevant entity variables    foreach (array_keys($entity->childs) as $key) {        // Fill $answer with all relevant entity variables        $t_entity = & $entity->childs["$key"];        $t_answer = $t_entity->get_game_vars();        $t_answer["xml_name"] = "get_entity";        $t_answer["to"] = $character->get_key();        $t_answer["id"] = $t_entity->get_key();        $t_answer["parent_id"] = $t_entity->parent->get_key();        $t_answer["type"] = $entities->get_type_name($t_entity->type);        // filter by type        if($filter_type == TRUE) {            if($t_entity->type != $f_type) {                continue;            }        }        $answer[] = $t_answer;    }    // Fix top name of the XML    $answer[0]["_xml_name"] = "get_childs";    // No answer if no childs exist :)    if(isset($answer)) {        return($answer);    }    return(array());}/*** Return in wich entity [id] is included** Input: <get_parent me="x" id="x" />* Ouput: <get_parent to="x" id="x" parent_id="x"/>* Maybe this command will be erased in the future, since get_entity can * replace it** @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_get_parent(&$connection, &$user, &$character, $command){    global $entities;    // TODO    // As get_entity ... can the character perceive this data?    // Search id    try {        $entity = &$entities->get_entity($command["id"]);    } catch(exception $exception) {        $answer = array(            "ok"    => "0",            "id"    => $command["id"],            "msg"   => $exception->get_msg());        return($answer);    }    //    // Fill $answer with all parent_id    $answer = array (        "to" => $character->get_key(),        "id" => $entity->get_key(),        "parent_id" => $entity->parent->get_key());    return($answer);}?>