home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / crescentCoastWaterway.camera.tcl < prev    next >
Text File  |  2005-10-22  |  3KB  |  135 lines
  1. proc crescentCoastWaterway.barrel.enter {} {
  2.     setThreadID 4
  3.     barrel::new waterA -repeat
  4.     barrel::new waterB -repeat
  5.     setThreadID 0
  6. }
  7.  
  8. proc crescentCoastWaterway.barrel.leave {} {
  9.     setThreadID 4
  10.     wq'widget::delete& barrel::waterA
  11.     wq'widget::delete& barrel::waterB
  12.     setThreadID 0
  13. }
  14.  
  15. proc crescentCoastWaterway.ceiling.enter {} {
  16.     setThreadID 4
  17.     ceiling::new wheel -repeat
  18.     setThreadID 0
  19. }
  20.  
  21. proc crescentCoastWaterway.ceiling.leave {} {
  22.     setThreadID 4
  23.     wq'widget::delete& ceiling::wheel
  24.     setThreadID 0
  25. }
  26.  
  27. proc crescentCoastWaterway.doorFrame.enter {} {
  28.     setThreadID 4
  29.     doorFrame::new waterA -repeat
  30.     setThreadID 0
  31. }
  32.  
  33. proc crescentCoastWaterway.doorFrame.leave {} {
  34.     setThreadID 4
  35.     wq'widget::delete& doorFrame::waterA
  36.     setThreadID 0
  37. }
  38.  
  39. proc crescentCoastWaterway.forest.enter {} {
  40.     setThreadID 4
  41.     forest::new waterA -repeat
  42.     setThreadID 0
  43. }
  44.  
  45. proc crescentCoastWaterway.forest.leave {} {
  46.     setThreadID 4
  47.     wq'widget::delete& forest::waterA
  48.     setThreadID 0
  49. }
  50.  
  51. proc crescentCoastWaterway.gears.enter {} {
  52.     setThreadID 4
  53.     gears::new gearsA -repeat
  54.     gears::new gearsB -repeat
  55.     gears::new gearsC -repeat
  56.     gears::new wheel -repeat
  57.     setThreadID 0
  58. }
  59.  
  60. proc crescentCoastWaterway.gears.leave {} {
  61.     setThreadID 4
  62.     wq'widget::delete& gears::gearsA
  63.     wq'widget::delete& gears::gearsB
  64.     wq'widget::delete& gears::gearsC
  65.     wq'widget::delete& gears::wheel
  66.     setThreadID 0
  67. }
  68.  
  69. proc crescentCoastWaterway.millWheel.enter {} {
  70.     setThreadID 4
  71.     millWheel::new wheel -repeat
  72.     setThreadID 0
  73. }
  74.  
  75. proc crescentCoastWaterway.millWheel.leave {} {
  76.     setThreadID 4
  77.     wq'widget::delete& millWheel::wheel
  78.     setThreadID 0
  79. }
  80.  
  81. proc crescentCoastWaterway.puzzleMillWeightCloseUp.enter {} {
  82.     setThreadID 4
  83.     setThreadID 0
  84. }
  85.  
  86. proc crescentCoastWaterway.puzzleMillWeightCloseUp.leave {} {
  87.     setThreadID 4
  88.     setThreadID 0
  89. }
  90.  
  91. proc crescentCoastWaterway.river.enter {} {
  92.     setThreadID 4
  93.     river::new gearsA -repeat
  94.     river::new gearsB -repeat
  95.     river::new gearsC -repeat
  96.     river::new gearsD -repeat
  97.     setThreadID 0
  98. }
  99.  
  100. proc crescentCoastWaterway.river.leave {} {
  101.     setThreadID 4
  102.     wq'widget::delete& river::gearsA
  103.     wq'widget::delete& river::gearsB
  104.     wq'widget::delete& river::gearsC
  105.     wq'widget::delete& river::gearsD
  106.     setThreadID 0
  107. }
  108.  
  109. proc crescentCoastWaterway.stairs.enter {} {
  110.     setThreadID 4
  111.     stairs::new waterA -repeat
  112.     setThreadID 0
  113. }
  114.  
  115. proc crescentCoastWaterway.stairs.leave {} {
  116.     setThreadID 4
  117.     wq'widget::delete& stairs::waterA
  118.     setThreadID 0
  119. }
  120.  
  121. proc crescentCoastWaterway.underRiver.enter {} {
  122.     setThreadID 4
  123.     underRiver::new waterA -repeat
  124.     underRiver::new wheelB -repeat
  125.     setThreadID 0
  126. }
  127.  
  128. proc crescentCoastWaterway.underRiver.leave {} {
  129.     setThreadID 4
  130.     wq'widget::delete& underRiver::waterA
  131.     wq'widget::delete& underRiver::wheelB
  132.     setThreadID 0
  133. }
  134.  
  135.