… | |
… | |
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 | |