MEDIT (medit_level)
{
    MOB_INDEX_DATA *pMob;
    EDIT_MOB (ch, pMob);
    int argfun;

    if (argument[0] == '\0' || !is_number (argument))
    {
        send_to_char ("Syntax:  level [number]\n\r", ch);
        return FALSE;
    }

    argfun = atoi (argument);

    pMob->level = argfun;

    pMob->hit[DICE_NUMBER] = ( argfun );
    pMob->hit[DICE_TYPE] = ( argfun * 2 );
    pMob->hit[DICE_BONUS] = 1;
    pMob->damage[DICE_NUMBER] = ( argfun );
    pMob->damage[DICE_TYPE] = ( argfun / 20 );
    pMob->damage[DICE_BONUS] = number_range (1, 4);
    pMob->hitroll = ( argfun * 2 / 6 );
    pMob->wealth = ( argfun * 10);
    pMob->ac[AC_PIERCE] = ( argfun - ( argfun * 2 ) * 2 );
    pMob->ac[AC_BASH] = ( argfun - ( argfun * 2 ) * 2 );
    pMob->ac[AC_SLASH] = ( argfun - ( argfun * 2 ) * 2 );
    pMob->ac[AC_EXOTIC] = ( argfun - ( argfun * 2 ) * 2 );

    send_to_char ("Level set.\n\r", ch);
    return TRUE;
}