/*  /verbs/spells/obj/portal.c
 *  created by Blitz@Dead Souls 960417
 *  used with the portal spell
 */

#include <lib.h>
#include "include/portal.h"

inherit LIB_ITEM;

static int LifeSpan = 0;
static string Caster = "Blitz",
LinkRoom;

static void create() {
    item::create();
    SetKeyName("portal");
    SetId("portal");
    SetAdjectives("pulsating", "shimmering");
    SetShort("%^YELLOW%^a shimmering portal%^RESET%^");
    SetLong((: eventShowPortal :));
    SetPreventGet("The portal is pure magic and lacks substance.");
    SetPreventPut("The portal is pure magic and lacks substabce.");
    SetMass(0);
    SetValue(0);
}

string eventShowPortal() {
    string str;
    str = "A shimmering, magical portal that pulsates different "
    "shades of white and blue. It was created by Talima "
    "for her faithful servent " + Caster + ". ";
    if( sizeof(LinkRoom) ) {
	object ob = load_object(LinkRoom);
	if( !ob ) return "There are problems with this portal.";
	str += "Gazing into its fitful depths, you can barely see "
	"an occasional glimpse of " + ob->GetShort() + ".";
    }
    else str += "You see nothing in its depths.";
    return str;
}

int SetLink(mixed dest) {
    if( stringp(dest) ) {
	dest = load_object(dest);
	if( !dest ) return 0;
    }
    else if( !objectp(dest) ) error("Invalid argument 1 to SetLink!");
    LinkRoom = base_name(dest);
    return 1;
}

string GetLink() { return LinkRoom; }

int SetLifeSpan(int x) {
    if( LifeSpan ) return 0;
    call_out((: eventDestruct :), x);
    return (LifeSpan = x);
}

int GetLifeSpan() { return LifeSpan; }

string SetCaster(string str) { return (Caster = str); }

string GetCaster() { return Caster; }

mixed CanEnter(object who, string what) {
    if( !sizeof(LinkRoom) ) return "The portal is non-functional.";
    else return 1;
}

int eventEnter(object who) {
    if( !who ) return 0;
    who->eventPrint("%^RED%^%^BOLD%^You step into the portal "
      "and feel reality shift around you.");
    who->eventMoveLiving(LinkRoom,
      "%^GREEN%^$N steps into the portal and disappears.",
      "%^GREEN%^$N steps out of a shimmering portal.");
    return 1;
}

int eventDestruct() {
    object env = environment();
    if( env ) {
	env->eventPrint("A shimmering portal winks out of existance.");
    }
    ::eventDestruct();
}