/home/leaf/crossfire/server/branches/1.12/types/teleporter/teleporter.c

Go to the documentation of this file.

/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2008 Crossfire Development Team

    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., 675 Mass Ave, Cambridge, MA 02139, USA.

    The authors can be reached via e-mail at crossfire-devel@real-time.com
*/

#include <global.h>
#include <ob_methods.h>
#include <ob_types.h>
#include <sounds.h>
#include <sproto.h>

static method_ret teleporter_type_process(ob_methods *context, object *op);
static method_ret teleporter_type_trigger(ob_methods *context, object *op, object *cause, int state);

void init_type_teleporter(void) {
    register_process(TELEPORTER, teleporter_type_process);
    register_trigger(TELEPORTER, teleporter_type_trigger);
}

static void move_teleporter(object *op) {
    object *tmp, *head = op;

    /* if this is a multipart teleporter, handle the other parts
    * The check for speed isn't strictly needed - basically, if
    * there is an old multipart teleporter in which the other parts
    * have speed, we don't really want to call it twice for the same
    * function - in fact, as written below, part N would get called
    * N times without the speed check.
    */
    if (op->more && FABS(op->more->speed) < MIN_ACTIVE_SPEED)
        move_teleporter(op->more);

    if (op->head)
        head = op->head;

    for (tmp = op->above; tmp != NULL; tmp = tmp->above)
        if (!QUERY_FLAG(tmp, FLAG_IS_FLOOR))
            break;

    /* If nothing above us to move, nothing to do */
    if (!tmp || QUERY_FLAG(tmp, FLAG_WIZPASS))
        return;

    if (EXIT_PATH(head)) {
        if (tmp->type == PLAYER) {
            /* Lauwenmark: Handle for plugin TRIGGER event */
            if (execute_event(op, EVENT_TRIGGER, tmp, NULL, NULL, SCRIPT_FIX_ALL) != 0)
                return;
            enter_exit(tmp, head);
        }
        else
            /* Currently only players can transfer maps */
            return;
    } else if (EXIT_X(head)||EXIT_Y(head)) {
        if (out_of_map(head->map, EXIT_X(head), EXIT_Y(head))) {
            LOG(llevError, "Removed illegal teleporter.\n");
            remove_ob(head);
            free_object(head);
            return;
        }
        /* Lauwenmark: Handle for plugin TRIGGER event */
        if (execute_event(op, EVENT_TRIGGER, tmp, NULL, NULL, SCRIPT_FIX_ALL) != 0)
            return;
        transfer_ob(tmp, EXIT_X(head), EXIT_Y(head), 0, head);
    } else {
        /* Random teleporter */
        /* Lauwenmark: Handle for plugin TRIGGER event */
        if (execute_event(op, EVENT_TRIGGER, tmp, NULL, NULL, SCRIPT_FIX_ALL) != 0)
            return;
        teleport(head, TELEPORTER, tmp);
    }
}

static method_ret teleporter_type_process(ob_methods *context, object *op) {
    move_teleporter(op);
    return METHOD_OK;
}

static method_ret teleporter_type_trigger(ob_methods *context, object *op, object *cause, int state) {
    move_teleporter(op);
    return METHOD_OK;
}

---