#include <lib.h>
#include <vendor_types.h>
inherit LIB_PIPE;
void create(){
::create();
SetKeyName("magic pipe");
SetId( ({"sigpipe","magical pipe","pipe of insight"}) );
SetAdjectives( ({"magic","magical","kalinash's", "sig", "smoking"}) );
SetShort("a magic pipe");
SetLong("This is a handsome pipe for smoking, made of ivory. There "
"is some sort of inscription written on it.");
SetMass(5);
SetBaseCost("silver", 300);
SetVendorType(VT_TREASURE);
SetRadiantLight(1);
SetMaxFuel(300);
SetItems( ([
"inscription" : "An inscription on the pipe you can read.",
]) );
SetRead( ([
"default" : "Try: read inscription on pipe",
"inscription" : "Kalinash's Pipe of Insight",
]) );
SetLanguage("common");
SetFuelAmount(50);
SetRefuelable(1);
SetFuelType("smokable material");
}
void init(){
::init();
}
varargs mixed eventLight(object who, object tool){
SetBaseCost("silver", 1);
return ::eventLight(who, tool);
}
mixed eventSmoke(object who, object what){
if(!GetLit()){
write("It is not lit!");
return 1;
}
write("You smoke your "+remove_article(GetShort())+".");
say(who->GetName()+" smokes from "+possessive(who)+" "
+remove_article(GetShort())+".");
if((((time() - GetLastPuff()) > 10) && random(100) < 25) ||
creatorp(this_player())){
object bonus = new(LIB_BONUS);
object *kbonuses = filter(all_inventory(this_player()),
(: stringp($1->GetBonusName()) &&
$1->GetBonusName() == "kpipe_bonus" :) );
if(sizeof(kbonuses) > 9) return bonus->eventDestruct();
bonus->SetBonusName("kpipe_bonus");
bonus->SetStats( ([
"intelligence" : 1,
"wisdom" : 1,
"strength" : -1,
"durability" : -1,
]) );
bonus->SetBonusDuration(300);
if(bonus->eventMove(who)){
write("You feel you have a slightly better understanding"+
" of the world.");
}
}
lastpuff = time();
eventDecreaseFuel(1);
if( !GetFuelAmount() ) eventBurnOut();
return 1;
}
int eventBreak(){
return 0;
}
