/* /domains/Examples/etc/match.c * from the Foundation II LPC Library * a match used to light other things * created by Descartes of Borg 940427 */ #include <lib.h> #include <vendor_types.h> inherit LIB_LIGHT; int eventStrikeMatch(object ob); static void create() { light::create(); SetKeyName("match"); SetId( ({ "match", "matchstick" }) ); SetAdjectives( ({ "a", "small", "wooden" }) ); SetShort("a small match"); SetLong( "A small match made of wood with a flamable strike-point " "at the tip. Evidently, if you strike it, it will catch fire."); SetLight(1, "strike", "extinguish"); SetFire(1); SetVendorType(VT_LIGHT); SetFuelRequired(1); SetFuel(45); SetSourceRequired(0); SetLightFunction( (: eventStrikeMatch :) ); SetMass(10); SetValue(11); SetBurntValue(10); } int eventStrikeMatch(object ob) { if(random(100) > 50) { write("You strike the match and it burns to life!"); say((string)this_player()->GetName()+" lights a match."); return 1; } else { write("You strike a match, but nothing happens."); say((string)this_player()->GetName()+" strikes a match, " "but nothing happens."); return 0; } }