Changeset 1848

Show
Ignore:
Timestamp:
06/14/06 02:45:09
Author:
miyagawa
Message:

fix volume

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • thinkpad-saber/trunk/thinkpad-saber.pl

    r1847 r1848  
    8787    my $num = int rand 5; 
    8888    my $filename = "hit$num.wav"; 
    89     $volume = int(65535 * min($volume * 0.1, 1)); 
     89    $volume = int(65535 * min($volume / 15, 1)); 
    9090    warn "playing $filename in $volume" if $debug; 
    9191    Win32::Sound::Volume($volume);