Here's some miscelleneous clan codes for stock ROM.
//////// MERC.H
In struct char_data, add:
sh_int petition;
In character macros after #define IS_IMMORTAL add:
#define IS_LEADER(ch) (IS_SET((ch)->act, PLR_LEADER))
In all your PLR_XXX functions add one for PLR_LEADER:
#define PLR_LEADER (bb) /* Assuming (bb) is free, don't be ashamed to change it. */
//////// INTERP.C and INTERP.H
Add the JOIN, CLEADER, ACCEPT and LONER commands.
Join is to be used by whatever level your players join clans at. (I have mine set at 10)
Cleader should be for IMMS level 56 (same level as the GUILD COMMANDS)
And ACCEPT and LONER should be set to 0. Remember that the LOOK command should be before LONER.
//////// EVERYTHING BELOW THIS LINE GOES INTO CLAN.C
//////// DON'T FORGET TO INCLUDE IT IN YOUR MAKEFILE
////////////////////////////////////////////////////
/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
/***************************************************************************
* ROM 2.4 is copyright 1993-1996 Russ Taylor *
* ROM has been brought to you by the ROM consortium *
* Russ Taylor (rtaylor@efn.org) *
* Gabrielle Taylor *
* Brian Moore (zump@rom.org) *
* By using this code, you have agreed to follow the terms of the *
* ROM license, in the file Rom24/doc/rom.license *
***************************************************************************/
/***************************************************************************
* This file is for clan related commands. Included here is: *
* The JOIN command. *
* The immortal CLEADER command. *
* The clan leader ACCEPT command. *
* The clan leader LONER command. *
* Clans can be found in the clan table in tables.c *
* -Blizzard (blizzard_imp@hotmail.com) *
***************************************************************************/
#if defined(macintosh)
#include <types.h>
#include <time.h>
#else
#include <sys/types.h>
#include <sys/time.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "merc.h"
#include "recycle.h"
#include "lookup.h"
#include "tables.h"
void do_cleader( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH], buf[MAX_STRING_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Syntax: CLEADER <name>", ch );
return;
}
if ( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "They aren't here.\n\r", ch );
return;
}
if ( get_trust( victim ) >= get_trust( ch ) )
{
send_to_char( "You failed.\n\r", ch );
return;
}
if ( IS_SET(victim->act, PLR_LEADER) )
{
REMOVE_BIT(victim->act, PLR_LEADER);
send_to_char( "The gods have revoked your leadership priviliges.\n\r",
victim );
send_to_char( "Leadership removed.\n\r", ch );
sprintf(buf,"$N takes leadership away from %s",victim->name);
}
else
{
SET_BIT(victim->act, PLR_LEADER);
send_to_char( "The gods have made you a clan leader.\n\r",
victim );
send_to_char( "Leadership set.\n\r", ch );
sprintf(buf,"$N make %s a clan leader.",victim->name);
}
return;
}
void do_join( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
int clan;
one_argument( argument, arg );
one_argument( argument, arg1 );
one_argument( argument, arg2 );
if ( arg[0] == '\0' )
{
send_to_char( "What clan do you wish to join?\n\r", ch );
return;
}
if ( !str_cmp( arg1, "none" ) )
{
send_to_char("You do not wish to join a clan.\n\r", ch);
ch->petition = 0;
return;
}
if ((clan = clan_lookup(arg2)) == 0)
{
send_to_char("There is no clan by that name.\n\r", ch);
return;
}
send_to_char("Ok.", ch);
ch->petition = clan;
return;
}
void do_accept( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Accept who?\n\r", ch );
return;
}
if (!IS_SET(ch->act, PLR_LEADER))
{
send_to_char("You are not a clan leader.\n\r", ch);
return;
}
else
if ((victim = get_char_world(ch, arg)) == NULL)
{
send_to_char("They are not playing.\n\r", ch);
return;
}
if (victim->petition != ch->clan)
{
send_to_char("They do not wish to join your clan.\n\r", ch);
return;
}
victim->clan = ch->clan;
victim->petition = 0;
send_to_char("You have accepted them into your clan.\n\r", ch);
send_to_char("Your clan application was successfull.\n\r", victim);
return;
}
void do_loner( CHAR_DATA *ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Loner who?\n\r", ch );
return;
}
else
if (!IS_SET(ch->act, PLR_LEADER))
{
send_to_char("You are not a clan leader.\n\r", ch);
return;
}
if ((victim = get_char_world(ch, arg)) == NULL)
{
send_to_char("They are not playing.\n\r", ch);
return;
}
if (victim->clan == 0)
{
send_to_char("They're not in a clan in the first place.\n\r", ch);
return;
}
if (victim->clan != ch->clan)
{
send_to_char("They're not in your clan.\n\r", ch);
return;
}
victim->clan = 1;
victim->petition = 0;
send_to_char("You have removed them from your clan.\n\r", ch);
send_to_char("You have been removed from your clan.\n\r", victim);
return;
}