equal
deleted
inserted
replaced
485 begin |
485 begin |
486 if (MusicFN = '') or (not isMusicEnabled) then |
486 if (MusicFN = '') or (not isMusicEnabled) then |
487 exit; |
487 exit; |
488 |
488 |
489 if Mus <> nil then |
489 if Mus <> nil then |
|
490 begin |
490 Mix_FreeMusic(Mus); |
491 Mix_FreeMusic(Mus); |
|
492 Mus:= nil; |
|
493 end |
491 end; |
494 end; |
492 |
495 |
493 procedure chVoicepack(var s: shortstring); |
496 procedure chVoicepack(var s: shortstring); |
494 begin |
497 begin |
495 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true); |
498 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true); |