inherit "/std/room";

#include "ludzie.h"

#define SHADOW      DIR + "ludzie_sh"

create_room()
{
    set_short("Gildia Mieszczan Novigradu");
    set_long("Znajdujesz sie w pokoju ktorego sciany obite sa czerwonym " +
    	     "suknem. Na jednej ze scian widzisz znak gildii." +
    	     "Mozesz do niej wstapic (jjjj).List i (llll) tez dziala.\n");
}

init()
{
    ::init();
    add_action("join", "jjjj");
    add_action("my_leave", "llll");
    add_action("list", "list");
}

join()
{
    object shadow;
    int result;

    notify_fail("You aren't fit to join this guild.\n");
    if (!do_I_want_this_player_in_my_guild(this_player()))
	return 0;

    notify_fail("You have already joined a guild we cannot accept.\n");
    if (!do_I_accept_the_guilds_this_player_has_joined(this_player()))
	return 0;

    notify_fail("For unknown reasons we couldn't help you join " +
		"our guild.\n");
    shadow = clone_object(SHADOW);
    if ((result = shadow->shadow_me(this_player(), GUILD_TYPE,
		GUILD_STYLE, GUILD_NAME)) != 1)
    {
    /* result = -1 (no name), -2 (wrong type), -3 (no style set),
                -4 (the guild the player already joined don't want this guild.)
		-5 (couldn't shadow the player, security problems. )
                Probably they have set the notify_fail() appropriate.
		0 (already member or player wasn't set properly) */

        shadow->remove_shadow();
        
        dump_array(shadow);
	return 0;
    }

    write("You are now a new member of this guild.\n");
    return 1;
}

int
do_I_want_this_player_in_my_guild(object player)
{
    if (this_player()->query_race_name() != "czlowiek")
    {
	notify_fail("Ta gildia jest tylko dla ludzi.\n");
	return 0;
    }

    if (player->query_guild_member(GUILD_NAME))
    {
	notify_fail("You are already a member of our guild.\n");
	return 0;
    }

/* You could test if the player has solved the guild quest or anything... */
    return 1;
}

int
do_I_accept_the_guilds_this_player_has_joined(object player)
{
    if (this_player()->query_guild_member(GUILD_TYPE))
    {
	notify_fail("You are already a member of another " + 
		    GUILD_TYPE + " guild.\n"); 
	return 0;
    }

    return 1;
}

int
list()
{
    string str;

    str = this_player()->list_mayor_guilds();
    if (str)
	write("You are member of following guilds.\n" + str);
    else
	write("You are not member of any guilds.\n");

    return 1;
}

int
my_leave()
{
    notify_fail("But you are no member of our guild.\n");
    if (this_player()->query_guild_name_race() != GUILD_NAME)
	return 0;

    if (this_player()->remove_guild_race())
	write("You left our beloved guild.\n");
    else
	write("There was a strange error, I'm afraid you are\n" +
	      "stuck with us.\n");

    return 1;
}