/* /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();
}
