Generic Booth #140

Parent #118Owner #36Flags read, fertileSource RPG Core/rpgcore-patched.db

Aliases: Generic Booth, booth

13 verbs · 70 properties · 0 children

Verbs

Properties

Ancestry

• #1 Root Class

  • #3 generic room

    • #104 RPG room

      • #118 virtual exit room

        • #140 Generic Booth

Ancestors (nearest first): #118 virtual exit room → #104 RPG room → #3 generic room → #1 Root Class

Children: none

Call graph

Source

if ((dobjstr == "out") || (dobjstr == "outside"))
if (((player.location == this) && (!prepstr)) && this.clear)
player:tell("Outside ", this:title(), ":");
this.location:look_self();
else
player:tell("You cannot see outside ", this:title(), ".");
endif
else
pass(@args);
endif

if (player.location == this)
return pass(@args);
endif
player:tell_lines(this.exterior_description);
if (this.clear)
player:tell("On the inside you can see:");
return pass(@args);
endif

if (player.location != this)
return player:tell("You're not in ", this:title(), "!!");
endif
$you:say_action(tostr(this.depart_msg, this.location:title(), "."));
this.not_my_tell = 0;
this.location:announce($string_utils:pronoun_sub(this.arrive_msg, player));
player:moveto(this.location);
this.not_my_tell = 1;
player.x_loc = this.x_loc;
player.y_loc = this.y_loc;

if (((!args) || (dobjstr == "out")) || (iobjstr == "out"))
return this:out();
endif
pass(@args);

if (player.location != this)
return player:tell("You're not there.");
endif
this.not_my_tell = 0;
this.location:announce_all(player:titlec(), " yells: **", argstr, "**  from ", this:title(), ".");
this.not_my_tell = 1;
this:announce(player:titlec(), " yells: **", argstr, "**");
player:tell("You yell: **", argstr, "**");

if (this.listen == 0)
return pass(@args);
endif
if (this.not_my_tell)
this:announce_all("[Outside] ", @args);
endif

if ((player != this.owner) && (!player.wizard))
return player:tell("You don't own ", this:title(), "!");
endif
player:tell("Please enter ", this:title(), "'s exterior description: ");
x = $command_utils:read_lines();
this.exterior_description = x;
player:tell("Exterior description has been set.");

set_task_perms(callers() ? caller_perms() | player);
if (this.location != player)
player:tell("You don't have that.");
elseif (!player.location:acceptable(this))
player:tell("You can't drop that here.");
else
this:moveto(player.location);
if (this.location == player.location)
$you:say_action(tostr("%N %<drops> ", this:title(), "."));
else
player:tell("You can't seem to drop that here.");
endif
endif

if (this.location != player.location)
player:tell("You don't see that here.");
elseif (((player == this.owner) || (player == this.location.owner)) || player.wizard)
this:moveto(player);
$you:say_action(tostr("%N %<takes> ", this:title(), "."));
else
player:tell("You can't move that.");
endif

if (player.location != this.location)
return player:tell("You're not in ", this.location:title(), "!!");
endif
$you:say_action(tostr(this.depart_msg, this:title(), "."));
this.not_my_tell = 0;
this:announce($string_utils:pronoun_sub(this.arrive_msg, player));
player:moveto(this);
this.not_my_tell = 1;

if ((player == this.owner) || player.wizard)
if (iobjstr == "on")
if (this.listen == 1)
return player:Tell(this:titlec(), " is already in listening mode.");
endif
player:tell(this:titlec(), " is now listening to it's location.");
this.listen = 1;
elseif (iobjstr == "off")
if (this.listen == 0)
return player:tell(this:titlec(), " is not currently listening.");
endif
player:tell(this:titlec(), " is no longer listening to its location.");
this.listen = 0;
else
player:tell(this.listen ? "Listening is on." | "Listening is off.");
endif
else
player:tell("Only the owner can change the listening status of ", this:title(), ".");
endif

if ((player == this.owner) || player.wizard)
if (iobjstr == "on")
if (this.clear == 1)
return player:tell(this:titlec(), " is already clear.");
endif
player:tell(this:titlec(), " is no longer opaque.");
this.clear = 1;
elseif (iobjstr == "off")
if (this.clear == 0)
return player:tell(this:titlec(), " currently has no window.");
endif
player:tell(this:titlec(), " is now opaque.");
this.clear = 0;
else
player:tell(this.clear ? "Room clear." | "Room opaque.");
endif
else
player:tell("Only the owner can change the opacity of ", this:title(), ".");
endif

if (caller_perms().wizard)
if (this == $booth)
this.listen = 1;
this.exterior_description = "You see the outside of a portable room.";
this.clear = 1;
this.arrive_msg = "%N %<appears> from %l.";
this.depart_msg = "%N %<leaves> for ";
this.not_my_tell = 1;
this.x_loc = 1;
this.y_loc = 1;
else
for p in (properties($booth))
if ((!p) in {"build_help", "help_msg"})
clear_property(this, p);
endif
endfor
endif
return pass(@args);
endif