home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / crescentCoastWaterway.mvwrap.tcl < prev    next >
Text File  |  2005-10-22  |  56KB  |  1,691 lines
  1. namespace eval barrel {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {waterA}  0
  10.     set posx(waterA)   0
  11.     set posy(waterA)   0.848958
  12.     set width(waterA)  0.293945
  13.     set height(waterA) 0.151042
  14.     set scene(waterA)  crescentCoastWaterway
  15.     set camera(waterA) barrel
  16.  
  17.     variable {waterB}  0
  18.     set posx(waterB)   0.83105
  19.     set posy(waterB)   0.6679695
  20.     set width(waterB)  0.15625
  21.     set height(waterB) 0.1875
  22.     set scene(waterB)  crescentCoastWaterway
  23.     set camera(waterB) barrel
  24.  
  25.     proc new {object args} {
  26.         variable $object
  27.         variable posx
  28.         variable posy
  29.         variable width
  30.         variable height
  31.         variable scene
  32.         variable camera
  33.  
  34.         if {[set $object] != 0} return
  35.  
  36.         set optstring {play foreground nopan {depth 0}}
  37.         array set v [cmdline::getopt $args $optstring]
  38.  
  39.         set layer "-background"
  40.         if $v(foreground?) {
  41.             set layer "-foreground"
  42.         }
  43.  
  44.         set pan "-pan"
  45.         if $v(nopan?) {
  46.             set pan ""
  47.         }
  48.  
  49.         set depth $v(depth)
  50.  
  51.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  52.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  53.                     -depth $depth $layer $pan]
  54.  
  55.         eval "oz'widget::property [set $object] $args"
  56.  
  57.         if $v(play?) {
  58.             oz'event {
  59.                 ozSet mvDisableMouse 0
  60.                 if [ozIsEnable mouse] {
  61.                     wizDisableMouse
  62.                     ozSet mvDisableMouse 1
  63.                 }
  64.             }
  65.             wq'widget::waitfor [set $object] -animate
  66.             wq'widget::delete [set $object]
  67.             oz'event {
  68.                 if [ozGet mvDisableMouse] {
  69.                     wizEnableMouse
  70.                 }
  71.             }
  72.             set $object 0
  73.         }
  74.     }
  75.  
  76.     proc newSt {object args} {
  77.         variable $object
  78.         variable posx
  79.         variable posy
  80.         variable width
  81.         variable height
  82.         variable scene
  83.         variable camera
  84.  
  85.         if {[set $object] != 0} return
  86.  
  87.         set optstring {play foreground {depth 1}}
  88.         array set v [cmdline::getopt $args $optstring]
  89.  
  90.         set layer "-background"
  91.         if $v(foreground) {
  92.             set layer "-foreground"
  93.         }
  94.  
  95.         set depth $v(depth)
  96.  
  97.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  98.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  99.                     -depth $depth $layer -pan]
  100.  
  101.         eval "oz'widget::property [set $object] $args"
  102.     }
  103. }
  104.  
  105.  
  106. namespace eval ceiling {
  107.     variable posx
  108.     variable posy
  109.     variable width
  110.     variable height
  111.     variable scene
  112.     variable camera
  113.  
  114.     variable {wheel}  0
  115.     set posx(wheel)   0.727539
  116.     set posy(wheel)   0.657552
  117.     set width(wheel)  0.125000
  118.     set height(wheel) 0.072917
  119.     set scene(wheel)  crescentCoastWaterway
  120.     set camera(wheel) ceiling
  121.  
  122.     proc new {object args} {
  123.         variable $object
  124.         variable posx
  125.         variable posy
  126.         variable width
  127.         variable height
  128.         variable scene
  129.         variable camera
  130.  
  131.         if {[set $object] != 0} return
  132.  
  133.         set optstring {play foreground nopan {depth 0}}
  134.         array set v [cmdline::getopt $args $optstring]
  135.  
  136.         set layer "-background"
  137.         if $v(foreground?) {
  138.             set layer "-foreground"
  139.         }
  140.  
  141.         set pan "-pan"
  142.         if $v(nopan?) {
  143.             set pan ""
  144.         }
  145.  
  146.         set depth $v(depth)
  147.  
  148.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  149.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  150.                     -depth $depth $layer $pan]
  151.  
  152.         eval "oz'widget::property [set $object] $args"
  153.  
  154.         if $v(play?) {
  155.             oz'event {
  156.                 ozSet mvDisableMouse 0
  157.                 if [ozIsEnable mouse] {
  158.                     wizDisableMouse
  159.                     ozSet mvDisableMouse 1
  160.                 }
  161.             }
  162.             wq'widget::waitfor [set $object] -animate
  163.             wq'widget::delete [set $object]
  164.             oz'event {
  165.                 if [ozGet mvDisableMouse] {
  166.                     wizEnableMouse
  167.                 }
  168.             }
  169.             set $object 0
  170.         }
  171.     }
  172.  
  173.     proc newSt {object args} {
  174.         variable $object
  175.         variable posx
  176.         variable posy
  177.         variable width
  178.         variable height
  179.         variable scene
  180.         variable camera
  181.  
  182.         if {[set $object] != 0} return
  183.  
  184.         set optstring {play foreground {depth 1}}
  185.         array set v [cmdline::getopt $args $optstring]
  186.  
  187.         set layer "-background"
  188.         if $v(foreground) {
  189.             set layer "-foreground"
  190.         }
  191.  
  192.         set depth $v(depth)
  193.  
  194.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  195.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  196.                     -depth $depth $layer -pan]
  197.  
  198.         eval "oz'widget::property [set $object] $args"
  199.     }
  200. }
  201.  
  202.  
  203. namespace eval doorFrame {
  204.     variable posx
  205.     variable posy
  206.     variable width
  207.     variable height
  208.     variable scene
  209.     variable camera
  210.  
  211.     variable {waterA}  0
  212.     set posx(waterA)   0.0214844
  213.     set posy(waterA)   0.833333
  214.     set width(waterA)  0.25
  215.     set height(waterA) 0.166667
  216.     set scene(waterA)  crescentCoastWaterway
  217.     set camera(waterA) doorFrame
  218.  
  219.     proc new {object args} {
  220.         variable $object
  221.         variable posx
  222.         variable posy
  223.         variable width
  224.         variable height
  225.         variable scene
  226.         variable camera
  227.  
  228.         if {[set $object] != 0} return
  229.  
  230.         set optstring {play foreground nopan {depth 0}}
  231.         array set v [cmdline::getopt $args $optstring]
  232.  
  233.         set layer "-background"
  234.         if $v(foreground?) {
  235.             set layer "-foreground"
  236.         }
  237.  
  238.         set pan "-pan"
  239.         if $v(nopan?) {
  240.             set pan ""
  241.         }
  242.  
  243.         set depth $v(depth)
  244.  
  245.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  246.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  247.                     -depth $depth $layer $pan]
  248.  
  249.         eval "oz'widget::property [set $object] $args"
  250.  
  251.         if $v(play?) {
  252.             oz'event {
  253.                 ozSet mvDisableMouse 0
  254.                 if [ozIsEnable mouse] {
  255.                     wizDisableMouse
  256.                     ozSet mvDisableMouse 1
  257.                 }
  258.             }
  259.             wq'widget::waitfor [set $object] -animate
  260.             wq'widget::delete [set $object]
  261.             oz'event {
  262.                 if [ozGet mvDisableMouse] {
  263.                     wizEnableMouse
  264.                 }
  265.             }
  266.             set $object 0
  267.         }
  268.     }
  269.  
  270.     proc newSt {object args} {
  271.         variable $object
  272.         variable posx
  273.         variable posy
  274.         variable width
  275.         variable height
  276.         variable scene
  277.         variable camera
  278.  
  279.         if {[set $object] != 0} return
  280.  
  281.         set optstring {play foreground {depth 1}}
  282.         array set v [cmdline::getopt $args $optstring]
  283.  
  284.         set layer "-background"
  285.         if $v(foreground) {
  286.             set layer "-foreground"
  287.         }
  288.  
  289.         set depth $v(depth)
  290.  
  291.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  292.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  293.                     -depth $depth $layer -pan]
  294.  
  295.         eval "oz'widget::property [set $object] $args"
  296.     }
  297. }
  298.  
  299.  
  300. namespace eval forest {
  301.     variable posx
  302.     variable posy
  303.     variable width
  304.     variable height
  305.     variable scene
  306.     variable camera
  307.  
  308.     variable {waterA}  0
  309.     set posx(waterA)   1.375
  310.     set posy(waterA)   0.852865
  311.     set width(waterA)  0.125
  312.     set height(waterA) 0.46875
  313.     set scene(waterA)  crescentCoastWaterway
  314.     set camera(waterA) forest
  315.  
  316.     proc new {object args} {
  317.         variable $object
  318.         variable posx
  319.         variable posy
  320.         variable width
  321.         variable height
  322.         variable scene
  323.         variable camera
  324.  
  325.         if {[set $object] != 0} return
  326.  
  327.         set optstring {play foreground nopan {depth 0}}
  328.         array set v [cmdline::getopt $args $optstring]
  329.  
  330.         set layer "-background"
  331.         if $v(foreground?) {
  332.             set layer "-foreground"
  333.         }
  334.  
  335.         set pan "-pan"
  336.         if $v(nopan?) {
  337.             set pan ""
  338.         }
  339.  
  340.         set depth $v(depth)
  341.  
  342.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  343.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  344.                     -depth $depth $layer $pan]
  345.  
  346.         eval "oz'widget::property [set $object] $args"
  347.  
  348.         if $v(play?) {
  349.             oz'event {
  350.                 ozSet mvDisableMouse 0
  351.                 if [ozIsEnable mouse] {
  352.                     wizDisableMouse
  353.                     ozSet mvDisableMouse 1
  354.                 }
  355.             }
  356.             wq'widget::waitfor [set $object] -animate
  357.             wq'widget::delete [set $object]
  358.             oz'event {
  359.                 if [ozGet mvDisableMouse] {
  360.                     wizEnableMouse
  361.                 }
  362.             }
  363.             set $object 0
  364.         }
  365.     }
  366.  
  367.     proc newSt {object args} {
  368.         variable $object
  369.         variable posx
  370.         variable posy
  371.         variable width
  372.         variable height
  373.         variable scene
  374.         variable camera
  375.  
  376.         if {[set $object] != 0} return
  377.  
  378.         set optstring {play foreground {depth 1}}
  379.         array set v [cmdline::getopt $args $optstring]
  380.  
  381.         set layer "-background"
  382.         if $v(foreground) {
  383.             set layer "-foreground"
  384.         }
  385.  
  386.         set depth $v(depth)
  387.  
  388.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  389.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  390.                     -depth $depth $layer -pan]
  391.  
  392.         eval "oz'widget::property [set $object] $args"
  393.     }
  394. }
  395.  
  396.  
  397. namespace eval gears {
  398.     variable posx
  399.     variable posy
  400.     variable width
  401.     variable height
  402.     variable scene
  403.     variable camera
  404.  
  405.     variable {gearsA}  0
  406.     set posx(gearsA)   0.693359
  407.     set posy(gearsA)   0.285156
  408.     set width(gearsA)  0.118164
  409.     set height(gearsA) 0.072917
  410.     set scene(gearsA)  crescentCoastWaterway
  411.     set camera(gearsA) gears
  412.  
  413.     variable {gearsB}  0
  414.     set posx(gearsB)   0.651367
  415.     set posy(gearsB)   0.548177
  416.     set width(gearsB)  0.190430
  417.     set height(gearsB) 0.139323
  418.     set scene(gearsB)  crescentCoastWaterway
  419.     set camera(gearsB) gears
  420.  
  421.     variable {gearsC}  0
  422.     set posx(gearsC)   0.754883
  423.     set posy(gearsC)   0.388021
  424.     set width(gearsC)  0.154297
  425.     set height(gearsC) 0.160156
  426.     set scene(gearsC)  crescentCoastWaterway
  427.     set camera(gearsC) gears
  428.  
  429.     variable {wheel}  0
  430.     set posx(wheel)   0.000000
  431.     set posy(wheel)   0.648438
  432.     set width(wheel)  0.276367
  433.     set height(wheel) 0.351562
  434.     set scene(wheel)  crescentCoastWaterway
  435.     set camera(wheel) gears
  436.  
  437.     proc new {object args} {
  438.         variable $object
  439.         variable posx
  440.         variable posy
  441.         variable width
  442.         variable height
  443.         variable scene
  444.         variable camera
  445.  
  446.         if {[set $object] != 0} return
  447.  
  448.         set optstring {play foreground nopan {depth 0}}
  449.         array set v [cmdline::getopt $args $optstring]
  450.  
  451.         set layer "-background"
  452.         if $v(foreground?) {
  453.             set layer "-foreground"
  454.         }
  455.  
  456.         set pan "-pan"
  457.         if $v(nopan?) {
  458.             set pan ""
  459.         }
  460.  
  461.         set depth $v(depth)
  462.  
  463.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  464.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  465.                     -depth $depth $layer $pan]
  466.  
  467.         eval "oz'widget::property [set $object] $args"
  468.  
  469.         if $v(play?) {
  470.             oz'event {
  471.                 ozSet mvDisableMouse 0
  472.                 if [ozIsEnable mouse] {
  473.                     wizDisableMouse
  474.                     ozSet mvDisableMouse 1
  475.                 }
  476.             }
  477.             wq'widget::waitfor [set $object] -animate
  478.             wq'widget::delete [set $object]
  479.             oz'event {
  480.                 if [ozGet mvDisableMouse] {
  481.                     wizEnableMouse
  482.                 }
  483.             }
  484.             set $object 0
  485.         }
  486.     }
  487.  
  488.     proc newSt {object args} {
  489.         variable $object
  490.         variable posx
  491.         variable posy
  492.         variable width
  493.         variable height
  494.         variable scene
  495.         variable camera
  496.  
  497.         if {[set $object] != 0} return
  498.  
  499.         set optstring {play foreground {depth 1}}
  500.         array set v [cmdline::getopt $args $optstring]
  501.  
  502.         set layer "-background"
  503.         if $v(foreground) {
  504.             set layer "-foreground"
  505.         }
  506.  
  507.         set depth $v(depth)
  508.  
  509.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  510.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  511.                     -depth $depth $layer -pan]
  512.  
  513.         eval "oz'widget::property [set $object] $args"
  514.     }
  515. }
  516.  
  517.  
  518. namespace eval millWheel {
  519.     variable posx
  520.     variable posy
  521.     variable width
  522.     variable height
  523.     variable scene
  524.     variable camera
  525.  
  526.     variable {wheel}  0
  527.     set posx(wheel)   0.000000
  528.     set posy(wheel)   0.352865
  529.     set width(wheel)  0.419922
  530.     set height(wheel) 0.647135
  531.     set scene(wheel)  crescentCoastWaterway
  532.     set camera(wheel) millWheel
  533.  
  534.     proc new {object args} {
  535.         variable $object
  536.         variable posx
  537.         variable posy
  538.         variable width
  539.         variable height
  540.         variable scene
  541.         variable camera
  542.  
  543.         if {[set $object] != 0} return
  544.  
  545.         set optstring {play foreground nopan {depth 0}}
  546.         array set v [cmdline::getopt $args $optstring]
  547.  
  548.         set layer "-background"
  549.         if $v(foreground?) {
  550.             set layer "-foreground"
  551.         }
  552.  
  553.         set pan "-pan"
  554.         if $v(nopan?) {
  555.             set pan ""
  556.         }
  557.  
  558.         set depth $v(depth)
  559.  
  560.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  561.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  562.                     -depth $depth $layer $pan]
  563.  
  564.         eval "oz'widget::property [set $object] $args"
  565.  
  566.         if $v(play?) {
  567.             oz'event {
  568.                 ozSet mvDisableMouse 0
  569.                 if [ozIsEnable mouse] {
  570.                     wizDisableMouse
  571.                     ozSet mvDisableMouse 1
  572.                 }
  573.             }
  574.             wq'widget::waitfor [set $object] -animate
  575.             wq'widget::delete [set $object]
  576.             oz'event {
  577.                 if [ozGet mvDisableMouse] {
  578.                     wizEnableMouse
  579.                 }
  580.             }
  581.             set $object 0
  582.         }
  583.     }
  584.  
  585.     proc newSt {object args} {
  586.         variable $object
  587.         variable posx
  588.         variable posy
  589.         variable width
  590.         variable height
  591.         variable scene
  592.         variable camera
  593.  
  594.         if {[set $object] != 0} return
  595.  
  596.         set optstring {play foreground {depth 1}}
  597.         array set v [cmdline::getopt $args $optstring]
  598.  
  599.         set layer "-background"
  600.         if $v(foreground) {
  601.             set layer "-foreground"
  602.         }
  603.  
  604.         set depth $v(depth)
  605.  
  606.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  607.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  608.                     -depth $depth $layer -pan]
  609.  
  610.         eval "oz'widget::property [set $object] $args"
  611.     }
  612. }
  613.  
  614.  
  615. namespace eval puzzleMillWeightCloseUp {
  616.     variable posx
  617.     variable posy
  618.     variable width
  619.     variable height
  620.     variable scene
  621.     variable camera
  622.  
  623.     variable {activateFail}  0
  624.     set posx(activateFail)   0.463867
  625.     set posy(activateFail)   0.391927
  626.     set width(activateFail)  0.0683594
  627.     set height(activateFail) 0.0911458
  628.     set scene(activateFail)  crescentCoastWaterway
  629.     set camera(activateFail) puzzleMillWeightCloseUp
  630.  
  631.     variable {activateSuccess}  0
  632.     set posx(activateSuccess)   0.463867
  633.     set posy(activateSuccess)   0.391927
  634.     set width(activateSuccess)  0.068359
  635.     set height(activateSuccess) 0.091146
  636.     set scene(activateSuccess)  crescentCoastWaterway
  637.     set camera(activateSuccess) puzzleMillWeightCloseUp
  638.  
  639.     variable {leftLever1Fail}  0
  640.     set posx(leftLever1Fail)   0.306641
  641.     set posy(leftLever1Fail)   0.083333
  642.     set width(leftLever1Fail)  0.020508
  643.     set height(leftLever1Fail) 0.100260
  644.     set scene(leftLever1Fail)  crescentCoastWaterway
  645.     set camera(leftLever1Fail) puzzleMillWeightCloseUp
  646.  
  647.     variable {leftLever1FailSt}  0
  648.     set posx(leftLever1FailSt)   0.306641
  649.     set posy(leftLever1FailSt)   0.083333
  650.     set width(leftLever1FailSt)  0.020508
  651.     set height(leftLever1FailSt) 0.100260
  652.     set scene(leftLever1FailSt)  crescentCoastWaterway
  653.     set camera(leftLever1FailSt) puzzleMillWeightCloseUp
  654.  
  655.     variable {leftLever1Success}  0
  656.     set posx(leftLever1Success)   0.306641
  657.     set posy(leftLever1Success)   0.083333
  658.     set width(leftLever1Success)  0.020508
  659.     set height(leftLever1Success) 0.100260
  660.     set scene(leftLever1Success)  crescentCoastWaterway
  661.     set camera(leftLever1Success) puzzleMillWeightCloseUp
  662.  
  663.     variable {leftLever1SuccessSt}  0
  664.     set posx(leftLever1SuccessSt)   0.306641
  665.     set posy(leftLever1SuccessSt)   0.083333
  666.     set width(leftLever1SuccessSt)  0.020508
  667.     set height(leftLever1SuccessSt) 0.100260
  668.     set scene(leftLever1SuccessSt)  crescentCoastWaterway
  669.     set camera(leftLever1SuccessSt) puzzleMillWeightCloseUp
  670.  
  671.     variable {leftLever2Fail}  0
  672.     set posx(leftLever2Fail)   0.395508
  673.     set posy(leftLever2Fail)   0.083333
  674.     set width(leftLever2Fail)  0.021484
  675.     set height(leftLever2Fail) 0.100260
  676.     set scene(leftLever2Fail)  crescentCoastWaterway
  677.     set camera(leftLever2Fail) puzzleMillWeightCloseUp
  678.  
  679.     variable {leftLever2FailSt}  0
  680.     set posx(leftLever2FailSt)   0.395508
  681.     set posy(leftLever2FailSt)   0.083333
  682.     set width(leftLever2FailSt)  0.021484
  683.     set height(leftLever2FailSt) 0.100260
  684.     set scene(leftLever2FailSt)  crescentCoastWaterway
  685.     set camera(leftLever2FailSt) puzzleMillWeightCloseUp
  686.  
  687.     variable {leftLever2Success}  0
  688.     set posx(leftLever2Success)   0.395508
  689.     set posy(leftLever2Success)   0.083333
  690.     set width(leftLever2Success)  0.021484
  691.     set height(leftLever2Success) 0.100260
  692.     set scene(leftLever2Success)  crescentCoastWaterway
  693.     set camera(leftLever2Success) puzzleMillWeightCloseUp
  694.  
  695.     variable {leftLever2SuccessSt}  0
  696.     set posx(leftLever2SuccessSt)   0.395508
  697.     set posy(leftLever2SuccessSt)   0.083333
  698.     set width(leftLever2SuccessSt)  0.021484
  699.     set height(leftLever2SuccessSt) 0.100260
  700.     set scene(leftLever2SuccessSt)  crescentCoastWaterway
  701.     set camera(leftLever2SuccessSt) puzzleMillWeightCloseUp
  702.  
  703.     variable {leftWeightDownTo1}  0
  704.     set posx(leftWeightDownTo1)   0.28125
  705.     set posy(leftWeightDownTo1)   0.238281
  706.     set width(leftWeightDownTo1)  0.160156
  707.     set height(leftWeightDownTo1) 0.666667
  708.     set scene(leftWeightDownTo1)  crescentCoastWaterway
  709.     set camera(leftWeightDownTo1) puzzleMillWeightCloseUp
  710.  
  711.     variable {leftWeightDownTo2}  0
  712.     set posx(leftWeightDownTo2)   0.28125
  713.     set posy(leftWeightDownTo2)   0.238281
  714.     set width(leftWeightDownTo2)  0.160156
  715.     set height(leftWeightDownTo2) 0.666667
  716.     set scene(leftWeightDownTo2)  crescentCoastWaterway
  717.     set camera(leftWeightDownTo2) puzzleMillWeightCloseUp
  718.  
  719.     variable {leftWeightDownTo3}  0
  720.     set posx(leftWeightDownTo3)   0.28125
  721.     set posy(leftWeightDownTo3)   0.238281
  722.     set width(leftWeightDownTo3)  0.160156
  723.     set height(leftWeightDownTo3) 0.666667
  724.     set scene(leftWeightDownTo3)  crescentCoastWaterway
  725.     set camera(leftWeightDownTo3) puzzleMillWeightCloseUp
  726.  
  727.     variable {leftWeightFailTo3}  0
  728.     set posx(leftWeightFailTo3)   0.28125
  729.     set posy(leftWeightFailTo3)   0.238281
  730.     set width(leftWeightFailTo3)  0.160156
  731.     set height(leftWeightFailTo3) 0.666667
  732.     set scene(leftWeightFailTo3)  crescentCoastWaterway
  733.     set camera(leftWeightFailTo3) puzzleMillWeightCloseUp
  734.  
  735.     variable {leftWeightUpTo1}  0
  736.     set posx(leftWeightUpTo1)   0.28125
  737.     set posy(leftWeightUpTo1)   0.238281
  738.     set width(leftWeightUpTo1)  0.160156
  739.     set height(leftWeightUpTo1) 0.666667
  740.     set scene(leftWeightUpTo1)  crescentCoastWaterway
  741.     set camera(leftWeightUpTo1) puzzleMillWeightCloseUp
  742.  
  743.     variable {leftWeightUpTo1St}  0
  744.     set posx(leftWeightUpTo1St)   0.28125
  745.     set posy(leftWeightUpTo1St)   0.238281
  746.     set width(leftWeightUpTo1St)  0.160156
  747.     set height(leftWeightUpTo1St) 0.666667
  748.     set scene(leftWeightUpTo1St)  crescentCoastWaterway
  749.     set camera(leftWeightUpTo1St) puzzleMillWeightCloseUp
  750.  
  751.     variable {leftWeightUpTo2}  0
  752.     set posx(leftWeightUpTo2)   0.28125
  753.     set posy(leftWeightUpTo2)   0.238281
  754.     set width(leftWeightUpTo2)  0.160156
  755.     set height(leftWeightUpTo2) 0.666667
  756.     set scene(leftWeightUpTo2)  crescentCoastWaterway
  757.     set camera(leftWeightUpTo2) puzzleMillWeightCloseUp
  758.  
  759.     variable {leftWeightUpTo2St}  0
  760.     set posx(leftWeightUpTo2St)   0.28125
  761.     set posy(leftWeightUpTo2St)   0.238281
  762.     set width(leftWeightUpTo2St)  0.160156
  763.     set height(leftWeightUpTo2St) 0.666667
  764.     set scene(leftWeightUpTo2St)  crescentCoastWaterway
  765.     set camera(leftWeightUpTo2St) puzzleMillWeightCloseUp
  766.  
  767.     variable {leftWeightUpTo3}  0
  768.     set posx(leftWeightUpTo3)   0.28125
  769.     set posy(leftWeightUpTo3)   0.238281
  770.     set width(leftWeightUpTo3)  0.160156
  771.     set height(leftWeightUpTo3) 0.666667
  772.     set scene(leftWeightUpTo3)  crescentCoastWaterway
  773.     set camera(leftWeightUpTo3) puzzleMillWeightCloseUp
  774.  
  775.     variable {leftWeightUpTo3St}  0
  776.     set posx(leftWeightUpTo3St)   0.28125
  777.     set posy(leftWeightUpTo3St)   0.238281
  778.     set width(leftWeightUpTo3St)  0.160156
  779.     set height(leftWeightUpTo3St) 0.666667
  780.     set scene(leftWeightUpTo3St)  crescentCoastWaterway
  781.     set camera(leftWeightUpTo3St) puzzleMillWeightCloseUp
  782.  
  783.     variable {leftWheelLevertDownTo1}  0
  784.     set posx(leftWheelLevertDownTo1)   0.332031
  785.     set posy(leftWheelLevertDownTo1)   0.0989583
  786.     set width(leftWheelLevertDownTo1)  0.0625
  787.     set height(leftWheelLevertDownTo1) 0.0833333
  788.     set scene(leftWheelLevertDownTo1)  crescentCoastWaterway
  789.     set camera(leftWheelLevertDownTo1) puzzleMillWeightCloseUp
  790.  
  791.     variable {leftWheelLevertDownTo2}  0
  792.     set posx(leftWheelLevertDownTo2)   0.332031
  793.     set posy(leftWheelLevertDownTo2)   0.0989583
  794.     set width(leftWheelLevertDownTo2)  0.0625
  795.     set height(leftWheelLevertDownTo2) 0.0833333
  796.     set scene(leftWheelLevertDownTo2)  crescentCoastWaterway
  797.     set camera(leftWheelLevertDownTo2) puzzleMillWeightCloseUp
  798.  
  799.     variable {leftWheelLevertDownTo3}  0
  800.     set posx(leftWheelLevertDownTo3)   0.332031
  801.     set posy(leftWheelLevertDownTo3)   0.0989583
  802.     set width(leftWheelLevertDownTo3)  0.0625
  803.     set height(leftWheelLevertDownTo3) 0.0833333
  804.     set scene(leftWheelLevertDownTo3)  crescentCoastWaterway
  805.     set camera(leftWheelLevertDownTo3) puzzleMillWeightCloseUp
  806.  
  807.     variable {leftWheelLevertFailTo3}  0
  808.     set posx(leftWheelLevertFailTo3)   0.332031
  809.     set posy(leftWheelLevertFailTo3)   0.0989583
  810.     set width(leftWheelLevertFailTo3)  0.0625
  811.     set height(leftWheelLevertFailTo3) 0.0833333
  812.     set scene(leftWheelLevertFailTo3)  crescentCoastWaterway
  813.     set camera(leftWheelLevertFailTo3) puzzleMillWeightCloseUp
  814.  
  815.     variable {leftWheelLevertUpTo1}  0
  816.     set posx(leftWheelLevertUpTo1)   0.332031
  817.     set posy(leftWheelLevertUpTo1)   0.0989583
  818.     set width(leftWheelLevertUpTo1)  0.0625
  819.     set height(leftWheelLevertUpTo1) 0.0833333
  820.     set scene(leftWheelLevertUpTo1)  crescentCoastWaterway
  821.     set camera(leftWheelLevertUpTo1) puzzleMillWeightCloseUp
  822.  
  823.     variable {leftWheelLevertUpTo1St}  0
  824.     set posx(leftWheelLevertUpTo1St)   0.332031
  825.     set posy(leftWheelLevertUpTo1St)   0.0989583
  826.     set width(leftWheelLevertUpTo1St)  0.0625
  827.     set height(leftWheelLevertUpTo1St) 0.0833333
  828.     set scene(leftWheelLevertUpTo1St)  crescentCoastWaterway
  829.     set camera(leftWheelLevertUpTo1St) puzzleMillWeightCloseUp
  830.  
  831.     variable {leftWheelLevertUpTo2}  0
  832.     set posx(leftWheelLevertUpTo2)   0.332031
  833.     set posy(leftWheelLevertUpTo2)   0.0989583
  834.     set width(leftWheelLevertUpTo2)  0.0625
  835.     set height(leftWheelLevertUpTo2) 0.0833333
  836.     set scene(leftWheelLevertUpTo2)  crescentCoastWaterway
  837.     set camera(leftWheelLevertUpTo2) puzzleMillWeightCloseUp
  838.  
  839.     variable {leftWheelLevertUpTo2St}  0
  840.     set posx(leftWheelLevertUpTo2St)   0.332031
  841.     set posy(leftWheelLevertUpTo2St)   0.0989583
  842.     set width(leftWheelLevertUpTo2St)  0.0625
  843.     set height(leftWheelLevertUpTo2St) 0.0833333
  844.     set scene(leftWheelLevertUpTo2St)  crescentCoastWaterway
  845.     set camera(leftWheelLevertUpTo2St) puzzleMillWeightCloseUp
  846.  
  847.     variable {leftWheelLevertUpTo3}  0
  848.     set posx(leftWheelLevertUpTo3)   0.332031
  849.     set posy(leftWheelLevertUpTo3)   0.0989583
  850.     set width(leftWheelLevertUpTo3)  0.0625
  851.     set height(leftWheelLevertUpTo3) 0.0833333
  852.     set scene(leftWheelLevertUpTo3)  crescentCoastWaterway
  853.     set camera(leftWheelLevertUpTo3) puzzleMillWeightCloseUp
  854.  
  855.     variable {leftWheelLevertUpTo3St}  0
  856.     set posx(leftWheelLevertUpTo3St)   0.332031
  857.     set posy(leftWheelLevertUpTo3St)   0.0989583
  858.     set width(leftWheelLevertUpTo3St)  0.0625
  859.     set height(leftWheelLevertUpTo3St) 0.0833333
  860.     set scene(leftWheelLevertUpTo3St)  crescentCoastWaterway
  861.     set camera(leftWheelLevertUpTo3St) puzzleMillWeightCloseUp
  862.  
  863.     variable {pinLeft1GlowLoop}  0
  864.     set posx(pinLeft1GlowLoop)   0.253906
  865.     set posy(pinLeft1GlowLoop)   0.410156
  866.     set width(pinLeft1GlowLoop)  0.031250
  867.     set height(pinLeft1GlowLoop) 0.041667
  868.     set scene(pinLeft1GlowLoop)  crescentCoastWaterway
  869.     set camera(pinLeft1GlowLoop) puzzleMillWeightCloseUp
  870.  
  871.     variable {pinLeft1GlowOff}  0
  872.     set posx(pinLeft1GlowOff)   0.253906
  873.     set posy(pinLeft1GlowOff)   0.410156
  874.     set width(pinLeft1GlowOff)  0.031250
  875.     set height(pinLeft1GlowOff) 0.041667
  876.     set scene(pinLeft1GlowOff)  crescentCoastWaterway
  877.     set camera(pinLeft1GlowOff) puzzleMillWeightCloseUp
  878.  
  879.     variable {pinLeft1GlowOn}  0
  880.     set posx(pinLeft1GlowOn)   0.253906
  881.     set posy(pinLeft1GlowOn)   0.410156
  882.     set width(pinLeft1GlowOn)  0.031250
  883.     set height(pinLeft1GlowOn) 0.041667
  884.     set scene(pinLeft1GlowOn)  crescentCoastWaterway
  885.     set camera(pinLeft1GlowOn) puzzleMillWeightCloseUp
  886.  
  887.     variable {pinLeft2GlowLoop}  0
  888.     set posx(pinLeft2GlowLoop)   0.433594
  889.     set posy(pinLeft2GlowLoop)   0.410156
  890.     set width(pinLeft2GlowLoop)  0.031250
  891.     set height(pinLeft2GlowLoop) 0.041667
  892.     set scene(pinLeft2GlowLoop)  crescentCoastWaterway
  893.     set camera(pinLeft2GlowLoop) puzzleMillWeightCloseUp
  894.  
  895.     variable {pinLeft2GlowOff}  0
  896.     set posx(pinLeft2GlowOff)   0.433594
  897.     set posy(pinLeft2GlowOff)   0.410156
  898.     set width(pinLeft2GlowOff)  0.031250
  899.     set height(pinLeft2GlowOff) 0.041667
  900.     set scene(pinLeft2GlowOff)  crescentCoastWaterway
  901.     set camera(pinLeft2GlowOff) puzzleMillWeightCloseUp
  902.  
  903.     variable {pinLeft2GlowOn}  0
  904.     set posx(pinLeft2GlowOn)   0.433594
  905.     set posy(pinLeft2GlowOn)   0.410156
  906.     set width(pinLeft2GlowOn)  0.031250
  907.     set height(pinLeft2GlowOn) 0.041667
  908.     set scene(pinLeft2GlowOn)  crescentCoastWaterway
  909.     set camera(pinLeft2GlowOn) puzzleMillWeightCloseUp
  910.  
  911.     variable {pinRight1GlowLoop}  0
  912.     set posx(pinRight1GlowLoop)   0.532227
  913.     set posy(pinRight1GlowLoop)   0.410156
  914.     set width(pinRight1GlowLoop)  0.031250
  915.     set height(pinRight1GlowLoop) 0.041667
  916.     set scene(pinRight1GlowLoop)  crescentCoastWaterway
  917.     set camera(pinRight1GlowLoop) puzzleMillWeightCloseUp
  918.  
  919.     variable {pinRight1GlowOff}  0
  920.     set posx(pinRight1GlowOff)   0.532227
  921.     set posy(pinRight1GlowOff)   0.410156
  922.     set width(pinRight1GlowOff)  0.031250
  923.     set height(pinRight1GlowOff) 0.041667
  924.     set scene(pinRight1GlowOff)  crescentCoastWaterway
  925.     set camera(pinRight1GlowOff) puzzleMillWeightCloseUp
  926.  
  927.     variable {pinRight1GlowOn}  0
  928.     set posx(pinRight1GlowOn)   0.532227
  929.     set posy(pinRight1GlowOn)   0.410156
  930.     set width(pinRight1GlowOn)  0.031250
  931.     set height(pinRight1GlowOn) 0.041667
  932.     set scene(pinRight1GlowOn)  crescentCoastWaterway
  933.     set camera(pinRight1GlowOn) puzzleMillWeightCloseUp
  934.  
  935.     variable {pinRight2GlowLoop}  0
  936.     set posx(pinRight2GlowLoop)   0.708984
  937.     set posy(pinRight2GlowLoop)   0.410156
  938.     set width(pinRight2GlowLoop)  0.031250
  939.     set height(pinRight2GlowLoop) 0.041667
  940.     set scene(pinRight2GlowLoop)  crescentCoastWaterway
  941.     set camera(pinRight2GlowLoop) puzzleMillWeightCloseUp
  942.  
  943.     variable {pinRight2GlowOff}  0
  944.     set posx(pinRight2GlowOff)   0.708984
  945.     set posy(pinRight2GlowOff)   0.410156
  946.     set width(pinRight2GlowOff)  0.031250
  947.     set height(pinRight2GlowOff) 0.041667
  948.     set scene(pinRight2GlowOff)  crescentCoastWaterway
  949.     set camera(pinRight2GlowOff) puzzleMillWeightCloseUp
  950.  
  951.     variable {pinRight2GlowOn}  0
  952.     set posx(pinRight2GlowOn)   0.708984
  953.     set posy(pinRight2GlowOn)   0.410156
  954.     set width(pinRight2GlowOn)  0.031250
  955.     set height(pinRight2GlowOn) 0.041667
  956.     set scene(pinRight2GlowOn)  crescentCoastWaterway
  957.     set camera(pinRight2GlowOn) puzzleMillWeightCloseUp
  958.  
  959.     variable {reset}  0
  960.     set posx(reset)   0.468750
  961.     set posy(reset)   0.089844
  962.     set width(reset)  0.062500
  963.     set height(reset) 0.125000
  964.     set scene(reset)  crescentCoastWaterway
  965.     set camera(reset) puzzleMillWeightCloseUp
  966.  
  967.     variable {rightLever1Fail}  0
  968.     set posx(rightLever1Fail)   0.668945
  969.     set posy(rightLever1Fail)   0.083333
  970.     set width(rightLever1Fail)  0.019531
  971.     set height(rightLever1Fail) 0.100260
  972.     set scene(rightLever1Fail)  crescentCoastWaterway
  973.     set camera(rightLever1Fail) puzzleMillWeightCloseUp
  974.  
  975.     variable {rightLever1FailSt}  0
  976.     set posx(rightLever1FailSt)   0.668945
  977.     set posy(rightLever1FailSt)   0.083333
  978.     set width(rightLever1FailSt)  0.019531
  979.     set height(rightLever1FailSt) 0.100260
  980.     set scene(rightLever1FailSt)  crescentCoastWaterway
  981.     set camera(rightLever1FailSt) puzzleMillWeightCloseUp
  982.  
  983.     variable {rightLever1Success}  0
  984.     set posx(rightLever1Success)   0.668945
  985.     set posy(rightLever1Success)   0.083333
  986.     set width(rightLever1Success)  0.019531
  987.     set height(rightLever1Success) 0.100260
  988.     set scene(rightLever1Success)  crescentCoastWaterway
  989.     set camera(rightLever1Success) puzzleMillWeightCloseUp
  990.  
  991.     variable {rightLever1SuccessSt}  0
  992.     set posx(rightLever1SuccessSt)   0.668945
  993.     set posy(rightLever1SuccessSt)   0.083333
  994.     set width(rightLever1SuccessSt)  0.019531
  995.     set height(rightLever1SuccessSt) 0.100260
  996.     set scene(rightLever1SuccessSt)  crescentCoastWaterway
  997.     set camera(rightLever1SuccessSt) puzzleMillWeightCloseUp
  998.  
  999.     variable {rightLever2Fail}  0
  1000.     set posx(rightLever2Fail)   0.580078
  1001.     set posy(rightLever2Fail)   0.083333
  1002.     set width(rightLever2Fail)  0.019531
  1003.     set height(rightLever2Fail) 0.100260
  1004.     set scene(rightLever2Fail)  crescentCoastWaterway
  1005.     set camera(rightLever2Fail) puzzleMillWeightCloseUp
  1006.  
  1007.     variable {rightLever2FailSt}  0
  1008.     set posx(rightLever2FailSt)   0.580078
  1009.     set posy(rightLever2FailSt)   0.083333
  1010.     set width(rightLever2FailSt)  0.019531
  1011.     set height(rightLever2FailSt) 0.100260
  1012.     set scene(rightLever2FailSt)  crescentCoastWaterway
  1013.     set camera(rightLever2FailSt) puzzleMillWeightCloseUp
  1014.  
  1015.     variable {rightLever2Success}  0
  1016.     set posx(rightLever2Success)   0.580078
  1017.     set posy(rightLever2Success)   0.083333
  1018.     set width(rightLever2Success)  0.019531
  1019.     set height(rightLever2Success) 0.100260
  1020.     set scene(rightLever2Success)  crescentCoastWaterway
  1021.     set camera(rightLever2Success) puzzleMillWeightCloseUp
  1022.  
  1023.     variable {rightLever2SuccessSt}  0
  1024.     set posx(rightLever2SuccessSt)   0.580078
  1025.     set posy(rightLever2SuccessSt)   0.083333
  1026.     set width(rightLever2SuccessSt)  0.019531
  1027.     set height(rightLever2SuccessSt) 0.100260
  1028.     set scene(rightLever2SuccessSt)  crescentCoastWaterway
  1029.     set camera(rightLever2SuccessSt) puzzleMillWeightCloseUp
  1030.  
  1031.     variable {rightWeightDownTo1}  0
  1032.     set posx(rightWeightDownTo1)   0.556641
  1033.     set posy(rightWeightDownTo1)   0.238281
  1034.     set width(rightWeightDownTo1)  0.125
  1035.     set height(rightWeightDownTo1) 0.666667
  1036.     set scene(rightWeightDownTo1)  crescentCoastWaterway
  1037.     set camera(rightWeightDownTo1) puzzleMillWeightCloseUp
  1038.  
  1039.     variable {rightWeightDownTo2}  0
  1040.     set posx(rightWeightDownTo2)   0.556641
  1041.     set posy(rightWeightDownTo2)   0.238281
  1042.     set width(rightWeightDownTo2)  0.125
  1043.     set height(rightWeightDownTo2) 0.666667
  1044.     set scene(rightWeightDownTo2)  crescentCoastWaterway
  1045.     set camera(rightWeightDownTo2) puzzleMillWeightCloseUp
  1046.  
  1047.     variable {rightWeightDownTo3}  0
  1048.     set posx(rightWeightDownTo3)   0.556641
  1049.     set posy(rightWeightDownTo3)   0.238281
  1050.     set width(rightWeightDownTo3)  0.125
  1051.     set height(rightWeightDownTo3) 0.666667
  1052.     set scene(rightWeightDownTo3)  crescentCoastWaterway
  1053.     set camera(rightWeightDownTo3) puzzleMillWeightCloseUp
  1054.  
  1055.     variable {rightWeightDownTo4}  0
  1056.     set posx(rightWeightDownTo4)   0.556641
  1057.     set posy(rightWeightDownTo4)   0.238281
  1058.     set width(rightWeightDownTo4)  0.125
  1059.     set height(rightWeightDownTo4) 0.666667
  1060.     set scene(rightWeightDownTo4)  crescentCoastWaterway
  1061.     set camera(rightWeightDownTo4) puzzleMillWeightCloseUp
  1062.  
  1063.     variable {rightWeightDownTo5}  0
  1064.     set posx(rightWeightDownTo5)   0.556641
  1065.     set posy(rightWeightDownTo5)   0.238281
  1066.     set width(rightWeightDownTo5)  0.125
  1067.     set height(rightWeightDownTo5) 0.666667
  1068.     set scene(rightWeightDownTo5)  crescentCoastWaterway
  1069.     set camera(rightWeightDownTo5) puzzleMillWeightCloseUp
  1070.  
  1071.     variable {rightWeightFailTo5}  0
  1072.     set posx(rightWeightFailTo5)   0.556641
  1073.     set posy(rightWeightFailTo5)   0.238281
  1074.     set width(rightWeightFailTo5)  0.125
  1075.     set height(rightWeightFailTo5) 0.666667
  1076.     set scene(rightWeightFailTo5)  crescentCoastWaterway
  1077.     set camera(rightWeightFailTo5) puzzleMillWeightCloseUp
  1078.  
  1079.     variable {rightWeightUpTo1}  0
  1080.     set posx(rightWeightUpTo1)   0.556641
  1081.     set posy(rightWeightUpTo1)   0.238281
  1082.     set width(rightWeightUpTo1)  0.125
  1083.     set height(rightWeightUpTo1) 0.666667
  1084.     set scene(rightWeightUpTo1)  crescentCoastWaterway
  1085.     set camera(rightWeightUpTo1) puzzleMillWeightCloseUp
  1086.  
  1087.     variable {rightWeightUpTo1St}  0
  1088.     set posx(rightWeightUpTo1St)   0.556641
  1089.     set posy(rightWeightUpTo1St)   0.238281
  1090.     set width(rightWeightUpTo1St)  0.125
  1091.     set height(rightWeightUpTo1St) 0.666667
  1092.     set scene(rightWeightUpTo1St)  crescentCoastWaterway
  1093.     set camera(rightWeightUpTo1St) puzzleMillWeightCloseUp
  1094.  
  1095.     variable {rightWeightUpTo2}  0
  1096.     set posx(rightWeightUpTo2)   0.556641
  1097.     set posy(rightWeightUpTo2)   0.238281
  1098.     set width(rightWeightUpTo2)  0.125
  1099.     set height(rightWeightUpTo2) 0.666667
  1100.     set scene(rightWeightUpTo2)  crescentCoastWaterway
  1101.     set camera(rightWeightUpTo2) puzzleMillWeightCloseUp
  1102.  
  1103.     variable {rightWeightUpTo2St}  0
  1104.     set posx(rightWeightUpTo2St)   0.556641
  1105.     set posy(rightWeightUpTo2St)   0.238281
  1106.     set width(rightWeightUpTo2St)  0.125
  1107.     set height(rightWeightUpTo2St) 0.666667
  1108.     set scene(rightWeightUpTo2St)  crescentCoastWaterway
  1109.     set camera(rightWeightUpTo2St) puzzleMillWeightCloseUp
  1110.  
  1111.     variable {rightWeightUpTo3}  0
  1112.     set posx(rightWeightUpTo3)   0.556641
  1113.     set posy(rightWeightUpTo3)   0.238281
  1114.     set width(rightWeightUpTo3)  0.125
  1115.     set height(rightWeightUpTo3) 0.666667
  1116.     set scene(rightWeightUpTo3)  crescentCoastWaterway
  1117.     set camera(rightWeightUpTo3) puzzleMillWeightCloseUp
  1118.  
  1119.     variable {rightWeightUpTo3St}  0
  1120.     set posx(rightWeightUpTo3St)   0.556641
  1121.     set posy(rightWeightUpTo3St)   0.238281
  1122.     set width(rightWeightUpTo3St)  0.125
  1123.     set height(rightWeightUpTo3St) 0.666667
  1124.     set scene(rightWeightUpTo3St)  crescentCoastWaterway
  1125.     set camera(rightWeightUpTo3St) puzzleMillWeightCloseUp
  1126.  
  1127.     variable {rightWeightUpTo4}  0
  1128.     set posx(rightWeightUpTo4)   0.556641
  1129.     set posy(rightWeightUpTo4)   0.238281
  1130.     set width(rightWeightUpTo4)  0.125
  1131.     set height(rightWeightUpTo4) 0.666667
  1132.     set scene(rightWeightUpTo4)  crescentCoastWaterway
  1133.     set camera(rightWeightUpTo4) puzzleMillWeightCloseUp
  1134.  
  1135.     variable {rightWeightUpTo4St}  0
  1136.     set posx(rightWeightUpTo4St)   0.556641
  1137.     set posy(rightWeightUpTo4St)   0.238281
  1138.     set width(rightWeightUpTo4St)  0.125
  1139.     set height(rightWeightUpTo4St) 0.666667
  1140.     set scene(rightWeightUpTo4St)  crescentCoastWaterway
  1141.     set camera(rightWeightUpTo4St) puzzleMillWeightCloseUp
  1142.  
  1143.     variable {rightWeightUpTo5}  0
  1144.     set posx(rightWeightUpTo5)   0.556641
  1145.     set posy(rightWeightUpTo5)   0.238281
  1146.     set width(rightWeightUpTo5)  0.125
  1147.     set height(rightWeightUpTo5) 0.666667
  1148.     set scene(rightWeightUpTo5)  crescentCoastWaterway
  1149.     set camera(rightWeightUpTo5) puzzleMillWeightCloseUp
  1150.  
  1151.     variable {rightWeightUpTo5St}  0
  1152.     set posx(rightWeightUpTo5St)   0.556641
  1153.     set posy(rightWeightUpTo5St)   0.238281
  1154.     set width(rightWeightUpTo5St)  0.125
  1155.     set height(rightWeightUpTo5St) 0.666667
  1156.     set scene(rightWeightUpTo5St)  crescentCoastWaterway
  1157.     set camera(rightWeightUpTo5St) puzzleMillWeightCloseUp
  1158.  
  1159.     variable {rightWheelLevertDownTo1}  0
  1160.     set posx(rightWheelLevertDownTo1)   0.600586
  1161.     set posy(rightWheelLevertDownTo1)   0.0989583
  1162.     set width(rightWheelLevertDownTo1)  0.0625
  1163.     set height(rightWheelLevertDownTo1) 0.0833333
  1164.     set scene(rightWheelLevertDownTo1)  crescentCoastWaterway
  1165.     set camera(rightWheelLevertDownTo1) puzzleMillWeightCloseUp
  1166.  
  1167.     variable {rightWheelLevertDownTo2}  0
  1168.     set posx(rightWheelLevertDownTo2)   0.600586
  1169.     set posy(rightWheelLevertDownTo2)   0.0989583
  1170.     set width(rightWheelLevertDownTo2)  0.0625
  1171.     set height(rightWheelLevertDownTo2) 0.0833333
  1172.     set scene(rightWheelLevertDownTo2)  crescentCoastWaterway
  1173.     set camera(rightWheelLevertDownTo2) puzzleMillWeightCloseUp
  1174.  
  1175.     variable {rightWheelLevertDownTo3}  0
  1176.     set posx(rightWheelLevertDownTo3)   0.600586
  1177.     set posy(rightWheelLevertDownTo3)   0.0989583
  1178.     set width(rightWheelLevertDownTo3)  0.0625
  1179.     set height(rightWheelLevertDownTo3) 0.0833333
  1180.     set scene(rightWheelLevertDownTo3)  crescentCoastWaterway
  1181.     set camera(rightWheelLevertDownTo3) puzzleMillWeightCloseUp
  1182.  
  1183.     variable {rightWheelLevertDownTo4}  0
  1184.     set posx(rightWheelLevertDownTo4)   0.600586
  1185.     set posy(rightWheelLevertDownTo4)   0.0989583
  1186.     set width(rightWheelLevertDownTo4)  0.0625
  1187.     set height(rightWheelLevertDownTo4) 0.0833333
  1188.     set scene(rightWheelLevertDownTo4)  crescentCoastWaterway
  1189.     set camera(rightWheelLevertDownTo4) puzzleMillWeightCloseUp
  1190.  
  1191.     variable {rightWheelLevertDownTo5}  0
  1192.     set posx(rightWheelLevertDownTo5)   0.600586
  1193.     set posy(rightWheelLevertDownTo5)   0.0989583
  1194.     set width(rightWheelLevertDownTo5)  0.0625
  1195.     set height(rightWheelLevertDownTo5) 0.0833333
  1196.     set scene(rightWheelLevertDownTo5)  crescentCoastWaterway
  1197.     set camera(rightWheelLevertDownTo5) puzzleMillWeightCloseUp
  1198.  
  1199.     variable {rightWheelLevertFailTo5}  0
  1200.     set posx(rightWheelLevertFailTo5)   0.600586
  1201.     set posy(rightWheelLevertFailTo5)   0.0989583
  1202.     set width(rightWheelLevertFailTo5)  0.0625
  1203.     set height(rightWheelLevertFailTo5) 0.0833333
  1204.     set scene(rightWheelLevertFailTo5)  crescentCoastWaterway
  1205.     set camera(rightWheelLevertFailTo5) puzzleMillWeightCloseUp
  1206.  
  1207.     variable {rightWheelLevertUpTo1}  0
  1208.     set posx(rightWheelLevertUpTo1)   0.600586
  1209.     set posy(rightWheelLevertUpTo1)   0.0989583
  1210.     set width(rightWheelLevertUpTo1)  0.0625
  1211.     set height(rightWheelLevertUpTo1) 0.0833333
  1212.     set scene(rightWheelLevertUpTo1)  crescentCoastWaterway
  1213.     set camera(rightWheelLevertUpTo1) puzzleMillWeightCloseUp
  1214.  
  1215.     variable {rightWheelLevertUpTo1St}  0
  1216.     set posx(rightWheelLevertUpTo1St)   0.600586
  1217.     set posy(rightWheelLevertUpTo1St)   0.0989583
  1218.     set width(rightWheelLevertUpTo1St)  0.0625
  1219.     set height(rightWheelLevertUpTo1St) 0.0833333
  1220.     set scene(rightWheelLevertUpTo1St)  crescentCoastWaterway
  1221.     set camera(rightWheelLevertUpTo1St) puzzleMillWeightCloseUp
  1222.  
  1223.     variable {rightWheelLevertUpTo2}  0
  1224.     set posx(rightWheelLevertUpTo2)   0.600586
  1225.     set posy(rightWheelLevertUpTo2)   0.0989583
  1226.     set width(rightWheelLevertUpTo2)  0.0625
  1227.     set height(rightWheelLevertUpTo2) 0.0833333
  1228.     set scene(rightWheelLevertUpTo2)  crescentCoastWaterway
  1229.     set camera(rightWheelLevertUpTo2) puzzleMillWeightCloseUp
  1230.  
  1231.     variable {rightWheelLevertUpTo2St}  0
  1232.     set posx(rightWheelLevertUpTo2St)   0.600586
  1233.     set posy(rightWheelLevertUpTo2St)   0.0989583
  1234.     set width(rightWheelLevertUpTo2St)  0.0625
  1235.     set height(rightWheelLevertUpTo2St) 0.0833333
  1236.     set scene(rightWheelLevertUpTo2St)  crescentCoastWaterway
  1237.     set camera(rightWheelLevertUpTo2St) puzzleMillWeightCloseUp
  1238.  
  1239.     variable {rightWheelLevertUpTo3}  0
  1240.     set posx(rightWheelLevertUpTo3)   0.600586
  1241.     set posy(rightWheelLevertUpTo3)   0.0989583
  1242.     set width(rightWheelLevertUpTo3)  0.0625
  1243.     set height(rightWheelLevertUpTo3) 0.0833333
  1244.     set scene(rightWheelLevertUpTo3)  crescentCoastWaterway
  1245.     set camera(rightWheelLevertUpTo3) puzzleMillWeightCloseUp
  1246.  
  1247.     variable {rightWheelLevertUpTo3St}  0
  1248.     set posx(rightWheelLevertUpTo3St)   0.600586
  1249.     set posy(rightWheelLevertUpTo3St)   0.0989583
  1250.     set width(rightWheelLevertUpTo3St)  0.0625
  1251.     set height(rightWheelLevertUpTo3St) 0.0833333
  1252.     set scene(rightWheelLevertUpTo3St)  crescentCoastWaterway
  1253.     set camera(rightWheelLevertUpTo3St) puzzleMillWeightCloseUp
  1254.  
  1255.     variable {rightWheelLevertUpTo4}  0
  1256.     set posx(rightWheelLevertUpTo4)   0.600586
  1257.     set posy(rightWheelLevertUpTo4)   0.0989583
  1258.     set width(rightWheelLevertUpTo4)  0.0625
  1259.     set height(rightWheelLevertUpTo4) 0.0833333
  1260.     set scene(rightWheelLevertUpTo4)  crescentCoastWaterway
  1261.     set camera(rightWheelLevertUpTo4) puzzleMillWeightCloseUp
  1262.  
  1263.     variable {rightWheelLevertUpTo4St}  0
  1264.     set posx(rightWheelLevertUpTo4St)   0.600586
  1265.     set posy(rightWheelLevertUpTo4St)   0.0989583
  1266.     set width(rightWheelLevertUpTo4St)  0.0625
  1267.     set height(rightWheelLevertUpTo4St) 0.0833333
  1268.     set scene(rightWheelLevertUpTo4St)  crescentCoastWaterway
  1269.     set camera(rightWheelLevertUpTo4St) puzzleMillWeightCloseUp
  1270.  
  1271.     variable {rightWheelLevertUpTo5}  0
  1272.     set posx(rightWheelLevertUpTo5)   0.600586
  1273.     set posy(rightWheelLevertUpTo5)   0.0989583
  1274.     set width(rightWheelLevertUpTo5)  0.0625
  1275.     set height(rightWheelLevertUpTo5) 0.0833333
  1276.     set scene(rightWheelLevertUpTo5)  crescentCoastWaterway
  1277.     set camera(rightWheelLevertUpTo5) puzzleMillWeightCloseUp
  1278.  
  1279.     variable {rightWheelLevertUpTo5St}  0
  1280.     set posx(rightWheelLevertUpTo5St)   0.600586
  1281.     set posy(rightWheelLevertUpTo5St)   0.0989583
  1282.     set width(rightWheelLevertUpTo5St)  0.0625
  1283.     set height(rightWheelLevertUpTo5St) 0.0833333
  1284.     set scene(rightWheelLevertUpTo5St)  crescentCoastWaterway
  1285.     set camera(rightWheelLevertUpTo5St) puzzleMillWeightCloseUp
  1286.  
  1287.     proc new {object args} {
  1288.         variable $object
  1289.         variable posx
  1290.         variable posy
  1291.         variable width
  1292.         variable height
  1293.         variable scene
  1294.         variable camera
  1295.  
  1296.         if {[set $object] != 0} return
  1297.  
  1298.         set optstring {play foreground nopan {depth 0}}
  1299.         array set v [cmdline::getopt $args $optstring]
  1300.  
  1301.         set layer "-background"
  1302.         if $v(foreground?) {
  1303.             set layer "-foreground"
  1304.         }
  1305.  
  1306.         set pan "-pan"
  1307.         if $v(nopan?) {
  1308.             set pan ""
  1309.         }
  1310.  
  1311.         set depth $v(depth)
  1312.  
  1313.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1314.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1315.                     -depth $depth $layer $pan]
  1316.  
  1317.         eval "oz'widget::property [set $object] $args"
  1318.  
  1319.         if $v(play?) {
  1320.             oz'event {
  1321.                 ozSet mvDisableMouse 0
  1322.                 if [ozIsEnable mouse] {
  1323.                     wizDisableMouse
  1324.                     ozSet mvDisableMouse 1
  1325.                 }
  1326.             }
  1327.             wq'widget::waitfor [set $object] -animate
  1328.             wq'widget::delete [set $object]
  1329.             oz'event {
  1330.                 if [ozGet mvDisableMouse] {
  1331.                     wizEnableMouse
  1332.                 }
  1333.             }
  1334.             set $object 0
  1335.         }
  1336.     }
  1337.  
  1338.     proc newSt {object args} {
  1339.         variable $object
  1340.         variable posx
  1341.         variable posy
  1342.         variable width
  1343.         variable height
  1344.         variable scene
  1345.         variable camera
  1346.  
  1347.         if {[set $object] != 0} return
  1348.  
  1349.         set optstring {play foreground {depth 1}}
  1350.         array set v [cmdline::getopt $args $optstring]
  1351.  
  1352.         set layer "-background"
  1353.         if $v(foreground) {
  1354.             set layer "-foreground"
  1355.         }
  1356.  
  1357.         set depth $v(depth)
  1358.  
  1359.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1360.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1361.                     -depth $depth $layer -pan]
  1362.  
  1363.         eval "oz'widget::property [set $object] $args"
  1364.     }
  1365. }
  1366.  
  1367.  
  1368. namespace eval river {
  1369.     variable posx
  1370.     variable posy
  1371.     variable width
  1372.     variable height
  1373.     variable scene
  1374.     variable camera
  1375.  
  1376.     variable {gearsA}  0
  1377.     set posx(gearsA)   0.316406
  1378.     set posy(gearsA)   0.674479
  1379.     set width(gearsA)  0.125000
  1380.     set height(gearsA) 0.083333
  1381.     set scene(gearsA)  crescentCoastWaterway
  1382.     set camera(gearsA) river
  1383.  
  1384.     variable {gearsB}  0
  1385.     set posx(gearsB)   0.325195
  1386.     set posy(gearsB)   0.917969
  1387.     set width(gearsB)  0.218750
  1388.     set height(gearsB) 0.083333
  1389.     set scene(gearsB)  crescentCoastWaterway
  1390.     set camera(gearsB) river
  1391.  
  1392.     variable {gearsC}  0
  1393.     set posx(gearsC)   0.353516
  1394.     set posy(gearsC)   0.777344
  1395.     set width(gearsC)  0.215820
  1396.     set height(gearsC) 0.140625
  1397.     set scene(gearsC)  crescentCoastWaterway
  1398.     set camera(gearsC) river
  1399.  
  1400.     variable {gearsD}  0
  1401.     set posx(gearsD)   0.425781
  1402.     set posy(gearsD)   1.001302
  1403.     set width(gearsD)  0.062500
  1404.     set height(gearsD) 0.041667
  1405.     set scene(gearsD)  crescentCoastWaterway
  1406.     set camera(gearsD) river
  1407.  
  1408.     proc new {object args} {
  1409.         variable $object
  1410.         variable posx
  1411.         variable posy
  1412.         variable width
  1413.         variable height
  1414.         variable scene
  1415.         variable camera
  1416.  
  1417.         if {[set $object] != 0} return
  1418.  
  1419.         set optstring {play foreground nopan {depth 0}}
  1420.         array set v [cmdline::getopt $args $optstring]
  1421.  
  1422.         set layer "-background"
  1423.         if $v(foreground?) {
  1424.             set layer "-foreground"
  1425.         }
  1426.  
  1427.         set pan "-pan"
  1428.         if $v(nopan?) {
  1429.             set pan ""
  1430.         }
  1431.  
  1432.         set depth $v(depth)
  1433.  
  1434.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1435.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1436.                     -depth $depth $layer $pan]
  1437.  
  1438.         eval "oz'widget::property [set $object] $args"
  1439.  
  1440.         if $v(play?) {
  1441.             oz'event {
  1442.                 ozSet mvDisableMouse 0
  1443.                 if [ozIsEnable mouse] {
  1444.                     wizDisableMouse
  1445.                     ozSet mvDisableMouse 1
  1446.                 }
  1447.             }
  1448.             wq'widget::waitfor [set $object] -animate
  1449.             wq'widget::delete [set $object]
  1450.             oz'event {
  1451.                 if [ozGet mvDisableMouse] {
  1452.                     wizEnableMouse
  1453.                 }
  1454.             }
  1455.             set $object 0
  1456.         }
  1457.     }
  1458.  
  1459.     proc newSt {object args} {
  1460.         variable $object
  1461.         variable posx
  1462.         variable posy
  1463.         variable width
  1464.         variable height
  1465.         variable scene
  1466.         variable camera
  1467.  
  1468.         if {[set $object] != 0} return
  1469.  
  1470.         set optstring {play foreground {depth 1}}
  1471.         array set v [cmdline::getopt $args $optstring]
  1472.  
  1473.         set layer "-background"
  1474.         if $v(foreground) {
  1475.             set layer "-foreground"
  1476.         }
  1477.  
  1478.         set depth $v(depth)
  1479.  
  1480.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1481.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1482.                     -depth $depth $layer -pan]
  1483.  
  1484.         eval "oz'widget::property [set $object] $args"
  1485.     }
  1486. }
  1487.  
  1488.  
  1489. namespace eval stairs {
  1490.     variable posx
  1491.     variable posy
  1492.     variable width
  1493.     variable height
  1494.     variable scene
  1495.     variable camera
  1496.  
  1497.     variable {waterA}  0
  1498.     set posx(waterA)   0.78125
  1499.     set posy(waterA)   1.16667
  1500.     set width(waterA)  0.71875
  1501.     set height(waterA) 0.333333
  1502.     set scene(waterA)  crescentCoastWaterway
  1503.     set camera(waterA) stairs
  1504.  
  1505.     proc new {object args} {
  1506.         variable $object
  1507.         variable posx
  1508.         variable posy
  1509.         variable width
  1510.         variable height
  1511.         variable scene
  1512.         variable camera
  1513.  
  1514.         if {[set $object] != 0} return
  1515.  
  1516.         set optstring {play foreground nopan {depth 0}}
  1517.         array set v [cmdline::getopt $args $optstring]
  1518.  
  1519.         set layer "-background"
  1520.         if $v(foreground?) {
  1521.             set layer "-foreground"
  1522.         }
  1523.  
  1524.         set pan "-pan"
  1525.         if $v(nopan?) {
  1526.             set pan ""
  1527.         }
  1528.  
  1529.         set depth $v(depth)
  1530.  
  1531.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1532.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1533.                     -depth $depth $layer $pan]
  1534.  
  1535.         eval "oz'widget::property [set $object] $args"
  1536.  
  1537.         if $v(play?) {
  1538.             oz'event {
  1539.                 ozSet mvDisableMouse 0
  1540.                 if [ozIsEnable mouse] {
  1541.                     wizDisableMouse
  1542.                     ozSet mvDisableMouse 1
  1543.                 }
  1544.             }
  1545.             wq'widget::waitfor [set $object] -animate
  1546.             wq'widget::delete [set $object]
  1547.             oz'event {
  1548.                 if [ozGet mvDisableMouse] {
  1549.                     wizEnableMouse
  1550.                 }
  1551.             }
  1552.             set $object 0
  1553.         }
  1554.     }
  1555.  
  1556.     proc newSt {object args} {
  1557.         variable $object
  1558.         variable posx
  1559.         variable posy
  1560.         variable width
  1561.         variable height
  1562.         variable scene
  1563.         variable camera
  1564.  
  1565.         if {[set $object] != 0} return
  1566.  
  1567.         set optstring {play foreground {depth 1}}
  1568.         array set v [cmdline::getopt $args $optstring]
  1569.  
  1570.         set layer "-background"
  1571.         if $v(foreground) {
  1572.             set layer "-foreground"
  1573.         }
  1574.  
  1575.         set depth $v(depth)
  1576.  
  1577.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1578.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1579.                     -depth $depth $layer -pan]
  1580.  
  1581.         eval "oz'widget::property [set $object] $args"
  1582.     }
  1583. }
  1584.  
  1585.  
  1586. namespace eval underRiver {
  1587.     variable posx
  1588.     variable posy
  1589.     variable width
  1590.     variable height
  1591.     variable scene
  1592.     variable camera
  1593.  
  1594.     variable {waterA}  0
  1595.     set posx(waterA)   0.543945
  1596.     set posy(waterA)   0.769531
  1597.     set width(waterA)  0.261719
  1598.     set height(waterA) 0.230469
  1599.     set scene(waterA)  crescentCoastWaterway
  1600.     set camera(waterA) underRiver
  1601.  
  1602.     variable {wheelB}  0
  1603.     set posx(wheelB)   0.508789
  1604.     set posy(wheelB)   0.770833
  1605.     set width(wheelB)  0.015625
  1606.     set height(wheelB) 0.0416667
  1607.     set scene(wheelB)  crescentCoastWaterway
  1608.     set camera(wheelB) underRiver
  1609.  
  1610.     proc new {object args} {
  1611.         variable $object
  1612.         variable posx
  1613.         variable posy
  1614.         variable width
  1615.         variable height
  1616.         variable scene
  1617.         variable camera
  1618.  
  1619.         if {[set $object] != 0} return
  1620.  
  1621.         set optstring {play foreground nopan {depth 0}}
  1622.         array set v [cmdline::getopt $args $optstring]
  1623.  
  1624.         set layer "-background"
  1625.         if $v(foreground?) {
  1626.             set layer "-foreground"
  1627.         }
  1628.  
  1629.         set pan "-pan"
  1630.         if $v(nopan?) {
  1631.             set pan ""
  1632.         }
  1633.  
  1634.         set depth $v(depth)
  1635.  
  1636.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  1637.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1638.                     -depth $depth $layer $pan]
  1639.  
  1640.         eval "oz'widget::property [set $object] $args"
  1641.  
  1642.         if $v(play?) {
  1643.             oz'event {
  1644.                 ozSet mvDisableMouse 0
  1645.                 if [ozIsEnable mouse] {
  1646.                     wizDisableMouse
  1647.                     ozSet mvDisableMouse 1
  1648.                 }
  1649.             }
  1650.             wq'widget::waitfor [set $object] -animate
  1651.             wq'widget::delete [set $object]
  1652.             oz'event {
  1653.                 if [ozGet mvDisableMouse] {
  1654.                     wizEnableMouse
  1655.                 }
  1656.             }
  1657.             set $object 0
  1658.         }
  1659.     }
  1660.  
  1661.     proc newSt {object args} {
  1662.         variable $object
  1663.         variable posx
  1664.         variable posy
  1665.         variable width
  1666.         variable height
  1667.         variable scene
  1668.         variable camera
  1669.  
  1670.         if {[set $object] != 0} return
  1671.  
  1672.         set optstring {play foreground {depth 1}}
  1673.         array set v [cmdline::getopt $args $optstring]
  1674.  
  1675.         set layer "-background"
  1676.         if $v(foreground) {
  1677.             set layer "-foreground"
  1678.         }
  1679.  
  1680.         set depth $v(depth)
  1681.  
  1682.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  1683.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  1684.                     -depth $depth $layer -pan]
  1685.  
  1686.         eval "oz'widget::property [set $object] $args"
  1687.     }
  1688. }
  1689.  
  1690.  
  1691.