home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / gardenWatch.camera.tcl < prev    next >
Text File  |  2005-09-06  |  2KB  |  61 lines
  1. proc gardenWatch.alley.enter {} {
  2.     setThreadID 4
  3.     SetAmbient 3d sfx/fallsFar "130 144 870" 10000 [expr 0.5 * $::config::soundfx::r2]
  4.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  5.     alley::new waterFallA -repeat
  6.     alley::new waterFallB -repeat
  7.     setThreadID 0
  8. }
  9.  
  10. proc gardenWatch.alley.leave {} {
  11.     setThreadID 4
  12.     wq'widget::delete& alley::waterFallA
  13.     wq'widget::delete& alley::waterFallB
  14.     setThreadID 0
  15. }
  16.  
  17. proc gardenWatch.gardenWatchEntrance.enter {} {
  18.     setThreadID 4
  19.     SetAmbient 3d sfx/fallsFar "130 144 870" 10000 [expr 0.5 * $::config::soundfx::r3]
  20.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r3
  21.     gardenWatchEntrance::new waterfall -repeat
  22.     setThreadID 0
  23. }
  24.  
  25. proc gardenWatch.gardenWatchEntrance.leave {} {
  26.     setThreadID 4
  27.     wq'widget::delete& gardenWatchEntrance::waterfall
  28.     setThreadID 0
  29. }
  30.  
  31. proc gardenWatch.minotaurMaze.enter {} {
  32.     setThreadID 4
  33.     SetAmbient 3d sfx/fallsFar "130 144 870" 10000 [expr 0.5 * $::config::soundfx::r2]
  34.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  35.     setThreadID 0
  36. }
  37.  
  38. proc gardenWatch.minotaurMaze.leave {} {
  39.     setThreadID 4
  40.     setThreadID 0
  41. }
  42.  
  43. proc gardenWatch.outsideGardenWatch.enter {} {
  44.     setThreadID 4
  45.     SetAmbient 3d sfx/fallsFar "130 144 870" 10000 0.5
  46.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  47.     outsideGardenWatch::new fishesA -repeat
  48.     outsideGardenWatch::new fishesB -repeat
  49.     outsideGardenWatch::new fishesC -repeat
  50.     setThreadID 0
  51. }
  52.  
  53. proc gardenWatch.outsideGardenWatch.leave {} {
  54.     setThreadID 4
  55.     wq'widget::delete& outsideGardenWatch::fishesA
  56.     wq'widget::delete& outsideGardenWatch::fishesB
  57.     wq'widget::delete& outsideGardenWatch::fishesC
  58.     setThreadID 0
  59. }
  60.  
  61.