diff -r 73b0bcc4396d -r 7845c77c8d31 hedgewars/uMisc.pas
--- a/hedgewars/uMisc.pas	Sun Apr 26 15:47:03 2009 +0000
+++ b/hedgewars/uMisc.pas	Thu Apr 30 20:13:44 2009 +0000
@@ -105,6 +105,7 @@
 	cGravity: hwFloat;
 	cDamageModifier: hwFloat;
 	cLaserSighting: boolean;
+	cVampiric: boolean;
 
 	flagMakeCapture: boolean = false;
 
@@ -382,7 +383,7 @@
 			for x:= Surf^.w to Pred(tw) do
 				toP4^[x]:= 0;
 			toP4:= @(toP4^[tw]);
-			fromP4:= @(fromP4^[Surf^.w]);
+			fromP4:= @(fromP4^[Surf^.pitch div 4]);
 			end;
 
 		for y:= Surf^.h to Pred(th) do
@@ -548,6 +549,7 @@
 cGravity:= cMaxWindSpeed;
 cDamageModifier:= _1;
 cLaserSighting:= false;
+cVampiric:= false;
 
 {$IFDEF DEBUGFILE}
 {$I-}