home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / mill.camera.tcl < prev    next >
Text File  |  2005-09-01  |  6KB  |  278 lines
  1. proc mill.barrels.enter {} {
  2.     setThreadID 4
  3.     set ma [expr {[ozGet pzlMillMachineA] == 1}]
  4.     if $ma {
  5.         barrels::new machineA1 -repeat
  6.         barrels::new machineA2 -repeat
  7.         barrels::new machineA3 -repeat
  8.     }
  9.     barrels::new lightChandelierBack -repeat
  10.     setThreadID 0
  11. }
  12.  
  13. proc mill.barrels.leave {} {
  14.     setThreadID 4
  15.     set ma [expr {[ozGet pzlMillMachineA] == 1}]
  16.     if $ma {
  17.         wq'widget::delete& barrels::machineA1
  18.         wq'widget::delete& barrels::machineA2
  19.         wq'widget::delete& barrels::machineA3
  20.     }
  21.     wq'widget::delete& barrels::lightChandelierBack
  22.     setThreadID 0
  23. }
  24.  
  25. proc mill.machineStart.enter {} {
  26.     setThreadID 4
  27.     set me [expr {[ozGet pzlMillMachineE] == 1}]
  28.     
  29.     if $me {
  30.         machineStart::new machineE1 -repeat
  31.         machineStart::new machineE2 -repeat
  32.     }
  33.     setThreadID 0
  34. }
  35.  
  36. proc mill.machineStart.leave {} {
  37.     setThreadID 4
  38.     set me [expr {[ozGet pzlMillMachineE] == 1}]
  39.     
  40.     if $me {
  41.         wq'widget::delete& machineStart::machineE1
  42.         wq'widget::delete& machineStart::machineE2
  43.     }
  44.     setThreadID 0
  45. }
  46.  
  47. proc mill.millEntrance.enter {} {
  48.     setThreadID 4
  49.     set mb [expr {[ozGet pzlMillMachineB] == 1}]
  50.     
  51.     if $mb {
  52.         millEntrance::new machineB -repeat
  53.     }
  54.     setThreadID 0
  55. }
  56.  
  57. proc mill.millEntrance.leave {} {
  58.     setThreadID 4
  59.     set mb [expr {[ozGet pzlMillMachineB] == 1}]
  60.     
  61.     if $mb {
  62.         wq'widget::delete& millEntrance::machineB
  63.     }
  64.     setThreadID 0
  65. }
  66.  
  67. proc mill.millFlourSac.enter {} {
  68.     setThreadID 4
  69.     set ma [expr {[ozGet pzlMillMachineA] == 1}]
  70.     set md [expr {[ozGet pzlMillMachineD] == 1}]
  71.     
  72.     if $ma {
  73.         millFlourSac::new machineA1 -repeat
  74.         millFlourSac::new machineA2 -repeat
  75.         millFlourSac::new machineA3 -repeat
  76.     }
  77.     if $md {
  78.         millFlourSac::new machineD  -repeat
  79.     }
  80.     setThreadID 0
  81. }
  82.  
  83. proc mill.millFlourSac.leave {} {
  84.     setThreadID 4
  85.     set ma [expr {[ozGet pzlMillMachineA] == 1}]
  86.     set md [expr {[ozGet pzlMillMachineD] == 1}]
  87.     
  88.     if $ma {
  89.         wq'widget::delete& millFlourSac::machineA1
  90.         wq'widget::delete& millFlourSac::machineA2
  91.         wq'widget::delete& millFlourSac::machineA3
  92.     }
  93.     if $md {
  94.         wq'widget::delete& millFlourSac::machineD
  95.     }
  96.     setThreadID 0
  97. }
  98.  
  99. proc mill.millStairs.enter {} {
  100.     setThreadID 4
  101.     millStairs::new lightChandelier -repeat
  102.     set md [expr {[ozGet pzlMillMachineD] == 1}]
  103.    
  104.     if $md {
  105.         millStairs::new machineD -repeat
  106.     }
  107.     
  108.     setThreadID 0
  109. }
  110.  
  111. proc mill.millStairs.leave {} {
  112.     setThreadID 4
  113.     wq'widget::delete& millStairs::lightChandelier
  114.     set md [expr {[ozGet pzlMillMachineD] == 1}]
  115.     
  116.     if $md {
  117.         wq'widget::delete& millStairs::machineD
  118.     }
  119.     setThreadID 0
  120. }
  121.  
  122. proc mill.puzzleCloseUpA.enter {} {
  123.     setThreadID 4
  124.     setThreadID 0
  125. }
  126.  
  127. proc mill.puzzleCloseUpA.leave {} {
  128.     setThreadID 4
  129.     setThreadID 0
  130. }
  131.  
  132. proc mill.puzzleCloseUpB.enter {} {
  133.     setThreadID 4
  134.     setThreadID 0
  135. }
  136.  
  137. proc mill.puzzleCloseUpB.leave {} {
  138.     setThreadID 4
  139.     setThreadID 0
  140. }
  141.  
  142. proc mill.puzzleCloseUpC.enter {} {
  143.     setThreadID 4
  144.     setThreadID 0
  145. }
  146.  
  147. proc mill.puzzleCloseUpC.leave {} {
  148.     setThreadID 4
  149.     setThreadID 0
  150. }
  151.  
  152. proc mill.puzzleCloseUpD.enter {} {
  153.     setThreadID 4
  154.     setThreadID 0
  155. }
  156.  
  157. proc mill.puzzleCloseUpD.leave {} {
  158.     setThreadID 4
  159.     setThreadID 0
  160. }
  161.  
  162. proc mill.puzzleCloseUpE.enter {} {
  163.     setThreadID 4
  164.     setThreadID 0
  165. }
  166.  
  167. proc mill.puzzleCloseUpE.leave {} {
  168.     setThreadID 4
  169.     setThreadID 0
  170. }
  171.  
  172. proc mill.puzzleCloseUpF.enter {} {
  173.     setThreadID 4
  174.     setThreadID 0
  175. }
  176.  
  177. proc mill.puzzleCloseUpF.leave {} {
  178.     setThreadID 4
  179.     setThreadID 0
  180. }
  181.  
  182. proc mill.puzzleCloseUpG.enter {} {
  183.     setThreadID 4
  184.     setThreadID 0
  185. }
  186.  
  187. proc mill.puzzleCloseUpG.leave {} {
  188.     setThreadID 4
  189.     setThreadID 0
  190. }
  191.  
  192. proc mill.puzzleCloseUpH.enter {} {
  193.     setThreadID 4
  194.     setThreadID 0
  195. }
  196.  
  197. proc mill.puzzleCloseUpH.leave {} {
  198.     setThreadID 4
  199.     setThreadID 0
  200. }
  201.  
  202. proc mill.secondFloor.enter {} {
  203.     setThreadID 4
  204.     secondFloor::new lightChandelier -repeat -foreground
  205.     
  206.     set mb [expr {[ozGet pzlMillMachineB] == 1}]
  207.     set mc [expr {[ozGet pzlMillMachineC] == 1}]
  208.     set me [expr {[ozGet pzlMillMachineE] == 1}]
  209.     
  210.     if $mb {
  211.         secondFloor::new machineB -repeat
  212.     }
  213.     if $mc {
  214.         secondFloor::new machineC -repeat
  215.     }
  216.     if $me {
  217.         secondFloor::new machineE -repeat
  218.     }
  219.  
  220.     setThreadID 0
  221. }
  222.  
  223. proc mill.secondFloor.leave {} {
  224.     setThreadID 4
  225.     wq'widget::delete& secondFloor::lightChandelier
  226.     set mb [expr {[ozGet pzlMillMachineB] == 1}]
  227.     set mc [expr {[ozGet pzlMillMachineC] == 1}]
  228.     set me [expr {[ozGet pzlMillMachineE] == 1}]
  229.     
  230.     if $mb {
  231.         wq'widget::delete& secondFloor::machineB
  232.     }
  233.     if $mc {
  234.         wq'widget::delete& secondFloor::machineC
  235.     }
  236.     if $me {
  237.         wq'widget::delete& secondFloor::machineE
  238.     }
  239.     setThreadID 0
  240. }
  241.  
  242. proc mill.waterway.enter {} {
  243.     setThreadID 4
  244.     waterway::new lightChandelierBack -repeat
  245.     setThreadID 0
  246. }
  247.  
  248. proc mill.waterway.leave {} {
  249.     setThreadID 4
  250.     wq'widget::delete& waterway::lightChandelierBack
  251.     setThreadID 0
  252. }
  253.  
  254. proc mill.wheelBarrow.enter {} {
  255.     setThreadID 4
  256.     wheelBarrow::new lightChandelierBack -repeat
  257.     set ma [expr {[ozGet pzlMillMachineA] == 1}]
  258.     if $ma {
  259.         wheelBarrow::new machineA1 -repeat
  260.         wheelBarrow::new machineA2 -repeat
  261.         wheelBarrow::new machineA3 -repeat
  262.     }
  263.     setThreadID 0
  264. }
  265.  
  266. proc mill.wheelBarrow.leave {} {
  267.     setThreadID 4
  268.     wq'widget::delete& wheelBarrow::lightChandelierBack
  269.     set ma [expr {[ozGet pzlMillMachineA] == 1}]
  270.     if $ma {
  271.         wq'widget::delete& wheelBarrow::machineA1
  272.         wq'widget::delete& wheelBarrow::machineA2
  273.         wq'widget::delete& wheelBarrow::machineA3
  274.     }
  275.     setThreadID 0
  276. }
  277.  
  278.