hedgewars/uWorld.pas
changeset 2671 7e0f88013fe8
parent 2670 1b327b7515ed
child 2682 d4c395f25db2
equal deleted inserted replaced
2670:1b327b7515ed 2671:7e0f88013fe8
   344 //glPushMatrix;
   344 //glPushMatrix;
   345 //glScalef(1.0, 1.0, 1.0);
   345 //glScalef(1.0, 1.0, 1.0);
   346 
   346 
   347 {$IFDEF IPHONEOS}
   347 {$IFDEF IPHONEOS}
   348 {* see the code in MainLoop *}
   348 {* see the code in MainLoop *}
   349 SDL_GetMouseState(0, @x, @y);
   349 SDL_GetMouseState(@x, @y);
   350 if ((x > 50) and (x <= 270) and (y > 50) and (y <= 330)) then
   350 if ((x > 50) and (x <= 270) and (y > 50) and (y <= 330)) then
   351 {$ENDIF}
   351 {$ENDIF}
   352 if not isPaused then MoveCamera;
   352 if not isPaused then MoveCamera;
   353 
   353 
   354 if not cReducedQuality then
   354 if not cReducedQuality then
   639 const PrevSentPointTime: LongWord = 0;
   639 const PrevSentPointTime: LongWord = 0;
   640 var EdgesDist,  wdy: LongInt;
   640 var EdgesDist,  wdy: LongInt;
   641 begin
   641 begin
   642 if (not (CurrentTeam^.ExtDriven and isCursorVisible)) and cHasFocus then
   642 if (not (CurrentTeam^.ExtDriven and isCursorVisible)) and cHasFocus then
   643 	begin
   643 	begin
   644 {$IFDEF SDL13}
       
   645 	SDL_GetMouseState(0, @CursorPoint.X, @CursorPoint.Y);
       
   646 {$ELSE}
       
   647 	SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y);
   644 	SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y);
   648 {$ENDIF}
       
   649 	CursorPoint.X:= CursorPoint.X - (cScreenWidth shr 1);
   645 	CursorPoint.X:= CursorPoint.X - (cScreenWidth shr 1);
   650 	CursorPoint.Y:= cScreenHeight - CursorPoint.Y;
   646 	CursorPoint.Y:= cScreenHeight - CursorPoint.Y;
   651 	end;
   647 	end;
   652 
   648 
   653 if (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
   649 if (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then