terrexit #121

Parent #7Owner #2Flags read, fertileSource RPG Core/rpgcore-patched.db

Aliases: terrexit

2 verbs · 17 properties · 4 children

Verbs

VerbSpecFlagsDefinerLines
movethis none thisrxd#12116
announce_msgthis none thisrxd#12114

Properties

PropertyDefinerFlagsOwnerValue
help_msg#121rc#2{"Should be used as parent for exits *to* and *from* terrain rooms.", "\"help $terrain:@exset\" and \"help $exit\" will tell you more."}
x_loc#121r#21
y_loc#121r#21
obvious#7rc#2<clear>
source#7rc#2<clear>
dest#7rc#2<clear>
nogo_msg#7rc#2<clear>
onogo_msg#7rc#2<clear>
arrive_msg#7rc#2<clear>
oarrive_msg#7rc#2<clear>
oleave_msg#7rc#2<clear>
leave_msg#7rc#2<clear>
key#1c#20
aliases#1rc#2{"terrexit"}
description#1rc#2<clear>
object_size#1r#36{2160, -1090650497}
html#1rc#2<clear>

Ancestry

Ancestors (nearest first): #7 generic exit#1 Root Class

Children: #148 Out [o], #149 Store [s], #152 East [e], #153 Out [o]

Call graph

calls n121_0 #121:move n7_1 #7:move n121_0->n7_1 n121_1 #121:announce_msg n52_6 #52:ancestors n121_1->n52_6 n7_10 #7:announce_msg n121_1->n7_10

Source

move

Spec this none thisFlags rxdOwner #2Definer #121

Referenced by

none

Source

1object = args[1];
2if (`this.source.compass ! E_PROPNF => 0')
3if ((object.x_loc != this.x_loc) || (object.y_loc != this.y_loc))
4return object:tell("What was that again?");
5endif
6endif
7if (valid(this.dest))
8object.x_loc = this.x_loc;
9object.y_loc = this.y_loc;
10pass(@args);
11if (`object.free_points ! E_PROPNF => 0')
12object.free_points = object.free_points + 0.005;
13endif
14else
15object:tell("Bad exit, dude.");
16endif

announce_msg

Spec this none thisFlags rxdOwner #2Definer #121

Referenced by

none

Source

1":announce_msg(place, what, msg)";
2"  announce msg in place (except to deafs). Prepend with what:title if it isn't part of the string";
3if ($terrain in $object_utils:ancestors(args[1]))
4msg = args[3];
5what = args[2];
6title = what:titlec();
7deafs = {@$set_utils:diff(args[1].contents, args[1]:contents()), what};
8if (!$string_utils:index_delimited(msg, title))
9msg = tostr(title, " ", msg);
10endif
11(ticks_left() < 4400) && suspend(0);
12return args[1]:announce_all_but(deafs, msg);
13endif
14pass(@args);