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