/*
 * gag.c
 */

#include <ctype.h>
#include <string.h>
#include <malloc.h>
#include <fcntl.h>
#include <memory.h>

#include "config.h"
#include "player.h"
#include "fix.h"

extern void	TELLPLAYER(), ADDSTACK(), ENDSTACK();
extern player   *find_player_absolute_quiet();

int count_gags(player *p) {

	int cnt = 0;
	gag_entry *g;

	if (!(p->gag_top))  return 0;

	else for (g=p->gag_top; g; g=g->next)
		cnt++;

	return cnt;
}

int match_gag (player * p, player * q) {

	gag_entry *g;

	for (g = p->gag_top; g; g=g->next) {
		if (g->gagged == q)
			return 1;
		}
	return 0;
}

void create_gag(player * p, char *str) {

	gag_entry *g;
	player    *p2;

	if (!*str) {
		TELLPLAYER(p, " Format: gag <player>\n");
		return;
		}

	p2 = find_player_absolute_quiet(str);
	if (!p2) {
		TELLPLAYER(p, " That player isn't logged on at the moment.\n");
		return;
		}
	if (match_gag(p, p2)) {
		TELLPLAYER(p, " You have already gagged %s.\n", p2->name);
		return;
	}	
	/* create the entry */
	g = (gag_entry *) MALLOC(sizeof(gag_entry));
	g->gagged = p2;
	g->next = p->gag_top;
	p->gag_top = g;
	TELLPLAYER(p2, " (You have been gagged by %s...)\n", p->name);
	TELLPLAYER(p, " You gag %s.\n", p2->name);	
}	


void del_gag(player * p, char *str, int verbose) {

	gag_entry *g, *gp;
	player    *p2;

	if (!*str && verbose) {
		TELLPLAYER(p, " Format: ungag <player>\n");
		return;
		}

	p2 = find_player_absolute_quiet(str);
	if (!p2 && verbose) {
		TELLPLAYER(p, " That player isn't logged on at the moment.\n");
		return;
		}
	/* ok, delete the gag if it exists */
	if (!(p->gag_top)) {
		TELLPLAYER(p, " You haven't got anyone gagged atm.\n");
		return;
	}
	if (p->gag_top->gagged == p2) {
		g = p->gag_top;
		p->gag_top = g->next;
		FREE(g);
		if (verbose)
		   TELLPLAYER(p, " %s has been ungagged.\n", p2->name);
		return;
		}
	for (gp = p->gag_top, g = gp->next; g; gp = g, g = g->next) {

		if (g->gagged == p2) {
			/* FREE() the gag, and relink stuff */
			gp->next = g->next;
			FREE(g);
			if (verbose) 
			   TELLPLAYER(p, " %s has been ungagged.\n", p2->name);
			return;
			}

	}
	if (verbose) TELLPLAYER(p, " But you never gagged %s!\n", p2->name);
}
				
void delete_gag(player * p, char *str) {

	del_gag(p, str, 1);
}
	
void list_all_gags(player *p, char *str) {

	char *oldstack = stack;
	gag_entry *g;
	int gagcount = count_gags(p);

	if (!gagcount) {
		TELLPLAYER(p, " You aren't gagging anyone atm.\n");
		return;
		}
	
	ADDSTACK(" Listing all your current gags:\n  ");	

	for (g = p->gag_top; g; g = g->next) 
		ADDSTACK (" %s", g->gagged->name); 
	
	if (gagcount > 1)
	   ENDSTACK("\n You are gagging %d people\n", gagcount);
	else
	   ENDSTACK("\n You are gagging one person\n");

	TELLPLAYER(p, oldstack);
	stack = oldstack;
}

void clear_gag_logoff(player * git) {
	
	player    *scan;
	gag_entry *g;
	
	for (scan = flatlist_start; scan; scan = scan->flat_next) {
		if (match_gag(scan, git))
			del_gag(scan, git->lower_name, 0);
		}
}	 

void purge_gaglist(player * p, char *str) {

	gag_entry *g, *g2;

	if (!count_gags(p)) return;
	for (g = p->gag_top, g2 = g; g2; g = g2)  {
		g2 = g->next;
		FREE(g);
	}
	p->gag_top = 0;
}