Changeset 29 for trunk/LocalPlayer/Term.pas
- Timestamp:
- Jan 8, 2017, 10:20:03 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 11 11 lib 12 12 heaptrclog.trc 13 c-evo
-
- Property svn:ignore
-
trunk/LocalPlayer/Term.pas
r28 r29 10 10 Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase, 11 11 12 LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus,12 LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus, 13 13 ExtCtrls, dateutils, Platform, 14 Button B, ButtonC, EOTButton, Area;14 ButtonA, ButtonB, ButtonC, EOTButton, Area; 15 15 16 16 const … … 3417 3417 doinit := false; 3418 3418 OpenKey('SOFTWARE\cevo\RegVer9', false); 3419 try 3420 if ValueExists('TileWidth') then xxt := ReadInteger('TileWidth') div 2; 3421 if ValueExists('TileHeight') then yyt := ReadInteger('TileHeight') div 2; 3422 if ValueExists('OptionChecked') then OptionChecked := ReadInteger('OptionChecked'); 3423 if ValueExists('MapOptionChecked') then MapOptionChecked := ReadInteger('MapOptionChecked'); 3424 if ValueExists('CityMapMask') then CityRepMask := Cardinal(ReadInteger('CityReport')); 3425 except 3426 doinit := true; 3427 end; 3419 if ValueExists('TileWidth') then xxt := ReadInteger('TileWidth') div 2 3420 else xxt := 48; 3421 if ValueExists('TileHeight') then yyt := ReadInteger('TileHeight') div 2 3422 else yyt := 24; 3423 if ValueExists('OptionChecked') then OptionChecked := ReadInteger('OptionChecked') 3424 else OptionChecked := DefaultOptionChecked; 3425 if ValueExists('MapOptionChecked') then MapOptionChecked := ReadInteger('MapOptionChecked') 3426 else MapOptionChecked := 1 shl moCityNames; 3427 if ValueExists('CityMapMask') then CityRepMask := Cardinal(ReadInteger('CityReport')) 3428 else CityRepMask := Cardinal(not chPopIncrease and not chNoGrowthWarning and 3429 not chCaptured); 3428 3430 CloseKey; 3429 3431 if OptionChecked and (7 shl 16) = 0 then … … 3431 3433 // old regver with no scrolling 3432 3434 end; 3433 Reg.free; 3434 if doinit then 3435 begin 3436 xxt := 48; 3437 yyt := 24; 3438 OptionChecked := DefaultOptionChecked; 3439 MapOptionChecked := 1 shl moCityNames; 3440 CityRepMask := Cardinal(not chPopIncrease and not chNoGrowthWarning and 3441 not chCaptured); 3442 end; 3443 3444 if FullScreen then 3445 begin 3435 Reg.Free; 3436 3437 if FullScreen then begin 3446 3438 p.Style := $87000000; 3447 3439 BorderStyle := bsNone; … … 3454 3446 SoundMode := smOnAlt 3455 3447 else 3456 SoundMode := smOn 3448 SoundMode := smOn; 3457 3449 end; 3458 3450 … … 4978 4970 GotoOnly: boolean; 4979 4971 begin 4980 Dist := 0;4981 4972 if ClientMode >= scContact then 4982 4973 exit;
Note:
See TracChangeset
for help on using the changeset viewer.