home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Option.dxr / Intern_2_AudioInt.ls < prev    next >
Encoding:
Text File  |  2003-07-23  |  400 b   |  16 lines
  1. on Audioint AName, Kanal, DLaut
  2.   global _Lautstaerke, _Audioticks
  3.   anz = AName.chars.count
  4.   _Audioticks = EMPTY
  5.   if Kanal = 1 then
  6.     _Audioticks = the ticks
  7.   end if
  8.   if AName.char[anz - 2..anz] = "swa" then
  9.     member(AName).volume = _Lautstaerke + DLaut
  10.     play frame member(AName)
  11.   else
  12.     set the volume of sound Kanal to _Lautstaerke + DLaut
  13.     puppetSound(Kanal, AName)
  14.   end if
  15. end
  16.