home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / garden.mvwrap.tcl < prev    next >
Text File  |  2005-10-22  |  74KB  |  2,563 lines
  1. namespace eval dollFinding {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {waterfallA}  0
  10.     set posx(waterfallA)   0.548828
  11.     set posy(waterfallA)   0.018229
  12.     set width(waterfallA)  0.103516
  13.     set height(waterfallA) 0.554688
  14.     set scene(waterfallA)  garden
  15.     set camera(waterfallA) dollFinding
  16.  
  17.     variable {waterfallB}  0
  18.     set posx(waterfallB)   0.723633
  19.     set posy(waterfallB)   0.062500
  20.     set width(waterfallB)  0.125000
  21.     set height(waterfallB) 0.399740
  22.     set scene(waterfallB)  garden
  23.     set camera(waterfallB) dollFinding
  24.  
  25.     proc new {object args} {
  26.         variable $object
  27.         variable posx
  28.         variable posy
  29.         variable width
  30.         variable height
  31.         variable scene
  32.         variable camera
  33.  
  34.         if {[set $object] != 0} return
  35.  
  36.         set optstring {play foreground nopan {depth 0}}
  37.         array set v [cmdline::getopt $args $optstring]
  38.  
  39.         set layer "-background"
  40.         if $v(foreground?) {
  41.             set layer "-foreground"
  42.         }
  43.  
  44.         set pan "-pan"
  45.         if $v(nopan?) {
  46.             set pan ""
  47.         }
  48.  
  49.         set depth $v(depth)
  50.  
  51.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  52.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  53.                     -depth $depth $layer $pan]
  54.  
  55.         eval "oz'widget::property [set $object] $args"
  56.  
  57.         if $v(play?) {
  58.             oz'event {
  59.                 ozSet mvDisableMouse 0
  60.                 if [ozIsEnable mouse] {
  61.                     wizDisableMouse
  62.                     ozSet mvDisableMouse 1
  63.                 }
  64.             }
  65.             wq'widget::waitfor [set $object] -animate
  66.             wq'widget::delete [set $object]
  67.             oz'event {
  68.                 if [ozGet mvDisableMouse] {
  69.                     wizEnableMouse
  70.                 }
  71.             }
  72.             set $object 0
  73.         }
  74.     }
  75.  
  76.     proc newSt {object args} {
  77.         variable $object
  78.         variable posx
  79.         variable posy
  80.         variable width
  81.         variable height
  82.         variable scene
  83.         variable camera
  84.  
  85.         if {[set $object] != 0} return
  86.  
  87.         set optstring {play foreground {depth 1}}
  88.         array set v [cmdline::getopt $args $optstring]
  89.  
  90.         set layer "-background"
  91.         if $v(foreground) {
  92.             set layer "-foreground"
  93.         }
  94.  
  95.         set depth $v(depth)
  96.  
  97.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  98.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  99.                     -depth $depth $layer -pan]
  100.  
  101.         eval "oz'widget::property [set $object] $args"
  102.     }
  103. }
  104.  
  105.  
  106. namespace eval driaCloseUp {
  107.     variable posx
  108.     variable posy
  109.     variable width
  110.     variable height
  111.     variable scene
  112.     variable camera
  113.  
  114.     variable {runes}  0
  115.     set posx(runes)   0.250000
  116.     set posy(runes)   0.145833
  117.     set width(runes)  0.500000
  118.     set height(runes) 0.666667
  119.     set scene(runes)  garden
  120.     set camera(runes) driaCloseUp
  121.  
  122.     proc new {object args} {
  123.         variable $object
  124.         variable posx
  125.         variable posy
  126.         variable width
  127.         variable height
  128.         variable scene
  129.         variable camera
  130.  
  131.         if {[set $object] != 0} return
  132.  
  133.         set optstring {play foreground nopan {depth 0}}
  134.         array set v [cmdline::getopt $args $optstring]
  135.  
  136.         set layer "-background"
  137.         if $v(foreground?) {
  138.             set layer "-foreground"
  139.         }
  140.  
  141.         set pan "-pan"
  142.         if $v(nopan?) {
  143.             set pan ""
  144.         }
  145.  
  146.         set depth $v(depth)
  147.  
  148.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  149.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  150.                     -depth $depth $layer $pan]
  151.  
  152.         eval "oz'widget::property [set $object] $args"
  153.  
  154.         if $v(play?) {
  155.             oz'event {
  156.                 ozSet mvDisableMouse 0
  157.                 if [ozIsEnable mouse] {
  158.                     wizDisableMouse
  159.                     ozSet mvDisableMouse 1
  160.                 }
  161.             }
  162.             wq'widget::waitfor [set $object] -animate
  163.             wq'widget::delete [set $object]
  164.             oz'event {
  165.                 if [ozGet mvDisableMouse] {
  166.                     wizEnableMouse
  167.                 }
  168.             }
  169.             set $object 0
  170.         }
  171.     }
  172.  
  173.     proc newSt {object args} {
  174.         variable $object
  175.         variable posx
  176.         variable posy
  177.         variable width
  178.         variable height
  179.         variable scene
  180.         variable camera
  181.  
  182.         if {[set $object] != 0} return
  183.  
  184.         set optstring {play foreground {depth 1}}
  185.         array set v [cmdline::getopt $args $optstring]
  186.  
  187.         set layer "-background"
  188.         if $v(foreground) {
  189.             set layer "-foreground"
  190.         }
  191.  
  192.         set depth $v(depth)
  193.  
  194.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  195.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  196.                     -depth $depth $layer -pan]
  197.  
  198.         eval "oz'widget::property [set $object] $args"
  199.     }
  200. }
  201.  
  202.  
  203. namespace eval fromWindow {
  204.     variable posx
  205.     variable posy
  206.     variable width
  207.     variable height
  208.     variable scene
  209.     variable camera
  210.  
  211.     variable {waterfall}  0
  212.     set posx(waterfall)   0.886719
  213.     set posy(waterfall)   0.031250
  214.     set width(waterfall)  0.083008
  215.     set height(waterfall) 0.322917
  216.     set scene(waterfall)  garden
  217.     set camera(waterfall) fromWindow
  218.  
  219.     proc new {object args} {
  220.         variable $object
  221.         variable posx
  222.         variable posy
  223.         variable width
  224.         variable height
  225.         variable scene
  226.         variable camera
  227.  
  228.         if {[set $object] != 0} return
  229.  
  230.         set optstring {play foreground nopan {depth 0}}
  231.         array set v [cmdline::getopt $args $optstring]
  232.  
  233.         set layer "-background"
  234.         if $v(foreground?) {
  235.             set layer "-foreground"
  236.         }
  237.  
  238.         set pan "-pan"
  239.         if $v(nopan?) {
  240.             set pan ""
  241.         }
  242.  
  243.         set depth $v(depth)
  244.  
  245.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  246.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  247.                     -depth $depth $layer $pan]
  248.  
  249.         eval "oz'widget::property [set $object] $args"
  250.  
  251.         if $v(play?) {
  252.             oz'event {
  253.                 ozSet mvDisableMouse 0
  254.                 if [ozIsEnable mouse] {
  255.                     wizDisableMouse
  256.                     ozSet mvDisableMouse 1
  257.                 }
  258.             }
  259.             wq'widget::waitfor [set $object] -animate
  260.             wq'widget::delete [set $object]
  261.             oz'event {
  262.                 if [ozGet mvDisableMouse] {
  263.                     wizEnableMouse
  264.                 }
  265.             }
  266.             set $object 0
  267.         }
  268.     }
  269.  
  270.     proc newSt {object args} {
  271.         variable $object
  272.         variable posx
  273.         variable posy
  274.         variable width
  275.         variable height
  276.         variable scene
  277.         variable camera
  278.  
  279.         if {[set $object] != 0} return
  280.  
  281.         set optstring {play foreground {depth 1}}
  282.         array set v [cmdline::getopt $args $optstring]
  283.  
  284.         set layer "-background"
  285.         if $v(foreground) {
  286.             set layer "-foreground"
  287.         }
  288.  
  289.         set depth $v(depth)
  290.  
  291.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  292.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  293.                     -depth $depth $layer -pan]
  294.  
  295.         eval "oz'widget::property [set $object] $args"
  296.     }
  297. }
  298.  
  299.  
  300. namespace eval gardenLever {
  301.     variable posx
  302.     variable posy
  303.     variable width
  304.     variable height
  305.     variable scene
  306.     variable camera
  307.  
  308.     variable {leverFail}  0
  309.     set posx(leverFail)   0.410156
  310.     set posy(leverFail)   0.578125
  311.     set width(leverFail)  0.125000
  312.     set height(leverFail) 0.333333
  313.     set scene(leverFail)  garden
  314.     set camera(leverFail) gardenLever
  315.  
  316.     variable {leverSuccess}  0
  317.     set posx(leverSuccess)   0.378906
  318.     set posy(leverSuccess)   0.526042
  319.     set width(leverSuccess)  0.215820
  320.     set height(leverSuccess) 0.473958
  321.     set scene(leverSuccess)  garden
  322.     set camera(leverSuccess) gardenLever
  323.  
  324.     variable {leverWater}  0
  325.     set posx(leverWater)   0.000000
  326.     set posy(leverWater)   0.000000
  327.     set width(leverWater)  1.000000
  328.     set height(leverWater) 1.000000
  329.     set scene(leverWater)  garden
  330.     set camera(leverWater) gardenLever
  331.  
  332.     variable {runeDriaLoop}  0
  333.     set posx(runeDriaLoop)   0.608398
  334.     set posy(runeDriaLoop)   0.376302
  335.     set width(runeDriaLoop)  0.076172
  336.     set height(runeDriaLoop) 0.040365
  337.     set scene(runeDriaLoop)  garden
  338.     set camera(runeDriaLoop) gardenLever
  339.  
  340.     variable {runeDriaStart}  0
  341.     set posx(runeDriaStart)   0.608398
  342.     set posy(runeDriaStart)   0.376302
  343.     set width(runeDriaStart)  0.076172
  344.     set height(runeDriaStart) 0.040365
  345.     set scene(runeDriaStart)  garden
  346.     set camera(runeDriaStart) gardenLever
  347.  
  348.     variable {runeDriaSuccess}  0
  349.     set posx(runeDriaSuccess)   0.470703
  350.     set posy(runeDriaSuccess)   0.346354
  351.     set width(runeDriaSuccess)  0.061523
  352.     set height(runeDriaSuccess) 0.083333
  353.     set scene(runeDriaSuccess)  garden
  354.     set camera(runeDriaSuccess) gardenLever
  355.  
  356.     variable {runeOrlosLoop}  0
  357.     set posx(runeOrlosLoop)   0.354492
  358.     set posy(runeOrlosLoop)   0.419271
  359.     set width(runeOrlosLoop)  0.015625
  360.     set height(runeOrlosLoop) 0.020833
  361.     set scene(runeOrlosLoop)  garden
  362.     set camera(runeOrlosLoop) gardenLever
  363.  
  364.     variable {runeOrlosStart}  0
  365.     set posx(runeOrlosStart)   0.354492
  366.     set posy(runeOrlosStart)   0.419271
  367.     set width(runeOrlosStart)  0.015625
  368.     set height(runeOrlosStart) 0.020833
  369.     set scene(runeOrlosStart)  garden
  370.     set camera(runeOrlosStart) gardenLever
  371.  
  372.     variable {runeUndarLoop}  0
  373.     set posx(runeUndarLoop)   0.425781
  374.     set posy(runeUndarLoop)   0.341146
  375.     set width(runeUndarLoop)  0.034180
  376.     set height(runeUndarLoop) 0.026042
  377.     set scene(runeUndarLoop)  garden
  378.     set camera(runeUndarLoop) gardenLever
  379.  
  380.     variable {runeUndarStart}  0
  381.     set posx(runeUndarStart)   0.425781
  382.     set posy(runeUndarStart)   0.341146
  383.     set width(runeUndarStart)  0.034180
  384.     set height(runeUndarStart) 0.026042
  385.     set scene(runeUndarStart)  garden
  386.     set camera(runeUndarStart) gardenLever
  387.  
  388.     variable {waterA}  0
  389.     set posx(waterA)   0.601563
  390.     set posy(waterA)   0.662760
  391.     set width(waterA)  0.334961
  392.     set height(waterA) 0.134115
  393.     set scene(waterA)  garden
  394.     set camera(waterA) gardenLever
  395.  
  396.     variable {waterB}  0
  397.     set posx(waterB)   0.000000
  398.     set posy(waterB)   0.576823
  399.     set width(waterB)  0.379883
  400.     set height(waterB) 0.166667
  401.     set scene(waterB)  garden
  402.     set camera(waterB) gardenLever
  403.  
  404.     variable {waterC}  0
  405.     set posx(waterC)   0.000000
  406.     set posy(waterC)   0.248698
  407.     set width(waterC)  0.194336
  408.     set height(waterC) 0.333333
  409.     set scene(waterC)  garden
  410.     set camera(waterC) gardenLever
  411.  
  412.     variable {waterD}  0
  413.     set posx(waterD)   0.000000
  414.     set posy(waterD)   0.153646
  415.     set width(waterD)  0.031250
  416.     set height(waterD) 0.100260
  417.     set scene(waterD)  garden
  418.     set camera(waterD) gardenLever
  419.  
  420.     proc new {object args} {
  421.         variable $object
  422.         variable posx
  423.         variable posy
  424.         variable width
  425.         variable height
  426.         variable scene
  427.         variable camera
  428.  
  429.         if {[set $object] != 0} return
  430.  
  431.         set optstring {play foreground nopan {depth 0}}
  432.         array set v [cmdline::getopt $args $optstring]
  433.  
  434.         set layer "-background"
  435.         if $v(foreground?) {
  436.             set layer "-foreground"
  437.         }
  438.  
  439.         set pan "-pan"
  440.         if $v(nopan?) {
  441.             set pan ""
  442.         }
  443.  
  444.         set depth $v(depth)
  445.  
  446.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  447.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  448.                     -depth $depth $layer $pan]
  449.  
  450.         eval "oz'widget::property [set $object] $args"
  451.  
  452.         if $v(play?) {
  453.             oz'event {
  454.                 ozSet mvDisableMouse 0
  455.                 if [ozIsEnable mouse] {
  456.                     wizDisableMouse
  457.                     ozSet mvDisableMouse 1
  458.                 }
  459.             }
  460.             wq'widget::waitfor [set $object] -animate
  461.             wq'widget::delete [set $object]
  462.             oz'event {
  463.                 if [ozGet mvDisableMouse] {
  464.                     wizEnableMouse
  465.                 }
  466.             }
  467.             set $object 0
  468.         }
  469.     }
  470.  
  471.     proc newSt {object args} {
  472.         variable $object
  473.         variable posx
  474.         variable posy
  475.         variable width
  476.         variable height
  477.         variable scene
  478.         variable camera
  479.  
  480.         if {[set $object] != 0} return
  481.  
  482.         set optstring {play foreground {depth 1}}
  483.         array set v [cmdline::getopt $args $optstring]
  484.  
  485.         set layer "-background"
  486.         if $v(foreground) {
  487.             set layer "-foreground"
  488.         }
  489.  
  490.         set depth $v(depth)
  491.  
  492.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  493.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  494.                     -depth $depth $layer -pan]
  495.  
  496.         eval "oz'widget::property [set $object] $args"
  497.     }
  498. }
  499.  
  500.  
  501. namespace eval gardenStage {
  502.     variable posx
  503.     variable posy
  504.     variable width
  505.     variable height
  506.     variable scene
  507.     variable camera
  508.  
  509.     variable {water}  0
  510.     set posx(water)   1.618164
  511.     set posy(water)   0.528646
  512.     set width(water)  0.381836
  513.     set height(water) 0.131510
  514.     set scene(water)  garden
  515.     set camera(water) gardenStage
  516.  
  517.     proc new {object args} {
  518.         variable $object
  519.         variable posx
  520.         variable posy
  521.         variable width
  522.         variable height
  523.         variable scene
  524.         variable camera
  525.  
  526.         if {[set $object] != 0} return
  527.  
  528.         set optstring {play foreground nopan {depth 0}}
  529.         array set v [cmdline::getopt $args $optstring]
  530.  
  531.         set layer "-background"
  532.         if $v(foreground?) {
  533.             set layer "-foreground"
  534.         }
  535.  
  536.         set pan "-pan"
  537.         if $v(nopan?) {
  538.             set pan ""
  539.         }
  540.  
  541.         set depth $v(depth)
  542.  
  543.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  544.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  545.                     -depth $depth $layer $pan]
  546.  
  547.         eval "oz'widget::property [set $object] $args"
  548.  
  549.         if $v(play?) {
  550.             oz'event {
  551.                 ozSet mvDisableMouse 0
  552.                 if [ozIsEnable mouse] {
  553.                     wizDisableMouse
  554.                     ozSet mvDisableMouse 1
  555.                 }
  556.             }
  557.             wq'widget::waitfor [set $object] -animate
  558.             wq'widget::delete [set $object]
  559.             oz'event {
  560.                 if [ozGet mvDisableMouse] {
  561.                     wizEnableMouse
  562.                 }
  563.             }
  564.             set $object 0
  565.         }
  566.     }
  567.  
  568.     proc newSt {object args} {
  569.         variable $object
  570.         variable posx
  571.         variable posy
  572.         variable width
  573.         variable height
  574.         variable scene
  575.         variable camera
  576.  
  577.         if {[set $object] != 0} return
  578.  
  579.         set optstring {play foreground {depth 1}}
  580.         array set v [cmdline::getopt $args $optstring]
  581.  
  582.         set layer "-background"
  583.         if $v(foreground) {
  584.             set layer "-foreground"
  585.         }
  586.  
  587.         set depth $v(depth)
  588.  
  589.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  590.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  591.                     -depth $depth $layer -pan]
  592.  
  593.         eval "oz'widget::property [set $object] $args"
  594.     }
  595. }
  596.  
  597.  
  598. namespace eval gargoyles {
  599.     variable posx
  600.     variable posy
  601.     variable width
  602.     variable height
  603.     variable scene
  604.     variable camera
  605.  
  606.     variable {runeDriaSuccess}  0
  607.     set posx(runeDriaSuccess)   0.537109
  608.     set posy(runeDriaSuccess)   0.759115
  609.     set width(runeDriaSuccess)  0.031250
  610.     set height(runeDriaSuccess) 0.041667
  611.     set scene(runeDriaSuccess)  garden
  612.     set camera(runeDriaSuccess) gargoyles
  613.  
  614.     variable {waterA}  0
  615.     set posx(waterA)   0.434570
  616.     set posy(waterA)   0.712240
  617.     set width(waterA)  0.236328
  618.     set height(waterA) 0.188802
  619.     set scene(waterA)  garden
  620.     set camera(waterA) gargoyles
  621.  
  622.     variable {waterfallA}  0
  623.     set posx(waterfallA)   0.624023
  624.     set posy(waterfallA)   0.238281
  625.     set width(waterfallA)  0.050781
  626.     set height(waterfallA) 0.445313
  627.     set scene(waterfallA)  garden
  628.     set camera(waterfallA) gargoyles
  629.  
  630.     variable {waterfallB}  0
  631.     set posx(waterfallB)   0.583008
  632.     set posy(waterfallB)   0.148438
  633.     set width(waterfallB)  0.091797
  634.     set height(waterfallB) 0.095052
  635.     set scene(waterfallB)  garden
  636.     set camera(waterfallB) gargoyles
  637.  
  638.     variable {waterfallTree}  0
  639.     set posx(waterfallTree)   0.637695
  640.     set posy(waterfallTree)   0.621094
  641.     set width(waterfallTree)  0.031250
  642.     set height(waterfallTree) 0.062500
  643.     set scene(waterfallTree)  garden
  644.     set camera(waterfallTree) gargoyles
  645.  
  646.     variable {waterTreeA}  0
  647.     set posx(waterTreeA)   0.434570
  648.     set posy(waterTreeA)   0.712240
  649.     set width(waterTreeA)  0.236328
  650.     set height(waterTreeA) 0.188802
  651.     set scene(waterTreeA)  garden
  652.     set camera(waterTreeA) gargoyles
  653.  
  654.     proc new {object args} {
  655.         variable $object
  656.         variable posx
  657.         variable posy
  658.         variable width
  659.         variable height
  660.         variable scene
  661.         variable camera
  662.  
  663.         if {[set $object] != 0} return
  664.  
  665.         set optstring {play foreground nopan {depth 0}}
  666.         array set v [cmdline::getopt $args $optstring]
  667.  
  668.         set layer "-background"
  669.         if $v(foreground?) {
  670.             set layer "-foreground"
  671.         }
  672.  
  673.         set pan "-pan"
  674.         if $v(nopan?) {
  675.             set pan ""
  676.         }
  677.  
  678.         set depth $v(depth)
  679.  
  680.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  681.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  682.                     -depth $depth $layer $pan]
  683.  
  684.         eval "oz'widget::property [set $object] $args"
  685.  
  686.         if $v(play?) {
  687.             oz'event {
  688.                 ozSet mvDisableMouse 0
  689.                 if [ozIsEnable mouse] {
  690.                     wizDisableMouse
  691.                     ozSet mvDisableMouse 1
  692.                 }
  693.             }
  694.             wq'widget::waitfor [set $object] -animate
  695.             wq'widget::delete [set $object]
  696.             oz'event {
  697.                 if [ozGet mvDisableMouse] {
  698.                     wizEnableMouse
  699.                 }
  700.             }
  701.             set $object 0
  702.         }
  703.     }
  704.  
  705.     proc newSt {object args} {
  706.         variable $object
  707.         variable posx
  708.         variable posy
  709.         variable width
  710.         variable height
  711.         variable scene
  712.         variable camera
  713.  
  714.         if {[set $object] != 0} return
  715.  
  716.         set optstring {play foreground {depth 1}}
  717.         array set v [cmdline::getopt $args $optstring]
  718.  
  719.         set layer "-background"
  720.         if $v(foreground) {
  721.             set layer "-foreground"
  722.         }
  723.  
  724.         set depth $v(depth)
  725.  
  726.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  727.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  728.                     -depth $depth $layer -pan]
  729.  
  730.         eval "oz'widget::property [set $object] $args"
  731.     }
  732. }
  733.  
  734.  
  735. namespace eval islandCloseUp {
  736.     variable posx
  737.     variable posy
  738.     variable width
  739.     variable height
  740.     variable scene
  741.     variable camera
  742.  
  743.     variable {runeDriaLoop}  0
  744.     set posx(runeDriaLoop)   0.250977
  745.     set posy(runeDriaLoop)   0.497396
  746.     set width(runeDriaLoop)  0.107422
  747.     set height(runeDriaLoop) 0.040365
  748.     set scene(runeDriaLoop)  garden
  749.     set camera(runeDriaLoop) islandCloseUp
  750.  
  751.     variable {runeDriaStart}  0
  752.     set posx(runeDriaStart)   0.250977
  753.     set posy(runeDriaStart)   0.497396
  754.     set width(runeDriaStart)  0.107422
  755.     set height(runeDriaStart) 0.040365
  756.     set scene(runeDriaStart)  garden
  757.     set camera(runeDriaStart) islandCloseUp
  758.  
  759.     variable {runeDriaSuccess}  0
  760.     set posx(runeDriaSuccess)   0.483398
  761.     set posy(runeDriaSuccess)   0.460938
  762.     set width(runeDriaSuccess)  0.111328
  763.     set height(runeDriaSuccess) 0.106771
  764.     set scene(runeDriaSuccess)  garden
  765.     set camera(runeDriaSuccess) islandCloseUp
  766.  
  767.     variable {runeOrlosLoop}  0
  768.     set posx(runeOrlosLoop)   0.580078
  769.     set posy(runeOrlosLoop)   0.399740
  770.     set width(runeOrlosLoop)  0.062500
  771.     set height(runeOrlosLoop) 0.041667
  772.     set scene(runeOrlosLoop)  garden
  773.     set camera(runeOrlosLoop) islandCloseUp
  774.  
  775.     variable {runeOrlosStart}  0
  776.     set posx(runeOrlosStart)   0.580078
  777.     set posy(runeOrlosStart)   0.399740
  778.     set width(runeOrlosStart)  0.062500
  779.     set height(runeOrlosStart) 0.041667
  780.     set scene(runeOrlosStart)  garden
  781.     set camera(runeOrlosStart) islandCloseUp
  782.  
  783.     variable {runeUndarLoop}  0
  784.     set posx(runeUndarLoop)   0.668945
  785.     set posy(runeUndarLoop)   0.582031
  786.     set width(runeUndarLoop)  0.108398
  787.     set height(runeUndarLoop) 0.080729
  788.     set scene(runeUndarLoop)  garden
  789.     set camera(runeUndarLoop) islandCloseUp
  790.  
  791.     variable {runeUndarStart}  0
  792.     set posx(runeUndarStart)   0.668945
  793.     set posy(runeUndarStart)   0.582031
  794.     set width(runeUndarStart)  0.108398
  795.     set height(runeUndarStart) 0.080729
  796.     set scene(runeUndarStart)  garden
  797.     set camera(runeUndarStart) islandCloseUp
  798.  
  799.     proc new {object args} {
  800.         variable $object
  801.         variable posx
  802.         variable posy
  803.         variable width
  804.         variable height
  805.         variable scene
  806.         variable camera
  807.  
  808.         if {[set $object] != 0} return
  809.  
  810.         set optstring {play foreground nopan {depth 0}}
  811.         array set v [cmdline::getopt $args $optstring]
  812.  
  813.         set layer "-background"
  814.         if $v(foreground?) {
  815.             set layer "-foreground"
  816.         }
  817.  
  818.         set pan "-pan"
  819.         if $v(nopan?) {
  820.             set pan ""
  821.         }
  822.  
  823.         set depth $v(depth)
  824.  
  825.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  826.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  827.                     -depth $depth $layer $pan]
  828.  
  829.         eval "oz'widget::property [set $object] $args"
  830.  
  831.         if $v(play?) {
  832.             oz'event {
  833.                 ozSet mvDisableMouse 0
  834.                 if [ozIsEnable mouse] {
  835.                     wizDisableMouse
  836.                     ozSet mvDisableMouse 1
  837.                 }
  838.             }
  839.             wq'widget::waitfor [set $object] -animate
  840.             wq'widget::delete [set $object]
  841.             oz'event {
  842.                 if [ozGet mvDisableMouse] {
  843.                     wizEnableMouse
  844.                 }
  845.             }
  846.             set $object 0
  847.         }
  848.     }
  849.  
  850.     proc newSt {object args} {
  851.         variable $object
  852.         variable posx
  853.         variable posy
  854.         variable width
  855.         variable height
  856.         variable scene
  857.         variable camera
  858.  
  859.         if {[set $object] != 0} return
  860.  
  861.         set optstring {play foreground {depth 1}}
  862.         array set v [cmdline::getopt $args $optstring]
  863.  
  864.         set layer "-background"
  865.         if $v(foreground) {
  866.             set layer "-foreground"
  867.         }
  868.  
  869.         set depth $v(depth)
  870.  
  871.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  872.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  873.                     -depth $depth $layer -pan]
  874.  
  875.         eval "oz'widget::property [set $object] $args"
  876.     }
  877. }
  878.  
  879.  
  880. namespace eval magicalTreeGrowing {
  881.     variable posx
  882.     variable posy
  883.     variable width
  884.     variable height
  885.     variable scene
  886.     variable camera
  887.  
  888.     variable {magicalTreeGrowing}  0
  889.     set posx(magicalTreeGrowing)   0.000000
  890.     set posy(magicalTreeGrowing)   0.000000
  891.     set width(magicalTreeGrowing)  1.000000
  892.     set height(magicalTreeGrowing) 1.000000
  893.     set scene(magicalTreeGrowing)  garden
  894.     set camera(magicalTreeGrowing) magicalTreeGrowing
  895.  
  896.     proc new {object args} {
  897.         variable $object
  898.         variable posx
  899.         variable posy
  900.         variable width
  901.         variable height
  902.         variable scene
  903.         variable camera
  904.  
  905.         if {[set $object] != 0} return
  906.  
  907.         set optstring {play foreground nopan {depth 0}}
  908.         array set v [cmdline::getopt $args $optstring]
  909.  
  910.         set layer "-background"
  911.         if $v(foreground?) {
  912.             set layer "-foreground"
  913.         }
  914.  
  915.         set pan "-pan"
  916.         if $v(nopan?) {
  917.             set pan ""
  918.         }
  919.  
  920.         set depth $v(depth)
  921.  
  922.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  923.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  924.                     -depth $depth $layer $pan]
  925.  
  926.         eval "oz'widget::property [set $object] $args"
  927.  
  928.         if $v(play?) {
  929.             oz'event {
  930.                 ozSet mvDisableMouse 0
  931.                 if [ozIsEnable mouse] {
  932.                     wizDisableMouse
  933.                     ozSet mvDisableMouse 1
  934.                 }
  935.             }
  936.             wq'widget::waitfor [set $object] -animate
  937.             wq'widget::delete [set $object]
  938.             oz'event {
  939.                 if [ozGet mvDisableMouse] {
  940.                     wizEnableMouse
  941.                 }
  942.             }
  943.             set $object 0
  944.         }
  945.     }
  946.  
  947.     proc newSt {object args} {
  948.         variable $object
  949.         variable posx
  950.         variable posy
  951.         variable width
  952.         variable height
  953.         variable scene
  954.         variable camera
  955.  
  956.         if {[set $object] != 0} return
  957.  
  958.         set optstring {play foreground {depth 1}}
  959.         array set v [cmdline::getopt $args $optstring]
  960.  
  961.         set layer "-background"
  962.         if $v(foreground) {
  963.             set layer "-foreground"
  964.         }
  965.  
  966.         set depth $v(depth)
  967.  
  968.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  969.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  970.                     -depth $depth $layer -pan]
  971.  
  972.         eval "oz'widget::property [set $object] $args"
  973.     }
  974. }
  975.  
  976.  
  977. namespace eval orlosCloseUp {
  978.     variable posx
  979.     variable posy
  980.     variable width
  981.     variable height
  982.     variable scene
  983.     variable camera
  984.  
  985.     variable {runes}  0
  986.     set posx(runes)   0.250000
  987.     set posy(runes)   0.145833
  988.     set width(runes)  0.500000
  989.     set height(runes) 0.666667
  990.     set scene(runes)  garden
  991.     set camera(runes) orlosCloseUp
  992.  
  993.     proc new {object args} {
  994.         variable $object
  995.         variable posx
  996.         variable posy
  997.         variable width
  998.         variable height
  999.         variable scene
  1000.         variable camera
  1001.  
  1002.         if {[set $object] != 0} return
  1003.  
  1004.         set optstring {play foreground nopan {depth 0}}
  1005.         array set v [cmdline::getopt $args $optstring]
  1006.  
  1007.         set layer "-background"
  1008.         if $v(foreground?) {
  1009.             set layer "-foreground"
  1010.         }
  1011.  
  1012.         set pan "-pan"
  1013.         if $v(nopan?) {
  1014.             set pan ""
  1015.         }
  1016.  
  1017.         set depth $v(depth)
  1018.  
  1019.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1020.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1021.                     -depth $depth $layer $pan]
  1022.  
  1023.         eval "oz'widget::property [set $object] $args"
  1024.  
  1025.         if $v(play?) {
  1026.             oz'event {
  1027.                 ozSet mvDisableMouse 0
  1028.                 if [ozIsEnable mouse] {
  1029.                     wizDisableMouse
  1030.                     ozSet mvDisableMouse 1
  1031.                 }
  1032.             }
  1033.             wq'widget::waitfor [set $object] -animate
  1034.             wq'widget::delete [set $object]
  1035.             oz'event {
  1036.                 if [ozGet mvDisableMouse] {
  1037.                     wizEnableMouse
  1038.                 }
  1039.             }
  1040.             set $object 0
  1041.         }
  1042.     }
  1043.  
  1044.     proc newSt {object args} {
  1045.         variable $object
  1046.         variable posx
  1047.         variable posy
  1048.         variable width
  1049.         variable height
  1050.         variable scene
  1051.         variable camera
  1052.  
  1053.         if {[set $object] != 0} return
  1054.  
  1055.         set optstring {play foreground {depth 1}}
  1056.         array set v [cmdline::getopt $args $optstring]
  1057.  
  1058.         set layer "-background"
  1059.         if $v(foreground) {
  1060.             set layer "-foreground"
  1061.         }
  1062.  
  1063.         set depth $v(depth)
  1064.  
  1065.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1066.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1067.                     -depth $depth $layer -pan]
  1068.  
  1069.         eval "oz'widget::property [set $object] $args"
  1070.     }
  1071. }
  1072.  
  1073.  
  1074. namespace eval path {
  1075.     variable posx
  1076.     variable posy
  1077.     variable width
  1078.     variable height
  1079.     variable scene
  1080.     variable camera
  1081.  
  1082.     variable {water}  0
  1083.     set posx(water)   1.095703
  1084.     set posy(water)   0.584635
  1085.     set width(water)  0.099609
  1086.     set height(water) 0.050781
  1087.     set scene(water)  garden
  1088.     set camera(water) path
  1089.  
  1090.     proc new {object args} {
  1091.         variable $object
  1092.         variable posx
  1093.         variable posy
  1094.         variable width
  1095.         variable height
  1096.         variable scene
  1097.         variable camera
  1098.  
  1099.         if {[set $object] != 0} return
  1100.  
  1101.         set optstring {play foreground nopan {depth 0}}
  1102.         array set v [cmdline::getopt $args $optstring]
  1103.  
  1104.         set layer "-background"
  1105.         if $v(foreground?) {
  1106.             set layer "-foreground"
  1107.         }
  1108.  
  1109.         set pan "-pan"
  1110.         if $v(nopan?) {
  1111.             set pan ""
  1112.         }
  1113.  
  1114.         set depth $v(depth)
  1115.  
  1116.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1117.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1118.                     -depth $depth $layer $pan]
  1119.  
  1120.         eval "oz'widget::property [set $object] $args"
  1121.  
  1122.         if $v(play?) {
  1123.             oz'event {
  1124.                 ozSet mvDisableMouse 0
  1125.                 if [ozIsEnable mouse] {
  1126.                     wizDisableMouse
  1127.                     ozSet mvDisableMouse 1
  1128.                 }
  1129.             }
  1130.             wq'widget::waitfor [set $object] -animate
  1131.             wq'widget::delete [set $object]
  1132.             oz'event {
  1133.                 if [ozGet mvDisableMouse] {
  1134.                     wizEnableMouse
  1135.                 }
  1136.             }
  1137.             set $object 0
  1138.         }
  1139.     }
  1140.  
  1141.     proc newSt {object args} {
  1142.         variable $object
  1143.         variable posx
  1144.         variable posy
  1145.         variable width
  1146.         variable height
  1147.         variable scene
  1148.         variable camera
  1149.  
  1150.         if {[set $object] != 0} return
  1151.  
  1152.         set optstring {play foreground {depth 1}}
  1153.         array set v [cmdline::getopt $args $optstring]
  1154.  
  1155.         set layer "-background"
  1156.         if $v(foreground) {
  1157.             set layer "-foreground"
  1158.         }
  1159.  
  1160.         set depth $v(depth)
  1161.  
  1162.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1163.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1164.                     -depth $depth $layer -pan]
  1165.  
  1166.         eval "oz'widget::property [set $object] $args"
  1167.     }
  1168. }
  1169.  
  1170.  
  1171. namespace eval puzzleSliders {
  1172.     variable posx
  1173.     variable posy
  1174.     variable width
  1175.     variable height
  1176.     variable scene
  1177.     variable camera
  1178.  
  1179.     variable {reset}  0
  1180.     set posx(reset)   0.439453
  1181.     set posy(reset)   0.617188
  1182.     set width(reset)  0.125000
  1183.     set height(reset) 0.333333
  1184.     set scene(reset)  garden
  1185.     set camera(reset) puzzleSliders
  1186.  
  1187.     variable {rune1}  0
  1188.     set posx(rune1)   0.421875
  1189.     set posy(rune1)   0.272135
  1190.     set width(rune1)  0.191406
  1191.     set height(rune1) 0.187500
  1192.     set scene(rune1)  garden
  1193.     set camera(rune1) puzzleSliders
  1194.  
  1195.     variable {rune2}  0
  1196.     set posx(rune2)   0.422852
  1197.     set posy(rune2)   0.316406
  1198.     set width(rune2)  0.145508
  1199.     set height(rune2) 0.235677
  1200.     set scene(rune2)  garden
  1201.     set camera(rune2) puzzleSliders
  1202.  
  1203.     variable {rune3}  0
  1204.     set posx(rune3)   0.375977
  1205.     set posy(rune3)   0.321615
  1206.     set width(rune3)  0.243164
  1207.     set height(rune3) 0.238281
  1208.     set scene(rune3)  garden
  1209.     set camera(rune3) puzzleSliders
  1210.  
  1211.     variable {rune4}  0
  1212.     set posx(rune4)   0.348633
  1213.     set posy(rune4)   0.319010
  1214.     set width(rune4)  0.261719
  1215.     set height(rune4) 0.259115
  1216.     set scene(rune4)  garden
  1217.     set camera(rune4) puzzleSliders
  1218.  
  1219.     variable {rune5}  0
  1220.     set posx(rune5)   0.420898
  1221.     set posy(rune5)   0.257812
  1222.     set width(rune5)  0.158203
  1223.     set height(rune5) 0.317708
  1224.     set scene(rune5)  garden
  1225.     set camera(rune5) puzzleSliders
  1226.  
  1227.     variable {rune6}  0
  1228.     set posx(rune6)   0.453125
  1229.     set posy(rune6)   0.274740
  1230.     set width(rune6)  0.149414
  1231.     set height(rune6) 0.175781
  1232.     set scene(rune6)  garden
  1233.     set camera(rune6) puzzleSliders
  1234.  
  1235.     variable {rune7}  0
  1236.     set posx(rune7)   0.394531
  1237.     set posy(rune7)   0.264323
  1238.     set width(rune7)  0.180664
  1239.     set height(rune7) 0.300781
  1240.     set scene(rune7)  garden
  1241.     set camera(rune7) puzzleSliders
  1242.  
  1243.     variable {rune8}  0
  1244.     set posx(rune8)   0.492188
  1245.     set posy(rune8)   0.319010
  1246.     set width(rune8)  0.124023
  1247.     set height(rune8) 0.220052
  1248.     set scene(rune8)  garden
  1249.     set camera(rune8) puzzleSliders
  1250.  
  1251.     variable {slider1Off}  0
  1252.     set posx(slider1Off)   0.311523
  1253.     set posy(slider1Off)   0.544271
  1254.     set width(slider1Off)  0.119141
  1255.     set height(slider1Off) 0.061198
  1256.     set scene(slider1Off)  garden
  1257.     set camera(slider1Off) puzzleSliders
  1258.  
  1259.     variable {slider1On}  0
  1260.     set posx(slider1On)   0.311523
  1261.     set posy(slider1On)   0.544271
  1262.     set width(slider1On)  0.119141
  1263.     set height(slider1On) 0.061198
  1264.     set scene(slider1On)  garden
  1265.     set camera(slider1On) puzzleSliders
  1266.  
  1267.     variable {slider1OnSt}  0
  1268.     set posx(slider1OnSt)   0.311523
  1269.     set posy(slider1OnSt)   0.544271
  1270.     set width(slider1OnSt)  0.119141
  1271.     set height(slider1OnSt) 0.061198
  1272.     set scene(slider1OnSt)  garden
  1273.     set camera(slider1OnSt) puzzleSliders
  1274.  
  1275.     variable {slider2Off}  0
  1276.     set posx(slider2Off)   0.311523
  1277.     set posy(slider2Off)   0.619792
  1278.     set width(slider2Off)  0.119141
  1279.     set height(slider2Off) 0.059896
  1280.     set scene(slider2Off)  garden
  1281.     set camera(slider2Off) puzzleSliders
  1282.  
  1283.     variable {slider2On}  0
  1284.     set posx(slider2On)   0.311523
  1285.     set posy(slider2On)   0.619792
  1286.     set width(slider2On)  0.119141
  1287.     set height(slider2On) 0.059896
  1288.     set scene(slider2On)  garden
  1289.     set camera(slider2On) puzzleSliders
  1290.  
  1291.     variable {slider2OnSt}  0
  1292.     set posx(slider2OnSt)   0.311523
  1293.     set posy(slider2OnSt)   0.619792
  1294.     set width(slider2OnSt)  0.119141
  1295.     set height(slider2OnSt) 0.059896
  1296.     set scene(slider2OnSt)  garden
  1297.     set camera(slider2OnSt) puzzleSliders
  1298.  
  1299.     variable {slider3Off}  0
  1300.     set posx(slider3Off)   0.311523
  1301.     set posy(slider3Off)   0.692708
  1302.     set width(slider3Off)  0.119141
  1303.     set height(slider3Off) 0.062500
  1304.     set scene(slider3Off)  garden
  1305.     set camera(slider3Off) puzzleSliders
  1306.  
  1307.     variable {slider3On}  0
  1308.     set posx(slider3On)   0.311523
  1309.     set posy(slider3On)   0.692708
  1310.     set width(slider3On)  0.119141
  1311.     set height(slider3On) 0.062500
  1312.     set scene(slider3On)  garden
  1313.     set camera(slider3On) puzzleSliders
  1314.  
  1315.     variable {slider3OnSt}  0
  1316.     set posx(slider3OnSt)   0.311523
  1317.     set posy(slider3OnSt)   0.692708
  1318.     set width(slider3OnSt)  0.119141
  1319.     set height(slider3OnSt) 0.062500
  1320.     set scene(slider3OnSt)  garden
  1321.     set camera(slider3OnSt) puzzleSliders
  1322.  
  1323.     variable {slider4Off}  0
  1324.     set posx(slider4Off)   0.311523
  1325.     set posy(slider4Off)   0.768229
  1326.     set width(slider4Off)  0.119141
  1327.     set height(slider4Off) 0.061198
  1328.     set scene(slider4Off)  garden
  1329.     set camera(slider4Off) puzzleSliders
  1330.  
  1331.     variable {slider4On}  0
  1332.     set posx(slider4On)   0.311523
  1333.     set posy(slider4On)   0.768229
  1334.     set width(slider4On)  0.119141
  1335.     set height(slider4On) 0.061198
  1336.     set scene(slider4On)  garden
  1337.     set camera(slider4On) puzzleSliders
  1338.  
  1339.     variable {slider4OnSt}  0
  1340.     set posx(slider4OnSt)   0.311523
  1341.     set posy(slider4OnSt)   0.768229
  1342.     set width(slider4OnSt)  0.119141
  1343.     set height(slider4OnSt) 0.061198
  1344.     set scene(slider4OnSt)  garden
  1345.     set camera(slider4OnSt) puzzleSliders
  1346.  
  1347.     variable {slider5Off}  0
  1348.     set posx(slider5Off)   0.575195
  1349.     set posy(slider5Off)   0.545573
  1350.     set width(slider5Off)  0.117188
  1351.     set height(slider5Off) 0.058594
  1352.     set scene(slider5Off)  garden
  1353.     set camera(slider5Off) puzzleSliders
  1354.  
  1355.     variable {slider5On}  0
  1356.     set posx(slider5On)   0.575195
  1357.     set posy(slider5On)   0.545573
  1358.     set width(slider5On)  0.117188
  1359.     set height(slider5On) 0.058594
  1360.     set scene(slider5On)  garden
  1361.     set camera(slider5On) puzzleSliders
  1362.  
  1363.     variable {slider5OnSt}  0
  1364.     set posx(slider5OnSt)   0.575195
  1365.     set posy(slider5OnSt)   0.545573
  1366.     set width(slider5OnSt)  0.117188
  1367.     set height(slider5OnSt) 0.058594
  1368.     set scene(slider5OnSt)  garden
  1369.     set camera(slider5OnSt) puzzleSliders
  1370.  
  1371.     variable {slider6Off}  0
  1372.     set posx(slider6Off)   0.575195
  1373.     set posy(slider6Off)   0.618490
  1374.     set width(slider6Off)  0.117188
  1375.     set height(slider6Off) 0.059896
  1376.     set scene(slider6Off)  garden
  1377.     set camera(slider6Off) puzzleSliders
  1378.  
  1379.     variable {slider6On}  0
  1380.     set posx(slider6On)   0.575195
  1381.     set posy(slider6On)   0.618490
  1382.     set width(slider6On)  0.117188
  1383.     set height(slider6On) 0.059896
  1384.     set scene(slider6On)  garden
  1385.     set camera(slider6On) puzzleSliders
  1386.  
  1387.     variable {slider6OnSt}  0
  1388.     set posx(slider6OnSt)   0.575195
  1389.     set posy(slider6OnSt)   0.618490
  1390.     set width(slider6OnSt)  0.117188
  1391.     set height(slider6OnSt) 0.059896
  1392.     set scene(slider6OnSt)  garden
  1393.     set camera(slider6OnSt) puzzleSliders
  1394.  
  1395.     variable {slider7Off}  0
  1396.     set posx(slider7Off)   0.575195
  1397.     set posy(slider7Off)   0.692708
  1398.     set width(slider7Off)  0.117188
  1399.     set height(slider7Off) 0.061198
  1400.     set scene(slider7Off)  garden
  1401.     set camera(slider7Off) puzzleSliders
  1402.  
  1403.     variable {slider7On}  0
  1404.     set posx(slider7On)   0.575195
  1405.     set posy(slider7On)   0.692708
  1406.     set width(slider7On)  0.117188
  1407.     set height(slider7On) 0.061198
  1408.     set scene(slider7On)  garden
  1409.     set camera(slider7On) puzzleSliders
  1410.  
  1411.     variable {slider7OnSt}  0
  1412.     set posx(slider7OnSt)   0.575195
  1413.     set posy(slider7OnSt)   0.692708
  1414.     set width(slider7OnSt)  0.117188
  1415.     set height(slider7OnSt) 0.061198
  1416.     set scene(slider7OnSt)  garden
  1417.     set camera(slider7OnSt) puzzleSliders
  1418.  
  1419.     variable {slider8Off}  0
  1420.     set posx(slider8Off)   0.575195
  1421.     set posy(slider8Off)   0.766927
  1422.     set width(slider8Off)  0.117188
  1423.     set height(slider8Off) 0.062500
  1424.     set scene(slider8Off)  garden
  1425.     set camera(slider8Off) puzzleSliders
  1426.  
  1427.     variable {slider8On}  0
  1428.     set posx(slider8On)   0.575195
  1429.     set posy(slider8On)   0.766927
  1430.     set width(slider8On)  0.117188
  1431.     set height(slider8On) 0.062500
  1432.     set scene(slider8On)  garden
  1433.     set camera(slider8On) puzzleSliders
  1434.  
  1435.     variable {slider8OnSt}  0
  1436.     set posx(slider8OnSt)   0.575195
  1437.     set posy(slider8OnSt)   0.766927
  1438.     set width(slider8OnSt)  0.117188
  1439.     set height(slider8OnSt) 0.062500
  1440.     set scene(slider8OnSt)  garden
  1441.     set camera(slider8OnSt) puzzleSliders
  1442.  
  1443.     variable {sliderLightBeam}  0
  1444.     set posx(sliderLightBeam)   0.000000
  1445.     set posy(sliderLightBeam)   0.000000
  1446.     set width(sliderLightBeam)  1.000000
  1447.     set height(sliderLightBeam) 1.000000
  1448.     set scene(sliderLightBeam)  garden
  1449.     set camera(sliderLightBeam) puzzleSliders
  1450.  
  1451.     variable {sliderLightBeamWater}  0
  1452.     set posx(sliderLightBeamWater)   0.000000
  1453.     set posy(sliderLightBeamWater)   0.000000
  1454.     set width(sliderLightBeamWater)  1.000000
  1455.     set height(sliderLightBeamWater) 1.000000
  1456.     set scene(sliderLightBeamWater)  garden
  1457.     set camera(sliderLightBeamWater) puzzleSliders
  1458.  
  1459.     proc new {object args} {
  1460.         variable $object
  1461.         variable posx
  1462.         variable posy
  1463.         variable width
  1464.         variable height
  1465.         variable scene
  1466.         variable camera
  1467.  
  1468.         if {[set $object] != 0} return
  1469.  
  1470.         set optstring {play foreground nopan {depth 0}}
  1471.         array set v [cmdline::getopt $args $optstring]
  1472.  
  1473.         set layer "-background"
  1474.         if $v(foreground?) {
  1475.             set layer "-foreground"
  1476.         }
  1477.  
  1478.         set pan "-pan"
  1479.         if $v(nopan?) {
  1480.             set pan ""
  1481.         }
  1482.  
  1483.         set depth $v(depth)
  1484.  
  1485.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1486.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1487.                     -depth $depth $layer $pan]
  1488.  
  1489.         eval "oz'widget::property [set $object] $args"
  1490.  
  1491.         if $v(play?) {
  1492.             oz'event {
  1493.                 ozSet mvDisableMouse 0
  1494.                 if [ozIsEnable mouse] {
  1495.                     wizDisableMouse
  1496.                     ozSet mvDisableMouse 1
  1497.                 }
  1498.             }
  1499.             wq'widget::waitfor [set $object] -animate
  1500.             wq'widget::delete [set $object]
  1501.             oz'event {
  1502.                 if [ozGet mvDisableMouse] {
  1503.                     wizEnableMouse
  1504.                 }
  1505.             }
  1506.             set $object 0
  1507.         }
  1508.     }
  1509.  
  1510.     proc newSt {object args} {
  1511.         variable $object
  1512.         variable posx
  1513.         variable posy
  1514.         variable width
  1515.         variable height
  1516.         variable scene
  1517.         variable camera
  1518.  
  1519.         if {[set $object] != 0} return
  1520.  
  1521.         set optstring {play foreground {depth 1}}
  1522.         array set v [cmdline::getopt $args $optstring]
  1523.  
  1524.         set layer "-background"
  1525.         if $v(foreground) {
  1526.             set layer "-foreground"
  1527.         }
  1528.  
  1529.         set depth $v(depth)
  1530.  
  1531.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1532.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1533.                     -depth $depth $layer -pan]
  1534.  
  1535.         eval "oz'widget::property [set $object] $args"
  1536.     }
  1537. }
  1538.  
  1539.  
  1540. namespace eval puzzleStageTop {
  1541.     variable posx
  1542.     variable posy
  1543.     variable width
  1544.     variable height
  1545.     variable scene
  1546.     variable camera
  1547.  
  1548.     variable {fishesA}  0
  1549.     set posx(fishesA)   1.590820
  1550.     set posy(fishesA)   0.809896
  1551.     set width(fishesA)  0.250000
  1552.     set height(fishesA) 0.333333
  1553.     set scene(fishesA)  garden
  1554.     set camera(fishesA) puzzleStageTop
  1555.  
  1556.     variable {fishesB}  0
  1557.     set posx(fishesB)   1.094727
  1558.     set posy(fishesB)   0.335938
  1559.     set width(fishesB)  0.250000
  1560.     set height(fishesB) 0.166667
  1561.     set scene(fishesB)  garden
  1562.     set camera(fishesB) puzzleStageTop
  1563.  
  1564.     variable {fishesC}  0
  1565.     set posx(fishesC)   1.094727
  1566.     set posy(fishesC)   0.257813
  1567.     set width(fishesC)  0.250000
  1568.     set height(fishesC) 0.083333
  1569.     set scene(fishesC)  garden
  1570.     set camera(fishesC) puzzleStageTop
  1571.  
  1572.     variable {fishesD}  0
  1573.     set posx(fishesD)   1.340820
  1574.     set posy(fishesD)   0.335938
  1575.     set width(fishesD)  0.125000
  1576.     set height(fishesD) 0.291667
  1577.     set scene(fishesD)  garden
  1578.     set camera(fishesD) puzzleStageTop
  1579.  
  1580.     variable {fishesE}  0
  1581.     set posx(fishesE)   1.313477
  1582.     set posy(fishesE)   0.497396
  1583.     set width(fishesE)  0.031250
  1584.     set height(fishesE) 0.083333
  1585.     set scene(fishesE)  garden
  1586.     set camera(fishesE) puzzleStageTop
  1587.  
  1588.     variable {fishesF}  0
  1589.     set posx(fishesF)   0.907227
  1590.     set posy(fishesF)   0.096354
  1591.     set width(fishesF)  0.250000
  1592.     set height(fishesF) 0.166667
  1593.     set scene(fishesF)  garden
  1594.     set camera(fishesF) puzzleStageTop
  1595.  
  1596.     variable {fishesG}  0
  1597.     set posx(fishesG)   0.907227
  1598.     set posy(fishesG)   0.018229
  1599.     set width(fishesG)  0.250000
  1600.     set height(fishesG) 0.083333
  1601.     set scene(fishesG)  garden
  1602.     set camera(fishesG) puzzleStageTop
  1603.  
  1604.     variable {fishesH}  0
  1605.     set posx(fishesH)   0.974609
  1606.     set posy(fishesH)   0.251302
  1607.     set width(fishesH)  0.062500
  1608.     set height(fishesH) 0.083333
  1609.     set scene(fishesH)  garden
  1610.     set camera(fishesH) puzzleStageTop
  1611.  
  1612.     variable {fishesI}  0
  1613.     set posx(fishesI)   1.036133
  1614.     set posy(fishesI)   0.334635
  1615.     set width(fishesI)  0.064453
  1616.     set height(fishesI) 0.083333
  1617.     set scene(fishesI)  garden
  1618.     set camera(fishesI) puzzleStageTop
  1619.  
  1620.     proc new {object args} {
  1621.         variable $object
  1622.         variable posx
  1623.         variable posy
  1624.         variable width
  1625.         variable height
  1626.         variable scene
  1627.         variable camera
  1628.  
  1629.         if {[set $object] != 0} return
  1630.  
  1631.         set optstring {play foreground nopan {depth 0}}
  1632.         array set v [cmdline::getopt $args $optstring]
  1633.  
  1634.         set layer "-background"
  1635.         if $v(foreground?) {
  1636.             set layer "-foreground"
  1637.         }
  1638.  
  1639.         set pan "-pan"
  1640.         if $v(nopan?) {
  1641.             set pan ""
  1642.         }
  1643.  
  1644.         set depth $v(depth)
  1645.  
  1646.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1647.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1648.                     -depth $depth $layer $pan]
  1649.  
  1650.         eval "oz'widget::property [set $object] $args"
  1651.  
  1652.         if $v(play?) {
  1653.             oz'event {
  1654.                 ozSet mvDisableMouse 0
  1655.                 if [ozIsEnable mouse] {
  1656.                     wizDisableMouse
  1657.                     ozSet mvDisableMouse 1
  1658.                 }
  1659.             }
  1660.             wq'widget::waitfor [set $object] -animate
  1661.             wq'widget::delete [set $object]
  1662.             oz'event {
  1663.                 if [ozGet mvDisableMouse] {
  1664.                     wizEnableMouse
  1665.                 }
  1666.             }
  1667.             set $object 0
  1668.         }
  1669.     }
  1670.  
  1671.     proc newSt {object args} {
  1672.         variable $object
  1673.         variable posx
  1674.         variable posy
  1675.         variable width
  1676.         variable height
  1677.         variable scene
  1678.         variable camera
  1679.  
  1680.         if {[set $object] != 0} return
  1681.  
  1682.         set optstring {play foreground {depth 1}}
  1683.         array set v [cmdline::getopt $args $optstring]
  1684.  
  1685.         set layer "-background"
  1686.         if $v(foreground) {
  1687.             set layer "-foreground"
  1688.         }
  1689.  
  1690.         set depth $v(depth)
  1691.  
  1692.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1693.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1694.                     -depth $depth $layer -pan]
  1695.  
  1696.         eval "oz'widget::property [set $object] $args"
  1697.     }
  1698. }
  1699.  
  1700.  
  1701. namespace eval smallBridge {
  1702.     variable posx
  1703.     variable posy
  1704.     variable width
  1705.     variable height
  1706.     variable scene
  1707.     variable camera
  1708.  
  1709.     variable {runeDriaLoop}  0
  1710.     set posx(runeDriaLoop)   0.742188
  1711.     set posy(runeDriaLoop)   0.519531
  1712.     set width(runeDriaLoop)  0.031250
  1713.     set height(runeDriaLoop) 0.041667
  1714.     set scene(runeDriaLoop)  garden
  1715.     set camera(runeDriaLoop) smallBridge
  1716.  
  1717.     variable {runeDriaStart}  0
  1718.     set posx(runeDriaStart)   0.742188
  1719.     set posy(runeDriaStart)   0.519531
  1720.     set width(runeDriaStart)  0.031250
  1721.     set height(runeDriaStart) 0.041667
  1722.     set scene(runeDriaStart)  garden
  1723.     set camera(runeDriaStart) smallBridge
  1724.  
  1725.     variable {runeDriaSuccess}  0
  1726.     set posx(runeDriaSuccess)   0.687500
  1727.     set posy(runeDriaSuccess)   0.488281
  1728.     set width(runeDriaSuccess)  0.062500
  1729.     set height(runeDriaSuccess) 0.041667
  1730.     set scene(runeDriaSuccess)  garden
  1731.     set camera(runeDriaSuccess) smallBridge
  1732.  
  1733.     variable {runeOrlosLoop}  0
  1734.     set posx(runeOrlosLoop)   0.656250
  1735.     set posy(runeOrlosLoop)   0.492188
  1736.     set width(runeOrlosLoop)  0.031250
  1737.     set height(runeOrlosLoop) 0.041667
  1738.     set scene(runeOrlosLoop)  garden
  1739.     set camera(runeOrlosLoop) smallBridge
  1740.  
  1741.     variable {runeOrlosStart}  0
  1742.     set posx(runeOrlosStart)   0.656250
  1743.     set posy(runeOrlosStart)   0.492188
  1744.     set width(runeOrlosStart)  0.031250
  1745.     set height(runeOrlosStart) 0.041667
  1746.     set scene(runeOrlosStart)  garden
  1747.     set camera(runeOrlosStart) smallBridge
  1748.  
  1749.     variable {runeUndarLoop}  0
  1750.     set posx(runeUndarLoop)   0.719727
  1751.     set posy(runeUndarLoop)   0.451823
  1752.     set width(runeUndarLoop)  0.031250
  1753.     set height(runeUndarLoop) 0.041667
  1754.     set scene(runeUndarLoop)  garden
  1755.     set camera(runeUndarLoop) smallBridge
  1756.  
  1757.     variable {runeUndarStart}  0
  1758.     set posx(runeUndarStart)   0.719727
  1759.     set posy(runeUndarStart)   0.451823
  1760.     set width(runeUndarStart)  0.031250
  1761.     set height(runeUndarStart) 0.041667
  1762.     set scene(runeUndarStart)  garden
  1763.     set camera(runeUndarStart) smallBridge
  1764.  
  1765.     variable {waterA}  0
  1766.     set posx(waterA)   0.532227
  1767.     set posy(waterA)   0.170573
  1768.     set width(waterA)  0.430664
  1769.     set height(waterA) 0.666667
  1770.     set scene(waterA)  garden
  1771.     set camera(waterA) smallBridge
  1772.  
  1773.     variable {waterB}  0
  1774.     set posx(waterB)   0.602539
  1775.     set posy(waterB)   0.108073
  1776.     set width(waterB)  0.041992
  1777.     set height(waterB) 0.067708
  1778.     set scene(waterB)  garden
  1779.     set camera(waterB) smallBridge
  1780.  
  1781.     variable {waterTreeA}  0
  1782.     set posx(waterTreeA)   0.532227
  1783.     set posy(waterTreeA)   0.229167
  1784.     set width(waterTreeA)  0.430664
  1785.     set height(waterTreeA) 0.608073
  1786.     set scene(waterTreeA)  garden
  1787.     set camera(waterTreeA) smallBridge
  1788.  
  1789.     proc new {object args} {
  1790.         variable $object
  1791.         variable posx
  1792.         variable posy
  1793.         variable width
  1794.         variable height
  1795.         variable scene
  1796.         variable camera
  1797.  
  1798.         if {[set $object] != 0} return
  1799.  
  1800.         set optstring {play foreground nopan {depth 0}}
  1801.         array set v [cmdline::getopt $args $optstring]
  1802.  
  1803.         set layer "-background"
  1804.         if $v(foreground?) {
  1805.             set layer "-foreground"
  1806.         }
  1807.  
  1808.         set pan "-pan"
  1809.         if $v(nopan?) {
  1810.             set pan ""
  1811.         }
  1812.  
  1813.         set depth $v(depth)
  1814.  
  1815.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1816.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1817.                     -depth $depth $layer $pan]
  1818.  
  1819.         eval "oz'widget::property [set $object] $args"
  1820.  
  1821.         if $v(play?) {
  1822.             oz'event {
  1823.                 ozSet mvDisableMouse 0
  1824.                 if [ozIsEnable mouse] {
  1825.                     wizDisableMouse
  1826.                     ozSet mvDisableMouse 1
  1827.                 }
  1828.             }
  1829.             wq'widget::waitfor [set $object] -animate
  1830.             wq'widget::delete [set $object]
  1831.             oz'event {
  1832.                 if [ozGet mvDisableMouse] {
  1833.                     wizEnableMouse
  1834.                 }
  1835.             }
  1836.             set $object 0
  1837.         }
  1838.     }
  1839.  
  1840.     proc newSt {object args} {
  1841.         variable $object
  1842.         variable posx
  1843.         variable posy
  1844.         variable width
  1845.         variable height
  1846.         variable scene
  1847.         variable camera
  1848.  
  1849.         if {[set $object] != 0} return
  1850.  
  1851.         set optstring {play foreground {depth 1}}
  1852.         array set v [cmdline::getopt $args $optstring]
  1853.  
  1854.         set layer "-background"
  1855.         if $v(foreground) {
  1856.             set layer "-foreground"
  1857.         }
  1858.  
  1859.         set depth $v(depth)
  1860.  
  1861.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1862.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1863.                     -depth $depth $layer -pan]
  1864.  
  1865.         eval "oz'widget::property [set $object] $args"
  1866.     }
  1867. }
  1868.  
  1869.  
  1870. namespace eval smallIsland {
  1871.     variable posx
  1872.     variable posy
  1873.     variable width
  1874.     variable height
  1875.     variable scene
  1876.     variable camera
  1877.  
  1878.     variable {runeDriaLoop}  0
  1879.     set posx(runeDriaLoop)   0.841797
  1880.     set posy(runeDriaLoop)   0.942708
  1881.     set width(runeDriaLoop)  0.062500
  1882.     set height(runeDriaLoop) 0.083333
  1883.     set scene(runeDriaLoop)  garden
  1884.     set camera(runeDriaLoop) smallIsland
  1885.  
  1886.     variable {runeDriaStart}  0
  1887.     set posx(runeDriaStart)   0.841797
  1888.     set posy(runeDriaStart)   0.942708
  1889.     set width(runeDriaStart)  0.062500
  1890.     set height(runeDriaStart) 0.083333
  1891.     set scene(runeDriaStart)  garden
  1892.     set camera(runeDriaStart) smallIsland
  1893.  
  1894.     variable {runeDriaSuccess}  0
  1895.     set posx(runeDriaSuccess)   0.876953
  1896.     set posy(runeDriaSuccess)   0.923177
  1897.     set width(runeDriaSuccess)  0.108398
  1898.     set height(runeDriaSuccess) 0.057292
  1899.     set scene(runeDriaSuccess)  garden
  1900.     set camera(runeDriaSuccess) smallIsland
  1901.  
  1902.     variable {runeOrlosLoop}  0
  1903.     set posx(runeOrlosLoop)   0.836914
  1904.     set posy(runeOrlosLoop)   0.899740
  1905.     set width(runeOrlosLoop)  0.062500
  1906.     set height(runeOrlosLoop) 0.049479
  1907.     set scene(runeOrlosLoop)  garden
  1908.     set camera(runeOrlosLoop) smallIsland
  1909.  
  1910.     variable {runeOrlosStart}  0
  1911.     set posx(runeOrlosStart)   0.836914
  1912.     set posy(runeOrlosStart)   0.899740
  1913.     set width(runeOrlosStart)  0.062500
  1914.     set height(runeOrlosStart) 0.049479
  1915.     set scene(runeOrlosStart)  garden
  1916.     set camera(runeOrlosStart) smallIsland
  1917.  
  1918.     variable {runeUndarLoop}  0
  1919.     set posx(runeUndarLoop)   1.028320
  1920.     set posy(runeUndarLoop)   0.936198
  1921.     set width(runeUndarLoop)  0.062500
  1922.     set height(runeUndarLoop) 0.048177
  1923.     set scene(runeUndarLoop)  garden
  1924.     set camera(runeUndarLoop) smallIsland
  1925.  
  1926.     variable {runeUndarStart}  0
  1927.     set posx(runeUndarStart)   1.028320
  1928.     set posy(runeUndarStart)   0.936198
  1929.     set width(runeUndarStart)  0.062500
  1930.     set height(runeUndarStart) 0.048177
  1931.     set scene(runeUndarStart)  garden
  1932.     set camera(runeUndarStart) smallIsland
  1933.  
  1934.     variable {waterA}  0
  1935.     set posx(waterA)   0.290039
  1936.     set posy(waterA)   0.985677
  1937.     set width(waterA)  0.162109
  1938.     set height(waterA) 0.114583
  1939.     set scene(waterA)  garden
  1940.     set camera(waterA) smallIsland
  1941.  
  1942.     variable {waterB}  0
  1943.     set posx(waterB)   1.086914
  1944.     set posy(waterB)   1.083333
  1945.     set width(waterB)  0.250000
  1946.     set height(waterB) 0.166667
  1947.     set scene(waterB)  garden
  1948.     set camera(waterB) smallIsland
  1949.  
  1950.     variable {waterC}  0
  1951.     set posx(waterC)   1.333008
  1952.     set posy(waterC)   1.083333
  1953.     set width(waterC)  0.062500
  1954.     set height(waterC) 0.166667
  1955.     set scene(waterC)  garden
  1956.     set camera(waterC) smallIsland
  1957.  
  1958.     variable {waterD}  0
  1959.     set posx(waterD)   1.180664
  1960.     set posy(waterD)   0.921875
  1961.     set width(waterD)  0.214844
  1962.     set height(waterD) 0.166667
  1963.     set scene(waterD)  garden
  1964.     set camera(waterD) smallIsland
  1965.  
  1966.     variable {waterE}  0
  1967.     set posx(waterE)   0.955078
  1968.     set posy(waterE)   0.851563
  1969.     set width(waterE)  0.250000
  1970.     set height(waterE) 0.083333
  1971.     set scene(waterE)  garden
  1972.     set camera(waterE) smallIsland
  1973.  
  1974.     variable {waterF}  0
  1975.     set posx(waterF)   1.068359
  1976.     set posy(waterF)   0.190104
  1977.     set width(waterF)  0.062500
  1978.     set height(waterF) 0.666667
  1979.     set scene(waterF)  garden
  1980.     set camera(waterF) smallIsland
  1981.  
  1982.     variable {waterTreeA}  0
  1983.     set posx(waterTreeA)   0.290039
  1984.     set posy(waterTreeA)   0.985677
  1985.     set width(waterTreeA)  0.162109
  1986.     set height(waterTreeA) 0.114583
  1987.     set scene(waterTreeA)  garden
  1988.     set camera(waterTreeA) smallIsland
  1989.  
  1990.     variable {waterTreeB}  0
  1991.     set posx(waterTreeB)   1.086914
  1992.     set posy(waterTreeB)   1.083333
  1993.     set width(waterTreeB)  0.250000
  1994.     set height(waterTreeB) 0.166667
  1995.     set scene(waterTreeB)  garden
  1996.     set camera(waterTreeB) smallIsland
  1997.  
  1998.     variable {waterTreeC}  0
  1999.     set posx(waterTreeC)   1.333008
  2000.     set posy(waterTreeC)   1.083333
  2001.     set width(waterTreeC)  0.062500
  2002.     set height(waterTreeC) 0.166667
  2003.     set scene(waterTreeC)  garden
  2004.     set camera(waterTreeC) smallIsland
  2005.  
  2006.     variable {waterTreeD}  0
  2007.     set posx(waterTreeD)   1.197266
  2008.     set posy(waterTreeD)   0.921875
  2009.     set width(waterTreeD)  0.198242
  2010.     set height(waterTreeD) 0.166667
  2011.     set scene(waterTreeD)  garden
  2012.     set camera(waterTreeD) smallIsland
  2013.  
  2014.     variable {waterTreeE}  0
  2015.     set posx(waterTreeE)   0.955078
  2016.     set posy(waterTreeE)   0.856771
  2017.     set width(waterTreeE)  0.250000
  2018.     set height(waterTreeE) 0.083333
  2019.     set scene(waterTreeE)  garden
  2020.     set camera(waterTreeE) smallIsland
  2021.  
  2022.     variable {waterTreeF}  0
  2023.     set posx(waterTreeF)   1.068359
  2024.     set posy(waterTreeF)   0.195313
  2025.     set width(waterTreeF)  0.062500
  2026.     set height(waterTreeF) 0.666667
  2027.     set scene(waterTreeF)  garden
  2028.     set camera(waterTreeF) smallIsland
  2029.  
  2030.     proc new {object args} {
  2031.         variable $object
  2032.         variable posx
  2033.         variable posy
  2034.         variable width
  2035.         variable height
  2036.         variable scene
  2037.         variable camera
  2038.  
  2039.         if {[set $object] != 0} return
  2040.  
  2041.         set optstring {play foreground nopan {depth 0}}
  2042.         array set v [cmdline::getopt $args $optstring]
  2043.  
  2044.         set layer "-background"
  2045.         if $v(foreground?) {
  2046.             set layer "-foreground"
  2047.         }
  2048.  
  2049.         set pan "-pan"
  2050.         if $v(nopan?) {
  2051.             set pan ""
  2052.         }
  2053.  
  2054.         set depth $v(depth)
  2055.  
  2056.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  2057.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2058.                     -depth $depth $layer $pan]
  2059.  
  2060.         eval "oz'widget::property [set $object] $args"
  2061.  
  2062.         if $v(play?) {
  2063.             oz'event {
  2064.                 ozSet mvDisableMouse 0
  2065.                 if [ozIsEnable mouse] {
  2066.                     wizDisableMouse
  2067.                     ozSet mvDisableMouse 1
  2068.                 }
  2069.             }
  2070.             wq'widget::waitfor [set $object] -animate
  2071.             wq'widget::delete [set $object]
  2072.             oz'event {
  2073.                 if [ozGet mvDisableMouse] {
  2074.                     wizEnableMouse
  2075.                 }
  2076.             }
  2077.             set $object 0
  2078.         }
  2079.     }
  2080.  
  2081.     proc newSt {object args} {
  2082.         variable $object
  2083.         variable posx
  2084.         variable posy
  2085.         variable width
  2086.         variable height
  2087.         variable scene
  2088.         variable camera
  2089.  
  2090.         if {[set $object] != 0} return
  2091.  
  2092.         set optstring {play foreground {depth 1}}
  2093.         array set v [cmdline::getopt $args $optstring]
  2094.  
  2095.         set layer "-background"
  2096.         if $v(foreground) {
  2097.             set layer "-foreground"
  2098.         }
  2099.  
  2100.         set depth $v(depth)
  2101.  
  2102.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  2103.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2104.                     -depth $depth $layer -pan]
  2105.  
  2106.         eval "oz'widget::property [set $object] $args"
  2107.     }
  2108. }
  2109.  
  2110.  
  2111. namespace eval stageStairs {
  2112.     variable posx
  2113.     variable posy
  2114.     variable width
  2115.     variable height
  2116.     variable scene
  2117.     variable camera
  2118.  
  2119.     variable {fishesA}  0
  2120.     set posx(fishesA)   0.451172
  2121.     set posy(fishesA)   0.666667
  2122.     set width(fishesA)  0.430664
  2123.     set height(fishesA) 0.333333
  2124.     set scene(fishesA)  garden
  2125.     set camera(fishesA) stageStairs
  2126.  
  2127.     variable {fishesB}  0
  2128.     set posx(fishesB)   0.522461
  2129.     set posy(fishesB)   0.519531
  2130.     set width(fishesB)  0.359375
  2131.     set height(fishesB) 0.152344
  2132.     set scene(fishesB)  garden
  2133.     set camera(fishesB) stageStairs
  2134.  
  2135.     variable {fishesC}  0
  2136.     set posx(fishesC)   0.575195
  2137.     set posy(fishesC)   0.358073
  2138.     set width(fishesC)  0.306641
  2139.     set height(fishesC) 0.166667
  2140.     set scene(fishesC)  garden
  2141.     set camera(fishesC) stageStairs
  2142.  
  2143.     proc new {object args} {
  2144.         variable $object
  2145.         variable posx
  2146.         variable posy
  2147.         variable width
  2148.         variable height
  2149.         variable scene
  2150.         variable camera
  2151.  
  2152.         if {[set $object] != 0} return
  2153.  
  2154.         set optstring {play foreground nopan {depth 0}}
  2155.         array set v [cmdline::getopt $args $optstring]
  2156.  
  2157.         set layer "-background"
  2158.         if $v(foreground?) {
  2159.             set layer "-foreground"
  2160.         }
  2161.  
  2162.         set pan "-pan"
  2163.         if $v(nopan?) {
  2164.             set pan ""
  2165.         }
  2166.  
  2167.         set depth $v(depth)
  2168.  
  2169.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  2170.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2171.                     -depth $depth $layer $pan]
  2172.  
  2173.         eval "oz'widget::property [set $object] $args"
  2174.  
  2175.         if $v(play?) {
  2176.             oz'event {
  2177.                 ozSet mvDisableMouse 0
  2178.                 if [ozIsEnable mouse] {
  2179.                     wizDisableMouse
  2180.                     ozSet mvDisableMouse 1
  2181.                 }
  2182.             }
  2183.             wq'widget::waitfor [set $object] -animate
  2184.             wq'widget::delete [set $object]
  2185.             oz'event {
  2186.                 if [ozGet mvDisableMouse] {
  2187.                     wizEnableMouse
  2188.                 }
  2189.             }
  2190.             set $object 0
  2191.         }
  2192.     }
  2193.  
  2194.     proc newSt {object args} {
  2195.         variable $object
  2196.         variable posx
  2197.         variable posy
  2198.         variable width
  2199.         variable height
  2200.         variable scene
  2201.         variable camera
  2202.  
  2203.         if {[set $object] != 0} return
  2204.  
  2205.         set optstring {play foreground {depth 1}}
  2206.         array set v [cmdline::getopt $args $optstring]
  2207.  
  2208.         set layer "-background"
  2209.         if $v(foreground) {
  2210.             set layer "-foreground"
  2211.         }
  2212.  
  2213.         set depth $v(depth)
  2214.  
  2215.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  2216.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2217.                     -depth $depth $layer -pan]
  2218.  
  2219.         eval "oz'widget::property [set $object] $args"
  2220.     }
  2221. }
  2222.  
  2223.  
  2224. namespace eval studyBalcony {
  2225.     variable posx
  2226.     variable posy
  2227.     variable width
  2228.     variable height
  2229.     variable scene
  2230.     variable camera
  2231.  
  2232.     variable {waterFallA}  0
  2233.     set posx(waterFallA)   0.000000
  2234.     set posy(waterFallA)   0.000000
  2235.     set width(waterFallA)  0.202148
  2236.     set height(waterFallA) 0.863281
  2237.     set scene(waterFallA)  garden
  2238.     set camera(waterFallA) studyBalcony
  2239.  
  2240.     variable {waterFallB}  0
  2241.     set posx(waterFallB)   0.208984
  2242.     set posy(waterFallB)   0.105469
  2243.     set width(waterFallB)  0.250000
  2244.     set height(waterFallB) 0.666667
  2245.     set scene(waterFallB)  garden
  2246.     set camera(waterFallB) studyBalcony
  2247.  
  2248.     proc new {object args} {
  2249.         variable $object
  2250.         variable posx
  2251.         variable posy
  2252.         variable width
  2253.         variable height
  2254.         variable scene
  2255.         variable camera
  2256.  
  2257.         if {[set $object] != 0} return
  2258.  
  2259.         set optstring {play foreground nopan {depth 0}}
  2260.         array set v [cmdline::getopt $args $optstring]
  2261.  
  2262.         set layer "-background"
  2263.         if $v(foreground?) {
  2264.             set layer "-foreground"
  2265.         }
  2266.  
  2267.         set pan "-pan"
  2268.         if $v(nopan?) {
  2269.             set pan ""
  2270.         }
  2271.  
  2272.         set depth $v(depth)
  2273.  
  2274.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  2275.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2276.                     -depth $depth $layer $pan]
  2277.  
  2278.         eval "oz'widget::property [set $object] $args"
  2279.  
  2280.         if $v(play?) {
  2281.             oz'event {
  2282.                 ozSet mvDisableMouse 0
  2283.                 if [ozIsEnable mouse] {
  2284.                     wizDisableMouse
  2285.                     ozSet mvDisableMouse 1
  2286.                 }
  2287.             }
  2288.             wq'widget::waitfor [set $object] -animate
  2289.             wq'widget::delete [set $object]
  2290.             oz'event {
  2291.                 if [ozGet mvDisableMouse] {
  2292.                     wizEnableMouse
  2293.                 }
  2294.             }
  2295.             set $object 0
  2296.         }
  2297.     }
  2298.  
  2299.     proc newSt {object args} {
  2300.         variable $object
  2301.         variable posx
  2302.         variable posy
  2303.         variable width
  2304.         variable height
  2305.         variable scene
  2306.         variable camera
  2307.  
  2308.         if {[set $object] != 0} return
  2309.  
  2310.         set optstring {play foreground {depth 1}}
  2311.         array set v [cmdline::getopt $args $optstring]
  2312.  
  2313.         set layer "-background"
  2314.         if $v(foreground) {
  2315.             set layer "-foreground"
  2316.         }
  2317.  
  2318.         set depth $v(depth)
  2319.  
  2320.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  2321.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2322.                     -depth $depth $layer -pan]
  2323.  
  2324.         eval "oz'widget::property [set $object] $args"
  2325.     }
  2326. }
  2327.  
  2328.  
  2329. namespace eval undarCloseUp {
  2330.     variable posx
  2331.     variable posy
  2332.     variable width
  2333.     variable height
  2334.     variable scene
  2335.     variable camera
  2336.  
  2337.     variable {runes}  0
  2338.     set posx(runes)   0.250000
  2339.     set posy(runes)   0.145833
  2340.     set width(runes)  0.500000
  2341.     set height(runes) 0.666667
  2342.     set scene(runes)  garden
  2343.     set camera(runes) undarCloseUp
  2344.  
  2345.     proc new {object args} {
  2346.         variable $object
  2347.         variable posx
  2348.         variable posy
  2349.         variable width
  2350.         variable height
  2351.         variable scene
  2352.         variable camera
  2353.  
  2354.         if {[set $object] != 0} return
  2355.  
  2356.         set optstring {play foreground nopan {depth 0}}
  2357.         array set v [cmdline::getopt $args $optstring]
  2358.  
  2359.         set layer "-background"
  2360.         if $v(foreground?) {
  2361.             set layer "-foreground"
  2362.         }
  2363.  
  2364.         set pan "-pan"
  2365.         if $v(nopan?) {
  2366.             set pan ""
  2367.         }
  2368.  
  2369.         set depth $v(depth)
  2370.  
  2371.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  2372.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2373.                     -depth $depth $layer $pan]
  2374.  
  2375.         eval "oz'widget::property [set $object] $args"
  2376.  
  2377.         if $v(play?) {
  2378.             oz'event {
  2379.                 ozSet mvDisableMouse 0
  2380.                 if [ozIsEnable mouse] {
  2381.                     wizDisableMouse
  2382.                     ozSet mvDisableMouse 1
  2383.                 }
  2384.             }
  2385.             wq'widget::waitfor [set $object] -animate
  2386.             wq'widget::delete [set $object]
  2387.             oz'event {
  2388.                 if [ozGet mvDisableMouse] {
  2389.                     wizEnableMouse
  2390.                 }
  2391.             }
  2392.             set $object 0
  2393.         }
  2394.     }
  2395.  
  2396.     proc newSt {object args} {
  2397.         variable $object
  2398.         variable posx
  2399.         variable posy
  2400.         variable width
  2401.         variable height
  2402.         variable scene
  2403.         variable camera
  2404.  
  2405.         if {[set $object] != 0} return
  2406.  
  2407.         set optstring {play foreground {depth 1}}
  2408.         array set v [cmdline::getopt $args $optstring]
  2409.  
  2410.         set layer "-background"
  2411.         if $v(foreground) {
  2412.             set layer "-foreground"
  2413.         }
  2414.  
  2415.         set depth $v(depth)
  2416.  
  2417.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  2418.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2419.                     -depth $depth $layer -pan]
  2420.  
  2421.         eval "oz'widget::property [set $object] $args"
  2422.     }
  2423. }
  2424.  
  2425.  
  2426. namespace eval waterfall {
  2427.     variable posx
  2428.     variable posy
  2429.     variable width
  2430.     variable height
  2431.     variable scene
  2432.     variable camera
  2433.  
  2434.     variable {waterfallA}  0
  2435.     set posx(waterfallA)   0.150391
  2436.     set posy(waterfallA)   0.000000
  2437.     set width(waterfallA)  0.088867
  2438.     set height(waterfallA) 0.234375
  2439.     set scene(waterfallA)  garden
  2440.     set camera(waterfallA) waterfall
  2441.  
  2442.     variable {waterfallB}  0
  2443.     set posx(waterfallB)   0.214844
  2444.     set posy(waterfallB)   0.901042
  2445.     set width(waterfallB)  0.031250
  2446.     set height(waterfallB) 0.041667
  2447.     set scene(waterfallB)  garden
  2448.     set camera(waterfallB) waterfall
  2449.  
  2450.     variable {waterfallC}  0
  2451.     set posx(waterfallC)   0.170898
  2452.     set posy(waterfallC)   0.234375
  2453.     set width(waterfallC)  0.109375
  2454.     set height(waterfallC) 0.666667
  2455.     set scene(waterfallC)  garden
  2456.     set camera(waterfallC) waterfall
  2457.  
  2458.     variable {waterfallD}  0
  2459.     set posx(waterfallD)   0.374023
  2460.     set posy(waterfallD)   0.145833
  2461.     set width(waterfallD)  0.022461
  2462.     set height(waterfallD) 0.451823
  2463.     set scene(waterfallD)  garden
  2464.     set camera(waterfallD) waterfall
  2465.  
  2466.     variable {waterfallE}  0
  2467.     set posx(waterfallE)   0.420898
  2468.     set posy(waterfallE)   0.065104
  2469.     set width(waterfallE)  0.047852
  2470.     set height(waterfallE) 0.511719
  2471.     set scene(waterfallE)  garden
  2472.     set camera(waterfallE) waterfall
  2473.  
  2474.     variable {waterfallF}  0
  2475.     set posx(waterfallF)   0.665039
  2476.     set posy(waterfallF)   0.376302
  2477.     set width(waterfallF)  0.035156
  2478.     set height(waterfallF) 0.205729
  2479.     set scene(waterfallF)  garden
  2480.     set camera(waterfallF) waterfall
  2481.  
  2482.     proc new {object args} {
  2483.         variable $object
  2484.         variable posx
  2485.         variable posy
  2486.         variable width
  2487.         variable height
  2488.         variable scene
  2489.         variable camera
  2490.  
  2491.         if {[set $object] != 0} return
  2492.  
  2493.         set optstring {play foreground nopan {depth 0}}
  2494.         array set v [cmdline::getopt $args $optstring]
  2495.  
  2496.         set layer "-background"
  2497.         if $v(foreground?) {
  2498.             set layer "-foreground"
  2499.         }
  2500.  
  2501.         set pan "-pan"
  2502.         if $v(nopan?) {
  2503.             set pan ""
  2504.         }
  2505.  
  2506.         set depth $v(depth)
  2507.  
  2508.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  2509.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2510.                     -depth $depth $layer $pan]
  2511.  
  2512.         eval "oz'widget::property [set $object] $args"
  2513.  
  2514.         if $v(play?) {
  2515.             oz'event {
  2516.                 ozSet mvDisableMouse 0
  2517.                 if [ozIsEnable mouse] {
  2518.                     wizDisableMouse
  2519.                     ozSet mvDisableMouse 1
  2520.                 }
  2521.             }
  2522.             wq'widget::waitfor [set $object] -animate
  2523.             wq'widget::delete [set $object]
  2524.             oz'event {
  2525.                 if [ozGet mvDisableMouse] {
  2526.                     wizEnableMouse
  2527.                 }
  2528.             }
  2529.             set $object 0
  2530.         }
  2531.     }
  2532.  
  2533.     proc newSt {object args} {
  2534.         variable $object
  2535.         variable posx
  2536.         variable posy
  2537.         variable width
  2538.         variable height
  2539.         variable scene
  2540.         variable camera
  2541.  
  2542.         if {[set $object] != 0} return
  2543.  
  2544.         set optstring {play foreground {depth 1}}
  2545.         array set v [cmdline::getopt $args $optstring]
  2546.  
  2547.         set layer "-background"
  2548.         if $v(foreground) {
  2549.             set layer "-foreground"
  2550.         }
  2551.  
  2552.         set depth $v(depth)
  2553.  
  2554.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  2555.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2556.                     -depth $depth $layer -pan]
  2557.  
  2558.         eval "oz'widget::property [set $object] $args"
  2559.     }
  2560. }
  2561.  
  2562.  
  2563.