stashed items #178

Parent #54Owner #361Flags readSource hellcore/hellcore.db

Aliases: stashed items

3 verbs · 64 properties · 0 children

Verbs

Properties

Ancestry

• #1 root

  • #5 generic thing

    • #255 generic smashable thing

      • #54 generic container

        • #178 stashed items

Ancestors (nearest first): #54 generic container → #255 generic smashable thing → #5 generic thing → #1 root

Children: none

Call graph

Source

if (is_a(what = args[1], $thing))
for i in [1..length(this.locations)]
if (this.locations[i][1] == what)
this.locations[i][2] == what:room();
return 1;
endif
endfor
this.locations = {@this.locations, {what, what:room()}};
return 1;
endif

what = args[1];
for i in [1..length(stashed = this.locations)]
yield;
{thing, where} = stashed[i];
if (thing == what)
if (is_a(where, $room))
for j in [1..length(si = where.search_items)]
if (si[j][1] == what)
si = listdelete(si, j);
break j;
endif
endfor
where.search_items = si;
for k in [1..length(sil = where.search_items_left)]
if (sil[k][1] == what)
sil = listdelete(sil, k);
break k;
endif
endfor
where.search_items_left = sil;
endif
this.locations = listdelete(stashed, i);
break i;
endif
endfor
return pass(@args);

{what} = args;
if (!is_in(what, this))
return #-1;
endif
where = what;
while (gamevalid(where))
if (where.location == this)
if (i = $lu:iassoc(where, this.locations, 1))
room = this.locations[i][2];
if (is_a(room, $room))
return room;
endif
endif
break;
endif
where = where.location;
endwhile
return #-1;