| … | |
… | |
| 2899 | for (0 .. SOUND_CAST_SPELL_0 - 1) { |
2899 | for (0 .. SOUND_CAST_SPELL_0 - 1) { |
| 2900 | my $sound = $soundconf->{compat}[$_] |
2900 | my $sound = $soundconf->{compat}[$_] |
| 2901 | or next; |
2901 | or next; |
| 2902 | |
2902 | |
| 2903 | my $face = cf::face::find "sound/$sound->[1]"; |
2903 | my $face = cf::face::find "sound/$sound->[1]"; |
| 2904 | warn "$sound->[0]: $face\n";#d# |
|
|
| 2905 | |
2904 | |
| 2906 | cf::sound::set $sound->[0] => $face; |
2905 | cf::sound::set $sound->[0] => $face; |
| 2907 | cf::sound::old_sound_index $_, $face; # gcfclient-compat |
2906 | cf::sound::old_sound_index $_, $face; # gcfclient-compat |
| 2908 | } |
2907 | } |
| 2909 | |
2908 | |
