hedgewars/uCursor.pas
changeset 14305 a3531b520efb
parent 13498 424944a835a7
child 14829 9443dc6663ba
equal deleted inserted replaced
14304:9548edd9ebcf 14305:a3531b520efb
    31 end;
    31 end;
    32 
    32 
    33 procedure updatePosition;
    33 procedure updatePosition;
    34 var x, y: LongInt;
    34 var x, y: LongInt;
    35 begin
    35 begin
       
    36 	x:= cScreenWidth div 2;
       
    37 	y:= cScreenHeight div 2;
    36     if GameType <> gmtRecord then
    38     if GameType <> gmtRecord then
    37         SDL_GetMouseState(@x, @y);
    39         SDL_GetMouseState(@x, @y);
    38 
    40 
    39     if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then
    41     if(x <> cScreenWidth div 2) or (y <> cScreenHeight div 2) then
    40     begin
    42     begin