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