hedgewars/uWorld.pas
changeset 3165 3ec07a7d8456
parent 3152 4d6bf54a2973
child 3204 65222383bf7d
equal deleted inserted replaced
3164:569fd65261d0 3165:3ec07a7d8456
    45 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt);
    45 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt);
    46 procedure HideMission;
    46 procedure HideMission;
    47 procedure ShakeCamera(amount: LongWord);
    47 procedure ShakeCamera(amount: LongWord);
    48 
    48 
    49 implementation
    49 implementation
    50 uses    uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, uAmmos, uVisualGears, uChat, uLandTexture, uLand,
    50 uses    uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, uAmmos, uVisualGears, uChat, uLandTexture, uLand, GLunit;
    51 {$IFDEF GLES11}
       
    52     gles11;
       
    53 {$ELSE}
       
    54     GL;
       
    55 {$ENDIF}
       
    56 
    51 
    57 type TCaptionStr = record
    52 type TCaptionStr = record
    58                    Tex: PTexture;
    53                    Tex: PTexture;
    59                    EndTime: LongWord;
    54                    EndTime: LongWord;
    60                    end;
    55                    end;