equal
deleted
inserted
replaced
118 Mix_PlayMusic(Mus, -1) |
118 Mix_PlayMusic(Mus, -1) |
119 end; |
119 end; |
120 |
120 |
121 function ChangeVolume(voldelta: integer): integer; |
121 function ChangeVolume(voldelta: integer): integer; |
122 begin |
122 begin |
|
123 if not isSoundEnabled then |
|
124 begin |
|
125 Result:= 0; |
|
126 exit |
|
127 end; |
123 inc(Volume, voldelta); |
128 inc(Volume, voldelta); |
124 if Volume < 0 then Volume:= 0; |
129 if Volume < 0 then Volume:= 0; |
125 Mix_Volume(-1, Volume); |
130 Mix_Volume(-1, Volume); |
126 Volume:= Mix_Volume(-1, -1); |
131 Volume:= Mix_Volume(-1, -1); |
127 Mix_VolumeMusic(Volume * 3 div 8); |
132 Mix_VolumeMusic(Volume * 3 div 8); |