35 

    35 

    36 {$INCLUDE playlist.inc}

    36 {$INCLUDE playlist.inc}

    37 

    37 

    38 const chanTPU = 12;

    38 const chanTPU = 12;

    39 var Mus: PMixMusic = nil;

    39 var Mus: PMixMusic = nil;

    40     CurrMusic: Longword = 0;

    42     CurrMusic: Longword = 0;

    42 

    44 

    43 procedure InitSound;

    45 procedure InitSound;

    44 begin

    46 begin

    45 if not isSoundEnabled then exit;

    47 if not isSoundEnabled then exit;

    46 WriteToConsole('Init sound...');

    48 WriteToConsole('Init sound...');