[CODE]Clan.*

From: Demond LaZaro (demond@TOLKIEN.REALMS.ORG)
Date: 01/09/98 

Ok first of thanx George and the rest of you who sent me flames and code
fix (after I read the messages I slapped my head many times!!)

But I'm still getting wierd errors, like when I type complist I get my
score also? and it wont save (I have samedi's pfiles in bpl12)?
Heres the complist & comptalk (also not working) commands:
/* Clan.c */
#include "sysdep.h"
#include "conf.h"

#include "structs.h"
#include "interpreter.h"
#include "utils.h"
#include "comm.h"
#include "handler.h"
#include "db.h"
#include "spells.h"
#include "screen.h"
#include "clan.h"

struct descriptor_data *d;
struct char_data *victim;


ACMD(do_complist)
{
  extern struct clan_data clan[];
  int i;

  for (i = 0; i < MAX_CLAN; i++) {
    sprintf(buf + strlen(buf), "[%d] %s Company\r\n", i,
clan[i].clan_name);
  }
  sprintf(buf, "%sThanxs for useing Company Directorys.\r\nUser: %s\r\n",
        buf, GET_NAME(ch));
  sprintf(buf, "%sDisconnected.....\r\n", buf);
  send_to_char(buf, ch);
}

ACMD(do_comptalk)
{
  char mess[MAX_STRING_LENGTH];
  skip_spaces(&argument);
  one_argument(argument, mess);

  if (GET_CLAN(ch) == 0)
    send_to_char("Your not in a company!\r\n", ch);
  else if (!*mess)
    send_to_char("Yes, but WHAT do you want to comp-say?\r\n", ch);
  else
    sprintf(buf, "$n tells the company,\r\n          '%s'\r\n", argument);
    act(mess, FALSE, ch, 0, 0, TO_CLAN | TO_SLEEP);

  return;
}

Any ideas? I'll realse this code as soon as I can get it all working :)

Thanx,
Demond



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Name: Demond LaZaro the Implementor     Phone: 1-505-776-8866
Mud: Master's Realm Mud                 Code Base: CircleMud bpl11
Addy: realms.org 6969                   Addy2: 206.185.32.8 6969
Mud2: Towers from Beyond 2              Code Base: CircleMud bpl12
Addy: realms.org 6050                   Addy2: 206.185.32.8 6050
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


     +------------------------------------------------------------+
     | Ensure that you have read the CircleMUD Mailing List FAQ:  |
     | http://democracy.queensu.ca/~fletcher/Circle/list-faq.html |
     +------------------------------------------------------------+

This archive was generated by hypermail 2b30 : 12/15/00 PST