hedgewars/uWorld.pas
changeset 8145 6408c0ba4ba1
parent 8138 cfb228baa598
child 8204 9a6030d96273
equal deleted inserted replaced
8143:3f2ba6debbdd 8145:6408c0ba4ba1
    82     missionTimer: LongInt;
    82     missionTimer: LongInt;
    83     stereoDepth: GLfloat;
    83     stereoDepth: GLfloat;
    84     isFirstFrame: boolean;
    84     isFirstFrame: boolean;
    85     AMAnimType: LongInt;
    85     AMAnimType: LongInt;
    86     recTexture: PTexture;
    86     recTexture: PTexture;
       
    87     AmmoMenuTex     : PTexture;
       
    88     HorizontOffset: LongInt;
       
    89     cOffsetY: LongInt;
       
    90     AFRToggle: Boolean;
    87 
    91 
    88 const cStereo_Sky           = 0.0500;
    92 const cStereo_Sky           = 0.0500;
    89       cStereo_Horizon       = 0.0250;
    93       cStereo_Horizon       = 0.0250;
    90       cStereo_MidDistance   = 0.0175;
    94       cStereo_MidDistance   = 0.0175;
    91       cStereo_Water_distant = 0.0125;
    95       cStereo_Water_distant = 0.0125;
    92       cStereo_Land          = 0.0075;
    96       cStereo_Land          = 0.0075;
    93       cStereo_Water_near    = 0.0025;
    97       cStereo_Water_near    = 0.0025;
    94       cStereo_Outside       = -0.0400;
    98       cStereo_Outside       = -0.0400;
       
    99 
       
   100       AMAnimDuration = 200;
       
   101       AMHidden    = 0;//AMState values
       
   102       AMShowingUp = 1;
       
   103       AMShowing   = 2;
       
   104       AMHiding    = 3;
       
   105 
       
   106       AMTypeMaskX     = $00000001;
       
   107       AMTypeMaskY     = $00000002;
       
   108       AMTypeMaskAlpha = $00000004;
       
   109       AMTypeMaskSlide = $00000008;
       
   110 
       
   111 {$IFDEF MOBILE}
       
   112       AMSlotSize = 48;
       
   113       AMTITLE    = 30;
       
   114 {$ELSE}
       
   115       AMSlotSize = 32;
       
   116 {$ENDIF}
       
   117       AMSlotPadding = (AMSlotSize - 32) shr 1;
       
   118 
       
   119       cSendCursorPosTime = 50;
       
   120       cCursorEdgesDist   = 100;
    95 
   121 
    96 // helper functions to create the goal/game mode string
   122 // helper functions to create the goal/game mode string
    97 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring;
   123 function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring;
    98 var t: ansistring;
   124 var t: ansistring;
    99 begin
   125 begin