Changeset 95
- Timestamp:
- May 19, 2024, 6:15:22 PM (6 months ago)
- Location:
- trunk
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Engine.pas
r93 r95 250 250 function TextOutWordWrap(Canvas: TCanvas; X, Y: Integer; Text: string; Width: Integer): Integer; 251 251 function GetMenuWidth: Integer; 252 function GetAudioDir: string; 252 253 public 253 254 ThreadErrorMessage: string; … … 1641 1642 end; 1642 1643 1644 function TEngine.GetAudioDir: string; 1645 {$IFDEF UNIX} 1646 const 1647 UnixDataDir = '/usr/share/Tunneler'; 1648 UnixAudioDir = UnixDataDir + '/Audio'; 1649 {$ENDIF} 1650 begin 1651 Result := GetCurrentDir + DirectorySeparator + 'Audio'; 1652 {$IFDEF UNIX} 1653 if not DirectoryExists(Result) and DirectoryExists(UnixAudioDir) then begin 1654 Result := UnixAudioDir; 1655 Exit; 1656 end; 1657 {$ENDIF} 1658 end; 1659 1643 1660 function TEngine.Scale(Value: Integer): Integer; 1644 1661 begin … … 2120 2137 //DefaultAudioSystem := TAudioSystemMPlayer.Create(nil); 2121 2138 AudioShot := TSound.Create(nil); 2122 AudioShot.FileName := Get CurrentDir + '/Audio/GE_KF7_Soviet.wav';2139 AudioShot.FileName := GetAudioDir + DirectorySeparator + 'GE_KF7_Soviet.wav'; 2123 2140 AudioExplode := TSound.Create(nil); 2124 AudioExplode.FileName := Get CurrentDir + '/Audio/bomb.wav';2141 AudioExplode.FileName := GetAudioDir + DirectorySeparator + 'bomb.wav'; 2125 2142 InitPlayerPool; 2126 2143 DigMasks := TObjectList<TMatrixByte>.Create; -
trunk/Forms/FormMain.pas
r87 r95 145 145 procedure TFormMain.UpdateInterface; 146 146 begin 147 if FullScreenEnabled then Menu := nil 148 else Menu := MainMenu1; 147 MenuItem1.Visible := not FullScreenEnabled; 148 MenuItem4.Visible := not FullScreenEnabled; 149 MenuItem7.Visible := not FullScreenEnabled; 149 150 {$IFDEF DEBUG} 150 151 StatusBar1.Visible := not FullScreenEnabled; -
trunk/Install/deb/debian/rules
r63 r95 23 23 install -D -m 755 Languages/*.pot $(ROOT)/usr/share/Tunneler/Languages 24 24 install -D -m 755 Languages/*.po $(ROOT)/usr/share/Tunneler/Languages 25 25 install -d -m 755 $(ROOT)/usr/share/Tunneler/Audio 26 install -D -m 755 Audio/*.wav $(ROOT)/usr/share/Tunneler/Audio 27 26 28 %: 27 29 dh $@ -
trunk/Install/flatpak
-
Property svn:ignore
set to
build
export
tunneler.tar.gz
Tunneler.flatpak
.flatpak-builder
-
Property svn:ignore
set to
-
trunk/Install/rpm/tunneler.spec
r91 r95 36 36 install -D -m 755 Languages/*.pot $RPM_BUILD_ROOT/usr/share/Tunneler/Languages 37 37 install -D -m 755 Languages/*.po $RPM_BUILD_ROOT/usr/share/Tunneler/Languages 38 install -d -m 755 $RPM_BUILD_ROOT/usr/share/Tunneler/Audio 39 install -D -m 755 Languages/*.wav $RPM_BUILD_ROOT/usr/share/Tunneler/Audio 38 40 39 41 %clean -
trunk/Install/snap/snapcraft.yaml
r89 r95 17 17 source: . 18 18 source-type: local 19 build-packages: 19 build-packages: 20 20 - fpc 21 21 - lazarus … … 34 34 install -D -m 755 Languages/*.pot $SNAPCRAFT_PART_INSTALL/usr/share/Tunneler/Languages 35 35 install -D -m 755 Languages/*.po $SNAPCRAFT_PART_INSTALL/usr/share/Tunneler/Languages 36 install -d -m 755 $SNAPCRAFT_PART_INSTALL/usr/share/Tunneler/Audio 37 install -D -m 755 Audio/*.wav $SNAPCRAFT_PART_INSTALL/usr/share/Tunneler/Audio 36 38 stage: 37 39 - usr
Note:
See TracChangeset
for help on using the changeset viewer.