| … | |
… | |
| 475 | if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") { |
475 | if (open my $fh, "<:utf8", CFClient::find_rcfile "sounds/config") { |
| 476 | $SDL_MIXER = new SDL::Mixer; |
476 | $SDL_MIXER = new SDL::Mixer; |
| 477 | $SDL_MIXER->allocate_channels (8); |
477 | $SDL_MIXER->allocate_channels (8); |
| 478 | |
478 | |
| 479 | $bgmusic = new SDL::Music CFClient::find_rcfile "music/game3.ogg"; |
479 | $bgmusic = new SDL::Music CFClient::find_rcfile "music/game3.ogg"; |
| 480 | $SDL_MIXER->play_music ($bgmusic, 0); |
480 | $SDL_MIXER->play_music ($bgmusic, -1); |
| 481 | |
481 | |
| 482 | while (<$fh>) { |
482 | while (<$fh>) { |
| 483 | next if /^\s*#/; |
483 | next if /^\s*#/; |
| 484 | next if /^\s*$/; |
484 | next if /^\s*$/; |
| 485 | |
485 | |
