home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / enchantedHallway.camera.tcl < prev    next >
Text File  |  2005-10-22  |  1KB  |  47 lines
  1. proc enchantedHallway.bookCorner.enter {} {
  2.     setThreadID 4
  3.     bookCorner::new lightCandle -repeat -foreground
  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.corridor.enter {} {
  16.     setThreadID 4
  17.     corridor::new lightCandleA1 -repeat -foreground
  18.     corridor::new lightCandleA2 -repeat -foreground
  19.     corridor::new lightCandleB -repeat
  20.     corridor::new lightChandelier -repeat
  21.     corridor::new lightChandelierBack -repeat
  22.     setThreadID 0
  23. }
  24.  
  25. proc enchantedHallway.corridor.leave {} {
  26.     setThreadID 4
  27.     wq'widget::delete& corridor::lightCandleA1
  28.     wq'widget::delete& corridor::lightCandleA2
  29.     wq'widget::delete& corridor::lightCandleB
  30.     wq'widget::delete& corridor::lightChandelier
  31.     wq'widget::delete& corridor::lightChandelierBack
  32.     setThreadID 0
  33. }
  34.  
  35. proc enchantedHallway.stairsLow.enter {} {
  36.     setThreadID 4
  37.     stairsLow::new lightChandelierBack -repeat
  38.     setThreadID 0
  39. }
  40.  
  41. proc enchantedHallway.stairsLow.leave {} {
  42.     setThreadID 4
  43.     wq'widget::delete& stairsLow::lightChandelierBack
  44.     setThreadID 0
  45. }
  46.  
  47.