home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CyberMycha 2006 April
/
SGP.iso
/
dema
/
Keepsake-Demo-en-li-v1.0.exe
/
res
/
bin
/
spec
/
oz'sound.tcl
Wrap
Text File
|
2005-10-29
|
718b
|
32 lines
namespace ozqSound {
proc New {filename} {
return [::new oz'sound $name]
}
proc NewFX {vname filename} {
upvar $vname v
if ![info exists $v] {
set v [::new oz'sound $name]
oz'sound::volume $v $::config::soundfx::volume
oz'sound::streaming $v 0
}
}
proc Position {this x y z} {
oz'event {oz'sound::position $this $x $y $z}
}
proc ReferenceDistance {this d} {
oz'event {oz'sound::reference_distance $this $d}
}
proc Repeat {this value} {
oz'event {oz'sound::repeat $this $value}
}
proc Play {this} {
oz'event {oz'sound::play $this}
}
}