Generic Dyable LRPG Thing #112297

Parent #517Owner Flags Source rpg_march_2006/Dependencies/112297.txt

Aliases: Generic Dyable LRPG Thing, dyable thing, dyable, LRPG dyable

4 verbs · 10 properties · 2 children

Verbs

VerbSpecFlagsDefinerLines
set_color set_colourthis none this#11229720
dyethis to anyrxd#11229712
descriptionthis none this#1122971
hidden_verbsthis none this#1122976

Properties

PropertyDefinerFlagsOwnerValue
manufactured#112297923451666
worth#112297not readable (E_PERM)
condition#112297E_NONE
odrop_failed_msg#112297"%<tries> to drop %t but fails!"
odrop_succeeded_msg#112297"%<drops> %t."
otake_succeeded_msg#112297"%<picks> up %t."
key#112297not readable (E_PERM)
aliases#112297{"Generic Dyable LRPG Thing", "dyable thing", "dyable", "LRPG dyable"}
description#112297"A tangible object for use in the LambdaMOO RPG, which also allows you to change its colour."
object_size#112297{3144, 1141286565}

Ancestry

Ancestors (nearest first): #517 Generic LRPG Thing

Children: #418 armour, #2409 LRPG Adventuring Gear

Call graph

calls n112297_1 #112297:dye n112297_0 #112297:set_color n112297_1->n112297_0 n112297_2 #112297:description n517_35 #517:description n112297_2->n517_35 n112297_3 #112297:hidden_verbs n517_29 #517:hidden_verbs n112297_3->n517_29

Source

set_color set_colour

Spec this none thisDefiner #112297

Referenced by

Source

1"if (caller != this)";
2if (!$local.rpg:trusted(caller_perms()))
3  return E_PERM;
4else
5  {colour} = args;
6  this:set_name(strsub(this.name, this.colour, colour));
7  if (!index(this.name, colour))
8    this:set_name((colour + " ") + this.name);
9  endif
10  aliases = this.aliases;
11  for i in [1..length(aliases)]
12    aliases[i] = strsub(aliases[i], this.colour, colour);
13  endfor
14  if (!(this.name in aliases))
15    aliases = {this.name, @aliases};
16  endif
17  this:set_aliases(aliases);
18  this.colour = colour;
19endif
20"Hydros (#106189) - Thu Jan 6, 2005 - Changed the security check. Robin the hood wasn't able to change his hood colour.";

dye

Spec this to anyFlags rxdDefiner #112297

Referenced by

none

Source

1if (this.unique || (!this.dyable))
2  player:tell("You can't dye that.");
3elseif (this.location != player)
4  player:tell("You'll have to be holding it to accomplish that.");
5elseif (!((color = iobjstr) in `this.dye_colours ! E_PROPNF => $local.rpg.object_db.colours'))
6  player:tell(color, " is not an acceptable colour!");
7elseif (color == this.colour)
8  player:tell("It's already coloured ", color, "!");
9else
10  $local.rpg:say_action(("%N %<dyes> %p %t " + color) + ".");
11  this:set_colour(color);
12endif

description

Spec this none thisDefiner #112297

Referenced by

Source

1return $string_utils:pronoun_sub(pass(@args));

hidden_verbs

Spec this none thisDefiner #112297

Referenced by

Source

1{who} = args;
2prev = pass(who);
3if (this.unique || (!this.dyable))
4  prev = {@prev, {$local.rpg.dyable, "dye", {"this", "at/to", "any"}}};
5endif
6return prev;