generic death purse #115

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

Aliases: generic death purse, death purse, purse

2 verbs · 22 properties · 1 children

Verbs

VerbSpecFlagsDefinerLines
g*et t*akethis none nonerxd#11516
look_selfthis none thisrxd#1157

Properties

PropertyDefinerFlagsOwnerValue
money#115rc#2{}
help_msg#115rc#2"This is created automatically when a money-holding creature dies."
drop_failed_msg#5rc#2<clear>
drop_succeeded_msg#5rc#2<clear>
odrop_failed_msg#5rc#2<clear>
odrop_succeeded_msg#5rc#2<clear>
otake_succeeded_msg#5rc#2<clear>
otake_failed_msg#5rc#2<clear>
take_succeeded_msg#5rc#2<clear>
take_failed_msg#5rc#2<clear>
value_base#102r#2<clear>
damage_base#102r#2<clear>
x_loc#102r#36<clear>
y_loc#102r#36<clear>
ansi_title#102r#36<clear>
obvious#102r#36<clear>
build_help#102rc#2<clear>
key#1c#20
aliases#1rc#2{"generic death purse", "death purse", "purse"}
description#1rc#2<clear>
object_size#1r#36{1753, -1090650497}
html#1rc#2<clear>

Ancestry

Ancestors (nearest first): #5 generic thing#102 subthing#1 Root Class

Children: #158 a bag of gold coins

Call graph

calls n115_0 #115:g*et n52_0 #52:has_property n115_0->n52_0 n5_0 #5:g*et n115_0->n5_0 n55_16 #55:slice n115_0->n55_16 n63_1 #63:_recycle n115_0->n63_1 n115_1 #115:look_self n6_18 #6:tell n115_1->n6_18

Source

g*et t*ake

Spec this none noneFlags rxdOwner #2Definer #115

Referenced by

Source

1if (!$object_utils:has_property(player, "money"))
2return pass(@args);
3endif
4fork (4)
5if (!this.f)
6for stuff in (this.money)
7if (cindex = stuff[1] in $list_utils:slice(player.money, 1))
8player.money[cindex][2] = player.money[cindex][2] + stuff[2];
9else
10player.money = setadd(player.money, stuff);
11endif
12endfor
13$recycler:_recycle(this);
14endif
15endfork
16pass(@args);

look_self

Spec this none thisFlags rxdOwner #2Definer #115

Referenced by

none

Source

1if (this.money == {})
2player:tell("Just a standard cash purse.");
3else
4for currency in (this.money)
5player:tell(currency[1], " = ", floatstr(currency[2], 2));
6endfor
7endif