equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 {$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
20 {$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
21 |
21 |
22 unit uStore; |
22 unit uStore; |
23 interface |
23 interface |
24 uses sysutils, uConsts, SDLh, GLunit, uTypes, uLandTexture; |
24 uses sysutils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions; |
25 |
25 |
26 procedure initModule; |
26 procedure initModule; |
27 procedure freeModule; |
27 procedure freeModule; |
28 |
28 |
29 procedure StoreLoad(reload: boolean = false); |
29 procedure StoreLoad(reload: boolean = false); |
1040 |
1040 |
1041 StoreRelease(true); |
1041 StoreRelease(true); |
1042 StoreLoad(true); |
1042 StoreLoad(true); |
1043 |
1043 |
1044 ResetLand; |
1044 ResetLand; |
|
1045 ReloadCaptions; |
1045 |
1046 |
1046 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT) |
1047 UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT) |
1047 end; |
1048 end; |
1048 end; |
1049 end; |
1049 |
1050 |