home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GameStar 2006 April
/
Gamestar_83_2006-04_dvd.iso
/
Dema
/
keepsake_demo_en.exe
/
res
/
auto
/
garden.mvwrap.tcl
< prev
next >
Wrap
Text File
|
2005-10-22
|
74KB
|
2,563 lines
namespace eval dollFinding {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {waterfallA} 0
set posx(waterfallA) 0.548828
set posy(waterfallA) 0.018229
set width(waterfallA) 0.103516
set height(waterfallA) 0.554688
set scene(waterfallA) garden
set camera(waterfallA) dollFinding
variable {waterfallB} 0
set posx(waterfallB) 0.723633
set posy(waterfallB) 0.062500
set width(waterfallB) 0.125000
set height(waterfallB) 0.399740
set scene(waterfallB) garden
set camera(waterfallB) dollFinding
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval driaCloseUp {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runes} 0
set posx(runes) 0.250000
set posy(runes) 0.145833
set width(runes) 0.500000
set height(runes) 0.666667
set scene(runes) garden
set camera(runes) driaCloseUp
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval fromWindow {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {waterfall} 0
set posx(waterfall) 0.886719
set posy(waterfall) 0.031250
set width(waterfall) 0.083008
set height(waterfall) 0.322917
set scene(waterfall) garden
set camera(waterfall) fromWindow
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval gardenLever {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {leverFail} 0
set posx(leverFail) 0.410156
set posy(leverFail) 0.578125
set width(leverFail) 0.125000
set height(leverFail) 0.333333
set scene(leverFail) garden
set camera(leverFail) gardenLever
variable {leverSuccess} 0
set posx(leverSuccess) 0.378906
set posy(leverSuccess) 0.526042
set width(leverSuccess) 0.215820
set height(leverSuccess) 0.473958
set scene(leverSuccess) garden
set camera(leverSuccess) gardenLever
variable {leverWater} 0
set posx(leverWater) 0.000000
set posy(leverWater) 0.000000
set width(leverWater) 1.000000
set height(leverWater) 1.000000
set scene(leverWater) garden
set camera(leverWater) gardenLever
variable {runeDriaLoop} 0
set posx(runeDriaLoop) 0.608398
set posy(runeDriaLoop) 0.376302
set width(runeDriaLoop) 0.076172
set height(runeDriaLoop) 0.040365
set scene(runeDriaLoop) garden
set camera(runeDriaLoop) gardenLever
variable {runeDriaStart} 0
set posx(runeDriaStart) 0.608398
set posy(runeDriaStart) 0.376302
set width(runeDriaStart) 0.076172
set height(runeDriaStart) 0.040365
set scene(runeDriaStart) garden
set camera(runeDriaStart) gardenLever
variable {runeDriaSuccess} 0
set posx(runeDriaSuccess) 0.470703
set posy(runeDriaSuccess) 0.346354
set width(runeDriaSuccess) 0.061523
set height(runeDriaSuccess) 0.083333
set scene(runeDriaSuccess) garden
set camera(runeDriaSuccess) gardenLever
variable {runeOrlosLoop} 0
set posx(runeOrlosLoop) 0.354492
set posy(runeOrlosLoop) 0.419271
set width(runeOrlosLoop) 0.015625
set height(runeOrlosLoop) 0.020833
set scene(runeOrlosLoop) garden
set camera(runeOrlosLoop) gardenLever
variable {runeOrlosStart} 0
set posx(runeOrlosStart) 0.354492
set posy(runeOrlosStart) 0.419271
set width(runeOrlosStart) 0.015625
set height(runeOrlosStart) 0.020833
set scene(runeOrlosStart) garden
set camera(runeOrlosStart) gardenLever
variable {runeUndarLoop} 0
set posx(runeUndarLoop) 0.425781
set posy(runeUndarLoop) 0.341146
set width(runeUndarLoop) 0.034180
set height(runeUndarLoop) 0.026042
set scene(runeUndarLoop) garden
set camera(runeUndarLoop) gardenLever
variable {runeUndarStart} 0
set posx(runeUndarStart) 0.425781
set posy(runeUndarStart) 0.341146
set width(runeUndarStart) 0.034180
set height(runeUndarStart) 0.026042
set scene(runeUndarStart) garden
set camera(runeUndarStart) gardenLever
variable {waterA} 0
set posx(waterA) 0.601563
set posy(waterA) 0.662760
set width(waterA) 0.334961
set height(waterA) 0.134115
set scene(waterA) garden
set camera(waterA) gardenLever
variable {waterB} 0
set posx(waterB) 0.000000
set posy(waterB) 0.576823
set width(waterB) 0.379883
set height(waterB) 0.166667
set scene(waterB) garden
set camera(waterB) gardenLever
variable {waterC} 0
set posx(waterC) 0.000000
set posy(waterC) 0.248698
set width(waterC) 0.194336
set height(waterC) 0.333333
set scene(waterC) garden
set camera(waterC) gardenLever
variable {waterD} 0
set posx(waterD) 0.000000
set posy(waterD) 0.153646
set width(waterD) 0.031250
set height(waterD) 0.100260
set scene(waterD) garden
set camera(waterD) gardenLever
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval gardenStage {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {water} 0
set posx(water) 1.618164
set posy(water) 0.528646
set width(water) 0.381836
set height(water) 0.131510
set scene(water) garden
set camera(water) gardenStage
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval gargoyles {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runeDriaSuccess} 0
set posx(runeDriaSuccess) 0.537109
set posy(runeDriaSuccess) 0.759115
set width(runeDriaSuccess) 0.031250
set height(runeDriaSuccess) 0.041667
set scene(runeDriaSuccess) garden
set camera(runeDriaSuccess) gargoyles
variable {waterA} 0
set posx(waterA) 0.434570
set posy(waterA) 0.712240
set width(waterA) 0.236328
set height(waterA) 0.188802
set scene(waterA) garden
set camera(waterA) gargoyles
variable {waterfallA} 0
set posx(waterfallA) 0.624023
set posy(waterfallA) 0.238281
set width(waterfallA) 0.050781
set height(waterfallA) 0.445313
set scene(waterfallA) garden
set camera(waterfallA) gargoyles
variable {waterfallB} 0
set posx(waterfallB) 0.583008
set posy(waterfallB) 0.148438
set width(waterfallB) 0.091797
set height(waterfallB) 0.095052
set scene(waterfallB) garden
set camera(waterfallB) gargoyles
variable {waterfallTree} 0
set posx(waterfallTree) 0.637695
set posy(waterfallTree) 0.621094
set width(waterfallTree) 0.031250
set height(waterfallTree) 0.062500
set scene(waterfallTree) garden
set camera(waterfallTree) gargoyles
variable {waterTreeA} 0
set posx(waterTreeA) 0.434570
set posy(waterTreeA) 0.712240
set width(waterTreeA) 0.236328
set height(waterTreeA) 0.188802
set scene(waterTreeA) garden
set camera(waterTreeA) gargoyles
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval islandCloseUp {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runeDriaLoop} 0
set posx(runeDriaLoop) 0.250977
set posy(runeDriaLoop) 0.497396
set width(runeDriaLoop) 0.107422
set height(runeDriaLoop) 0.040365
set scene(runeDriaLoop) garden
set camera(runeDriaLoop) islandCloseUp
variable {runeDriaStart} 0
set posx(runeDriaStart) 0.250977
set posy(runeDriaStart) 0.497396
set width(runeDriaStart) 0.107422
set height(runeDriaStart) 0.040365
set scene(runeDriaStart) garden
set camera(runeDriaStart) islandCloseUp
variable {runeDriaSuccess} 0
set posx(runeDriaSuccess) 0.483398
set posy(runeDriaSuccess) 0.460938
set width(runeDriaSuccess) 0.111328
set height(runeDriaSuccess) 0.106771
set scene(runeDriaSuccess) garden
set camera(runeDriaSuccess) islandCloseUp
variable {runeOrlosLoop} 0
set posx(runeOrlosLoop) 0.580078
set posy(runeOrlosLoop) 0.399740
set width(runeOrlosLoop) 0.062500
set height(runeOrlosLoop) 0.041667
set scene(runeOrlosLoop) garden
set camera(runeOrlosLoop) islandCloseUp
variable {runeOrlosStart} 0
set posx(runeOrlosStart) 0.580078
set posy(runeOrlosStart) 0.399740
set width(runeOrlosStart) 0.062500
set height(runeOrlosStart) 0.041667
set scene(runeOrlosStart) garden
set camera(runeOrlosStart) islandCloseUp
variable {runeUndarLoop} 0
set posx(runeUndarLoop) 0.668945
set posy(runeUndarLoop) 0.582031
set width(runeUndarLoop) 0.108398
set height(runeUndarLoop) 0.080729
set scene(runeUndarLoop) garden
set camera(runeUndarLoop) islandCloseUp
variable {runeUndarStart} 0
set posx(runeUndarStart) 0.668945
set posy(runeUndarStart) 0.582031
set width(runeUndarStart) 0.108398
set height(runeUndarStart) 0.080729
set scene(runeUndarStart) garden
set camera(runeUndarStart) islandCloseUp
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval magicalTreeGrowing {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {magicalTreeGrowing} 0
set posx(magicalTreeGrowing) 0.000000
set posy(magicalTreeGrowing) 0.000000
set width(magicalTreeGrowing) 1.000000
set height(magicalTreeGrowing) 1.000000
set scene(magicalTreeGrowing) garden
set camera(magicalTreeGrowing) magicalTreeGrowing
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval orlosCloseUp {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runes} 0
set posx(runes) 0.250000
set posy(runes) 0.145833
set width(runes) 0.500000
set height(runes) 0.666667
set scene(runes) garden
set camera(runes) orlosCloseUp
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval path {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {water} 0
set posx(water) 1.095703
set posy(water) 0.584635
set width(water) 0.099609
set height(water) 0.050781
set scene(water) garden
set camera(water) path
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval puzzleSliders {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {reset} 0
set posx(reset) 0.439453
set posy(reset) 0.617188
set width(reset) 0.125000
set height(reset) 0.333333
set scene(reset) garden
set camera(reset) puzzleSliders
variable {rune1} 0
set posx(rune1) 0.421875
set posy(rune1) 0.272135
set width(rune1) 0.191406
set height(rune1) 0.187500
set scene(rune1) garden
set camera(rune1) puzzleSliders
variable {rune2} 0
set posx(rune2) 0.422852
set posy(rune2) 0.316406
set width(rune2) 0.145508
set height(rune2) 0.235677
set scene(rune2) garden
set camera(rune2) puzzleSliders
variable {rune3} 0
set posx(rune3) 0.375977
set posy(rune3) 0.321615
set width(rune3) 0.243164
set height(rune3) 0.238281
set scene(rune3) garden
set camera(rune3) puzzleSliders
variable {rune4} 0
set posx(rune4) 0.348633
set posy(rune4) 0.319010
set width(rune4) 0.261719
set height(rune4) 0.259115
set scene(rune4) garden
set camera(rune4) puzzleSliders
variable {rune5} 0
set posx(rune5) 0.420898
set posy(rune5) 0.257812
set width(rune5) 0.158203
set height(rune5) 0.317708
set scene(rune5) garden
set camera(rune5) puzzleSliders
variable {rune6} 0
set posx(rune6) 0.453125
set posy(rune6) 0.274740
set width(rune6) 0.149414
set height(rune6) 0.175781
set scene(rune6) garden
set camera(rune6) puzzleSliders
variable {rune7} 0
set posx(rune7) 0.394531
set posy(rune7) 0.264323
set width(rune7) 0.180664
set height(rune7) 0.300781
set scene(rune7) garden
set camera(rune7) puzzleSliders
variable {rune8} 0
set posx(rune8) 0.492188
set posy(rune8) 0.319010
set width(rune8) 0.124023
set height(rune8) 0.220052
set scene(rune8) garden
set camera(rune8) puzzleSliders
variable {slider1Off} 0
set posx(slider1Off) 0.311523
set posy(slider1Off) 0.544271
set width(slider1Off) 0.119141
set height(slider1Off) 0.061198
set scene(slider1Off) garden
set camera(slider1Off) puzzleSliders
variable {slider1On} 0
set posx(slider1On) 0.311523
set posy(slider1On) 0.544271
set width(slider1On) 0.119141
set height(slider1On) 0.061198
set scene(slider1On) garden
set camera(slider1On) puzzleSliders
variable {slider1OnSt} 0
set posx(slider1OnSt) 0.311523
set posy(slider1OnSt) 0.544271
set width(slider1OnSt) 0.119141
set height(slider1OnSt) 0.061198
set scene(slider1OnSt) garden
set camera(slider1OnSt) puzzleSliders
variable {slider2Off} 0
set posx(slider2Off) 0.311523
set posy(slider2Off) 0.619792
set width(slider2Off) 0.119141
set height(slider2Off) 0.059896
set scene(slider2Off) garden
set camera(slider2Off) puzzleSliders
variable {slider2On} 0
set posx(slider2On) 0.311523
set posy(slider2On) 0.619792
set width(slider2On) 0.119141
set height(slider2On) 0.059896
set scene(slider2On) garden
set camera(slider2On) puzzleSliders
variable {slider2OnSt} 0
set posx(slider2OnSt) 0.311523
set posy(slider2OnSt) 0.619792
set width(slider2OnSt) 0.119141
set height(slider2OnSt) 0.059896
set scene(slider2OnSt) garden
set camera(slider2OnSt) puzzleSliders
variable {slider3Off} 0
set posx(slider3Off) 0.311523
set posy(slider3Off) 0.692708
set width(slider3Off) 0.119141
set height(slider3Off) 0.062500
set scene(slider3Off) garden
set camera(slider3Off) puzzleSliders
variable {slider3On} 0
set posx(slider3On) 0.311523
set posy(slider3On) 0.692708
set width(slider3On) 0.119141
set height(slider3On) 0.062500
set scene(slider3On) garden
set camera(slider3On) puzzleSliders
variable {slider3OnSt} 0
set posx(slider3OnSt) 0.311523
set posy(slider3OnSt) 0.692708
set width(slider3OnSt) 0.119141
set height(slider3OnSt) 0.062500
set scene(slider3OnSt) garden
set camera(slider3OnSt) puzzleSliders
variable {slider4Off} 0
set posx(slider4Off) 0.311523
set posy(slider4Off) 0.768229
set width(slider4Off) 0.119141
set height(slider4Off) 0.061198
set scene(slider4Off) garden
set camera(slider4Off) puzzleSliders
variable {slider4On} 0
set posx(slider4On) 0.311523
set posy(slider4On) 0.768229
set width(slider4On) 0.119141
set height(slider4On) 0.061198
set scene(slider4On) garden
set camera(slider4On) puzzleSliders
variable {slider4OnSt} 0
set posx(slider4OnSt) 0.311523
set posy(slider4OnSt) 0.768229
set width(slider4OnSt) 0.119141
set height(slider4OnSt) 0.061198
set scene(slider4OnSt) garden
set camera(slider4OnSt) puzzleSliders
variable {slider5Off} 0
set posx(slider5Off) 0.575195
set posy(slider5Off) 0.545573
set width(slider5Off) 0.117188
set height(slider5Off) 0.058594
set scene(slider5Off) garden
set camera(slider5Off) puzzleSliders
variable {slider5On} 0
set posx(slider5On) 0.575195
set posy(slider5On) 0.545573
set width(slider5On) 0.117188
set height(slider5On) 0.058594
set scene(slider5On) garden
set camera(slider5On) puzzleSliders
variable {slider5OnSt} 0
set posx(slider5OnSt) 0.575195
set posy(slider5OnSt) 0.545573
set width(slider5OnSt) 0.117188
set height(slider5OnSt) 0.058594
set scene(slider5OnSt) garden
set camera(slider5OnSt) puzzleSliders
variable {slider6Off} 0
set posx(slider6Off) 0.575195
set posy(slider6Off) 0.618490
set width(slider6Off) 0.117188
set height(slider6Off) 0.059896
set scene(slider6Off) garden
set camera(slider6Off) puzzleSliders
variable {slider6On} 0
set posx(slider6On) 0.575195
set posy(slider6On) 0.618490
set width(slider6On) 0.117188
set height(slider6On) 0.059896
set scene(slider6On) garden
set camera(slider6On) puzzleSliders
variable {slider6OnSt} 0
set posx(slider6OnSt) 0.575195
set posy(slider6OnSt) 0.618490
set width(slider6OnSt) 0.117188
set height(slider6OnSt) 0.059896
set scene(slider6OnSt) garden
set camera(slider6OnSt) puzzleSliders
variable {slider7Off} 0
set posx(slider7Off) 0.575195
set posy(slider7Off) 0.692708
set width(slider7Off) 0.117188
set height(slider7Off) 0.061198
set scene(slider7Off) garden
set camera(slider7Off) puzzleSliders
variable {slider7On} 0
set posx(slider7On) 0.575195
set posy(slider7On) 0.692708
set width(slider7On) 0.117188
set height(slider7On) 0.061198
set scene(slider7On) garden
set camera(slider7On) puzzleSliders
variable {slider7OnSt} 0
set posx(slider7OnSt) 0.575195
set posy(slider7OnSt) 0.692708
set width(slider7OnSt) 0.117188
set height(slider7OnSt) 0.061198
set scene(slider7OnSt) garden
set camera(slider7OnSt) puzzleSliders
variable {slider8Off} 0
set posx(slider8Off) 0.575195
set posy(slider8Off) 0.766927
set width(slider8Off) 0.117188
set height(slider8Off) 0.062500
set scene(slider8Off) garden
set camera(slider8Off) puzzleSliders
variable {slider8On} 0
set posx(slider8On) 0.575195
set posy(slider8On) 0.766927
set width(slider8On) 0.117188
set height(slider8On) 0.062500
set scene(slider8On) garden
set camera(slider8On) puzzleSliders
variable {slider8OnSt} 0
set posx(slider8OnSt) 0.575195
set posy(slider8OnSt) 0.766927
set width(slider8OnSt) 0.117188
set height(slider8OnSt) 0.062500
set scene(slider8OnSt) garden
set camera(slider8OnSt) puzzleSliders
variable {sliderLightBeam} 0
set posx(sliderLightBeam) 0.000000
set posy(sliderLightBeam) 0.000000
set width(sliderLightBeam) 1.000000
set height(sliderLightBeam) 1.000000
set scene(sliderLightBeam) garden
set camera(sliderLightBeam) puzzleSliders
variable {sliderLightBeamWater} 0
set posx(sliderLightBeamWater) 0.000000
set posy(sliderLightBeamWater) 0.000000
set width(sliderLightBeamWater) 1.000000
set height(sliderLightBeamWater) 1.000000
set scene(sliderLightBeamWater) garden
set camera(sliderLightBeamWater) puzzleSliders
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval puzzleStageTop {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {fishesA} 0
set posx(fishesA) 1.590820
set posy(fishesA) 0.809896
set width(fishesA) 0.250000
set height(fishesA) 0.333333
set scene(fishesA) garden
set camera(fishesA) puzzleStageTop
variable {fishesB} 0
set posx(fishesB) 1.094727
set posy(fishesB) 0.335938
set width(fishesB) 0.250000
set height(fishesB) 0.166667
set scene(fishesB) garden
set camera(fishesB) puzzleStageTop
variable {fishesC} 0
set posx(fishesC) 1.094727
set posy(fishesC) 0.257813
set width(fishesC) 0.250000
set height(fishesC) 0.083333
set scene(fishesC) garden
set camera(fishesC) puzzleStageTop
variable {fishesD} 0
set posx(fishesD) 1.340820
set posy(fishesD) 0.335938
set width(fishesD) 0.125000
set height(fishesD) 0.291667
set scene(fishesD) garden
set camera(fishesD) puzzleStageTop
variable {fishesE} 0
set posx(fishesE) 1.313477
set posy(fishesE) 0.497396
set width(fishesE) 0.031250
set height(fishesE) 0.083333
set scene(fishesE) garden
set camera(fishesE) puzzleStageTop
variable {fishesF} 0
set posx(fishesF) 0.907227
set posy(fishesF) 0.096354
set width(fishesF) 0.250000
set height(fishesF) 0.166667
set scene(fishesF) garden
set camera(fishesF) puzzleStageTop
variable {fishesG} 0
set posx(fishesG) 0.907227
set posy(fishesG) 0.018229
set width(fishesG) 0.250000
set height(fishesG) 0.083333
set scene(fishesG) garden
set camera(fishesG) puzzleStageTop
variable {fishesH} 0
set posx(fishesH) 0.974609
set posy(fishesH) 0.251302
set width(fishesH) 0.062500
set height(fishesH) 0.083333
set scene(fishesH) garden
set camera(fishesH) puzzleStageTop
variable {fishesI} 0
set posx(fishesI) 1.036133
set posy(fishesI) 0.334635
set width(fishesI) 0.064453
set height(fishesI) 0.083333
set scene(fishesI) garden
set camera(fishesI) puzzleStageTop
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval smallBridge {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runeDriaLoop} 0
set posx(runeDriaLoop) 0.742188
set posy(runeDriaLoop) 0.519531
set width(runeDriaLoop) 0.031250
set height(runeDriaLoop) 0.041667
set scene(runeDriaLoop) garden
set camera(runeDriaLoop) smallBridge
variable {runeDriaStart} 0
set posx(runeDriaStart) 0.742188
set posy(runeDriaStart) 0.519531
set width(runeDriaStart) 0.031250
set height(runeDriaStart) 0.041667
set scene(runeDriaStart) garden
set camera(runeDriaStart) smallBridge
variable {runeDriaSuccess} 0
set posx(runeDriaSuccess) 0.687500
set posy(runeDriaSuccess) 0.488281
set width(runeDriaSuccess) 0.062500
set height(runeDriaSuccess) 0.041667
set scene(runeDriaSuccess) garden
set camera(runeDriaSuccess) smallBridge
variable {runeOrlosLoop} 0
set posx(runeOrlosLoop) 0.656250
set posy(runeOrlosLoop) 0.492188
set width(runeOrlosLoop) 0.031250
set height(runeOrlosLoop) 0.041667
set scene(runeOrlosLoop) garden
set camera(runeOrlosLoop) smallBridge
variable {runeOrlosStart} 0
set posx(runeOrlosStart) 0.656250
set posy(runeOrlosStart) 0.492188
set width(runeOrlosStart) 0.031250
set height(runeOrlosStart) 0.041667
set scene(runeOrlosStart) garden
set camera(runeOrlosStart) smallBridge
variable {runeUndarLoop} 0
set posx(runeUndarLoop) 0.719727
set posy(runeUndarLoop) 0.451823
set width(runeUndarLoop) 0.031250
set height(runeUndarLoop) 0.041667
set scene(runeUndarLoop) garden
set camera(runeUndarLoop) smallBridge
variable {runeUndarStart} 0
set posx(runeUndarStart) 0.719727
set posy(runeUndarStart) 0.451823
set width(runeUndarStart) 0.031250
set height(runeUndarStart) 0.041667
set scene(runeUndarStart) garden
set camera(runeUndarStart) smallBridge
variable {waterA} 0
set posx(waterA) 0.532227
set posy(waterA) 0.170573
set width(waterA) 0.430664
set height(waterA) 0.666667
set scene(waterA) garden
set camera(waterA) smallBridge
variable {waterB} 0
set posx(waterB) 0.602539
set posy(waterB) 0.108073
set width(waterB) 0.041992
set height(waterB) 0.067708
set scene(waterB) garden
set camera(waterB) smallBridge
variable {waterTreeA} 0
set posx(waterTreeA) 0.532227
set posy(waterTreeA) 0.229167
set width(waterTreeA) 0.430664
set height(waterTreeA) 0.608073
set scene(waterTreeA) garden
set camera(waterTreeA) smallBridge
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval smallIsland {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runeDriaLoop} 0
set posx(runeDriaLoop) 0.841797
set posy(runeDriaLoop) 0.942708
set width(runeDriaLoop) 0.062500
set height(runeDriaLoop) 0.083333
set scene(runeDriaLoop) garden
set camera(runeDriaLoop) smallIsland
variable {runeDriaStart} 0
set posx(runeDriaStart) 0.841797
set posy(runeDriaStart) 0.942708
set width(runeDriaStart) 0.062500
set height(runeDriaStart) 0.083333
set scene(runeDriaStart) garden
set camera(runeDriaStart) smallIsland
variable {runeDriaSuccess} 0
set posx(runeDriaSuccess) 0.876953
set posy(runeDriaSuccess) 0.923177
set width(runeDriaSuccess) 0.108398
set height(runeDriaSuccess) 0.057292
set scene(runeDriaSuccess) garden
set camera(runeDriaSuccess) smallIsland
variable {runeOrlosLoop} 0
set posx(runeOrlosLoop) 0.836914
set posy(runeOrlosLoop) 0.899740
set width(runeOrlosLoop) 0.062500
set height(runeOrlosLoop) 0.049479
set scene(runeOrlosLoop) garden
set camera(runeOrlosLoop) smallIsland
variable {runeOrlosStart} 0
set posx(runeOrlosStart) 0.836914
set posy(runeOrlosStart) 0.899740
set width(runeOrlosStart) 0.062500
set height(runeOrlosStart) 0.049479
set scene(runeOrlosStart) garden
set camera(runeOrlosStart) smallIsland
variable {runeUndarLoop} 0
set posx(runeUndarLoop) 1.028320
set posy(runeUndarLoop) 0.936198
set width(runeUndarLoop) 0.062500
set height(runeUndarLoop) 0.048177
set scene(runeUndarLoop) garden
set camera(runeUndarLoop) smallIsland
variable {runeUndarStart} 0
set posx(runeUndarStart) 1.028320
set posy(runeUndarStart) 0.936198
set width(runeUndarStart) 0.062500
set height(runeUndarStart) 0.048177
set scene(runeUndarStart) garden
set camera(runeUndarStart) smallIsland
variable {waterA} 0
set posx(waterA) 0.290039
set posy(waterA) 0.985677
set width(waterA) 0.162109
set height(waterA) 0.114583
set scene(waterA) garden
set camera(waterA) smallIsland
variable {waterB} 0
set posx(waterB) 1.086914
set posy(waterB) 1.083333
set width(waterB) 0.250000
set height(waterB) 0.166667
set scene(waterB) garden
set camera(waterB) smallIsland
variable {waterC} 0
set posx(waterC) 1.333008
set posy(waterC) 1.083333
set width(waterC) 0.062500
set height(waterC) 0.166667
set scene(waterC) garden
set camera(waterC) smallIsland
variable {waterD} 0
set posx(waterD) 1.180664
set posy(waterD) 0.921875
set width(waterD) 0.214844
set height(waterD) 0.166667
set scene(waterD) garden
set camera(waterD) smallIsland
variable {waterE} 0
set posx(waterE) 0.955078
set posy(waterE) 0.851563
set width(waterE) 0.250000
set height(waterE) 0.083333
set scene(waterE) garden
set camera(waterE) smallIsland
variable {waterF} 0
set posx(waterF) 1.068359
set posy(waterF) 0.190104
set width(waterF) 0.062500
set height(waterF) 0.666667
set scene(waterF) garden
set camera(waterF) smallIsland
variable {waterTreeA} 0
set posx(waterTreeA) 0.290039
set posy(waterTreeA) 0.985677
set width(waterTreeA) 0.162109
set height(waterTreeA) 0.114583
set scene(waterTreeA) garden
set camera(waterTreeA) smallIsland
variable {waterTreeB} 0
set posx(waterTreeB) 1.086914
set posy(waterTreeB) 1.083333
set width(waterTreeB) 0.250000
set height(waterTreeB) 0.166667
set scene(waterTreeB) garden
set camera(waterTreeB) smallIsland
variable {waterTreeC} 0
set posx(waterTreeC) 1.333008
set posy(waterTreeC) 1.083333
set width(waterTreeC) 0.062500
set height(waterTreeC) 0.166667
set scene(waterTreeC) garden
set camera(waterTreeC) smallIsland
variable {waterTreeD} 0
set posx(waterTreeD) 1.197266
set posy(waterTreeD) 0.921875
set width(waterTreeD) 0.198242
set height(waterTreeD) 0.166667
set scene(waterTreeD) garden
set camera(waterTreeD) smallIsland
variable {waterTreeE} 0
set posx(waterTreeE) 0.955078
set posy(waterTreeE) 0.856771
set width(waterTreeE) 0.250000
set height(waterTreeE) 0.083333
set scene(waterTreeE) garden
set camera(waterTreeE) smallIsland
variable {waterTreeF} 0
set posx(waterTreeF) 1.068359
set posy(waterTreeF) 0.195313
set width(waterTreeF) 0.062500
set height(waterTreeF) 0.666667
set scene(waterTreeF) garden
set camera(waterTreeF) smallIsland
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval stageStairs {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {fishesA} 0
set posx(fishesA) 0.451172
set posy(fishesA) 0.666667
set width(fishesA) 0.430664
set height(fishesA) 0.333333
set scene(fishesA) garden
set camera(fishesA) stageStairs
variable {fishesB} 0
set posx(fishesB) 0.522461
set posy(fishesB) 0.519531
set width(fishesB) 0.359375
set height(fishesB) 0.152344
set scene(fishesB) garden
set camera(fishesB) stageStairs
variable {fishesC} 0
set posx(fishesC) 0.575195
set posy(fishesC) 0.358073
set width(fishesC) 0.306641
set height(fishesC) 0.166667
set scene(fishesC) garden
set camera(fishesC) stageStairs
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval studyBalcony {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {waterFallA} 0
set posx(waterFallA) 0.000000
set posy(waterFallA) 0.000000
set width(waterFallA) 0.202148
set height(waterFallA) 0.863281
set scene(waterFallA) garden
set camera(waterFallA) studyBalcony
variable {waterFallB} 0
set posx(waterFallB) 0.208984
set posy(waterFallB) 0.105469
set width(waterFallB) 0.250000
set height(waterFallB) 0.666667
set scene(waterFallB) garden
set camera(waterFallB) studyBalcony
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval undarCloseUp {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {runes} 0
set posx(runes) 0.250000
set posy(runes) 0.145833
set width(runes) 0.500000
set height(runes) 0.666667
set scene(runes) garden
set camera(runes) undarCloseUp
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}
namespace eval waterfall {
variable posx
variable posy
variable width
variable height
variable scene
variable camera
variable {waterfallA} 0
set posx(waterfallA) 0.150391
set posy(waterfallA) 0.000000
set width(waterfallA) 0.088867
set height(waterfallA) 0.234375
set scene(waterfallA) garden
set camera(waterfallA) waterfall
variable {waterfallB} 0
set posx(waterfallB) 0.214844
set posy(waterfallB) 0.901042
set width(waterfallB) 0.031250
set height(waterfallB) 0.041667
set scene(waterfallB) garden
set camera(waterfallB) waterfall
variable {waterfallC} 0
set posx(waterfallC) 0.170898
set posy(waterfallC) 0.234375
set width(waterfallC) 0.109375
set height(waterfallC) 0.666667
set scene(waterfallC) garden
set camera(waterfallC) waterfall
variable {waterfallD} 0
set posx(waterfallD) 0.374023
set posy(waterfallD) 0.145833
set width(waterfallD) 0.022461
set height(waterfallD) 0.451823
set scene(waterfallD) garden
set camera(waterfallD) waterfall
variable {waterfallE} 0
set posx(waterfallE) 0.420898
set posy(waterfallE) 0.065104
set width(waterfallE) 0.047852
set height(waterfallE) 0.511719
set scene(waterfallE) garden
set camera(waterfallE) waterfall
variable {waterfallF} 0
set posx(waterfallF) 0.665039
set posy(waterfallF) 0.376302
set width(waterfallF) 0.035156
set height(waterfallF) 0.205729
set scene(waterfallF) garden
set camera(waterfallF) waterfall
proc new {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground nopan {depth 0}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground?) {
set layer "-foreground"
}
set pan "-pan"
if $v(nopan?) {
set pan ""
}
set depth $v(depth)
set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer $pan]
eval "oz'widget::property [set $object] $args"
if $v(play?) {
oz'event {
ozSet mvDisableMouse 0
if [ozIsEnable mouse] {
wizDisableMouse
ozSet mvDisableMouse 1
}
}
wq'widget::waitfor [set $object] -animate
wq'widget::delete [set $object]
oz'event {
if [ozGet mvDisableMouse] {
wizEnableMouse
}
}
set $object 0
}
}
proc newSt {object args} {
variable $object
variable posx
variable posy
variable width
variable height
variable scene
variable camera
if {[set $object] != 0} return
set optstring {play foreground {depth 1}}
array set v [cmdline::getopt $args $optstring]
set layer "-background"
if $v(foreground) {
set layer "-foreground"
}
set depth $v(depth)
set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
-pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
-depth $depth $layer -pan]
eval "oz'widget::property [set $object] $args"
}
}