home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar 2006 April
/
Gamestar_83_2006-04_dvd.iso
/
Dema
/
keepsake_demo_en.exe
/
res
/
puzzles
/
basement.camera.tcl
next >
Wrap
Text File
|
2005-10-29
|
4KB
|
160 lines
proc basement.entranceStairs.enter {} {
setThreadID 4
entranceStairs::new lightLantern -repeat -foreground
setThreadID 0
}
proc basement.entranceStairs.leave {} {
setThreadID 4
wq'widget::delete& entranceStairs::lightLantern
setThreadID 0
}
proc basement.firstStage.enter {} {
setThreadID 4
setThreadID 0
}
proc basement.firstStage.leave {} {
setThreadID 4
wq'widget::delete& firstStage::owlAIdle
setThreadID 0
}
proc basement.junction.enter {} {
setThreadID 4
junction::new lightLantern -repeat -foreground
setThreadID 0
}
proc basement.junction.leave {} {
setThreadID 4
wq'widget::delete& junction::lightLantern
setThreadID 0
}
proc basement.junctionEnd.enter {} {
setThreadID 4
junctionEnd::new lightChandelier -repeat
setThreadID 0
}
proc basement.junctionEnd.leave {} {
setThreadID 4
wq'widget::delete& junctionEnd::lightChandelier
setThreadID 0
}
proc basement.mainStairs.enter {} {
setThreadID 4
mainStairs::new lightChandelierA -repeat
mainStairs::new lightChandelierB -repeat
if { [getVar "wineCavePuzzle"] != "complete" } {
mainStairs::new owlAIdle -repeat -foreground
mainStairs::new owlBIdle -repeat -foreground
mainStairs::new owlCIdle -repeat -foreground
}
setThreadID 0
}
proc basement.mainStairs.leave {} {
setThreadID 4
wq'widget::delete& mainStairs::lightChandelierA
wq'widget::delete& mainStairs::lightChandelierB
wq'widget::delete& mainStairs::owlAIdle
wq'widget::delete& mainStairs::owlALook
wq'widget::delete& mainStairs::owlARuffle
wq'widget::delete& mainStairs::owlBIdle
wq'widget::delete& mainStairs::owlBLook
wq'widget::delete& mainStairs::owlBRuffle
wq'widget::delete& mainStairs::owlCIdle
wq'widget::delete& mainStairs::owlCLook
wq'widget::delete& mainStairs::owlCRuffle
setThreadID 0
}
proc basement.stageEnd.enter {} {
setThreadID 4
stageEnd::new lightChandelier -repeat
setThreadID 0
}
proc basement.stageEnd.leave {} {
setThreadID 4
wq'widget::delete& stageEnd::lightChandelier
setThreadID 0
}
proc basement.stageEndCrates.enter {} {
setThreadID 4
stageEnd::new lightChandelier -repeat
setThreadID 0
}
proc basement.stageEndCrates.leave {} {
setThreadID 4
wq'widget::delete& stageEnd::lightChandelier
setThreadID 0
}
proc basement.stageEntrance.enter {} {
setThreadID 4
stageEntrance::new lightChandelierA -repeat
setThreadID 0
}
proc basement.stageEntrance.leave {} {
setThreadID 4
wq'widget::delete& stageEntrance::lightChandelierA
setThreadID 0
}
proc basement.underGroundEnd.enter {} {
setThreadID 4
underGroundEnd::new lightChandelier -repeat
setThreadID 0
}
proc basement.underGroundEnd.leave {} {
setThreadID 4
wq'widget::delete& underGroundEnd::lightChandelier
setThreadID 0
}
proc basement.underGroundStairs.enter {} {
setThreadID 4
underGroundStairs::new lightChandelierA -repeat
underGroundStairs::new lightChandelierB -repeat
setThreadID 0
}
proc basement.underGroundStairs.leave {} {
setThreadID 4
wq'widget::delete& underGroundStairs::lightChandelierA
wq'widget::delete& underGroundStairs::lightChandelierB
setThreadID 0
}
proc basement.underStair.enter {} {
setThreadID 4
underStair::new lightChandelier -repeat -foreground
setThreadID 0
}
proc basement.underStair.leave {} {
setThreadID 4
wq'widget::delete& underStair::lightChandelier
setThreadID 0
}
proc basement.wineCavePuzzleCloseUp.enter {} {
setThreadID 4
setThreadID 0
}
proc basement.wineCavePuzzleCloseUp.leave {} {
setThreadID 4
setThreadID 0
}