/home/leaf/crossfire/server/branches/1.12/types/detector/detector.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 detector_type_process(ob_methods *context, object *op);

void init_type_detector(void) {
    register_process(DETECTOR, detector_type_process);
}

static void move_detector(object *op) {
    object *tmp, *tmp2;
    int last = op->value;
    int detected;
    detected = 0;

    if (!op->slaying) {
        if (op->map)
            LOG(llevError, "Detector with no slaying set at %s (%d,%d)\n", op->map->path, op->x, op->y);
        else if (op->env)
            LOG(llevError, "Detector with no slaying in %s\n", op->env->name);
        else
            LOG(llevError, "Detector with no slaying nowhere?\n");
        op->speed = 0;
        update_ob_speed(op);
        return;
    }

    for (tmp = GET_MAP_OB(op->map, op->x, op->y); tmp != NULL; tmp = tmp->above) {
        if (op->stats.hp) {
            for (tmp2 = tmp->inv; tmp2; tmp2 = tmp2->below) {
                if (op->slaying == tmp2->name) {
                    detected = 1;
                    break;
                }
                if (tmp2->type == FORCE && tmp2->slaying == op->slaying) {
                    detected = 1;
                    break;
                }
            }
        }
        if (op->slaying == tmp->name) {
            detected = 1;
            break;
        }
        if (tmp->type == PLAYER && !strcmp(op->slaying, "player")) {
            detected = 1;
            break;
        }
        if (tmp->type == SPECIAL_KEY && tmp->slaying == op->slaying) {
            detected = 1;
            break;
        }
    }

    /* the detector sets the button if detection is found */
    if (op->stats.sp == 1)  {
        if (detected && last == 0) {
            op->value = 1;
            push_button(op);
        }
        if (!detected && last == 1) {
            op->value = 0;
            push_button(op);
        }
    } else { /* in this case, we unset buttons */
        if (detected && last == 1) {
            op->value = 0;
            push_button(op);
        }
        if (!detected && last == 0) {
            op->value = 1;
            push_button(op);
        }
    }
}

static method_ret detector_type_process(ob_methods *context, object *op) {
    move_detector(op);
    return METHOD_OK;
}

---