Here's a forward I got from a friend....
===============================

    I just got hit with INSPIRATION!  I have a new spell for
    ALL magic users (clerics, mages, invokers, summoners, whatever).  The
    spell is called "life transfer".  Once, my character was mortally wounded (-5
    hp), but there were no clerics on....he wished that someone could give him
    hp, and that's where I came up with this.....


    Spell name:  Life Transfer
    Users:  All magic users
    Level: To be decided.
    Command: Cast 'life transfer' <character>

    What it does/Why is it usefull:  This spell is good when there are no
    clerics present to heal.  If someone is dying, and desperately needs hp,
    the magic user can cast this spell on him.  This spell will transfer 50 hp
    from the caster, and put it into the target.


    For example:  Character has -5 hp, Caster has 100 hp.  When caster uses
    this spell, Character now has 45 hp, and Caster has 50 hp.


    This spell is usefull becuase it can save lives, or give strength to
    someone that needs it.

===================
So anyway, I coded the spell, and here it is:

/* Life transfer spell coded by Blizzard (blizzard_imp@hotmail.com) */
void spell_life_transfer( int sn, int level, CHAR_DATA *ch, void *vo, int target)	
{
    CHAR_DATA *victim;

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

    ch->hit /= 2;
    victim->hit += ch->hit;

    act( "You give half your life to $N.\n\r", ch, NULL, victim, TO_CHAR );
    act( "$n gives you half of their life.\n\r",  ch, NULL, victim, TO_VICT);
    act( "$n gives half of their life to $N.\n\r", ch, NULL, victim, TO_NOTVICT);

    return;
}