#include <lib.h>
#include <damage_types.h>

inherit LIB_ROOM;

static void create() {
    room::create();
    SetClimate("indoors");
    SetAmbientLight(20);
    SetShort("sewer");
    SetLong("You are in the stinking underground tunnels of "+
      "a sewer system. The air here is quite foul, "+
      "and periodic blasts of steam from wall-mounted vents make it "+
      "very hot and very humid. There is a foot-high stream of dark liquid "+
      "covering the bottom of this tunnel, running west to east along "+
      "the tunnel's length. Light streams in from a drainage grate above.");
    SetItems( ([ ({"tunnel","tunnels"}) : "You are in a sewer tunnel."+
        "It's foul, dark, and hot.",
        ({"sewer","sewer system"}) : "Though evidently in good repair "+
        "and of modern construction, this is still a sewer tunnel, "+
        "and it's hostile to human comfort.",
        ({"steam","vent","vents","wall-mounted vents"}): "Apparently "+
        "there is industrial machinery nearby that exhausts hot steam "+
        "through vents in the walls.",
        "air" : "It is rank with the reek of decomposing waste.",
        ({"wall","walls"}) : "The walls of the sewer tunnel are made "+
        "of concrete and appear well-built and sturdy.", 
        ({"stream","liquid","stream of liquid","dark liquid"}) : "Whatever "+
        "this stuff is, water is not its main component. It's some kind "+
        "of foul-smelling liquid waste, flowing along the bottom "+
        "of the tunnel.",
        "light" : "There isn't much of it, and you can't tell if it's " +
        "sunshine or lamplight, but it lets you see a bit better.",
        ({"sewage","waste","garbage"}) : "It appears that the fluid on the "+
        "bottom of this tunnel is the result of garbage and waste "+
        "processing. In liquid form, this garbage flows "+
        "east from here.",
      ]) );
    SetSmell( ([ "default" : "The stench of sewage and waste hangs here."]) );
    SetListen("default","You hear faint echoes of dripping water.");
    SetExits( ([
        "east" : "/domains/campus/room/sewer1",
        "up" : "/domains/town/room/vill_road1"
      ]) );

    SetDoor("up","/domains/campus/doors/grate");
    set_heart_beat(10);
}
int SteamBlast(){
    object *temparr,*stuff,*lstuff;
    int i;
    stuff=all_inventory();
    lstuff = ({});
    for(i=0;i<sizeof(stuff);i++){
        temparr= ({ stuff[i] });
        if(living(stuff[i]) && !sizeof(lstuff)) lstuff = ({stuff[i]});
        if(living(stuff[i]) && sizeof(lstuff) > 0 && member_array(stuff[i],lstuff) == -1) lstuff += ({stuff[i]});
    }
    for(i=0;i<sizeof(lstuff);i++){
        if(sizeof(lstuff) > 0 && !creatorp(lstuff[i]) ) 
            lstuff[i]->eventReceiveDamage(HEAT, 7,random(30)+10, "torso");

    }
    tell_room(this_object(), "You are hit by a blast of scalding-hot steam!");
    return 1;
}
void heart_beat(){
    if(random(10) == 1) SteamBlast();
    return;
}
void init(){
    ::init();
}