--- a/hedgewars/PascalExports.pas	Sat Jun 19 00:48:47 2010 +0200
+++ b/hedgewars/PascalExports.pas	Sun Jun 20 18:35:59 2010 +0200
@@ -35,12 +35,14 @@
 
 procedure HW_zoomIn; cdecl; export;
 begin
-    wheelUp:= true;
+    if wheelDown = false then
+        wheelUp:= true;
 end;
 
 procedure HW_zoomOut; cdecl; export;
 begin
-    wheelDown:= true;
+    if wheelUp = false then
+        wheelDown:= true;
 end;
 
 procedure HW_zoomReset; cdecl; export;