home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / basement.mvwrap.tcl < prev    next >
Text File  |  2005-10-22  |  61KB  |  2,028 lines
  1. namespace eval entranceStairs {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {lightLantern}  0
  10.     set posx(lightLantern)   0.526367
  11.     set posy(lightLantern)   0.644531
  12.     set width(lightLantern)  0.250000
  13.     set height(lightLantern) 0.333333
  14.     set scene(lightLantern)  basement
  15.     set camera(lightLantern) entranceStairs
  16.  
  17.     proc new {object args} {
  18.         variable $object
  19.         variable posx
  20.         variable posy
  21.         variable width
  22.         variable height
  23.         variable scene
  24.         variable camera
  25.  
  26.         if {[set $object] != 0} return
  27.  
  28.         set optstring {play foreground nopan {depth 0}}
  29.         array set v [cmdline::getopt $args $optstring]
  30.  
  31.         set layer "-background"
  32.         if $v(foreground?) {
  33.             set layer "-foreground"
  34.         }
  35.  
  36.         set pan "-pan"
  37.         if $v(nopan?) {
  38.             set pan ""
  39.         }
  40.  
  41.         set depth $v(depth)
  42.  
  43.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  44.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  45.                     -depth $depth $layer $pan]
  46.  
  47.         eval "oz'widget::property [set $object] $args"
  48.  
  49.         if $v(play?) {
  50.             oz'event {
  51.                 ozSet mvDisableMouse 0
  52.                 if [ozIsEnable mouse] {
  53.                     wizDisableMouse
  54.                     ozSet mvDisableMouse 1
  55.                 }
  56.             }
  57.             wq'widget::waitfor [set $object] -animate
  58.             wq'widget::delete [set $object]
  59.             oz'event {
  60.                 if [ozGet mvDisableMouse] {
  61.                     wizEnableMouse
  62.                 }
  63.             }
  64.             set $object 0
  65.         }
  66.     }
  67.  
  68.     proc newSt {object args} {
  69.         variable $object
  70.         variable posx
  71.         variable posy
  72.         variable width
  73.         variable height
  74.         variable scene
  75.         variable camera
  76.  
  77.         if {[set $object] != 0} return
  78.  
  79.         set optstring {play foreground {depth 1}}
  80.         array set v [cmdline::getopt $args $optstring]
  81.  
  82.         set layer "-background"
  83.         if $v(foreground) {
  84.             set layer "-foreground"
  85.         }
  86.  
  87.         set depth $v(depth)
  88.  
  89.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  90.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  91.                     -depth $depth $layer -pan]
  92.  
  93.         eval "oz'widget::property [set $object] $args"
  94.     }
  95. }
  96.  
  97.  
  98. namespace eval firstStage {
  99.     variable posx
  100.     variable posy
  101.     variable width
  102.     variable height
  103.     variable scene
  104.     variable camera
  105.  
  106.     variable {owlAIdle}  0
  107.     set posx(owlAIdle)   1.234375
  108.     set posy(owlAIdle)   0.075521
  109.     set width(owlAIdle)  0.048828
  110.     set height(owlAIdle) 0.138021
  111.     set scene(owlAIdle)  basement
  112.     set camera(owlAIdle) firstStage
  113.  
  114.     proc new {object args} {
  115.         variable $object
  116.         variable posx
  117.         variable posy
  118.         variable width
  119.         variable height
  120.         variable scene
  121.         variable camera
  122.  
  123.         if {[set $object] != 0} return
  124.  
  125.         set optstring {play foreground nopan {depth 0}}
  126.         array set v [cmdline::getopt $args $optstring]
  127.  
  128.         set layer "-background"
  129.         if $v(foreground?) {
  130.             set layer "-foreground"
  131.         }
  132.  
  133.         set pan "-pan"
  134.         if $v(nopan?) {
  135.             set pan ""
  136.         }
  137.  
  138.         set depth $v(depth)
  139.  
  140.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  141.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  142.                     -depth $depth $layer $pan]
  143.  
  144.         eval "oz'widget::property [set $object] $args"
  145.  
  146.         if $v(play?) {
  147.             oz'event {
  148.                 ozSet mvDisableMouse 0
  149.                 if [ozIsEnable mouse] {
  150.                     wizDisableMouse
  151.                     ozSet mvDisableMouse 1
  152.                 }
  153.             }
  154.             wq'widget::waitfor [set $object] -animate
  155.             wq'widget::delete [set $object]
  156.             oz'event {
  157.                 if [ozGet mvDisableMouse] {
  158.                     wizEnableMouse
  159.                 }
  160.             }
  161.             set $object 0
  162.         }
  163.     }
  164.  
  165.     proc newSt {object args} {
  166.         variable $object
  167.         variable posx
  168.         variable posy
  169.         variable width
  170.         variable height
  171.         variable scene
  172.         variable camera
  173.  
  174.         if {[set $object] != 0} return
  175.  
  176.         set optstring {play foreground {depth 1}}
  177.         array set v [cmdline::getopt $args $optstring]
  178.  
  179.         set layer "-background"
  180.         if $v(foreground) {
  181.             set layer "-foreground"
  182.         }
  183.  
  184.         set depth $v(depth)
  185.  
  186.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  187.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  188.                     -depth $depth $layer -pan]
  189.  
  190.         eval "oz'widget::property [set $object] $args"
  191.     }
  192. }
  193.  
  194.  
  195. namespace eval junction {
  196.     variable posx
  197.     variable posy
  198.     variable width
  199.     variable height
  200.     variable scene
  201.     variable camera
  202.  
  203.     variable {lightLantern}  0
  204.     set posx(lightLantern)   0.000000
  205.     set posy(lightLantern)   0.208333
  206.     set width(lightLantern)  0.400000
  207.     set height(lightLantern) 0.533333
  208.     set scene(lightLantern)  basement
  209.     set camera(lightLantern) junction
  210.  
  211.     proc new {object args} {
  212.         variable $object
  213.         variable posx
  214.         variable posy
  215.         variable width
  216.         variable height
  217.         variable scene
  218.         variable camera
  219.  
  220.         if {[set $object] != 0} return
  221.  
  222.         set optstring {play foreground nopan {depth 0}}
  223.         array set v [cmdline::getopt $args $optstring]
  224.  
  225.         set layer "-background"
  226.         if $v(foreground?) {
  227.             set layer "-foreground"
  228.         }
  229.  
  230.         set pan "-pan"
  231.         if $v(nopan?) {
  232.             set pan ""
  233.         }
  234.  
  235.         set depth $v(depth)
  236.  
  237.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  238.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  239.                     -depth $depth $layer $pan]
  240.  
  241.         eval "oz'widget::property [set $object] $args"
  242.  
  243.         if $v(play?) {
  244.             oz'event {
  245.                 ozSet mvDisableMouse 0
  246.                 if [ozIsEnable mouse] {
  247.                     wizDisableMouse
  248.                     ozSet mvDisableMouse 1
  249.                 }
  250.             }
  251.             wq'widget::waitfor [set $object] -animate
  252.             wq'widget::delete [set $object]
  253.             oz'event {
  254.                 if [ozGet mvDisableMouse] {
  255.                     wizEnableMouse
  256.                 }
  257.             }
  258.             set $object 0
  259.         }
  260.     }
  261.  
  262.     proc newSt {object args} {
  263.         variable $object
  264.         variable posx
  265.         variable posy
  266.         variable width
  267.         variable height
  268.         variable scene
  269.         variable camera
  270.  
  271.         if {[set $object] != 0} return
  272.  
  273.         set optstring {play foreground {depth 1}}
  274.         array set v [cmdline::getopt $args $optstring]
  275.  
  276.         set layer "-background"
  277.         if $v(foreground) {
  278.             set layer "-foreground"
  279.         }
  280.  
  281.         set depth $v(depth)
  282.  
  283.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  284.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  285.                     -depth $depth $layer -pan]
  286.  
  287.         eval "oz'widget::property [set $object] $args"
  288.     }
  289. }
  290.  
  291.  
  292. namespace eval junctionEnd {
  293.     variable posx
  294.     variable posy
  295.     variable width
  296.     variable height
  297.     variable scene
  298.     variable camera
  299.  
  300.     variable {lightChandelier}  0
  301.     set posx(lightChandelier)   0.033203
  302.     set posy(lightChandelier)   0.024740
  303.     set width(lightChandelier)  0.250000
  304.     set height(lightChandelier) 0.333333
  305.     set scene(lightChandelier)  basement
  306.     set camera(lightChandelier) junctionEnd
  307.  
  308.     proc new {object args} {
  309.         variable $object
  310.         variable posx
  311.         variable posy
  312.         variable width
  313.         variable height
  314.         variable scene
  315.         variable camera
  316.  
  317.         if {[set $object] != 0} return
  318.  
  319.         set optstring {play foreground nopan {depth 0}}
  320.         array set v [cmdline::getopt $args $optstring]
  321.  
  322.         set layer "-background"
  323.         if $v(foreground?) {
  324.             set layer "-foreground"
  325.         }
  326.  
  327.         set pan "-pan"
  328.         if $v(nopan?) {
  329.             set pan ""
  330.         }
  331.  
  332.         set depth $v(depth)
  333.  
  334.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  335.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  336.                     -depth $depth $layer $pan]
  337.  
  338.         eval "oz'widget::property [set $object] $args"
  339.  
  340.         if $v(play?) {
  341.             oz'event {
  342.                 ozSet mvDisableMouse 0
  343.                 if [ozIsEnable mouse] {
  344.                     wizDisableMouse
  345.                     ozSet mvDisableMouse 1
  346.                 }
  347.             }
  348.             wq'widget::waitfor [set $object] -animate
  349.             wq'widget::delete [set $object]
  350.             oz'event {
  351.                 if [ozGet mvDisableMouse] {
  352.                     wizEnableMouse
  353.                 }
  354.             }
  355.             set $object 0
  356.         }
  357.     }
  358.  
  359.     proc newSt {object args} {
  360.         variable $object
  361.         variable posx
  362.         variable posy
  363.         variable width
  364.         variable height
  365.         variable scene
  366.         variable camera
  367.  
  368.         if {[set $object] != 0} return
  369.  
  370.         set optstring {play foreground {depth 1}}
  371.         array set v [cmdline::getopt $args $optstring]
  372.  
  373.         set layer "-background"
  374.         if $v(foreground) {
  375.             set layer "-foreground"
  376.         }
  377.  
  378.         set depth $v(depth)
  379.  
  380.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  381.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  382.                     -depth $depth $layer -pan]
  383.  
  384.         eval "oz'widget::property [set $object] $args"
  385.     }
  386. }
  387.  
  388.  
  389. namespace eval mainStairs {
  390.     variable posx
  391.     variable posy
  392.     variable width
  393.     variable height
  394.     variable scene
  395.     variable camera
  396.  
  397.     variable {lightChandelierA}  0
  398.     set posx(lightChandelierA)   0.620117
  399.     set posy(lightChandelierA)   0.158854
  400.     set width(lightChandelierA)  0.125000
  401.     set height(lightChandelierA) 0.166667
  402.     set scene(lightChandelierA)  basement
  403.     set camera(lightChandelierA) mainStairs
  404.  
  405.     variable {lightChandelierB}  0
  406.     set posx(lightChandelierB)   0.256836
  407.     set posy(lightChandelierB)   0.191406
  408.     set width(lightChandelierB)  0.250000
  409.     set height(lightChandelierB) 0.333333
  410.     set scene(lightChandelierB)  basement
  411.     set camera(lightChandelierB) mainStairs
  412.  
  413.     variable {owlAIdle}  0
  414.     set posx(owlAIdle)   0.000000
  415.     set posy(owlAIdle)   0.000000
  416.     set width(owlAIdle)  0.250000
  417.     set height(owlAIdle) 0.666667
  418.     set scene(owlAIdle)  basement
  419.     set camera(owlAIdle) mainStairs
  420.  
  421.     variable {owlALook}  0
  422.     set posx(owlALook)   0.000000
  423.     set posy(owlALook)   0.000000
  424.     set width(owlALook)  0.250000
  425.     set height(owlALook) 0.666667
  426.     set scene(owlALook)  basement
  427.     set camera(owlALook) mainStairs
  428.  
  429.     variable {owlARuffle}  0
  430.     set posx(owlARuffle)   0.000000
  431.     set posy(owlARuffle)   0.000000
  432.     set width(owlARuffle)  0.250000
  433.     set height(owlARuffle) 0.666667
  434.     set scene(owlARuffle)  basement
  435.     set camera(owlARuffle) mainStairs
  436.  
  437.     variable {owlBIdle}  0
  438.     set posx(owlBIdle)   0.000000
  439.     set posy(owlBIdle)   0.661458
  440.     set width(owlBIdle)  0.250000
  441.     set height(owlBIdle) 0.166667
  442.     set scene(owlBIdle)  basement
  443.     set camera(owlBIdle) mainStairs
  444.  
  445.     variable {owlBLook}  0
  446.     set posx(owlBLook)   0.000000
  447.     set posy(owlBLook)   0.661458
  448.     set width(owlBLook)  0.250000
  449.     set height(owlBLook) 0.166667
  450.     set scene(owlBLook)  basement
  451.     set camera(owlBLook) mainStairs
  452.  
  453.     variable {owlBRuffle}  0
  454.     set posx(owlBRuffle)   0.000000
  455.     set posy(owlBRuffle)   0.661458
  456.     set width(owlBRuffle)  0.250000
  457.     set height(owlBRuffle) 0.166667
  458.     set scene(owlBRuffle)  basement
  459.     set camera(owlBRuffle) mainStairs
  460.  
  461.     variable {owlCIdle}  0
  462.     set posx(owlCIdle)   0.000000
  463.     set posy(owlCIdle)   0.822917
  464.     set width(owlCIdle)  0.250000
  465.     set height(owlCIdle) 0.177083
  466.     set scene(owlCIdle)  basement
  467.     set camera(owlCIdle) mainStairs
  468.  
  469.     variable {owlCLook}  0
  470.     set posx(owlCLook)   0.000000
  471.     set posy(owlCLook)   0.822917
  472.     set width(owlCLook)  0.250000
  473.     set height(owlCLook) 0.177083
  474.     set scene(owlCLook)  basement
  475.     set camera(owlCLook) mainStairs
  476.  
  477.     variable {owlCRuffle}  0
  478.     set posx(owlCRuffle)   0.000000
  479.     set posy(owlCRuffle)   0.822917
  480.     set width(owlCRuffle)  0.250000
  481.     set height(owlCRuffle) 0.177083
  482.     set scene(owlCRuffle)  basement
  483.     set camera(owlCRuffle) mainStairs
  484.  
  485.     proc new {object args} {
  486.         variable $object
  487.         variable posx
  488.         variable posy
  489.         variable width
  490.         variable height
  491.         variable scene
  492.         variable camera
  493.  
  494.         if {[set $object] != 0} return
  495.  
  496.         set optstring {play foreground nopan {depth 0}}
  497.         array set v [cmdline::getopt $args $optstring]
  498.  
  499.         set layer "-background"
  500.         if $v(foreground?) {
  501.             set layer "-foreground"
  502.         }
  503.  
  504.         set pan "-pan"
  505.         if $v(nopan?) {
  506.             set pan ""
  507.         }
  508.  
  509.         set depth $v(depth)
  510.  
  511.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  512.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  513.                     -depth $depth $layer $pan]
  514.  
  515.         eval "oz'widget::property [set $object] $args"
  516.  
  517.         if $v(play?) {
  518.             oz'event {
  519.                 ozSet mvDisableMouse 0
  520.                 if [ozIsEnable mouse] {
  521.                     wizDisableMouse
  522.                     ozSet mvDisableMouse 1
  523.                 }
  524.             }
  525.             wq'widget::waitfor [set $object] -animate
  526.             wq'widget::delete [set $object]
  527.             oz'event {
  528.                 if [ozGet mvDisableMouse] {
  529.                     wizEnableMouse
  530.                 }
  531.             }
  532.             set $object 0
  533.         }
  534.     }
  535.  
  536.     proc newSt {object args} {
  537.         variable $object
  538.         variable posx
  539.         variable posy
  540.         variable width
  541.         variable height
  542.         variable scene
  543.         variable camera
  544.  
  545.         if {[set $object] != 0} return
  546.  
  547.         set optstring {play foreground {depth 1}}
  548.         array set v [cmdline::getopt $args $optstring]
  549.  
  550.         set layer "-background"
  551.         if $v(foreground) {
  552.             set layer "-foreground"
  553.         }
  554.  
  555.         set depth $v(depth)
  556.  
  557.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  558.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  559.                     -depth $depth $layer -pan]
  560.  
  561.         eval "oz'widget::property [set $object] $args"
  562.     }
  563. }
  564.  
  565.  
  566. namespace eval stageEnd {
  567.     variable posx
  568.     variable posy
  569.     variable width
  570.     variable height
  571.     variable scene
  572.     variable camera
  573.  
  574.     variable {lightChandelier}  0
  575.     set posx(lightChandelier)   0.001953
  576.     set posy(lightChandelier)   0.179688
  577.     set width(lightChandelier)  0.250000
  578.     set height(lightChandelier) 0.333333
  579.     set scene(lightChandelier)  basement
  580.     set camera(lightChandelier) stageEnd
  581.  
  582.     proc new {object args} {
  583.         variable $object
  584.         variable posx
  585.         variable posy
  586.         variable width
  587.         variable height
  588.         variable scene
  589.         variable camera
  590.  
  591.         if {[set $object] != 0} return
  592.  
  593.         set optstring {play foreground nopan {depth 0}}
  594.         array set v [cmdline::getopt $args $optstring]
  595.  
  596.         set layer "-background"
  597.         if $v(foreground?) {
  598.             set layer "-foreground"
  599.         }
  600.  
  601.         set pan "-pan"
  602.         if $v(nopan?) {
  603.             set pan ""
  604.         }
  605.  
  606.         set depth $v(depth)
  607.  
  608.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  609.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  610.                     -depth $depth $layer $pan]
  611.  
  612.         eval "oz'widget::property [set $object] $args"
  613.  
  614.         if $v(play?) {
  615.             oz'event {
  616.                 ozSet mvDisableMouse 0
  617.                 if [ozIsEnable mouse] {
  618.                     wizDisableMouse
  619.                     ozSet mvDisableMouse 1
  620.                 }
  621.             }
  622.             wq'widget::waitfor [set $object] -animate
  623.             wq'widget::delete [set $object]
  624.             oz'event {
  625.                 if [ozGet mvDisableMouse] {
  626.                     wizEnableMouse
  627.                 }
  628.             }
  629.             set $object 0
  630.         }
  631.     }
  632.  
  633.     proc newSt {object args} {
  634.         variable $object
  635.         variable posx
  636.         variable posy
  637.         variable width
  638.         variable height
  639.         variable scene
  640.         variable camera
  641.  
  642.         if {[set $object] != 0} return
  643.  
  644.         set optstring {play foreground {depth 1}}
  645.         array set v [cmdline::getopt $args $optstring]
  646.  
  647.         set layer "-background"
  648.         if $v(foreground) {
  649.             set layer "-foreground"
  650.         }
  651.  
  652.         set depth $v(depth)
  653.  
  654.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  655.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  656.                     -depth $depth $layer -pan]
  657.  
  658.         eval "oz'widget::property [set $object] $args"
  659.     }
  660. }
  661.  
  662.  
  663. namespace eval stageEntrance {
  664.     variable posx
  665.     variable posy
  666.     variable width
  667.     variable height
  668.     variable scene
  669.     variable camera
  670.  
  671.     variable {lightChandelierA}  0
  672.     set posx(lightChandelierA)   0.778320
  673.     set posy(lightChandelierA)   0.114583
  674.     set width(lightChandelierA)  0.060547
  675.     set height(lightChandelierA) 0.078125
  676.     set scene(lightChandelierA)  basement
  677.     set camera(lightChandelierA) stageEntrance
  678.  
  679.     proc new {object args} {
  680.         variable $object
  681.         variable posx
  682.         variable posy
  683.         variable width
  684.         variable height
  685.         variable scene
  686.         variable camera
  687.  
  688.         if {[set $object] != 0} return
  689.  
  690.         set optstring {play foreground nopan {depth 0}}
  691.         array set v [cmdline::getopt $args $optstring]
  692.  
  693.         set layer "-background"
  694.         if $v(foreground?) {
  695.             set layer "-foreground"
  696.         }
  697.  
  698.         set pan "-pan"
  699.         if $v(nopan?) {
  700.             set pan ""
  701.         }
  702.  
  703.         set depth $v(depth)
  704.  
  705.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  706.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  707.                     -depth $depth $layer $pan]
  708.  
  709.         eval "oz'widget::property [set $object] $args"
  710.  
  711.         if $v(play?) {
  712.             oz'event {
  713.                 ozSet mvDisableMouse 0
  714.                 if [ozIsEnable mouse] {
  715.                     wizDisableMouse
  716.                     ozSet mvDisableMouse 1
  717.                 }
  718.             }
  719.             wq'widget::waitfor [set $object] -animate
  720.             wq'widget::delete [set $object]
  721.             oz'event {
  722.                 if [ozGet mvDisableMouse] {
  723.                     wizEnableMouse
  724.                 }
  725.             }
  726.             set $object 0
  727.         }
  728.     }
  729.  
  730.     proc newSt {object args} {
  731.         variable $object
  732.         variable posx
  733.         variable posy
  734.         variable width
  735.         variable height
  736.         variable scene
  737.         variable camera
  738.  
  739.         if {[set $object] != 0} return
  740.  
  741.         set optstring {play foreground {depth 1}}
  742.         array set v [cmdline::getopt $args $optstring]
  743.  
  744.         set layer "-background"
  745.         if $v(foreground) {
  746.             set layer "-foreground"
  747.         }
  748.  
  749.         set depth $v(depth)
  750.  
  751.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  752.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  753.                     -depth $depth $layer -pan]
  754.  
  755.         eval "oz'widget::property [set $object] $args"
  756.     }
  757. }
  758.  
  759.  
  760. namespace eval underGroundEnd {
  761.     variable posx
  762.     variable posy
  763.     variable width
  764.     variable height
  765.     variable scene
  766.     variable camera
  767.  
  768.     variable {lightChandelier}  0
  769.     set posx(lightChandelier)   0.246094
  770.     set posy(lightChandelier)   0.016927
  771.     set width(lightChandelier)  0.250000
  772.     set height(lightChandelier) 0.166667
  773.     set scene(lightChandelier)  basement
  774.     set camera(lightChandelier) underGroundEnd
  775.  
  776.     proc new {object args} {
  777.         variable $object
  778.         variable posx
  779.         variable posy
  780.         variable width
  781.         variable height
  782.         variable scene
  783.         variable camera
  784.  
  785.         if {[set $object] != 0} return
  786.  
  787.         set optstring {play foreground nopan {depth 0}}
  788.         array set v [cmdline::getopt $args $optstring]
  789.  
  790.         set layer "-background"
  791.         if $v(foreground?) {
  792.             set layer "-foreground"
  793.         }
  794.  
  795.         set pan "-pan"
  796.         if $v(nopan?) {
  797.             set pan ""
  798.         }
  799.  
  800.         set depth $v(depth)
  801.  
  802.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  803.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  804.                     -depth $depth $layer $pan]
  805.  
  806.         eval "oz'widget::property [set $object] $args"
  807.  
  808.         if $v(play?) {
  809.             oz'event {
  810.                 ozSet mvDisableMouse 0
  811.                 if [ozIsEnable mouse] {
  812.                     wizDisableMouse
  813.                     ozSet mvDisableMouse 1
  814.                 }
  815.             }
  816.             wq'widget::waitfor [set $object] -animate
  817.             wq'widget::delete [set $object]
  818.             oz'event {
  819.                 if [ozGet mvDisableMouse] {
  820.                     wizEnableMouse
  821.                 }
  822.             }
  823.             set $object 0
  824.         }
  825.     }
  826.  
  827.     proc newSt {object args} {
  828.         variable $object
  829.         variable posx
  830.         variable posy
  831.         variable width
  832.         variable height
  833.         variable scene
  834.         variable camera
  835.  
  836.         if {[set $object] != 0} return
  837.  
  838.         set optstring {play foreground {depth 1}}
  839.         array set v [cmdline::getopt $args $optstring]
  840.  
  841.         set layer "-background"
  842.         if $v(foreground) {
  843.             set layer "-foreground"
  844.         }
  845.  
  846.         set depth $v(depth)
  847.  
  848.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  849.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  850.                     -depth $depth $layer -pan]
  851.  
  852.         eval "oz'widget::property [set $object] $args"
  853.     }
  854. }
  855.  
  856.  
  857. namespace eval underGroundStairs {
  858.     variable posx
  859.     variable posy
  860.     variable width
  861.     variable height
  862.     variable scene
  863.     variable camera
  864.  
  865.     variable {lightChandelierA}  0
  866.     set posx(lightChandelierA)   0.698242
  867.     set posy(lightChandelierA)   0.320313
  868.     set width(lightChandelierA)  0.175781
  869.     set height(lightChandelierA) 0.300781
  870.     set scene(lightChandelierA)  basement
  871.     set camera(lightChandelierA) underGroundStairs
  872.  
  873.     variable {lightChandelierB}  0
  874.     set posx(lightChandelierB)   0.365234
  875.     set posy(lightChandelierB)   0.078125
  876.     set width(lightChandelierB)  0.125000
  877.     set height(lightChandelierB) 0.166667
  878.     set scene(lightChandelierB)  basement
  879.     set camera(lightChandelierB) underGroundStairs
  880.  
  881.     proc new {object args} {
  882.         variable $object
  883.         variable posx
  884.         variable posy
  885.         variable width
  886.         variable height
  887.         variable scene
  888.         variable camera
  889.  
  890.         if {[set $object] != 0} return
  891.  
  892.         set optstring {play foreground nopan {depth 0}}
  893.         array set v [cmdline::getopt $args $optstring]
  894.  
  895.         set layer "-background"
  896.         if $v(foreground?) {
  897.             set layer "-foreground"
  898.         }
  899.  
  900.         set pan "-pan"
  901.         if $v(nopan?) {
  902.             set pan ""
  903.         }
  904.  
  905.         set depth $v(depth)
  906.  
  907.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  908.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  909.                     -depth $depth $layer $pan]
  910.  
  911.         eval "oz'widget::property [set $object] $args"
  912.  
  913.         if $v(play?) {
  914.             oz'event {
  915.                 ozSet mvDisableMouse 0
  916.                 if [ozIsEnable mouse] {
  917.                     wizDisableMouse
  918.                     ozSet mvDisableMouse 1
  919.                 }
  920.             }
  921.             wq'widget::waitfor [set $object] -animate
  922.             wq'widget::delete [set $object]
  923.             oz'event {
  924.                 if [ozGet mvDisableMouse] {
  925.                     wizEnableMouse
  926.                 }
  927.             }
  928.             set $object 0
  929.         }
  930.     }
  931.  
  932.     proc newSt {object args} {
  933.         variable $object
  934.         variable posx
  935.         variable posy
  936.         variable width
  937.         variable height
  938.         variable scene
  939.         variable camera
  940.  
  941.         if {[set $object] != 0} return
  942.  
  943.         set optstring {play foreground {depth 1}}
  944.         array set v [cmdline::getopt $args $optstring]
  945.  
  946.         set layer "-background"
  947.         if $v(foreground) {
  948.             set layer "-foreground"
  949.         }
  950.  
  951.         set depth $v(depth)
  952.  
  953.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  954.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  955.                     -depth $depth $layer -pan]
  956.  
  957.         eval "oz'widget::property [set $object] $args"
  958.     }
  959. }
  960.  
  961.  
  962. namespace eval underStair {
  963.     variable posx
  964.     variable posy
  965.     variable width
  966.     variable height
  967.     variable scene
  968.     variable camera
  969.  
  970.     variable {lightChandelier}  0
  971.     set posx(lightChandelier)   0.462891
  972.     set posy(lightChandelier)   0.000000
  973.     set width(lightChandelier)  0.250000
  974.     set height(lightChandelier) 0.333333
  975.     set scene(lightChandelier)  basement
  976.     set camera(lightChandelier) underStair
  977.  
  978.     proc new {object args} {
  979.         variable $object
  980.         variable posx
  981.         variable posy
  982.         variable width
  983.         variable height
  984.         variable scene
  985.         variable camera
  986.  
  987.         if {[set $object] != 0} return
  988.  
  989.         set optstring {play foreground nopan {depth 0}}
  990.         array set v [cmdline::getopt $args $optstring]
  991.  
  992.         set layer "-background"
  993.         if $v(foreground?) {
  994.             set layer "-foreground"
  995.         }
  996.  
  997.         set pan "-pan"
  998.         if $v(nopan?) {
  999.             set pan ""
  1000.         }
  1001.  
  1002.         set depth $v(depth)
  1003.  
  1004.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1005.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1006.                     -depth $depth $layer $pan]
  1007.  
  1008.         eval "oz'widget::property [set $object] $args"
  1009.  
  1010.         if $v(play?) {
  1011.             oz'event {
  1012.                 ozSet mvDisableMouse 0
  1013.                 if [ozIsEnable mouse] {
  1014.                     wizDisableMouse
  1015.                     ozSet mvDisableMouse 1
  1016.                 }
  1017.             }
  1018.             wq'widget::waitfor [set $object] -animate
  1019.             wq'widget::delete [set $object]
  1020.             oz'event {
  1021.                 if [ozGet mvDisableMouse] {
  1022.                     wizEnableMouse
  1023.                 }
  1024.             }
  1025.             set $object 0
  1026.         }
  1027.     }
  1028.  
  1029.     proc newSt {object args} {
  1030.         variable $object
  1031.         variable posx
  1032.         variable posy
  1033.         variable width
  1034.         variable height
  1035.         variable scene
  1036.         variable camera
  1037.  
  1038.         if {[set $object] != 0} return
  1039.  
  1040.         set optstring {play foreground {depth 1}}
  1041.         array set v [cmdline::getopt $args $optstring]
  1042.  
  1043.         set layer "-background"
  1044.         if $v(foreground) {
  1045.             set layer "-foreground"
  1046.         }
  1047.  
  1048.         set depth $v(depth)
  1049.  
  1050.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1051.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1052.                     -depth $depth $layer -pan]
  1053.  
  1054.         eval "oz'widget::property [set $object] $args"
  1055.     }
  1056. }
  1057.  
  1058.  
  1059. namespace eval wineCavePuzzleCloseUp {
  1060.     variable posx
  1061.     variable posy
  1062.     variable width
  1063.     variable height
  1064.     variable scene
  1065.     variable camera
  1066.  
  1067.     variable {BLeftGlow}  0
  1068.     set posx(BLeftGlow)   0.233398
  1069.     set posy(BLeftGlow)   0.707031
  1070.     set width(BLeftGlow)  0.193359
  1071.     set height(BLeftGlow) 0.166667
  1072.     set scene(BLeftGlow)  basement
  1073.     set camera(BLeftGlow) wineCavePuzzleCloseUp
  1074.  
  1075.     variable {BLeftIn}  0
  1076.     set posx(BLeftIn)   0.233398
  1077.     set posy(BLeftIn)   0.707031
  1078.     set width(BLeftIn)  0.193359
  1079.     set height(BLeftIn) 0.166667
  1080.     set scene(BLeftIn)  basement
  1081.     set camera(BLeftIn) wineCavePuzzleCloseUp
  1082.  
  1083.     variable {BLeftOut}  0
  1084.     set posx(BLeftOut)   0.233398
  1085.     set posy(BLeftOut)   0.707031
  1086.     set width(BLeftOut)  0.193359
  1087.     set height(BLeftOut) 0.166667
  1088.     set scene(BLeftOut)  basement
  1089.     set camera(BLeftOut) wineCavePuzzleCloseUp
  1090.  
  1091.     variable {BLeftOutSt}  0
  1092.     set posx(BLeftOutSt)   0.233398
  1093.     set posy(BLeftOutSt)   0.707031
  1094.     set width(BLeftOutSt)  0.193359
  1095.     set height(BLeftOutSt) 0.166667
  1096.     set scene(BLeftOutSt)  basement
  1097.     set camera(BLeftOutSt) wineCavePuzzleCloseUp
  1098.  
  1099.     variable {BMiddleGlow}  0
  1100.     set posx(BMiddleGlow)   0.427734
  1101.     set posy(BMiddleGlow)   0.707031
  1102.     set width(BMiddleGlow)  0.193359
  1103.     set height(BMiddleGlow) 0.166667
  1104.     set scene(BMiddleGlow)  basement
  1105.     set camera(BMiddleGlow) wineCavePuzzleCloseUp
  1106.  
  1107.     variable {BMiddleIn}  0
  1108.     set posx(BMiddleIn)   0.427734
  1109.     set posy(BMiddleIn)   0.707031
  1110.     set width(BMiddleIn)  0.193359
  1111.     set height(BMiddleIn) 0.166667
  1112.     set scene(BMiddleIn)  basement
  1113.     set camera(BMiddleIn) wineCavePuzzleCloseUp
  1114.  
  1115.     variable {BMiddleOut}  0
  1116.     set posx(BMiddleOut)   0.427734
  1117.     set posy(BMiddleOut)   0.707031
  1118.     set width(BMiddleOut)  0.193359
  1119.     set height(BMiddleOut) 0.166667
  1120.     set scene(BMiddleOut)  basement
  1121.     set camera(BMiddleOut) wineCavePuzzleCloseUp
  1122.  
  1123.     variable {BMiddleOutSt}  0
  1124.     set posx(BMiddleOutSt)   0.427734
  1125.     set posy(BMiddleOutSt)   0.707031
  1126.     set width(BMiddleOutSt)  0.193359
  1127.     set height(BMiddleOutSt) 0.166667
  1128.     set scene(BMiddleOutSt)  basement
  1129.     set camera(BMiddleOutSt) wineCavePuzzleCloseUp
  1130.  
  1131.     variable {BRightGlow}  0
  1132.     set posx(BRightGlow)   0.622070
  1133.     set posy(BRightGlow)   0.707031
  1134.     set width(BRightGlow)  0.193359
  1135.     set height(BRightGlow) 0.166667
  1136.     set scene(BRightGlow)  basement
  1137.     set camera(BRightGlow) wineCavePuzzleCloseUp
  1138.  
  1139.     variable {BRightIn}  0
  1140.     set posx(BRightIn)   0.622070
  1141.     set posy(BRightIn)   0.707031
  1142.     set width(BRightIn)  0.193359
  1143.     set height(BRightIn) 0.166667
  1144.     set scene(BRightIn)  basement
  1145.     set camera(BRightIn) wineCavePuzzleCloseUp
  1146.  
  1147.     variable {BRightOut}  0
  1148.     set posx(BRightOut)   0.622070
  1149.     set posy(BRightOut)   0.707031
  1150.     set width(BRightOut)  0.193359
  1151.     set height(BRightOut) 0.166667
  1152.     set scene(BRightOut)  basement
  1153.     set camera(BRightOut) wineCavePuzzleCloseUp
  1154.  
  1155.     variable {BRightOutSt}  0
  1156.     set posx(BRightOutSt)   0.622070
  1157.     set posy(BRightOutSt)   0.707031
  1158.     set width(BRightOutSt)  0.193359
  1159.     set height(BRightOutSt) 0.166667
  1160.     set scene(BRightOutSt)  basement
  1161.     set camera(BRightOutSt) wineCavePuzzleCloseUp
  1162.  
  1163.     variable {CLeftGlow}  0
  1164.     set posx(CLeftGlow)   0.233398
  1165.     set posy(CLeftGlow)   0.707031
  1166.     set width(CLeftGlow)  0.193359
  1167.     set height(CLeftGlow) 0.166667
  1168.     set scene(CLeftGlow)  basement
  1169.     set camera(CLeftGlow) wineCavePuzzleCloseUp
  1170.  
  1171.     variable {CLeftIn}  0
  1172.     set posx(CLeftIn)   0.233398
  1173.     set posy(CLeftIn)   0.707031
  1174.     set width(CLeftIn)  0.193359
  1175.     set height(CLeftIn) 0.166667
  1176.     set scene(CLeftIn)  basement
  1177.     set camera(CLeftIn) wineCavePuzzleCloseUp
  1178.  
  1179.     variable {CLeftOut}  0
  1180.     set posx(CLeftOut)   0.233398
  1181.     set posy(CLeftOut)   0.707031
  1182.     set width(CLeftOut)  0.193359
  1183.     set height(CLeftOut) 0.166667
  1184.     set scene(CLeftOut)  basement
  1185.     set camera(CLeftOut) wineCavePuzzleCloseUp
  1186.  
  1187.     variable {CLeftOutSt}  0
  1188.     set posx(CLeftOutSt)   0.233398
  1189.     set posy(CLeftOutSt)   0.707031
  1190.     set width(CLeftOutSt)  0.193359
  1191.     set height(CLeftOutSt) 0.166667
  1192.     set scene(CLeftOutSt)  basement
  1193.     set camera(CLeftOutSt) wineCavePuzzleCloseUp
  1194.  
  1195.     variable {CMiddleGlow}  0
  1196.     set posx(CMiddleGlow)   0.427734
  1197.     set posy(CMiddleGlow)   0.707031
  1198.     set width(CMiddleGlow)  0.193359
  1199.     set height(CMiddleGlow) 0.166667
  1200.     set scene(CMiddleGlow)  basement
  1201.     set camera(CMiddleGlow) wineCavePuzzleCloseUp
  1202.  
  1203.     variable {CMiddleIn}  0
  1204.     set posx(CMiddleIn)   0.427734
  1205.     set posy(CMiddleIn)   0.707031
  1206.     set width(CMiddleIn)  0.193359
  1207.     set height(CMiddleIn) 0.166667
  1208.     set scene(CMiddleIn)  basement
  1209.     set camera(CMiddleIn) wineCavePuzzleCloseUp
  1210.  
  1211.     variable {CMiddleOut}  0
  1212.     set posx(CMiddleOut)   0.427734
  1213.     set posy(CMiddleOut)   0.707031
  1214.     set width(CMiddleOut)  0.193359
  1215.     set height(CMiddleOut) 0.166667
  1216.     set scene(CMiddleOut)  basement
  1217.     set camera(CMiddleOut) wineCavePuzzleCloseUp
  1218.  
  1219.     variable {CMiddleOutSt}  0
  1220.     set posx(CMiddleOutSt)   0.427734
  1221.     set posy(CMiddleOutSt)   0.707031
  1222.     set width(CMiddleOutSt)  0.193359
  1223.     set height(CMiddleOutSt) 0.166667
  1224.     set scene(CMiddleOutSt)  basement
  1225.     set camera(CMiddleOutSt) wineCavePuzzleCloseUp
  1226.  
  1227.     variable {complete}  0
  1228.     set posx(complete)   0.305664
  1229.     set posy(complete)   0.000000
  1230.     set width(complete)  0.500000
  1231.     set height(complete) 0.666667
  1232.     set scene(complete)  basement
  1233.     set camera(complete) wineCavePuzzleCloseUp
  1234.  
  1235.     variable {CRightGlow}  0
  1236.     set posx(CRightGlow)   0.622070
  1237.     set posy(CRightGlow)   0.707031
  1238.     set width(CRightGlow)  0.193359
  1239.     set height(CRightGlow) 0.166667
  1240.     set scene(CRightGlow)  basement
  1241.     set camera(CRightGlow) wineCavePuzzleCloseUp
  1242.  
  1243.     variable {CRightIn}  0
  1244.     set posx(CRightIn)   0.622070
  1245.     set posy(CRightIn)   0.707031
  1246.     set width(CRightIn)  0.193359
  1247.     set height(CRightIn) 0.166667
  1248.     set scene(CRightIn)  basement
  1249.     set camera(CRightIn) wineCavePuzzleCloseUp
  1250.  
  1251.     variable {CRightOut}  0
  1252.     set posx(CRightOut)   0.622070
  1253.     set posy(CRightOut)   0.707031
  1254.     set width(CRightOut)  0.193359
  1255.     set height(CRightOut) 0.166667
  1256.     set scene(CRightOut)  basement
  1257.     set camera(CRightOut) wineCavePuzzleCloseUp
  1258.  
  1259.     variable {CRightOutSt}  0
  1260.     set posx(CRightOutSt)   0.622070
  1261.     set posy(CRightOutSt)   0.707031
  1262.     set width(CRightOutSt)  0.193359
  1263.     set height(CRightOutSt) 0.166667
  1264.     set scene(CRightOutSt)  basement
  1265.     set camera(CRightOutSt) wineCavePuzzleCloseUp
  1266.  
  1267.     variable {FLeftGlow}  0
  1268.     set posx(FLeftGlow)   0.233398
  1269.     set posy(FLeftGlow)   0.707031
  1270.     set width(FLeftGlow)  0.193359
  1271.     set height(FLeftGlow) 0.166667
  1272.     set scene(FLeftGlow)  basement
  1273.     set camera(FLeftGlow) wineCavePuzzleCloseUp
  1274.  
  1275.     variable {FLeftIn}  0
  1276.     set posx(FLeftIn)   0.233398
  1277.     set posy(FLeftIn)   0.707031
  1278.     set width(FLeftIn)  0.193359
  1279.     set height(FLeftIn) 0.166667
  1280.     set scene(FLeftIn)  basement
  1281.     set camera(FLeftIn) wineCavePuzzleCloseUp
  1282.  
  1283.     variable {FLeftOut}  0
  1284.     set posx(FLeftOut)   0.233398
  1285.     set posy(FLeftOut)   0.707031
  1286.     set width(FLeftOut)  0.193359
  1287.     set height(FLeftOut) 0.166667
  1288.     set scene(FLeftOut)  basement
  1289.     set camera(FLeftOut) wineCavePuzzleCloseUp
  1290.  
  1291.     variable {FLeftOutSt}  0
  1292.     set posx(FLeftOutSt)   0.233398
  1293.     set posy(FLeftOutSt)   0.707031
  1294.     set width(FLeftOutSt)  0.193359
  1295.     set height(FLeftOutSt) 0.166667
  1296.     set scene(FLeftOutSt)  basement
  1297.     set camera(FLeftOutSt) wineCavePuzzleCloseUp
  1298.  
  1299.     variable {FMiddleGlow}  0
  1300.     set posx(FMiddleGlow)   0.427734
  1301.     set posy(FMiddleGlow)   0.707031
  1302.     set width(FMiddleGlow)  0.193359
  1303.     set height(FMiddleGlow) 0.166667
  1304.     set scene(FMiddleGlow)  basement
  1305.     set camera(FMiddleGlow) wineCavePuzzleCloseUp
  1306.  
  1307.     variable {FMiddleIn}  0
  1308.     set posx(FMiddleIn)   0.427734
  1309.     set posy(FMiddleIn)   0.707031
  1310.     set width(FMiddleIn)  0.193359
  1311.     set height(FMiddleIn) 0.166667
  1312.     set scene(FMiddleIn)  basement
  1313.     set camera(FMiddleIn) wineCavePuzzleCloseUp
  1314.  
  1315.     variable {FMiddleOut}  0
  1316.     set posx(FMiddleOut)   0.427734
  1317.     set posy(FMiddleOut)   0.707031
  1318.     set width(FMiddleOut)  0.193359
  1319.     set height(FMiddleOut) 0.166667
  1320.     set scene(FMiddleOut)  basement
  1321.     set camera(FMiddleOut) wineCavePuzzleCloseUp
  1322.  
  1323.     variable {FMiddleOutSt}  0
  1324.     set posx(FMiddleOutSt)   0.427734
  1325.     set posy(FMiddleOutSt)   0.707031
  1326.     set width(FMiddleOutSt)  0.193359
  1327.     set height(FMiddleOutSt) 0.166667
  1328.     set scene(FMiddleOutSt)  basement
  1329.     set camera(FMiddleOutSt) wineCavePuzzleCloseUp
  1330.  
  1331.     variable {FRightGlow}  0
  1332.     set posx(FRightGlow)   0.622070
  1333.     set posy(FRightGlow)   0.707031
  1334.     set width(FRightGlow)  0.193359
  1335.     set height(FRightGlow) 0.166667
  1336.     set scene(FRightGlow)  basement
  1337.     set camera(FRightGlow) wineCavePuzzleCloseUp
  1338.  
  1339.     variable {FRightIn}  0
  1340.     set posx(FRightIn)   0.622070
  1341.     set posy(FRightIn)   0.707031
  1342.     set width(FRightIn)  0.193359
  1343.     set height(FRightIn) 0.166667
  1344.     set scene(FRightIn)  basement
  1345.     set camera(FRightIn) wineCavePuzzleCloseUp
  1346.  
  1347.     variable {FRightOut}  0
  1348.     set posx(FRightOut)   0.622070
  1349.     set posy(FRightOut)   0.707031
  1350.     set width(FRightOut)  0.193359
  1351.     set height(FRightOut) 0.166667
  1352.     set scene(FRightOut)  basement
  1353.     set camera(FRightOut) wineCavePuzzleCloseUp
  1354.  
  1355.     variable {FRightOutSt}  0
  1356.     set posx(FRightOutSt)   0.622070
  1357.     set posy(FRightOutSt)   0.707031
  1358.     set width(FRightOutSt)  0.193359
  1359.     set height(FRightOutSt) 0.166667
  1360.     set scene(FRightOutSt)  basement
  1361.     set camera(FRightOutSt) wineCavePuzzleCloseUp
  1362.  
  1363.     variable {KLeftGlow}  0
  1364.     set posx(KLeftGlow)   0.233398
  1365.     set posy(KLeftGlow)   0.707031
  1366.     set width(KLeftGlow)  0.193359
  1367.     set height(KLeftGlow) 0.166667
  1368.     set scene(KLeftGlow)  basement
  1369.     set camera(KLeftGlow) wineCavePuzzleCloseUp
  1370.  
  1371.     variable {KLeftIn}  0
  1372.     set posx(KLeftIn)   0.233398
  1373.     set posy(KLeftIn)   0.707031
  1374.     set width(KLeftIn)  0.193359
  1375.     set height(KLeftIn) 0.166667
  1376.     set scene(KLeftIn)  basement
  1377.     set camera(KLeftIn) wineCavePuzzleCloseUp
  1378.  
  1379.     variable {KLeftOut}  0
  1380.     set posx(KLeftOut)   0.233398
  1381.     set posy(KLeftOut)   0.707031
  1382.     set width(KLeftOut)  0.193359
  1383.     set height(KLeftOut) 0.166667
  1384.     set scene(KLeftOut)  basement
  1385.     set camera(KLeftOut) wineCavePuzzleCloseUp
  1386.  
  1387.     variable {KLeftOutSt}  0
  1388.     set posx(KLeftOutSt)   0.233398
  1389.     set posy(KLeftOutSt)   0.707031
  1390.     set width(KLeftOutSt)  0.193359
  1391.     set height(KLeftOutSt) 0.166667
  1392.     set scene(KLeftOutSt)  basement
  1393.     set camera(KLeftOutSt) wineCavePuzzleCloseUp
  1394.  
  1395.     variable {KMiddleGlow}  0
  1396.     set posx(KMiddleGlow)   0.427734
  1397.     set posy(KMiddleGlow)   0.707031
  1398.     set width(KMiddleGlow)  0.193359
  1399.     set height(KMiddleGlow) 0.166667
  1400.     set scene(KMiddleGlow)  basement
  1401.     set camera(KMiddleGlow) wineCavePuzzleCloseUp
  1402.  
  1403.     variable {KMiddleIn}  0
  1404.     set posx(KMiddleIn)   0.427734
  1405.     set posy(KMiddleIn)   0.707031
  1406.     set width(KMiddleIn)  0.193359
  1407.     set height(KMiddleIn) 0.166667
  1408.     set scene(KMiddleIn)  basement
  1409.     set camera(KMiddleIn) wineCavePuzzleCloseUp
  1410.  
  1411.     variable {KMiddleOut}  0
  1412.     set posx(KMiddleOut)   0.427734
  1413.     set posy(KMiddleOut)   0.707031
  1414.     set width(KMiddleOut)  0.193359
  1415.     set height(KMiddleOut) 0.166667
  1416.     set scene(KMiddleOut)  basement
  1417.     set camera(KMiddleOut) wineCavePuzzleCloseUp
  1418.  
  1419.     variable {KMiddleOutSt}  0
  1420.     set posx(KMiddleOutSt)   0.427734
  1421.     set posy(KMiddleOutSt)   0.707031
  1422.     set width(KMiddleOutSt)  0.193359
  1423.     set height(KMiddleOutSt) 0.166667
  1424.     set scene(KMiddleOutSt)  basement
  1425.     set camera(KMiddleOutSt) wineCavePuzzleCloseUp
  1426.  
  1427.     variable {KRightGlow}  0
  1428.     set posx(KRightGlow)   0.622070
  1429.     set posy(KRightGlow)   0.707031
  1430.     set width(KRightGlow)  0.193359
  1431.     set height(KRightGlow) 0.166667
  1432.     set scene(KRightGlow)  basement
  1433.     set camera(KRightGlow) wineCavePuzzleCloseUp
  1434.  
  1435.     variable {KRightIn}  0
  1436.     set posx(KRightIn)   0.622070
  1437.     set posy(KRightIn)   0.707031
  1438.     set width(KRightIn)  0.193359
  1439.     set height(KRightIn) 0.166667
  1440.     set scene(KRightIn)  basement
  1441.     set camera(KRightIn) wineCavePuzzleCloseUp
  1442.  
  1443.     variable {KRightOut}  0
  1444.     set posx(KRightOut)   0.622070
  1445.     set posy(KRightOut)   0.707031
  1446.     set width(KRightOut)  0.193359
  1447.     set height(KRightOut) 0.166667
  1448.     set scene(KRightOut)  basement
  1449.     set camera(KRightOut) wineCavePuzzleCloseUp
  1450.  
  1451.     variable {KRightOutSt}  0
  1452.     set posx(KRightOutSt)   0.622070
  1453.     set posy(KRightOutSt)   0.707031
  1454.     set width(KRightOutSt)  0.193359
  1455.     set height(KRightOutSt) 0.166667
  1456.     set scene(KRightOutSt)  basement
  1457.     set camera(KRightOutSt) wineCavePuzzleCloseUp
  1458.  
  1459.     variable {MLeftGlow}  0
  1460.     set posx(MLeftGlow)   0.233398
  1461.     set posy(MLeftGlow)   0.707031
  1462.     set width(MLeftGlow)  0.193359
  1463.     set height(MLeftGlow) 0.166667
  1464.     set scene(MLeftGlow)  basement
  1465.     set camera(MLeftGlow) wineCavePuzzleCloseUp
  1466.  
  1467.     variable {MLeftIn}  0
  1468.     set posx(MLeftIn)   0.233398
  1469.     set posy(MLeftIn)   0.707031
  1470.     set width(MLeftIn)  0.193359
  1471.     set height(MLeftIn) 0.166667
  1472.     set scene(MLeftIn)  basement
  1473.     set camera(MLeftIn) wineCavePuzzleCloseUp
  1474.  
  1475.     variable {MLeftOut}  0
  1476.     set posx(MLeftOut)   0.233398
  1477.     set posy(MLeftOut)   0.707031
  1478.     set width(MLeftOut)  0.193359
  1479.     set height(MLeftOut) 0.166667
  1480.     set scene(MLeftOut)  basement
  1481.     set camera(MLeftOut) wineCavePuzzleCloseUp
  1482.  
  1483.     variable {MLeftOutSt}  0
  1484.     set posx(MLeftOutSt)   0.233398
  1485.     set posy(MLeftOutSt)   0.707031
  1486.     set width(MLeftOutSt)  0.193359
  1487.     set height(MLeftOutSt) 0.166667
  1488.     set scene(MLeftOutSt)  basement
  1489.     set camera(MLeftOutSt) wineCavePuzzleCloseUp
  1490.  
  1491.     variable {MMiddleGlow}  0
  1492.     set posx(MMiddleGlow)   0.427734
  1493.     set posy(MMiddleGlow)   0.707031
  1494.     set width(MMiddleGlow)  0.193359
  1495.     set height(MMiddleGlow) 0.166667
  1496.     set scene(MMiddleGlow)  basement
  1497.     set camera(MMiddleGlow) wineCavePuzzleCloseUp
  1498.  
  1499.     variable {MMiddleIn}  0
  1500.     set posx(MMiddleIn)   0.427734
  1501.     set posy(MMiddleIn)   0.707031
  1502.     set width(MMiddleIn)  0.193359
  1503.     set height(MMiddleIn) 0.166667
  1504.     set scene(MMiddleIn)  basement
  1505.     set camera(MMiddleIn) wineCavePuzzleCloseUp
  1506.  
  1507.     variable {MMiddleOut}  0
  1508.     set posx(MMiddleOut)   0.427734
  1509.     set posy(MMiddleOut)   0.707031
  1510.     set width(MMiddleOut)  0.193359
  1511.     set height(MMiddleOut) 0.166667
  1512.     set scene(MMiddleOut)  basement
  1513.     set camera(MMiddleOut) wineCavePuzzleCloseUp
  1514.  
  1515.     variable {MMiddleOutSt}  0
  1516.     set posx(MMiddleOutSt)   0.427734
  1517.     set posy(MMiddleOutSt)   0.707031
  1518.     set width(MMiddleOutSt)  0.193359
  1519.     set height(MMiddleOutSt) 0.166667
  1520.     set scene(MMiddleOutSt)  basement
  1521.     set camera(MMiddleOutSt) wineCavePuzzleCloseUp
  1522.  
  1523.     variable {MRightGlow}  0
  1524.     set posx(MRightGlow)   0.622070
  1525.     set posy(MRightGlow)   0.707031
  1526.     set width(MRightGlow)  0.193359
  1527.     set height(MRightGlow) 0.166667
  1528.     set scene(MRightGlow)  basement
  1529.     set camera(MRightGlow) wineCavePuzzleCloseUp
  1530.  
  1531.     variable {MRightIn}  0
  1532.     set posx(MRightIn)   0.622070
  1533.     set posy(MRightIn)   0.707031
  1534.     set width(MRightIn)  0.193359
  1535.     set height(MRightIn) 0.166667
  1536.     set scene(MRightIn)  basement
  1537.     set camera(MRightIn) wineCavePuzzleCloseUp
  1538.  
  1539.     variable {MRightOut}  0
  1540.     set posx(MRightOut)   0.622070
  1541.     set posy(MRightOut)   0.707031
  1542.     set width(MRightOut)  0.193359
  1543.     set height(MRightOut) 0.166667
  1544.     set scene(MRightOut)  basement
  1545.     set camera(MRightOut) wineCavePuzzleCloseUp
  1546.  
  1547.     variable {MRightOutSt}  0
  1548.     set posx(MRightOutSt)   0.622070
  1549.     set posy(MRightOutSt)   0.707031
  1550.     set width(MRightOutSt)  0.193359
  1551.     set height(MRightOutSt) 0.166667
  1552.     set scene(MRightOutSt)  basement
  1553.     set camera(MRightOutSt) wineCavePuzzleCloseUp
  1554.  
  1555.     variable {reset}  0
  1556.     set posx(reset)   0.374023
  1557.     set posy(reset)   0.317708
  1558.     set width(reset)  0.250000
  1559.     set height(reset) 0.333333
  1560.     set scene(reset)  basement
  1561.     set camera(reset) wineCavePuzzleCloseUp
  1562.  
  1563.     variable {RLeftGlow}  0
  1564.     set posx(RLeftGlow)   0.233398
  1565.     set posy(RLeftGlow)   0.707031
  1566.     set width(RLeftGlow)  0.193359
  1567.     set height(RLeftGlow) 0.166667
  1568.     set scene(RLeftGlow)  basement
  1569.     set camera(RLeftGlow) wineCavePuzzleCloseUp
  1570.  
  1571.     variable {RLeftIn}  0
  1572.     set posx(RLeftIn)   0.233398
  1573.     set posy(RLeftIn)   0.707031
  1574.     set width(RLeftIn)  0.193359
  1575.     set height(RLeftIn) 0.166667
  1576.     set scene(RLeftIn)  basement
  1577.     set camera(RLeftIn) wineCavePuzzleCloseUp
  1578.  
  1579.     variable {RLeftOut}  0
  1580.     set posx(RLeftOut)   0.233398
  1581.     set posy(RLeftOut)   0.707031
  1582.     set width(RLeftOut)  0.193359
  1583.     set height(RLeftOut) 0.166667
  1584.     set scene(RLeftOut)  basement
  1585.     set camera(RLeftOut) wineCavePuzzleCloseUp
  1586.  
  1587.     variable {RLeftOutSt}  0
  1588.     set posx(RLeftOutSt)   0.233398
  1589.     set posy(RLeftOutSt)   0.707031
  1590.     set width(RLeftOutSt)  0.193359
  1591.     set height(RLeftOutSt) 0.166667
  1592.     set scene(RLeftOutSt)  basement
  1593.     set camera(RLeftOutSt) wineCavePuzzleCloseUp
  1594.  
  1595.     variable {RMiddleGlow}  0
  1596.     set posx(RMiddleGlow)   0.427734
  1597.     set posy(RMiddleGlow)   0.707031
  1598.     set width(RMiddleGlow)  0.193359
  1599.     set height(RMiddleGlow) 0.166667
  1600.     set scene(RMiddleGlow)  basement
  1601.     set camera(RMiddleGlow) wineCavePuzzleCloseUp
  1602.  
  1603.     variable {RMiddleIn}  0
  1604.     set posx(RMiddleIn)   0.427734
  1605.     set posy(RMiddleIn)   0.707031
  1606.     set width(RMiddleIn)  0.193359
  1607.     set height(RMiddleIn) 0.166667
  1608.     set scene(RMiddleIn)  basement
  1609.     set camera(RMiddleIn) wineCavePuzzleCloseUp
  1610.  
  1611.     variable {RMiddleOut}  0
  1612.     set posx(RMiddleOut)   0.427734
  1613.     set posy(RMiddleOut)   0.707031
  1614.     set width(RMiddleOut)  0.193359
  1615.     set height(RMiddleOut) 0.166667
  1616.     set scene(RMiddleOut)  basement
  1617.     set camera(RMiddleOut) wineCavePuzzleCloseUp
  1618.  
  1619.     variable {RMiddleOutSt}  0
  1620.     set posx(RMiddleOutSt)   0.427734
  1621.     set posy(RMiddleOutSt)   0.707031
  1622.     set width(RMiddleOutSt)  0.193359
  1623.     set height(RMiddleOutSt) 0.166667
  1624.     set scene(RMiddleOutSt)  basement
  1625.     set camera(RMiddleOutSt) wineCavePuzzleCloseUp
  1626.  
  1627.     variable {RRightGlow}  0
  1628.     set posx(RRightGlow)   0.622070
  1629.     set posy(RRightGlow)   0.707031
  1630.     set width(RRightGlow)  0.193359
  1631.     set height(RRightGlow) 0.166667
  1632.     set scene(RRightGlow)  basement
  1633.     set camera(RRightGlow) wineCavePuzzleCloseUp
  1634.  
  1635.     variable {RRightIn}  0
  1636.     set posx(RRightIn)   0.622070
  1637.     set posy(RRightIn)   0.707031
  1638.     set width(RRightIn)  0.193359
  1639.     set height(RRightIn) 0.166667
  1640.     set scene(RRightIn)  basement
  1641.     set camera(RRightIn) wineCavePuzzleCloseUp
  1642.  
  1643.     variable {RRightOut}  0
  1644.     set posx(RRightOut)   0.622070
  1645.     set posy(RRightOut)   0.707031
  1646.     set width(RRightOut)  0.193359
  1647.     set height(RRightOut) 0.166667
  1648.     set scene(RRightOut)  basement
  1649.     set camera(RRightOut) wineCavePuzzleCloseUp
  1650.  
  1651.     variable {RRightOutSt}  0
  1652.     set posx(RRightOutSt)   0.622070
  1653.     set posy(RRightOutSt)   0.707031
  1654.     set width(RRightOutSt)  0.193359
  1655.     set height(RRightOutSt) 0.166667
  1656.     set scene(RRightOutSt)  basement
  1657.     set camera(RRightOutSt) wineCavePuzzleCloseUp
  1658.  
  1659.     variable {SLeftGlow}  0
  1660.     set posx(SLeftGlow)   0.233398
  1661.     set posy(SLeftGlow)   0.707031
  1662.     set width(SLeftGlow)  0.193359
  1663.     set height(SLeftGlow) 0.166667
  1664.     set scene(SLeftGlow)  basement
  1665.     set camera(SLeftGlow) wineCavePuzzleCloseUp
  1666.  
  1667.     variable {SLeftIn}  0
  1668.     set posx(SLeftIn)   0.233398
  1669.     set posy(SLeftIn)   0.707031
  1670.     set width(SLeftIn)  0.193359
  1671.     set height(SLeftIn) 0.166667
  1672.     set scene(SLeftIn)  basement
  1673.     set camera(SLeftIn) wineCavePuzzleCloseUp
  1674.  
  1675.     variable {SLeftOut}  0
  1676.     set posx(SLeftOut)   0.233398
  1677.     set posy(SLeftOut)   0.707031
  1678.     set width(SLeftOut)  0.193359
  1679.     set height(SLeftOut) 0.166667
  1680.     set scene(SLeftOut)  basement
  1681.     set camera(SLeftOut) wineCavePuzzleCloseUp
  1682.  
  1683.     variable {SLeftOutSt}  0
  1684.     set posx(SLeftOutSt)   0.233398
  1685.     set posy(SLeftOutSt)   0.707031
  1686.     set width(SLeftOutSt)  0.193359
  1687.     set height(SLeftOutSt) 0.166667
  1688.     set scene(SLeftOutSt)  basement
  1689.     set camera(SLeftOutSt) wineCavePuzzleCloseUp
  1690.  
  1691.     variable {SMiddleGlow}  0
  1692.     set posx(SMiddleGlow)   0.427734
  1693.     set posy(SMiddleGlow)   0.707031
  1694.     set width(SMiddleGlow)  0.193359
  1695.     set height(SMiddleGlow) 0.166667
  1696.     set scene(SMiddleGlow)  basement
  1697.     set camera(SMiddleGlow) wineCavePuzzleCloseUp
  1698.  
  1699.     variable {SMiddleIn}  0
  1700.     set posx(SMiddleIn)   0.427734
  1701.     set posy(SMiddleIn)   0.707031
  1702.     set width(SMiddleIn)  0.193359
  1703.     set height(SMiddleIn) 0.166667
  1704.     set scene(SMiddleIn)  basement
  1705.     set camera(SMiddleIn) wineCavePuzzleCloseUp
  1706.  
  1707.     variable {SMiddleOut}  0
  1708.     set posx(SMiddleOut)   0.427734
  1709.     set posy(SMiddleOut)   0.707031
  1710.     set width(SMiddleOut)  0.193359
  1711.     set height(SMiddleOut) 0.166667
  1712.     set scene(SMiddleOut)  basement
  1713.     set camera(SMiddleOut) wineCavePuzzleCloseUp
  1714.  
  1715.     variable {SMiddleOutSt}  0
  1716.     set posx(SMiddleOutSt)   0.427734
  1717.     set posy(SMiddleOutSt)   0.707031
  1718.     set width(SMiddleOutSt)  0.193359
  1719.     set height(SMiddleOutSt) 0.166667
  1720.     set scene(SMiddleOutSt)  basement
  1721.     set camera(SMiddleOutSt) wineCavePuzzleCloseUp
  1722.  
  1723.     variable {SRightGlow}  0
  1724.     set posx(SRightGlow)   0.622070
  1725.     set posy(SRightGlow)   0.707031
  1726.     set width(SRightGlow)  0.193359
  1727.     set height(SRightGlow) 0.166667
  1728.     set scene(SRightGlow)  basement
  1729.     set camera(SRightGlow) wineCavePuzzleCloseUp
  1730.  
  1731.     variable {SRightIn}  0
  1732.     set posx(SRightIn)   0.622070
  1733.     set posy(SRightIn)   0.707031
  1734.     set width(SRightIn)  0.193359
  1735.     set height(SRightIn) 0.166667
  1736.     set scene(SRightIn)  basement
  1737.     set camera(SRightIn) wineCavePuzzleCloseUp
  1738.  
  1739.     variable {SRightOut}  0
  1740.     set posx(SRightOut)   0.622070
  1741.     set posy(SRightOut)   0.707031
  1742.     set width(SRightOut)  0.193359
  1743.     set height(SRightOut) 0.166667
  1744.     set scene(SRightOut)  basement
  1745.     set camera(SRightOut) wineCavePuzzleCloseUp
  1746.  
  1747.     variable {SRightOutSt}  0
  1748.     set posx(SRightOutSt)   0.622070
  1749.     set posy(SRightOutSt)   0.707031
  1750.     set width(SRightOutSt)  0.193359
  1751.     set height(SRightOutSt) 0.166667
  1752.     set scene(SRightOutSt)  basement
  1753.     set camera(SRightOutSt) wineCavePuzzleCloseUp
  1754.  
  1755.     variable {TLeftGlow}  0
  1756.     set posx(TLeftGlow)   0.233398
  1757.     set posy(TLeftGlow)   0.707031
  1758.     set width(TLeftGlow)  0.193359
  1759.     set height(TLeftGlow) 0.166667
  1760.     set scene(TLeftGlow)  basement
  1761.     set camera(TLeftGlow) wineCavePuzzleCloseUp
  1762.  
  1763.     variable {TLeftIn}  0
  1764.     set posx(TLeftIn)   0.233398
  1765.     set posy(TLeftIn)   0.707031
  1766.     set width(TLeftIn)  0.193359
  1767.     set height(TLeftIn) 0.166667
  1768.     set scene(TLeftIn)  basement
  1769.     set camera(TLeftIn) wineCavePuzzleCloseUp
  1770.  
  1771.     variable {TLeftOut}  0
  1772.     set posx(TLeftOut)   0.233398
  1773.     set posy(TLeftOut)   0.707031
  1774.     set width(TLeftOut)  0.193359
  1775.     set height(TLeftOut) 0.166667
  1776.     set scene(TLeftOut)  basement
  1777.     set camera(TLeftOut) wineCavePuzzleCloseUp
  1778.  
  1779.     variable {TLeftOutSt}  0
  1780.     set posx(TLeftOutSt)   0.233398
  1781.     set posy(TLeftOutSt)   0.707031
  1782.     set width(TLeftOutSt)  0.193359
  1783.     set height(TLeftOutSt) 0.166667
  1784.     set scene(TLeftOutSt)  basement
  1785.     set camera(TLeftOutSt) wineCavePuzzleCloseUp
  1786.  
  1787.     variable {TMiddleGlow}  0
  1788.     set posx(TMiddleGlow)   0.427734
  1789.     set posy(TMiddleGlow)   0.707031
  1790.     set width(TMiddleGlow)  0.193359
  1791.     set height(TMiddleGlow) 0.166667
  1792.     set scene(TMiddleGlow)  basement
  1793.     set camera(TMiddleGlow) wineCavePuzzleCloseUp
  1794.  
  1795.     variable {TMiddleIn}  0
  1796.     set posx(TMiddleIn)   0.427734
  1797.     set posy(TMiddleIn)   0.707031
  1798.     set width(TMiddleIn)  0.193359
  1799.     set height(TMiddleIn) 0.166667
  1800.     set scene(TMiddleIn)  basement
  1801.     set camera(TMiddleIn) wineCavePuzzleCloseUp
  1802.  
  1803.     variable {TMiddleOut}  0
  1804.     set posx(TMiddleOut)   0.427734
  1805.     set posy(TMiddleOut)   0.707031
  1806.     set width(TMiddleOut)  0.193359
  1807.     set height(TMiddleOut) 0.166667
  1808.     set scene(TMiddleOut)  basement
  1809.     set camera(TMiddleOut) wineCavePuzzleCloseUp
  1810.  
  1811.     variable {TMiddleOutSt}  0
  1812.     set posx(TMiddleOutSt)   0.427734
  1813.     set posy(TMiddleOutSt)   0.707031
  1814.     set width(TMiddleOutSt)  0.193359
  1815.     set height(TMiddleOutSt) 0.166667
  1816.     set scene(TMiddleOutSt)  basement
  1817.     set camera(TMiddleOutSt) wineCavePuzzleCloseUp
  1818.  
  1819.     variable {TRightGlow}  0
  1820.     set posx(TRightGlow)   0.622070
  1821.     set posy(TRightGlow)   0.707031
  1822.     set width(TRightGlow)  0.193359
  1823.     set height(TRightGlow) 0.166667
  1824.     set scene(TRightGlow)  basement
  1825.     set camera(TRightGlow) wineCavePuzzleCloseUp
  1826.  
  1827.     variable {TRightIn}  0
  1828.     set posx(TRightIn)   0.622070
  1829.     set posy(TRightIn)   0.707031
  1830.     set width(TRightIn)  0.193359
  1831.     set height(TRightIn) 0.166667
  1832.     set scene(TRightIn)  basement
  1833.     set camera(TRightIn) wineCavePuzzleCloseUp
  1834.  
  1835.     variable {TRightOut}  0
  1836.     set posx(TRightOut)   0.622070
  1837.     set posy(TRightOut)   0.707031
  1838.     set width(TRightOut)  0.193359
  1839.     set height(TRightOut) 0.166667
  1840.     set scene(TRightOut)  basement
  1841.     set camera(TRightOut) wineCavePuzzleCloseUp
  1842.  
  1843.     variable {TRightOutSt}  0
  1844.     set posx(TRightOutSt)   0.622070
  1845.     set posy(TRightOutSt)   0.707031
  1846.     set width(TRightOutSt)  0.193359
  1847.     set height(TRightOutSt) 0.166667
  1848.     set scene(TRightOutSt)  basement
  1849.     set camera(TRightOutSt) wineCavePuzzleCloseUp
  1850.  
  1851.     variable {XLeftGlow}  0
  1852.     set posx(XLeftGlow)   0.233398
  1853.     set posy(XLeftGlow)   0.707031
  1854.     set width(XLeftGlow)  0.193359
  1855.     set height(XLeftGlow) 0.166667
  1856.     set scene(XLeftGlow)  basement
  1857.     set camera(XLeftGlow) wineCavePuzzleCloseUp
  1858.  
  1859.     variable {XLeftIn}  0
  1860.     set posx(XLeftIn)   0.233398
  1861.     set posy(XLeftIn)   0.707031
  1862.     set width(XLeftIn)  0.193359
  1863.     set height(XLeftIn) 0.166667
  1864.     set scene(XLeftIn)  basement
  1865.     set camera(XLeftIn) wineCavePuzzleCloseUp
  1866.  
  1867.     variable {XLeftOut}  0
  1868.     set posx(XLeftOut)   0.233398
  1869.     set posy(XLeftOut)   0.707031
  1870.     set width(XLeftOut)  0.193359
  1871.     set height(XLeftOut) 0.166667
  1872.     set scene(XLeftOut)  basement
  1873.     set camera(XLeftOut) wineCavePuzzleCloseUp
  1874.  
  1875.     variable {XLeftOutSt}  0
  1876.     set posx(XLeftOutSt)   0.233398
  1877.     set posy(XLeftOutSt)   0.707031
  1878.     set width(XLeftOutSt)  0.193359
  1879.     set height(XLeftOutSt) 0.166667
  1880.     set scene(XLeftOutSt)  basement
  1881.     set camera(XLeftOutSt) wineCavePuzzleCloseUp
  1882.  
  1883.     variable {XMiddleGlow}  0
  1884.     set posx(XMiddleGlow)   0.427734
  1885.     set posy(XMiddleGlow)   0.707031
  1886.     set width(XMiddleGlow)  0.193359
  1887.     set height(XMiddleGlow) 0.166667
  1888.     set scene(XMiddleGlow)  basement
  1889.     set camera(XMiddleGlow) wineCavePuzzleCloseUp
  1890.  
  1891.     variable {XMiddleIn}  0
  1892.     set posx(XMiddleIn)   0.427734
  1893.     set posy(XMiddleIn)   0.707031
  1894.     set width(XMiddleIn)  0.193359
  1895.     set height(XMiddleIn) 0.166667
  1896.     set scene(XMiddleIn)  basement
  1897.     set camera(XMiddleIn) wineCavePuzzleCloseUp
  1898.  
  1899.     variable {XMiddleOut}  0
  1900.     set posx(XMiddleOut)   0.427734
  1901.     set posy(XMiddleOut)   0.707031
  1902.     set width(XMiddleOut)  0.193359
  1903.     set height(XMiddleOut) 0.166667
  1904.     set scene(XMiddleOut)  basement
  1905.     set camera(XMiddleOut) wineCavePuzzleCloseUp
  1906.  
  1907.     variable {XMiddleOutSt}  0
  1908.     set posx(XMiddleOutSt)   0.427734
  1909.     set posy(XMiddleOutSt)   0.707031
  1910.     set width(XMiddleOutSt)  0.193359
  1911.     set height(XMiddleOutSt) 0.166667
  1912.     set scene(XMiddleOutSt)  basement
  1913.     set camera(XMiddleOutSt) wineCavePuzzleCloseUp
  1914.  
  1915.     variable {XRightGlow}  0
  1916.     set posx(XRightGlow)   0.622070
  1917.     set posy(XRightGlow)   0.707031
  1918.     set width(XRightGlow)  0.193359
  1919.     set height(XRightGlow) 0.166667
  1920.     set scene(XRightGlow)  basement
  1921.     set camera(XRightGlow) wineCavePuzzleCloseUp
  1922.  
  1923.     variable {XRightIn}  0
  1924.     set posx(XRightIn)   0.622070
  1925.     set posy(XRightIn)   0.707031
  1926.     set width(XRightIn)  0.193359
  1927.     set height(XRightIn) 0.166667
  1928.     set scene(XRightIn)  basement
  1929.     set camera(XRightIn) wineCavePuzzleCloseUp
  1930.  
  1931.     variable {XRightOut}  0
  1932.     set posx(XRightOut)   0.622070
  1933.     set posy(XRightOut)   0.707031
  1934.     set width(XRightOut)  0.193359
  1935.     set height(XRightOut) 0.166667
  1936.     set scene(XRightOut)  basement
  1937.     set camera(XRightOut) wineCavePuzzleCloseUp
  1938.  
  1939.     variable {XRightOutSt}  0
  1940.     set posx(XRightOutSt)   0.622070
  1941.     set posy(XRightOutSt)   0.707031
  1942.     set width(XRightOutSt)  0.193359
  1943.     set height(XRightOutSt) 0.166667
  1944.     set scene(XRightOutSt)  basement
  1945.     set camera(XRightOutSt) wineCavePuzzleCloseUp
  1946.  
  1947.     proc new {object args} {
  1948.         variable $object
  1949.         variable posx
  1950.         variable posy
  1951.         variable width
  1952.         variable height
  1953.         variable scene
  1954.         variable camera
  1955.  
  1956.         if {[set $object] != 0} return
  1957.  
  1958.         set optstring {play foreground nopan {depth 0}}
  1959.         array set v [cmdline::getopt $args $optstring]
  1960.  
  1961.         set layer "-background"
  1962.         if $v(foreground?) {
  1963.             set layer "-foreground"
  1964.         }
  1965.  
  1966.         set pan "-pan"
  1967.         if $v(nopan?) {
  1968.             set pan ""
  1969.         }
  1970.  
  1971.         set depth $v(depth)
  1972.  
  1973.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1974.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1975.                     -depth $depth $layer $pan]
  1976.  
  1977.         eval "oz'widget::property [set $object] $args"
  1978.  
  1979.         if $v(play?) {
  1980.             oz'event {
  1981.                 ozSet mvDisableMouse 0
  1982.                 if [ozIsEnable mouse] {
  1983.                     wizDisableMouse
  1984.                     ozSet mvDisableMouse 1
  1985.                 }
  1986.             }
  1987.             wq'widget::waitfor [set $object] -animate
  1988.             wq'widget::delete [set $object]
  1989.             oz'event {
  1990.                 if [ozGet mvDisableMouse] {
  1991.                     wizEnableMouse
  1992.                 }
  1993.             }
  1994.             set $object 0
  1995.         }
  1996.     }
  1997.  
  1998.     proc newSt {object args} {
  1999.         variable $object
  2000.         variable posx
  2001.         variable posy
  2002.         variable width
  2003.         variable height
  2004.         variable scene
  2005.         variable camera
  2006.  
  2007.         if {[set $object] != 0} return
  2008.  
  2009.         set optstring {play foreground {depth 1}}
  2010.         array set v [cmdline::getopt $args $optstring]
  2011.  
  2012.         set layer "-background"
  2013.         if $v(foreground) {
  2014.             set layer "-foreground"
  2015.         }
  2016.  
  2017.         set depth $v(depth)
  2018.  
  2019.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  2020.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  2021.                     -depth $depth $layer -pan]
  2022.  
  2023.         eval "oz'widget::property [set $object] $args"
  2024.     }
  2025. }
  2026.  
  2027.  
  2028.