equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uVariables; |
21 unit uVariables; |
22 interface |
22 interface |
23 |
23 |
24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile; |
24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uMobile, uUtils; |
25 |
25 |
26 var |
26 var |
27 /////// init flags /////// |
27 /////// init flags /////// |
28 cMinScreenWidth : LongInt; |
28 cMinScreenWidth : LongInt; |
29 cMinScreenHeight : LongInt; |
29 cMinScreenHeight : LongInt; |
2576 end; |
2576 end; |
2577 |
2577 |
2578 procedure initModule; |
2578 procedure initModule; |
2579 begin |
2579 begin |
2580 |
2580 |
2581 if (Length(cLocaleFName) > 6) then |
2581 SplitByChar(cLocaleFName, cLocale, '.'); |
2582 cLocale := Copy(cLocaleFName,1,5) |
|
2583 else |
|
2584 cLocale := Copy(cLocaleFName,1,2); |
|
2585 |
2582 |
2586 cFlattenFlakes := false; |
2583 cFlattenFlakes := false; |
2587 cFlattenClouds := false; |
2584 cFlattenClouds := false; |
2588 cOnlyStats := False; |
2585 cOnlyStats := False; |
2589 lastVisualGearByUID := nil; |
2586 lastVisualGearByUID := nil; |