# HG changeset patch
# User koda
# Date 1318783077 -7200
# Node ID 24b3a7ba3884f5e17db7fcb80cb0954a809b417e
# Parent  dad168522e3b6d0f6c9d4cd630b2771ec7bc2538
more details in chCheckProto

diff -r dad168522e3b -r 24b3a7ba3884 hedgewars/uCommandHandlers.pas
--- a/hedgewars/uCommandHandlers.pas	Fri Oct 14 19:00:31 2011 +0200
+++ b/hedgewars/uCommandHandlers.pas	Sun Oct 16 18:37:57 2011 +0200
@@ -85,13 +85,13 @@
 procedure chCheckProto(var s: shortstring);
 var i, c: LongInt;
 begin
-if isDeveloperMode then
-begin
-val(s, i, c);
-if (c <> 0) or (i = 0) then exit;
-TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true);
-TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true)
-end
+    if isDeveloperMode then
+        begin
+        val(s, i, c);
+        if (c <> 0) or (i = 0) then exit;
+        TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old (got '+intToStr(i)+', expecting '+intToStr(cNetProtoVersion)+')', true);
+        TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new (got '+intToStr(i)+', expecting '+intToStr(cNetProtoVersion)+')', true);
+    end
 end;
 
 procedure chTeamLocal(var s: shortstring);