From rom-request@cmc.net  Wed Aug 14 09:04:24 1996
Return-Path: rom-request@cmc.net
Received: from mailhost.cmc.net (mailhost.cmc.net [206.102.31.250]) by tft.nacs.net (8.7.1/8.7.1) with ESMTP id JAA00936 for <whiplash@tft.nacs.net>; Wed, 14 Aug 1996 09:04:21 GMT
Received: (from list@localhost) by mailhost.cmc.net (8.7.5/8.7.3) id FAA23435; Wed, 14 Aug 1996 05:57:58 -0700 (PDT)
Resent-Date: Wed, 14 Aug 1996 05:57:58 -0700 (PDT)
Date: Wed, 14 Aug 1996 07:59:23 -0500 (CDT)
From: "Ryouga the Eternal Lost Imp." <ryouga@jessi.indstate.edu>
To: rom@cmc.net
Subject: remort.c
In-Reply-To: <Pine.HPP.3.90.960814132735.14287A-200000@dutiwy.twi.tudelft.nl>
Message-ID: <Pine.LNX.3.95.960814075622.319B-100000@jessi.indstate.edu>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Resent-Message-ID: <"fel-V.0.7k5.LrS4o"@mailhost>
Resent-From: rom@cmc.net
X-Mailing-List: <rom@cmc.net> archive/latest/276
X-Loop: rom@cmc.net
Precedence: list
Resent-Sender: rom-request@cmc.net
Status: RO
X-Status: 


Here it is...the remort.c file.  This is the version we used in 
This Old Mud.  We added a few things and commented out some others,
but it wouldn't be hard to put it back to it's original settings.
It's a pretty short file so I'll just paste it on to the end of this
message! =)
Have fun with this one, kids! =)

Ryouga the Eternal Lost Implementor
This Old Mud
baby.indstate.edu 4000


/***************************************************************************
 *  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-1995 Russ Taylor			   *
*	ROM has been brought to you by the ROM consortium		   *
*	    Russ Taylor (rtaylor@pacinfo.com)				   *
*	    Gabrielle Taylor (gtaylor@pacinfo.com)			   *
*	    Brian Moore (rom@rom.efn.org)				   *
*	By using this code, you have agreed to follow the terms of the	   *
*	ROM license, in the file Rom24/doc/rom.license			   *
***************************************************************************/

/*
 *  This is a specially edited version of remort.c   Editing done by
 *  Ryouga and Jeff for This Old Mud.
 */

#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 "tables.h"
#include "lookup.h"

/* command procedures needed */
DECLARE_DO_FUN(do_inform);



void do_remort( CHAR_DATA *ch, char *argument )
{
    char arg[MAX_INPUT_LENGTH];
    CHAR_DATA *victim;
    char buf[MAX_INPUT_LENGTH];
    int sn;
    sh_int wear_loc;
    OBJ_DATA *obj,*obj_next;

    one_argument( argument, arg );

    if ( arg[0] == '\0' )
    {
        send_to_char( "Remort whom?\n\r", ch );
        return;
    }

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

    if (IS_NPC(victim))
    {
	send_to_char("You are going to remort a mob?!?!\n\r",ch);
	return;
    }

    if (ch == victim)
    {
	send_to_char( "You cannot remort yourself silly.\n\r",ch);
	return;
    }
    
    if (victim->level == LEVEL_HERO)
    {
	send_to_char("Heros cannot be remorted, sorry!\n\r",ch);
	return;
    }
      
    if (victim->level > LEVEL_HERO)    
    {
	send_to_char("Immortals cannot be remorted, sorry!\n\r",ch);
	return;
    }

    if (victim->level < LEVEL_HERO - 10)
    {
	sprintf(buf, "You can only remort players from level %d to %d.\n\r",
	    LEVEL_HERO - 10, LEVEL_HERO  );
	send_to_char(buf,ch);
	return;
    }

    if (victim->pcdata->remorts >= 2)
    {
	send_to_char("This char has already been remorted too many times.\n\r",ch);
	return;
    }

    victim->pcdata->power += 1;
    victim->pcdata->remorts += 1;
    sprintf(buf,
	"Having conquered that which has been set before you, you demand that\n\r"
	"the immortals buff you up a little more, maybe with eq or a nifty set \n\r"
	"command. Well it seems your ego has gotten you into some trouble, as\n\r"
	"your mind becomes instantly filled with a loud thunder and images of death.\n\r"
	"Maybe today was the wrong time to annoy the immortals...\n\r");
    send_to_char(buf,victim);

/* This fuction was added by This Old MUD for use with the do_inform fuction.
   If you want to use it, you'll have to add your own do_inform fuction. =)
 */
 
/*    sprintf(buf, "%s has been sent back in time to the days of newbie-dom.", victim->name);
    do_inform(ch, buf); */

 
    for (wear_loc = WEAR_LIGHT; wear_loc <= MAX_WEAR; wear_loc++)
    {
	if ((obj = get_eq_char(victim,wear_loc)) == NULL)
	    continue;
	unequip_char(victim,obj);
    }

    for (obj = victim->carrying; obj != NULL; obj = obj_next)
    {
	obj_next = obj->next_content;
	extract_obj(obj);
    }

    victim->pcdata->perm_hit /= 3;
    victim->pcdata->perm_mana /= 3;
    victim->pcdata->perm_move /= 3;

    victim->max_hit = victim->pcdata->perm_hit;
    victim->max_mana = victim->pcdata->perm_mana;
    victim->max_move = victim->pcdata->perm_move;
    victim->hit = victim->max_hit;
    victim->mana = victim->max_mana;
    victim->move = victim->max_move;
    victim->level = 10;
    victim->pcdata->points -= 7;   
    victim->exp = exp_per_level(victim,victim->pcdata->points) * victim->level;
    victim->pcdata->learned[sn] = 1; 

    sprintf(buf, "%s has risen from the ashes!", victim->name); 
    do_announce(ch, buf);  */

    return;
}


     

