hedgewars/uWorld.pas
changeset 1906 644f93d8f148
parent 1870 72af1c414345
child 1911 6283bd8a960b
equal deleted inserted replaced
1905:b1ec8db513f2 1906:644f93d8f148
    37 	bShowFinger: boolean = false;
    37 	bShowFinger: boolean = false;
    38 	Frames: Longword = 0;
    38 	Frames: Longword = 0;
    39 	WaterColor, DeepWaterColor: TSDL_Color;
    39 	WaterColor, DeepWaterColor: TSDL_Color;
    40 
    40 
    41 implementation
    41 implementation
    42 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL,
    42 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound,
       
    43 {$IFDEF IPHONE}
       
    44 	gles11,
       
    45 {$ELSE}
       
    46 	GL,
       
    47 {$ENDIF}
    43      uAmmos, uVisualGears, uChat, uLandTexture, uLand;
    48      uAmmos, uVisualGears, uChat, uLandTexture, uLand;
    44 
    49 
    45 const FPS: Longword = 0;
    50 const FPS: Longword = 0;
    46       CountTicks: Longword = 0;
    51       CountTicks: Longword = 0;
    47       SoundTimerTicks: Longword = 0;
    52       SoundTimerTicks: Longword = 0;