generic lighter #128

Parent #335Owner #361Flags read, fertileSource hellcore/hellcore.db

Aliases: generic lighter

2 verbs · 49 properties · 0 children

Verbs

Properties

Ancestry

• #1 root

  • #5 generic thing

    • #335 generic usable device with charges

      • #128 generic lighter

Ancestors (nearest first): #335 generic usable device with charges → #5 generic thing → #1 root

Children: none

Call graph

Source

if (this.location != player)
player:tell("You can't use ", this:dname(), " if you don't have it!");
endif
if (!valid(dobj))
dobj = $match_utils:match(dobjstr, {@player.contents, @player.location.contents});
endif
if (is_a(player.location, #1047))
player:tell("It's a pretty good lighter.  Striker seems to work well, the ergonomics are sensible, the color perfectly complements your eyes.  But somehow you don't think it's good enough to light anything underwater.  By the way did you notice you're UNDERWATER?");
return;
endif
if (!valid(dobj))
player:tell("There doesn't seem to be any \"", dobjstr, "\" here to light.");
return 0;
elseif (msg = $ou:has_verb(dobj, "wont_burn") ? dobj:wont_burn() | "no")
if (msg != "no")
player:tell("You can't light ", dobj:dname(), ", ", msg, ".");
else
if ($ou:has_property(dobj, "fuel_value") && (dobj.fuel_value > 0))
if (player.location.outdoor)
if (fires = player.location:occupants(#35148))
fire = fires[1];
player:aat(player:dnamec(), " adds ", dobj:iname(), " to ", fire:dname(), ".");
fire.fuel = fire.fuel + dobj.fuel_value;
else
fire = $rpg:spawn(#31812);
fire:moveto(player.location);
fire.fuel = dobj.fuel_value;
player:aat(player:dnamec(), " gathers kindling and builds a campfire around ", dobj:dname(), ".");
endif
$rpg:junk(dobj);
fork (5)
if (!fire.lit)
player:queue_action(this.use_action, {this, fire}, 1, (((verb + " ") + fire.name) + " with ") + this:name());
endif
endfork
else
player:tell("Maybe you should go outside if you want to build a fire.");
return 0;
endif
else
player:tell("You can't light ", dobj:dname(), ".");
endif
endif
return 0;
elseif (dobj.lit)
player:tell(dobj:dnamec(), " is still burning.");
return 0;
endif
player:queue_action(this.use_action, {this, dobj}, 1, (((verb + " ") + dobjstr) + " with ") + this:name());

":use_finish(OBJ who, OBJ on)";
"Do stuff at the end of using.";
"This is what children of #627 should override.";
who = args[1];
on = args[2];
loc = on.location;
who:_wield(this);
if (loc == who)
who:_wield(on, 1);
endif
if ($ou:has_verb(on, "do_light"))
on:do_light();
endif
if (loc == who)
who:aat($su:ps(this.use_finish_msg, who, this, loc, on, this));
else
who:aat($su:ps(this.use_on_finish_msg, who, this, loc, on, this));
endif
who.location:broadcast_event(0, this.use_action, who, {this, on});
return 1;