/* -*- LPC -*- */
/*
* $Locker: $
* $Id: lockg_roup.c,v 1.1 1998/01/06 05:29:43 ceres Exp $
* $Log: lockg_roup.c,v $
* Revision 1.1 1998/01/06 05:29:43 ceres
* Initial revision
*
*/
/* command, trial out by Turrican for a commands daemon. */
inherit "cmds/base";
#define TEAM_HANDLER "/obj/handlers/team"
mixed cmd(string str) {
object owner;
int locked;
str = TEAM_HANDLER->query_group(this_player());
if(!str)
return notify_fail("You are not a member of any group.\n");
owner = TEAM_HANDLER->query_owner(str);
if(!owner || owner != this_player())
return notify_fail("Sorry, you are not the owner of "+str+".\n");
locked = TEAM_HANDLER->query_locked(str);
if(locked) {
TEAM_HANDLER->set_locked(str, 0);
write("Team "+str+" unlocked for new members.\n");
} else {
TEAM_HANDLER->set_locked(str, 1);
write("Team "+str+" locked to new members.\n");
}
return 1;
}
