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 >
Wrap
Text File
|
2005-07-14
|
2KB
|
61 lines
proc enchantedHallway.bookCorner.enter {} {
setThreadID 4
bookCorner::new lightCandle -repeat
bookCorner::new lightLanter -repeat
setThreadID 0
}
proc enchantedHallway.bookCorner.leave {} {
setThreadID 4
wq'widget::delete& bookCorner::lightCandle
wq'widget::delete& bookCorner::lightLanter
setThreadID 0
}
proc enchantedHallway.bookCornerNotesTaken.enter {} {
setThreadID 4
bookCorner::new lightCandle -repeat
bookCorner::new lightLanter -repeat
setThreadID 0
}
proc enchantedHallway.bookCornerNotesTaken.leave {} {
setThreadID 4
wq'widget::delete& bookCorner::lightCandle
wq'widget::delete& bookCorner::lightLanter
setThreadID 0
}
proc enchantedHallway.corridor.enter {} {
setThreadID 4
corridor::new lightCandleA1 -repeat -foreground
corridor::new lightCandleA2 -repeat -foreground
corridor::new lightCandleB -repeat
corridor::new lightChandelier -repeat
corridor::new lightChandelierBack -repeat
setThreadID 0
}
proc enchantedHallway.corridor.leave {} {
setThreadID 4
wq'widget::delete& corridor::lightCandleA1
wq'widget::delete& corridor::lightCandleA2
wq'widget::delete& corridor::lightCandleB
wq'widget::delete& corridor::lightChandelier
wq'widget::delete& corridor::lightChandelierBack
setThreadID 0
}
proc enchantedHallway.stairsLow.enter {} {
setThreadID 4
stairsLow::new lightChandelierBack -repeat
setThreadID 0
}
proc enchantedHallway.stairsLow.leave {} {
setThreadID 4
wq'widget::delete& stairsLow::lightChandelierBack
setThreadID 0
}