From e8545f9c64a7b2a4fb0e42c46b2ff46d2c6e94ec Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Sun, 3 Feb 2002 08:54:36 +0000
Subject: [PATCH] drain_exp an den alten erwartungswert wieder angepasst.

---
 src/common/kernel/battle.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/common/kernel/battle.c b/src/common/kernel/battle.c
index bdbca3178..3b3f2a20b 100644
--- a/src/common/kernel/battle.c
+++ b/src/common/kernel/battle.c
@@ -976,7 +976,9 @@ drain_exp(unit *u, int n)
 	}
 	if (sk != NOSKILL) {
 		n = min(n, get_skill(u, sk));
-		change_skill(u, sk, -1);
+		if (learn_skill(u, sk, n) {
+			change_skill(u, sk, -1);
+		}
 	}
 }
 #endif