dsII/extra/wolfpaw/
dsII/lib/cmds/admins/
dsII/lib/cmds/common/
dsII/lib/cmds/creators/include/
dsII/lib/cmds/creators/include/SCCS/
dsII/lib/daemon/services/
dsII/lib/doc/
dsII/lib/domains/Ylsrim/
dsII/lib/domains/Ylsrim/adm/
dsII/lib/domains/Ylsrim/armor/
dsII/lib/domains/Ylsrim/broken/
dsII/lib/domains/Ylsrim/fish/
dsII/lib/domains/Ylsrim/meal/
dsII/lib/domains/Ylsrim/npc/
dsII/lib/domains/Ylsrim/virtual/
dsII/lib/domains/Ylsrim/weapon/
dsII/lib/domains/campus/adm/
dsII/lib/domains/campus/etc/
dsII/lib/domains/campus/meals/
dsII/lib/domains/campus/npc/
dsII/lib/domains/campus/txt/
dsII/lib/domains/campus/txt/ai/charles/
dsII/lib/domains/campus/txt/ai/charles/bak2/
dsII/lib/domains/campus/txt/ai/charles/bak2/bak1/
dsII/lib/domains/campus/txt/ai/charly/
dsII/lib/domains/campus/txt/ai/charly/bak/
dsII/lib/domains/campus/txt/jenny/
dsII/lib/domains/default/creator/
dsII/lib/domains/default/doors/
dsII/lib/domains/default/etc/
dsII/lib/domains/default/weap/
dsII/lib/domains/town/doors/
dsII/lib/domains/town/txt/
dsII/lib/domains/town/virtual/
dsII/lib/lib/comp/
dsII/lib/lib/lvs/
dsII/lib/lib/user/
dsII/lib/lib/virtual/
dsII/lib/log/archive/
dsII/lib/log/chan/
dsII/lib/log/errors/
dsII/lib/log/open/
dsII/lib/obj/book_source/
dsII/lib/obj/include/
dsII/lib/realms/template/
dsII/lib/realms/template/area/armor/
dsII/lib/realms/template/area/npc/
dsII/lib/realms/template/area/obj/
dsII/lib/realms/template/area/room/
dsII/lib/realms/template/area/weap/
dsII/lib/realms/template/bak/
dsII/lib/realms/template/cmds/
dsII/lib/save/
dsII/lib/save/kills/o/
dsII/lib/secure/cfg/
dsII/lib/secure/cfg/classes/
dsII/lib/secure/cfg/races/SCCS/
dsII/lib/secure/cmds/creators/include/
dsII/lib/secure/cmds/players/
dsII/lib/secure/cmds/players/include/
dsII/lib/secure/daemon/include/
dsII/lib/secure/lib/
dsII/lib/secure/lib/include/
dsII/lib/secure/lib/net/
dsII/lib/secure/lib/net/include/
dsII/lib/secure/lib/std/
dsII/lib/secure/modules/
dsII/lib/secure/npc/
dsII/lib/secure/obj/include/
dsII/lib/secure/room/
dsII/lib/secure/save/boards/
dsII/lib/secure/save/postal/c/cratylus/
dsII/lib/secure/save/votes/
dsII/lib/secure/tmp/
dsII/lib/secure/verbs/creators/
dsII/lib/shadows/
dsII/lib/spells/
dsII/lib/tmp/
dsII/lib/verbs/admins/include/
dsII/lib/verbs/common/
dsII/lib/verbs/common/include/
dsII/lib/verbs/creators/include/
dsII/lib/verbs/players/include/SCCS/
dsII/lib/verbs/rooms/
dsII/lib/verbs/rooms/include/
dsII/lib/www/
dsII/v22.2b14/
dsII/v22.2b14/Win32/
dsII/v22.2b14/compat/
dsII/v22.2b14/compat/simuls/
dsII/v22.2b14/testsuite/
dsII/v22.2b14/testsuite/clone/
dsII/v22.2b14/testsuite/command/
dsII/v22.2b14/testsuite/data/
dsII/v22.2b14/testsuite/etc/
dsII/v22.2b14/testsuite/include/
dsII/v22.2b14/testsuite/inherit/
dsII/v22.2b14/testsuite/inherit/master/
dsII/v22.2b14/testsuite/log/
dsII/v22.2b14/testsuite/single/
dsII/v22.2b14/testsuite/single/tests/compiler/
dsII/v22.2b14/testsuite/single/tests/efuns/
dsII/v22.2b14/testsuite/single/tests/operators/
dsII/v22.2b14/testsuite/u/
dsII/v22.2b14/tmp/
dsII/win32/
/*    /lib/mayor.c
 *    From the Dead Souls Object Library
 *    Allows players to change their residence on the mud
 *    Created by Descartes of Borg 961019
 *    Version: @(#) mayor.c 1.3@(#)
 *    Last modified: 96/10/20
 */

#include <lib.h>

inherit LIB_SENTIENT;

static void EvaluateCitizenshipRequest();

int Tax = 0;
string LocalCurrency = "gold";

static void create() {
    sentient::create();
    SetRequestResponses(([ "citizenship" : (: EvaluateCitizenshipRequest :),
	"help" : (: this_object()->eventForce("say You can request "
	    "citizenship from me.") :) ]));
}

mixed CanRequestCitizenship(object who) {
    if( Tax > 0 ) {
	int cost = (Tax);

	if( who->GetCurrency(LocalCurrency) < cost ) {
	    this_object()->eventForce("say I'm sorry, but we have a new citizen tax of " + Tax + " " +
	      LocalCurrency + ".");
	    return 0;
	}
    }
    if( who->GetTown() == GetTown() ) {
	return "You are already a citizen of " + GetTown() + ".";
    }
    return 1;
}

mixed eventRequestCitizenship(object who) {
    object array homies = filter(users(), (: $1->GetTown() == GetTown() :));

    homies->eventPrint(who->GetName() + " is now a citizen of " + GetTown() +
      ".");
    who->SetTown(GetTown());
    who->eventPrint("You are now a citizen of " + GetTown() + ".");
    if( Tax > 0 ) {
	int cost = Tax;

	who->AddCurrency(LocalCurrency, -cost);
	this_object()->AddCurrency(LocalCurrency, cost);
	this_object()->eventForce("say Congratulations, citizen!");
    }
    return 1;
}

static void EvaluateCitizenshipRequest() {
    mixed tmp = CanRequestCitizenship(this_player());

    if( tmp != 1 ) {
	if( !tmp  || tmp == 0 ) {
	    this_object()->eventForce("say Your request is denied.");
	}
	else {
	    this_player()->eventPrint(tmp);
	}
	return;
    }
    eventRequestCitizenship(this_player());
}

string GetLocalCurrency() {
    return LocalCurrency;
}

static string SetLocalCurrency(string str) {
    return (LocalCurrency = str);
}

int GetTax() {
    return Tax;
}

static int SetTax(int x) {
    return (Tax = x);
}