StatChange(pDoctor, DEXTAMT,		(UINT16) (usUsedHealingPts / 100), FALSE);
StatChange(pDoctor, WISDOMAMT,	(UINT16) (usUsedHealingPts / 100), FALSE);

// EXPLOSIVES GAIN (25):  Place a bomb, or buried and armed a mine
// StatChange( pSoldier, EXPLODEAMT, 25, FALSE );

StatChange( pSoldier, WISDOMAMT, (UINT16) (pObj->bTrap), FALSE );

StatChange( pSoldier, WISDOMAMT, (INT8) ( 20 - AttachmentInfo[ bAttachInfoIndex ].bAttachmentSkillCheckMod )/5, FALSE );

StatChange( pSoldier, WISDOMAMT, 5, FALSE );

if (bReason == ELECTRONIC_LOCKPICKING_CHECK)
	StatChange( pSoldier, WISDOMAMT, ( UINT16 ) ( pLock->ubPickDifficulty / 10 ), FALSE );
else
	StatChange( pSoldier, WISDOMAMT, ( UINT16 ) ( pLock->ubPickDifficulty / 15 ), FALSE );

StatChange( pSoldier, DEXTAMT, usExpGain, ( UINT8 )( fGonnaHit ? FALSE : FROM_FAILURE ) );
StatChange( pSoldier, AGILAMT, usExpGain/3, ( UINT8 )( fGonnaHit ? FALSE : FROM_FAILURE ) );
StatChange( pSoldier, STRAMT, usExpGain/3, ( UINT8 )( fGonnaHit ? FALSE : FROM_FAILURE ) );

// Snap: Find the number of real targets for grenade attack
UINT16 usNumTargets = 0;
if ( pTargetSoldier != NULL ) ++usNumTargets;
else
{
	// search for an opponent near the target gridno
	for ( bLoop = 0; bLoop < NUM_WORLD_DIRECTIONS; bLoop++ )
	{
		ubTargetID = WhoIsThere2( NewGridNo( pSoldier->sTargetGridNo, DirectionInc( bLoop ) ), pSoldier->bTargetLevel );
		pTargetSoldier = NULL;
		if ( ubTargetID != NOBODY )
		{
			pTargetSoldier = MercPtrs[ ubTargetID ];
			if ( pTargetSoldier->bTeam != pSoldier->bTeam )
			{
				break;
			}
			else ++usNumTargets; // Snap
		}
	}
}

if ( pTargetSoldier )
{
	// ok this is a real attack on someone, grant experience

	// Snap: calculate experience points for strength: weight x distance
	UINT16 usHandItem = pSoldier->inv[HANDPOS].usItem;
	// calculate actual range (in world units)
	INT32 iRange = GetRangeInCellCoordsFromGridNoDiff( pSoldier->sGridNo, sTargetGridNo );
	// 10 points for a regular grenade thrown at 100 units (1 cell = 10 units)
	UINT16 usExpGain = ( Item[usHandItem].ubWeight * iRange + 30) / 60;
	StatChange( pSoldier, STRAMT, usExpGain, FALSE );

	// Snap: calculate experience points for dexterity and marksmanship
	usExpGain = 5     // For at least one target
		+ 2*(usNumTargets-1);   // For every additional target
	BOOLEAN fGonnaHit = uiDiceRoll < uiHitChance;
	if ( fGonnaHit ) usExpGain *= 2;   // For actually hitting the target :)
	usExpGain += (UINT16) (100 - uiHitChance) / 10; // Extra exp for a difficult target
	StatChange( pSoldier, DEXTAMT, usExpGain / 2, ( fGonnaHit ? FALSE : FROM_FAILURE ) );
	StatChange( pSoldier, MARKAMT, usExpGain / 2, ( fGonnaHit ? FALSE : FROM_FAILURE ) );
}

BOOLEAN fUseBrains = FALSE; // Snap
// which stat to modify?
switch( pSoldier -> bTrainStat )
{
	case( STRENGTH ):
		ubChangeStat = STRAMT;
		break;
	case( DEXTERITY ):
		ubChangeStat = DEXTAMT;
		break;
	case( AGILITY ):
		ubChangeStat = AGILAMT;
		break;
	case( HEALTH ):
		ubChangeStat = HEALTHAMT;
		break;
	case( LEADERSHIP ):
		ubChangeStat = LDRAMT;
		fUseBrains = TRUE;
		break;
	case( MARKSMANSHIP ):
		ubChangeStat = MARKAMT;
		fUseBrains = TRUE;
		break;
	case( EXPLOSIVE_ASSIGN ):
		ubChangeStat = EXPLODEAMT;
		fUseBrains = TRUE;
		break;
	case( MEDICAL ):
		ubChangeStat = MEDICALAMT;
		fUseBrains = TRUE;
		break;
	case( MECHANICAL ):
		ubChangeStat = MECHANAMT;
		fUseBrains = TRUE;
		break;
	// NOTE: Wisdom can't be trained!
	default:
		// BETA message
		#ifdef JA2BETAVERSION
      ScreenMsg( FONT_ORANGE, MSG_BETAVERSION, L"TrainSoldierWithPts: ERROR - Unknown bTrainStat %d", pSoldier -> bTrainStat);
		#endif
return;
}

// give this merc a few chances to increase a stat (TRUE means it's training, reverse evolution doesn't apply)
StatChange( pSoldier, ubChangeStat, sTrainPts, FROM_TRAINING );
if (fUseBrains) StatChange( pSoldier, WISDOMAMT, sTrainPts/2, FROM_TRAINING ); // Snap

// valid trainer is available, this gives the student a large training bonus!
sTrainingPtsDueToInstructor = GetBonusTrainingPtsDueToInstructor( pTrainer, pStudent, pStudent -> bTrainStat, fAtGunRange, &usMaxPts );
// Snap: Reward the trainer!
StatChange( pTrainer, LDRAMT, sTrainingPtsDueToInstructor, FALSE );
StatChange( pTrainer, WISDOMAMT, sTrainingPtsDueToInstructor, FALSE );

StatChange( pTrainer, WISDOMAMT, (UINT16) ( 1 + ( sTrainingPts / 400 ) ), FALSE );

// Adjust breath changes due to spending or regaining of energy
sBPCost = AdjustBreathPts(pSoldier,sBPCost);
// Snap: award some health for exertion
// Do one StatChange roll per 100 breath points spent?
// This might be expensive, because this function is called often!
// NB: The scale of sBPCost is 100 per breath point
if (PTR_OURTEAM && sBPCost > 0 && fProactive && PreRandom(10000) < sBPCost)
{
	StatChange( pSoldier, HEALTHAMT, 1, FALSE );
}