home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / enchantedHallway.camera.tcl < prev    next >
Text File  |  2005-07-14  |  2KB  |  61 lines
  1. proc enchantedHallway.bookCorner.enter {} {
  2.     setThreadID 4
  3.     bookCorner::new lightCandle -repeat
  4.     bookCorner::new lightLanter -repeat
  5.     setThreadID 0
  6. }
  7.  
  8. proc enchantedHallway.bookCorner.leave {} {
  9.     setThreadID 4
  10.     wq'widget::delete& bookCorner::lightCandle
  11.     wq'widget::delete& bookCorner::lightLanter
  12.     setThreadID 0
  13. }
  14.  
  15. proc enchantedHallway.bookCornerNotesTaken.enter {} {
  16.     setThreadID 4
  17.     bookCorner::new lightCandle -repeat
  18.     bookCorner::new lightLanter -repeat
  19.     setThreadID 0
  20. }
  21.  
  22. proc enchantedHallway.bookCornerNotesTaken.leave {} {
  23.     setThreadID 4
  24.     wq'widget::delete& bookCorner::lightCandle
  25.     wq'widget::delete& bookCorner::lightLanter
  26.     setThreadID 0
  27. }
  28.  
  29. proc enchantedHallway.corridor.enter {} {
  30.     setThreadID 4
  31.     corridor::new lightCandleA1 -repeat -foreground
  32.     corridor::new lightCandleA2 -repeat -foreground
  33.     corridor::new lightCandleB -repeat
  34.     corridor::new lightChandelier -repeat
  35.     corridor::new lightChandelierBack -repeat
  36.     setThreadID 0
  37. }
  38.  
  39. proc enchantedHallway.corridor.leave {} {
  40.     setThreadID 4
  41.     wq'widget::delete& corridor::lightCandleA1
  42.     wq'widget::delete& corridor::lightCandleA2
  43.     wq'widget::delete& corridor::lightCandleB
  44.     wq'widget::delete& corridor::lightChandelier
  45.     wq'widget::delete& corridor::lightChandelierBack
  46.     setThreadID 0
  47. }
  48.  
  49. proc enchantedHallway.stairsLow.enter {} {
  50.     setThreadID 4
  51.     stairsLow::new lightChandelierBack -repeat
  52.     setThreadID 0
  53. }
  54.  
  55. proc enchantedHallway.stairsLow.leave {} {
  56.     setThreadID 4
  57.     wq'widget::delete& stairsLow::lightChandelierBack
  58.     setThreadID 0
  59. }
  60.  
  61.