home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / style.dir / 00007_Script_7 < prev    next >
Text File  |  1997-08-08  |  728b  |  44 lines
  1. -- sound 
  2. global gSoundtime
  3. global gNextSound
  4. global gLastSound
  5.  
  6.  
  7. on hinitSound
  8.   set the idleLoadMode to 2
  9.   
  10.    
  11.   set gSoundtime = random(60 * 4) + (60 * 2)  + the timer
  12.   
  13.   set gLastSound = random(8) + 111
  14.   set gNextSound = random(8) + 111
  15.   
  16.   set gSoundtime = random(60 * 4) + (60 * 2)  + the timer
  17.   preload gNextSound
  18.   
  19. end
  20.  
  21.  
  22. on hUpdateSound
  23.   
  24.   --if the timer > gSoundtime then
  25.   if soundbusy (1) then return
  26.   
  27.   sound Stop 1
  28.   puppetsound 1,gNextSound
  29.   
  30.   set gLastSound = gNextSound
  31.   
  32.   set gNextSound = random(39) + 111
  33.   
  34.   preloadmember  gNextSound
  35.   
  36.   Unloadmember 111,150
  37.   
  38.   set gSoundtime = random(60 * 4) + (60 * 2)  + the timer
  39.   
  40.   -- end if
  41.   
  42.   
  43.   
  44. end