hedgewars/uWorld.pas
changeset 8773 7d3af949dd34
parent 8675 3fb25201d303
child 8833 c13ebed437cb
child 9029 2d5e6ed2cba7
equal deleted inserted replaced
8771:ea6ee35d9434 8773:7d3af949dd34
    72     tmpSurface: PSDL_Surface;
    72     tmpSurface: PSDL_Surface;
    73     fpsTexture: PTexture;
    73     fpsTexture: PTexture;
    74     timeTexture: PTexture;
    74     timeTexture: PTexture;
    75     FPS: Longword;
    75     FPS: Longword;
    76     CountTicks: Longword;
    76     CountTicks: Longword;
    77     prevPoint, prevTargetPoint: TPoint;
    77     prevPoint{, prevTargetPoint}: TPoint;
    78     amSel: TAmmoType = amNothing;
    78     amSel: TAmmoType = amNothing;
    79     missionTex: PTexture;
    79     missionTex: PTexture;
    80     missionTimer: LongInt;
    80     missionTimer: LongInt;
    81     stereoDepth: GLfloat;
    81     stereoDepth: GLfloat;
    82     isFirstFrame: boolean;
    82     isFirstFrame: boolean;
   219 
   219 
   220 InitCameraBorders();
   220 InitCameraBorders();
   221 uCursor.init();
   221 uCursor.init();
   222 prevPoint.X:= 0;
   222 prevPoint.X:= 0;
   223 prevPoint.Y:= cScreenHeight div 2;
   223 prevPoint.Y:= cScreenHeight div 2;
   224 prevTargetPoint.X:= 0;
   224 //prevTargetPoint.X:= 0;
   225 prevTargetPoint.Y:= 0;
   225 //prevTargetPoint.Y:= 0;
   226 WorldDx:=  -(LAND_WIDTH div 2) + cScreenWidth div 2;
   226 WorldDx:=  -(LAND_WIDTH div 2) + cScreenWidth div 2;
   227 WorldDy:=  -(LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2);
   227 WorldDy:=  -(LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2);
   228 
   228 
   229 //aligns it to the bottom of the screen, minus the border
   229 //aligns it to the bottom of the screen, minus the border
   230 SkyOffset:= 0;
   230 SkyOffset:= 0;
   640          else 
   640          else 
   641             begin
   641             begin
   642             AMShiftX:= AMShiftTargetX;
   642             AMShiftX:= AMShiftTargetX;
   643             AMShiftY:= AMShiftTargetY;
   643             AMShiftY:= AMShiftTargetY;
   644             prevPoint:= CursorPoint;
   644             prevPoint:= CursorPoint;
   645             prevTargetPoint:= TargetCursorPoint;
   645             //prevTargetPoint:= TargetCursorPoint;
   646             AMState:= AMHidden;
   646             AMState:= AMHidden;
   647             end;
   647             end;
   648     end;
   648     end;
   649     
   649     
   650 DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);
   650 DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex);