hedgewars/uWorld.pas
changeset 2407 9f413bd5150e
parent 2397 2ca4ca6b4bab
child 2409 dbf195c3e09c
--- a/hedgewars/uWorld.pas	Tue Oct 06 16:30:08 2009 +0000
+++ b/hedgewars/uWorld.pas	Wed Oct 07 14:37:42 2009 +0000
@@ -566,7 +566,6 @@
 		end
 		else begin
 		CursorPoint.x:= (prevPoint.x * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * 100 + WorldDx) div 8;
-		//addcaption(inttostr(CursorPoint.X), $AFAFAF, capgrpGameState);
 		CursorPoint.y:= (prevPoint.y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8;
 		end;
 
@@ -590,7 +589,7 @@
 	begin
 	if (not CurrentTeam^.ExtDriven) and (GameTicks >= PrevSentPointTime + cSendCursorPosTime) then
 		begin
-		SendIPCXY('P', CursorPoint.X - WorldDx, CursorPoint.Y - WorldDy);
+		SendIPCXY('P', CursorPoint.X - WorldDx, cScreenHeight - CursorPoint.Y - WorldDy);
 		PrevSentPointTime:= GameTicks
 		end;
 	end;