inherit "room/room";

#define EXTRA_RESET
#ifndef DEST_DIRS
#define DEST_DIRS ({ }) 
#endif
#ifndef LONG_DESC
#define LONG_DESC ""
#endif

reset(arg) {
    int lev,cnt,i;
    object sg;
    ::reset(arg);
    EXTRA_RESET
    if(arg) return;
    set_light(1);
    short_desc="Ocean shore";
    long_desc=
"You are on the road leading south next to the ocean shore. Huge waves roll\n"+
"towards the land. You notice seagulls in the far distance.\n"+LONG_DESC;
    smell="The air smells salty here";
    dest_dir=DEST_DIRS;
    items=({ "ocean","The wild green ocean",
             "wave","It rolls exactly in your direction",
             "waves","They roll and roll and roll and ....",
             "tide","The flood is on its highest level",
             "land","Almost as much as water",
             "birds","Seems to be a group of seagulls",
             "seagulls","Wow, more than one seagull in fact",
             "distance","Seems far away" });
    cnt=random(5)+1;
    lev=5/cnt;
    if(!present("seagull",this_object()) && !random(3)) for(i=0;i<cnt;i++) {
	string type;
	type=({ "curious", "dirty-looking", "happy" })[random(3)];
        sg=clone_object("obj/monster");
        sg->set_name(type + " seagull");
        sg->set_alias("bird");
        sg->set_race("seagull");
        sg->set_gender(random(2)+1); 
	sg->set_long("A " + type + " seagull. ");
/*
        sg->load_chat(20, ({ "Grrrrrrrruuuuuuuuuuuuuuu....\n",
                      "SNAP!!!!\n",
                      "Seagull seems to grin at you.\n",
                      "Seagull lets off a real rip roarer.\n",
                      "Seagull passes by, shitting on your head.\n" }) );
*/
	sg->load_chat(20, ({ "Seagull squawks happily.\n",
			"Seagull snaps its beak.\n",
			"Seagull seems to grin at you.\n",
			"Seagull flies past you, squawking.\n" }));
        sg->set_level(lev);
        move_object(sg,this_object());
    }
}
/*
long(a) {
    if(a=="bird" || a=="seagull") return write("Seagull"+balls()+".\n");
    ::long(a);
}
balls() {
    if(!this_player() || this_player()->query_gender()==0)
        return ", snapping at your fingers";
    if(this_player()->query_gender()==1) 
        return ", snapping at your balls";
    else
        return ", snapping at your tits";
}
*/
