home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / mill.camera.tcl < prev    next >
Text File  |  2005-10-22  |  3KB  |  171 lines
  1. proc mill.barrels.enter {} {
  2.     setThreadID 4
  3.     barrels::new lightChandelierBack -repeat
  4.     setThreadID 0
  5. }
  6.  
  7. proc mill.barrels.leave {} {
  8.     setThreadID 4
  9.     wq'widget::delete& barrels::lightChandelierBack
  10.     setThreadID 0
  11. }
  12.  
  13. proc mill.machineStart.enter {} {
  14.     setThreadID 4
  15.     setThreadID 0
  16. }
  17.  
  18. proc mill.machineStart.leave {} {
  19.     setThreadID 4
  20.     setThreadID 0
  21. }
  22.  
  23. proc mill.millEntrance.enter {} {
  24.     setThreadID 4
  25.     setThreadID 0
  26. }
  27.  
  28. proc mill.millEntrance.leave {} {
  29.     setThreadID 4
  30.     setThreadID 0
  31. }
  32.  
  33. proc mill.millFlourSac.enter {} {
  34.     setThreadID 4
  35.     setThreadID 0
  36. }
  37.  
  38. proc mill.millFlourSac.leave {} {
  39.     setThreadID 4
  40.     setThreadID 0
  41. }
  42.  
  43. proc mill.millStairs.enter {} {
  44.     setThreadID 4
  45.     millStairs::new lightChandelier -repeat
  46.     setThreadID 0
  47. }
  48.  
  49. proc mill.millStairs.leave {} {
  50.     setThreadID 4
  51.     wq'widget::delete& millStairs::lightChandelier
  52.     setThreadID 0
  53. }
  54.  
  55. proc mill.puzzleCloseUpA.enter {} {
  56.     setThreadID 4
  57.     setThreadID 0
  58. }
  59.  
  60. proc mill.puzzleCloseUpA.leave {} {
  61.     setThreadID 4
  62.     setThreadID 0
  63. }
  64.  
  65. proc mill.puzzleCloseUpB.enter {} {
  66.     setThreadID 4
  67.     setThreadID 0
  68. }
  69.  
  70. proc mill.puzzleCloseUpB.leave {} {
  71.     setThreadID 4
  72.     setThreadID 0
  73. }
  74.  
  75. proc mill.puzzleCloseUpC.enter {} {
  76.     setThreadID 4
  77.     setThreadID 0
  78. }
  79.  
  80. proc mill.puzzleCloseUpC.leave {} {
  81.     setThreadID 4
  82.     setThreadID 0
  83. }
  84.  
  85. proc mill.puzzleCloseUpD.enter {} {
  86.     setThreadID 4
  87.     setThreadID 0
  88. }
  89.  
  90. proc mill.puzzleCloseUpD.leave {} {
  91.     setThreadID 4
  92.     setThreadID 0
  93. }
  94.  
  95. proc mill.puzzleCloseUpE.enter {} {
  96.     setThreadID 4
  97.     setThreadID 0
  98. }
  99.  
  100. proc mill.puzzleCloseUpE.leave {} {
  101.     setThreadID 4
  102.     setThreadID 0
  103. }
  104.  
  105. proc mill.puzzleCloseUpF.enter {} {
  106.     setThreadID 4
  107.     setThreadID 0
  108. }
  109.  
  110. proc mill.puzzleCloseUpF.leave {} {
  111.     setThreadID 4
  112.     setThreadID 0
  113. }
  114.  
  115. proc mill.puzzleCloseUpG.enter {} {
  116.     setThreadID 4
  117.     setThreadID 0
  118. }
  119.  
  120. proc mill.puzzleCloseUpG.leave {} {
  121.     setThreadID 4
  122.     setThreadID 0
  123. }
  124.  
  125. proc mill.puzzleCloseUpH.enter {} {
  126.     setThreadID 4
  127.     setThreadID 0
  128. }
  129.  
  130. proc mill.puzzleCloseUpH.leave {} {
  131.     setThreadID 4
  132.     setThreadID 0
  133. }
  134.  
  135. proc mill.secondFloor.enter {} {
  136.     setThreadID 4
  137.     secondFloor::new lightChandelier -repeat -foreground
  138.     setThreadID 0
  139. }
  140.  
  141. proc mill.secondFloor.leave {} {
  142.     setThreadID 4
  143.     wq'widget::delete& secondFloor::lightChandelier
  144.     setThreadID 0
  145. }
  146.  
  147. proc mill.waterway.enter {} {
  148.     setThreadID 4
  149.     waterway::new lightChandelierBack -repeat
  150.     setThreadID 0
  151. }
  152.  
  153. proc mill.waterway.leave {} {
  154.     setThreadID 4
  155.     wq'widget::delete& waterway::lightChandelierBack
  156.     setThreadID 0
  157. }
  158.  
  159. proc mill.wheelBarrow.enter {} {
  160.     setThreadID 4
  161.     wheelBarrow::new lightChandelierBack -repeat
  162.     setThreadID 0
  163. }
  164.  
  165. proc mill.wheelBarrow.leave {} {
  166.     setThreadID 4
  167.     wq'widget::delete& wheelBarrow::lightChandelierBack
  168.     setThreadID 0
  169. }
  170.  
  171.