home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / dragonvaleHallway.camera.tcl < prev    next >
Text File  |  2005-10-22  |  1KB  |  43 lines
  1. proc dragonvaleHallway.topPasserelleLeft.enter {} {
  2.     setThreadID 4
  3.     topPasserelleLeft::new lightChandelier1A -repeat
  4.     topPasserelleLeft::new lightChandelier1C -repeat
  5.     topPasserelleLeft::new lightChandelier2A -repeat
  6.     setThreadID 0
  7. }
  8.  
  9. proc dragonvaleHallway.topPasserelleLeft.leave {} {
  10.     setThreadID 4
  11.     wq'widget::delete& topPasserelleLeft::lightChandelier1A
  12.     wq'widget::delete& topPasserelleLeft::lightChandelier1C
  13.     wq'widget::delete& topPasserelleLeft::lightChandelier2A
  14.     setThreadID 0
  15. }
  16.  
  17. proc dragonvaleHallway.topPasserelleRight.enter {} {
  18.     setThreadID 4
  19.     topPasserelleRight::new lightWallA -repeat
  20.     setThreadID 0
  21. }
  22.  
  23. proc dragonvaleHallway.topPasserelleRight.leave {} {
  24.     setThreadID 4
  25.     wq'widget::delete& topPasserelleRight::lightWallA
  26.     setThreadID 0
  27. }
  28.  
  29. proc dragonvaleHallway.trialDoorShatter.enter {} {
  30.     setThreadID 4
  31.     trialDoorShatter::new lightWallA -repeat
  32.     trialDoorShatter::new lightWallB -repeat
  33.     setThreadID 0
  34. }
  35.  
  36. proc dragonvaleHallway.trialDoorShatter.leave {} {
  37.     setThreadID 4
  38.     wq'widget::delete& trialDoorShatter::lightWallA
  39.     wq'widget::delete& trialDoorShatter::lightWallB
  40.     setThreadID 0
  41. }
  42.  
  43.