/* This is a delete command unlike vape it just forces the players to delete
actually its a fun command and is kinda good for those assholes who piss you
off */

In act_wiz.c

After all the DECLARE_DO_FUN stuff put this:

void delete_me args((CHAR_DATA *ch));

then put this:

void do_forcedelet( CHAR_DATA *ch, char *argument )
{
    send_to_char( "If you want to forcedelete, you have to spell it out.\n\r",ch);
    return;
}

void do_forcedelete( CHAR_DATA *ch, char *argument )
{
    char arg[MAX_INPUT_LENGTH];
    CHAR_DATA *victim;

    one_argument( argument, arg );

    if ( arg[0] == '\0' )
    {
	send_to_char( "Force who to delete?", ch );
	return;
    }

    if ( ( victim = get_char_world( ch, arg ) ) == NULL )
    {
	send_to_char( "They aren't here.\n\r", ch );
	return;
    }

    if (IS_NPC(ch))
    {
	send_to_char( "NPC's can't delete.\n\r", ch);
	return;
  }

    if ( victim->level >= ch->level )
    {
	send_to_char( "You failed.\n\r", ch );
	return;
    }

    delete_me( victim );
}

void delete_me( CHAR_DATA *ch )
{
   char strsave[MAX_INPUT_LENGTH];

   if (IS_NPC(ch))
	return;

   send_to_char("{GYou get an overwhelming urge to kill yourself.{x\n\r",ch);
   send_to_char("{RUnable to resist the temptation, you grab the nearest sharp{x\n\r",ch);
   send_to_char("{Robject and spill your guts out all over the floor.{x\n\r",ch);
   if (is_clead(ch))
	update_clanlist(ch, ch->clead, FALSE, TRUE);
   if (is_clan(ch))
	update_clanlist(ch, ch->clead, FALSE, FALSE);
   sprintf( strsave, "%s%s", PLAYER_DIR, capitalize( ch->name ) );
   wiznet("$N commits religious suicide.",ch,NULL,0,0,0);
   stop_fighting(ch,TRUE);
   if (ch->level > HERO-1)
   {
	update_wizlist(ch, 1);
   }
   do_quit(ch,"");
   unlink(strsave);
  return;
}
/* then just define it in interp.c and interp.h then viola your done */

Any questions ? well email salem@ausi.com or icq# 83883365