43 procedure AddProgress;

    43 procedure AddProgress;

    44 procedure FinishProgress;

    44 procedure FinishProgress;

    45 function  LoadImage(const filename: string; hasAlpha, critical, setTransparent: boolean): PSDL_Surface;

    45 function  LoadImage(const filename: string; hasAlpha, critical, setTransparent: boolean): PSDL_Surface;

    46 procedure SetupOpenGL;

    46 procedure SetupOpenGL;

    47 

    47 

    50    PauseTexture,

    50    PauseTexture,

    51    ConfirmTexture: PTexture;

    51    ConfirmTexture: PTexture;

    52 

    52 

    53 implementation

    53 implementation

    54 uses uMisc, uConsole, uLand, uLocale, GLU;

    54 uses uMisc, uConsole, uLand, uLocale, GLU;