home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / dragonvaleHallway.camera.tcl < prev    next >
Text File  |  2005-10-31  |  3KB  |  90 lines
  1. proc dragonvaleHallway.topPasserelleLeft.enter {} {
  2.     setThreadID 4
  3.     setAudioEnv "room"
  4.     SetAmbient 2d ambiance/windyForest "0 0 0" 0 0
  5.     topPasserelleLeft::new lightChandelier1A -repeat
  6.     topPasserelleLeft::new lightChandelier1C -repeat
  7.     topPasserelleLeft::new lightChandelier2A -repeat
  8.     setThreadID 0
  9. }
  10.  
  11. proc dragonvaleHallway.topPasserelleLeft.leave {} {
  12.     setThreadID 4
  13.     wq'widget::delete& topPasserelleLeft::lightChandelier1A
  14.     wq'widget::delete& topPasserelleLeft::lightChandelier1C
  15.     wq'widget::delete& topPasserelleLeft::lightChandelier2A
  16.     setThreadID 0
  17. }
  18.  
  19. proc dragonvaleHallway.topPasserelleRight.enter {} {
  20.     setThreadID 4
  21.     setAudioEnv "room"
  22.     SetAmbient 2d ambiance/windyForest "0 0 0" 0 $::config::soundfx::r6
  23.     topPasserelleRight::new lightWallA -repeat
  24.     setThreadID 0
  25. }
  26.  
  27. proc dragonvaleHallway.topPasserelleRight.leave {} {
  28.     setThreadID 4
  29.     wq'widget::delete& topPasserelleRight::lightWallA
  30.     setThreadID 0
  31. }
  32.  
  33. proc dragonvaleHallway.trialDoorShatter.enter {} {
  34.     setThreadID 4
  35.     setThreadID 0
  36. }
  37.  
  38. proc dragonvaleHallway.trialDoorShatter.leave {} {
  39.     setThreadID 4
  40.     setThreadID 0
  41. }
  42.  
  43. proc dragonvaleHallway.mainbridge.enter {} {
  44.     setThreadID 4
  45.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r4
  46.     setThreadID 0
  47. }
  48.  
  49. proc dragonvaleHallway.fromGHEntrance.enter {} {
  50.     setThreadID 4
  51.     SetAmbient 2d ambiance/tubularBells "0 0 0" 0 $::config::soundfx::r5
  52.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r6
  53.     setThreadID 0
  54. }
  55.  
  56. proc dragonvaleHallway.mainStairs.enter {} {
  57.     setThreadID 4
  58.     SetAmbient 2d ambiance/tubularBells "0 0 0" 0 $::config::soundfx::r4
  59.     SetAmbient 2d ambiance/forest "0 0 0" 0 0
  60.     setThreadID 0
  61. }
  62.  
  63. proc dragonvaleHallway.towardCorridor.enter {} {
  64.     setThreadID 4
  65.     SetAmbient 2d ambiance/tubularBells "0 0 0" 0 $::config::soundfx::r2
  66.     setThreadID 0
  67. }
  68.  
  69. proc dragonvaleHallway.towardCorridorTrial.enter {} {
  70.     setThreadID 4
  71.     oz'track::play $::music_track "/sound/music/trialSong.ogg" -repeat 0 -noplay
  72.     SetAmbient 2d ambiance/tubularBells "0 0 0" 0 $::config::soundfx::r2
  73.     setThreadID 0
  74. }
  75.  
  76. proc dragonvaleHallway.trialDoorShatter.enter {} {
  77.     setThreadID 4
  78.     trialDoorShatter::new lightWallA -repeat
  79.     trialDoorShatter::new lightWallB -repeat
  80.     setThreadID 0
  81. }
  82.  
  83. proc dragonvaleHallway.trialDoorShatter.leave {} {
  84.     setThreadID 4
  85.     wq'widget::delete& trialDoorShatter::lightWallA
  86.     wq'widget::delete& trialDoorShatter::lightWallB
  87.     setThreadID 0
  88. }
  89.  
  90.