home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / crescentCoastWaterway.camera.tcl < prev    next >
Text File  |  2005-10-30  |  10KB  |  337 lines
  1. proc crescentCoastWaterway.barrel.enter {} {
  2.     setThreadID 4
  3.     setAudioEnv "city"
  4.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  5.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  6.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  7.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  8.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  9.     }
  10.     barrel::new waterA -repeat
  11.     barrel::new waterB -repeat
  12.     setThreadID 0
  13. }
  14.  
  15. proc crescentCoastWaterway.barrel.leave {} {
  16.     setThreadID 4
  17.     wq'widget::delete& barrel::waterA
  18.     wq'widget::delete& barrel::waterB
  19.     setThreadID 0
  20. }
  21.  
  22. proc crescentCoastWaterway.barrelNoBlock.enter {} {
  23.     setThreadID 4
  24.     setAudioEnv "city"
  25.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  26.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  27.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  28.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  29.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  30.     }
  31.     barrel::new waterA -repeat
  32.     barrel::new waterB -repeat
  33.     setThreadID 0
  34. }
  35.  
  36. proc crescentCoastWaterway.barrelNoBlock.leave {} {
  37.     setThreadID 4
  38.     wq'widget::delete& barrel::waterA
  39.     wq'widget::delete& barrel::waterB
  40.     setThreadID 0
  41. }
  42.  
  43. proc crescentCoastWaterway.ceiling.enter {} {
  44.     setThreadID 4
  45.     setAudioEnv "parkinglot"
  46.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  47.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  48.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r3
  49.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  50.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  51.     }
  52.     ceiling::new wheel -repeat
  53.     setThreadID 0
  54. }
  55.  
  56. proc crescentCoastWaterway.ceiling.leave {} {
  57.     setThreadID 4
  58.     wq'widget::delete& ceiling::wheel
  59.     setThreadID 0
  60. }
  61.  
  62. proc crescentCoastWaterway.doorFrame.enter {} {
  63.     setThreadID 4
  64.     setAudioEnv "city"
  65.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  66.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  67.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  68.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  69.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  70.     }
  71.     doorFrame::new waterA -repeat
  72.     setThreadID 0
  73. }
  74.  
  75. proc crescentCoastWaterway.doorFrame.leave {} {
  76.     setThreadID 4
  77.     wq'widget::delete& doorFrame::waterA
  78.     setThreadID 0
  79. }
  80.  
  81. proc crescentCoastWaterway.forest.enter {} {
  82.     setThreadID 4
  83.     setAudioEnv "city"
  84.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  85.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  86.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  87.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  88.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  89.     }
  90.     forest::new waterA -repeat
  91.     setThreadID 0
  92. }
  93.  
  94. proc crescentCoastWaterway.forest.leave {} {
  95.     setThreadID 4
  96.     wq'widget::delete& forest::waterA
  97.     setThreadID 0
  98. }
  99.  
  100. proc crescentCoastWaterway.gears.enter {} {
  101.     setThreadID 4
  102.     setAudioEnv "city"
  103.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  104.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  105.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  106.     if {[ozGet pzlMillMachineE] == 1} {
  107.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  108.         gears::new gearsA -repeat
  109.         gears::new gearsB -repeat
  110.         gears::new gearsC -repeat
  111.     }
  112.     
  113.     gears::new wheel -repeat
  114.     setThreadID 0
  115. }
  116.  
  117. proc crescentCoastWaterway.gears.leave {} {
  118.     setThreadID 4
  119.     wq'widget::delete& gears::gearsA
  120.     wq'widget::delete& gears::gearsB
  121.     wq'widget::delete& gears::gearsC
  122.     wq'widget::delete& gears::wheel
  123.     setThreadID 0
  124. }
  125.  
  126. proc crescentCoastWaterway.millWheel.enter {} {
  127.     setThreadID 4
  128.     setAudioEnv "city"
  129.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  130.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  131.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  132.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  133.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  134.     }
  135.     millWheel::new wheel -repeat
  136.     setThreadID 0
  137. }
  138.  
  139. proc crescentCoastWaterway.millWheel.leave {} {
  140.     setThreadID 4
  141.     wq'widget::delete& millWheel::wheel
  142.     setThreadID 0
  143. }
  144.  
  145. proc crescentCoastWaterway.millWheelNoBlock.enter {} {
  146.     setThreadID 4
  147.     setAudioEnv "city"
  148.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  149.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  150.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  151.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  152.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  153.     }
  154.     millWheel::new wheel -repeat
  155.     setThreadID 0
  156. }
  157.  
  158. proc crescentCoastWaterway.millWheelNoBlock.leave {} {
  159.     setThreadID 4
  160.     wq'widget::delete& millWheel::wheel
  161.     setThreadID 0
  162. }
  163.  
  164. proc crescentCoastWaterway.puzzleMillWeightCloseUp.enter {} {
  165.     setThreadID 4
  166.     setThreadID 0
  167. }
  168.  
  169. proc crescentCoastWaterway.puzzleMillWeightCloseUp.leave {} {
  170.     setThreadID 4
  171.     setThreadID 0
  172. }
  173.  
  174. proc crescentCoastWaterway.river.enter {} {
  175.     setThreadID 4
  176.     setAudioEnv "city"
  177.     SetAmbient 2d ambiance/waterway "0 0 0" 0 0
  178.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 1
  179.     SetAmbient 2d ambiance/forest "0 0 0" 0 1
  180.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  181.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 1 0.6
  182.     }
  183.     if {[ozGet pzlMillMachineE] == 1} {
  184.         river::new gearsA -repeat
  185.         river::new gearsB -repeat
  186.         river::new gearsC -repeat
  187.         river::new gearsD -repeat
  188.     }
  189.     setThreadID 0
  190. }
  191.  
  192. proc crescentCoastWaterway.river.leave {} {
  193.     setThreadID 4
  194.     wq'widget::delete& river::gearsA
  195.     wq'widget::delete& river::gearsB
  196.     wq'widget::delete& river::gearsC
  197.     wq'widget::delete& river::gearsD
  198.     setThreadID 0
  199. }
  200.  
  201. proc crescentCoastWaterway.stairs.enter {} {
  202.     setThreadID 4
  203.     setAudioEnv "parkinglot"
  204.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  205.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  206.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  207.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  208.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  209.     }
  210.     stairs::new waterA -repeat
  211.     setThreadID 0
  212. }
  213.  
  214. proc crescentCoastWaterway.stairs.leave {} {
  215.     setThreadID 4
  216.     wq'widget::delete& stairs::waterA
  217.     setThreadID 0
  218. }
  219.  
  220. proc crescentCoastWaterway.redTakenStairs.enter {} {
  221.     setThreadID 4
  222.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  223.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  224.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  225.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  226.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  227.     }
  228.     stairs::new waterA -repeat
  229.     setThreadID 0
  230. }
  231.  
  232. proc crescentCoastWaterway.redTakenStairs.leave {} {
  233.     setThreadID 4
  234.     wq'widget::delete& stairs::waterA
  235.     setThreadID 0
  236. }
  237.  
  238. proc crescentCoastWaterway.blueTakenStairs.enter {} {
  239.     setThreadID 4
  240.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  241.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  242.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  243.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  244.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  245.     }
  246.     stairs::new waterA -repeat
  247.     setThreadID 0
  248. }
  249.  
  250. proc crescentCoastWaterway.blueTakenStairs.leave {} {
  251.     setThreadID 4
  252.     wq'widget::delete& stairs::waterA
  253.     setThreadID 0
  254. }
  255.  
  256. proc crescentCoastWaterway.yellowTakenStairs.enter {} {
  257.     setThreadID 4
  258.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  259.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  260.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  261.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  262.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  263.     }
  264.     stairs::new waterA -repeat
  265.     setThreadID 0
  266. }
  267.  
  268. proc crescentCoastWaterway.yellowTakenStairs.leave {} {
  269.     setThreadID 4
  270.     wq'widget::delete& stairs::waterA
  271.     setThreadID 0
  272. }
  273.  
  274. proc crescentCoastWaterway.whiteTakenStairs.enter {} {
  275.     setThreadID 4
  276.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  277.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  278.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r2
  279.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  280.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  281.     }
  282.     stairs::new waterA -repeat
  283.     setThreadID 0
  284. }
  285.  
  286. proc crescentCoastWaterway.whiteTakenStairs.leave {} {
  287.     setThreadID 4
  288.     wq'widget::delete& stairs::waterA
  289.     setThreadID 0
  290. }
  291.  
  292. proc crescentCoastWaterway.underRiver.enter {} {
  293.     setThreadID 4
  294.     setAudioEnv "parkinglot"
  295.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  296.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  297.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r4
  298.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  299.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  300.     }
  301.     underRiver::new waterA -repeat
  302.     underRiver::new wheelB -repeat
  303.     setThreadID 0
  304. }
  305.  
  306. proc crescentCoastWaterway.underRiver.leave {} {
  307.     setThreadID 4
  308.     wq'widget::delete& underRiver::waterA
  309.     wq'widget::delete& underRiver::wheelB
  310.     setThreadID 0
  311. }
  312.  
  313. proc crescentCoastWaterway.dock.enter {} {
  314.     setThreadID 4
  315.     setAudioEnv "parkinglot"
  316.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  317.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  318.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r5
  319.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  320.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  321.     }
  322.     setThreadID 0
  323. }
  324.  
  325. proc crescentCoastWaterway.wallCrack.enter {} {
  326.     setThreadID 4
  327.     setAudioEnv "parkinglot"
  328.     SetAmbient 2d ambiance/waterway "0 0 0" 0 1
  329.     SetAmbient 2d ambiance/elvandarRiver "0 0 0" 0 0
  330.     SetAmbient 2d ambiance/forest "0 0 0" 0 $::config::soundfx::r6
  331.     if {[ozGet "puzzleMillWheel"] == "complete"} {
  332.         SetAmbient 3d sfx/millGearWorking "610 -19 454" 30 0.5 0.6
  333.     }
  334.     setThreadID 0
  335. }
  336.  
  337.