home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / basement.camera.tcl next >
Text File  |  2005-10-29  |  4KB  |  160 lines
  1. proc basement.entranceStairs.enter {} {
  2.     setThreadID 4
  3.     entranceStairs::new lightLantern -repeat -foreground
  4.     setThreadID 0
  5. }
  6.  
  7. proc basement.entranceStairs.leave {} {
  8.     setThreadID 4
  9.     wq'widget::delete& entranceStairs::lightLantern
  10.     setThreadID 0
  11. }
  12.  
  13. proc basement.firstStage.enter {} {
  14.     setThreadID 4
  15.     setThreadID 0
  16. }
  17.  
  18. proc basement.firstStage.leave {} {
  19.     setThreadID 4
  20.     wq'widget::delete& firstStage::owlAIdle
  21.     setThreadID 0
  22. }
  23.  
  24. proc basement.junction.enter {} {
  25.     setThreadID 4
  26.     junction::new lightLantern -repeat -foreground
  27.     setThreadID 0
  28. }
  29.  
  30. proc basement.junction.leave {} {
  31.     setThreadID 4
  32.     wq'widget::delete& junction::lightLantern
  33.     setThreadID 0
  34. }
  35.  
  36. proc basement.junctionEnd.enter {} {
  37.     setThreadID 4
  38.     junctionEnd::new lightChandelier -repeat
  39.     setThreadID 0
  40. }
  41.  
  42. proc basement.junctionEnd.leave {} {
  43.     setThreadID 4
  44.     wq'widget::delete& junctionEnd::lightChandelier
  45.     setThreadID 0
  46. }
  47.  
  48. proc basement.mainStairs.enter {} {
  49.     setThreadID 4
  50.     mainStairs::new lightChandelierA -repeat
  51.     mainStairs::new lightChandelierB -repeat
  52.     if { [getVar "wineCavePuzzle"] != "complete" } {
  53.         mainStairs::new owlAIdle -repeat -foreground
  54.         mainStairs::new owlBIdle -repeat -foreground
  55.         mainStairs::new owlCIdle -repeat -foreground
  56.     }
  57.     setThreadID 0
  58. }
  59.  
  60. proc basement.mainStairs.leave {} {
  61.     setThreadID 4
  62.     wq'widget::delete& mainStairs::lightChandelierA
  63.     wq'widget::delete& mainStairs::lightChandelierB
  64.     wq'widget::delete& mainStairs::owlAIdle
  65.     wq'widget::delete& mainStairs::owlALook
  66.     wq'widget::delete& mainStairs::owlARuffle
  67.     wq'widget::delete& mainStairs::owlBIdle
  68.     wq'widget::delete& mainStairs::owlBLook
  69.     wq'widget::delete& mainStairs::owlBRuffle
  70.     wq'widget::delete& mainStairs::owlCIdle
  71.     wq'widget::delete& mainStairs::owlCLook
  72.     wq'widget::delete& mainStairs::owlCRuffle
  73.     setThreadID 0
  74. }
  75.  
  76. proc basement.stageEnd.enter {} {
  77.     setThreadID 4
  78.     stageEnd::new lightChandelier -repeat
  79.     setThreadID 0
  80. }
  81.  
  82. proc basement.stageEnd.leave {} {
  83.     setThreadID 4
  84.     wq'widget::delete& stageEnd::lightChandelier
  85.     setThreadID 0
  86. }
  87.  
  88. proc basement.stageEndCrates.enter {} {
  89.     setThreadID 4
  90.     stageEnd::new lightChandelier -repeat
  91.     setThreadID 0
  92. }
  93.  
  94. proc basement.stageEndCrates.leave {} {
  95.     setThreadID 4
  96.     wq'widget::delete& stageEnd::lightChandelier
  97.     setThreadID 0
  98. }
  99.  
  100. proc basement.stageEntrance.enter {} {
  101.     setThreadID 4
  102.     stageEntrance::new lightChandelierA -repeat
  103.     setThreadID 0
  104. }
  105.  
  106. proc basement.stageEntrance.leave {} {
  107.     setThreadID 4
  108.     wq'widget::delete& stageEntrance::lightChandelierA
  109.     setThreadID 0
  110. }
  111.  
  112. proc basement.underGroundEnd.enter {} {
  113.     setThreadID 4
  114.     underGroundEnd::new lightChandelier -repeat
  115.     setThreadID 0
  116. }
  117.  
  118. proc basement.underGroundEnd.leave {} {
  119.     setThreadID 4
  120.     wq'widget::delete& underGroundEnd::lightChandelier
  121.     setThreadID 0
  122. }
  123.  
  124. proc basement.underGroundStairs.enter {} {
  125.     setThreadID 4
  126.     underGroundStairs::new lightChandelierA -repeat
  127.     underGroundStairs::new lightChandelierB -repeat
  128.     setThreadID 0
  129. }
  130.  
  131. proc basement.underGroundStairs.leave {} {
  132.     setThreadID 4
  133.     wq'widget::delete& underGroundStairs::lightChandelierA
  134.     wq'widget::delete& underGroundStairs::lightChandelierB
  135.     setThreadID 0
  136. }
  137.  
  138. proc basement.underStair.enter {} {
  139.     setThreadID 4
  140.     underStair::new lightChandelier -repeat -foreground
  141.     setThreadID 0
  142. }
  143.  
  144. proc basement.underStair.leave {} {
  145.     setThreadID 4
  146.     wq'widget::delete& underStair::lightChandelier
  147.     setThreadID 0
  148. }
  149.  
  150. proc basement.wineCavePuzzleCloseUp.enter {} {
  151.     setThreadID 4
  152.     setThreadID 0
  153. }
  154.  
  155. proc basement.wineCavePuzzleCloseUp.leave {} {
  156.     setThreadID 4
  157.     setThreadID 0
  158. }
  159.  
  160.