diff options
Diffstat (limited to 'Game/Code/Classes/ULight.pas')
-rw-r--r-- | Game/Code/Classes/ULight.pas | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Game/Code/Classes/ULight.pas b/Game/Code/Classes/ULight.pas index 1fc4aba8..b9c7af9e 100644 --- a/Game/Code/Classes/ULight.pas +++ b/Game/Code/Classes/ULight.pas @@ -1,5 +1,6 @@ unit ULight;
interface
+{$I switches.inc}
type
TLight = class
@@ -30,7 +31,11 @@ const implementation
uses
- SysUtils, zlportio, UTime;
+ SysUtils,
+ {$IFDEF UseSerialPort}
+ zlportio,
+ {$ENDIF}
+ UTime;
constructor TLight.Create;
begin
@@ -45,8 +50,10 @@ end; procedure TLight.SetState(State: integer);
begin
+ {$IFDEF UseSerialPort}
if Enabled then
PortWriteB($378, State);
+ {$ENDIF}
end;
procedure TLight.AutoSetState;
|