home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / visions.mvwrap.tcl < prev   
Text File  |  2005-10-22  |  18KB  |  680 lines

  1. namespace eval vision1 {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {vision}  0
  10.     set posx(vision)   0.000000
  11.     set posy(vision)   0.000000
  12.     set width(vision)  1.000000
  13.     set height(vision) 1.000000
  14.     set scene(vision)  visions
  15.     set camera(vision) vision1
  16.  
  17.     proc new {object args} {
  18.         variable $object
  19.         variable posx
  20.         variable posy
  21.         variable width
  22.         variable height
  23.         variable scene
  24.         variable camera
  25.  
  26.         if {[set $object] != 0} return
  27.  
  28.         set optstring {play foreground nopan {depth 0}}
  29.         array set v [cmdline::getopt $args $optstring]
  30.  
  31.         set layer "-background"
  32.         if $v(foreground?) {
  33.             set layer "-foreground"
  34.         }
  35.  
  36.         set pan "-pan"
  37.         if $v(nopan?) {
  38.             set pan ""
  39.         }
  40.  
  41.         set depth $v(depth)
  42.  
  43.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  44.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  45.                     -depth $depth $layer $pan]
  46.  
  47.         eval "oz'widget::property [set $object] $args"
  48.  
  49.         if $v(play?) {
  50.             oz'event {
  51.                 ozSet mvDisableMouse 0
  52.                 if [ozIsEnable mouse] {
  53.                     wizDisableMouse
  54.                     ozSet mvDisableMouse 1
  55.                 }
  56.             }
  57.             wq'widget::waitfor [set $object] -animate
  58.             wq'widget::delete [set $object]
  59.             oz'event {
  60.                 if [ozGet mvDisableMouse] {
  61.                     wizEnableMouse
  62.                 }
  63.             }
  64.             set $object 0
  65.         }
  66.     }
  67.  
  68.     proc newSt {object args} {
  69.         variable $object
  70.         variable posx
  71.         variable posy
  72.         variable width
  73.         variable height
  74.         variable scene
  75.         variable camera
  76.  
  77.         if {[set $object] != 0} return
  78.  
  79.         set optstring {play foreground {depth 1}}
  80.         array set v [cmdline::getopt $args $optstring]
  81.  
  82.         set layer "-background"
  83.         if $v(foreground) {
  84.             set layer "-foreground"
  85.         }
  86.  
  87.         set depth $v(depth)
  88.  
  89.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  90.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  91.                     -depth $depth $layer -pan]
  92.  
  93.         eval "oz'widget::property [set $object] $args"
  94.     }
  95. }
  96.  
  97.  
  98. namespace eval vision2 {
  99.     variable posx
  100.     variable posy
  101.     variable width
  102.     variable height
  103.     variable scene
  104.     variable camera
  105.  
  106.     variable {vision}  0
  107.     set posx(vision)   0.000000
  108.     set posy(vision)   0.000000
  109.     set width(vision)  1.000000
  110.     set height(vision) 1.000000
  111.     set scene(vision)  visions
  112.     set camera(vision) vision2
  113.  
  114.     proc new {object args} {
  115.         variable $object
  116.         variable posx
  117.         variable posy
  118.         variable width
  119.         variable height
  120.         variable scene
  121.         variable camera
  122.  
  123.         if {[set $object] != 0} return
  124.  
  125.         set optstring {play foreground nopan {depth 0}}
  126.         array set v [cmdline::getopt $args $optstring]
  127.  
  128.         set layer "-background"
  129.         if $v(foreground?) {
  130.             set layer "-foreground"
  131.         }
  132.  
  133.         set pan "-pan"
  134.         if $v(nopan?) {
  135.             set pan ""
  136.         }
  137.  
  138.         set depth $v(depth)
  139.  
  140.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  141.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  142.                     -depth $depth $layer $pan]
  143.  
  144.         eval "oz'widget::property [set $object] $args"
  145.  
  146.         if $v(play?) {
  147.             oz'event {
  148.                 ozSet mvDisableMouse 0
  149.                 if [ozIsEnable mouse] {
  150.                     wizDisableMouse
  151.                     ozSet mvDisableMouse 1
  152.                 }
  153.             }
  154.             wq'widget::waitfor [set $object] -animate
  155.             wq'widget::delete [set $object]
  156.             oz'event {
  157.                 if [ozGet mvDisableMouse] {
  158.                     wizEnableMouse
  159.                 }
  160.             }
  161.             set $object 0
  162.         }
  163.     }
  164.  
  165.     proc newSt {object args} {
  166.         variable $object
  167.         variable posx
  168.         variable posy
  169.         variable width
  170.         variable height
  171.         variable scene
  172.         variable camera
  173.  
  174.         if {[set $object] != 0} return
  175.  
  176.         set optstring {play foreground {depth 1}}
  177.         array set v [cmdline::getopt $args $optstring]
  178.  
  179.         set layer "-background"
  180.         if $v(foreground) {
  181.             set layer "-foreground"
  182.         }
  183.  
  184.         set depth $v(depth)
  185.  
  186.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  187.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  188.                     -depth $depth $layer -pan]
  189.  
  190.         eval "oz'widget::property [set $object] $args"
  191.     }
  192. }
  193.  
  194.  
  195. namespace eval vision3 {
  196.     variable posx
  197.     variable posy
  198.     variable width
  199.     variable height
  200.     variable scene
  201.     variable camera
  202.  
  203.     variable {vision}  0
  204.     set posx(vision)   0.000000
  205.     set posy(vision)   0.000000
  206.     set width(vision)  1.000000
  207.     set height(vision) 1.000000
  208.     set scene(vision)  visions
  209.     set camera(vision) vision3
  210.  
  211.     proc new {object args} {
  212.         variable $object
  213.         variable posx
  214.         variable posy
  215.         variable width
  216.         variable height
  217.         variable scene
  218.         variable camera
  219.  
  220.         if {[set $object] != 0} return
  221.  
  222.         set optstring {play foreground nopan {depth 0}}
  223.         array set v [cmdline::getopt $args $optstring]
  224.  
  225.         set layer "-background"
  226.         if $v(foreground?) {
  227.             set layer "-foreground"
  228.         }
  229.  
  230.         set pan "-pan"
  231.         if $v(nopan?) {
  232.             set pan ""
  233.         }
  234.  
  235.         set depth $v(depth)
  236.  
  237.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  238.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  239.                     -depth $depth $layer $pan]
  240.  
  241.         eval "oz'widget::property [set $object] $args"
  242.  
  243.         if $v(play?) {
  244.             oz'event {
  245.                 ozSet mvDisableMouse 0
  246.                 if [ozIsEnable mouse] {
  247.                     wizDisableMouse
  248.                     ozSet mvDisableMouse 1
  249.                 }
  250.             }
  251.             wq'widget::waitfor [set $object] -animate
  252.             wq'widget::delete [set $object]
  253.             oz'event {
  254.                 if [ozGet mvDisableMouse] {
  255.                     wizEnableMouse
  256.                 }
  257.             }
  258.             set $object 0
  259.         }
  260.     }
  261.  
  262.     proc newSt {object args} {
  263.         variable $object
  264.         variable posx
  265.         variable posy
  266.         variable width
  267.         variable height
  268.         variable scene
  269.         variable camera
  270.  
  271.         if {[set $object] != 0} return
  272.  
  273.         set optstring {play foreground {depth 1}}
  274.         array set v [cmdline::getopt $args $optstring]
  275.  
  276.         set layer "-background"
  277.         if $v(foreground) {
  278.             set layer "-foreground"
  279.         }
  280.  
  281.         set depth $v(depth)
  282.  
  283.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  284.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  285.                     -depth $depth $layer -pan]
  286.  
  287.         eval "oz'widget::property [set $object] $args"
  288.     }
  289. }
  290.  
  291.  
  292. namespace eval vision4 {
  293.     variable posx
  294.     variable posy
  295.     variable width
  296.     variable height
  297.     variable scene
  298.     variable camera
  299.  
  300.     variable {vision}  0
  301.     set posx(vision)   0.000000
  302.     set posy(vision)   0.000000
  303.     set width(vision)  1.000000
  304.     set height(vision) 1.000000
  305.     set scene(vision)  visions
  306.     set camera(vision) vision4
  307.  
  308.     proc new {object args} {
  309.         variable $object
  310.         variable posx
  311.         variable posy
  312.         variable width
  313.         variable height
  314.         variable scene
  315.         variable camera
  316.  
  317.         if {[set $object] != 0} return
  318.  
  319.         set optstring {play foreground nopan {depth 0}}
  320.         array set v [cmdline::getopt $args $optstring]
  321.  
  322.         set layer "-background"
  323.         if $v(foreground?) {
  324.             set layer "-foreground"
  325.         }
  326.  
  327.         set pan "-pan"
  328.         if $v(nopan?) {
  329.             set pan ""
  330.         }
  331.  
  332.         set depth $v(depth)
  333.  
  334.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  335.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  336.                     -depth $depth $layer $pan]
  337.  
  338.         eval "oz'widget::property [set $object] $args"
  339.  
  340.         if $v(play?) {
  341.             oz'event {
  342.                 ozSet mvDisableMouse 0
  343.                 if [ozIsEnable mouse] {
  344.                     wizDisableMouse
  345.                     ozSet mvDisableMouse 1
  346.                 }
  347.             }
  348.             wq'widget::waitfor [set $object] -animate
  349.             wq'widget::delete [set $object]
  350.             oz'event {
  351.                 if [ozGet mvDisableMouse] {
  352.                     wizEnableMouse
  353.                 }
  354.             }
  355.             set $object 0
  356.         }
  357.     }
  358.  
  359.     proc newSt {object args} {
  360.         variable $object
  361.         variable posx
  362.         variable posy
  363.         variable width
  364.         variable height
  365.         variable scene
  366.         variable camera
  367.  
  368.         if {[set $object] != 0} return
  369.  
  370.         set optstring {play foreground {depth 1}}
  371.         array set v [cmdline::getopt $args $optstring]
  372.  
  373.         set layer "-background"
  374.         if $v(foreground) {
  375.             set layer "-foreground"
  376.         }
  377.  
  378.         set depth $v(depth)
  379.  
  380.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  381.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  382.                     -depth $depth $layer -pan]
  383.  
  384.         eval "oz'widget::property [set $object] $args"
  385.     }
  386. }
  387.  
  388.  
  389. namespace eval vision5 {
  390.     variable posx
  391.     variable posy
  392.     variable width
  393.     variable height
  394.     variable scene
  395.     variable camera
  396.  
  397.     variable {vision}  0
  398.     set posx(vision)   0.000000
  399.     set posy(vision)   0.000000
  400.     set width(vision)  1.000000
  401.     set height(vision) 1.000000
  402.     set scene(vision)  visions
  403.     set camera(vision) vision5
  404.  
  405.     proc new {object args} {
  406.         variable $object
  407.         variable posx
  408.         variable posy
  409.         variable width
  410.         variable height
  411.         variable scene
  412.         variable camera
  413.  
  414.         if {[set $object] != 0} return
  415.  
  416.         set optstring {play foreground nopan {depth 0}}
  417.         array set v [cmdline::getopt $args $optstring]
  418.  
  419.         set layer "-background"
  420.         if $v(foreground?) {
  421.             set layer "-foreground"
  422.         }
  423.  
  424.         set pan "-pan"
  425.         if $v(nopan?) {
  426.             set pan ""
  427.         }
  428.  
  429.         set depth $v(depth)
  430.  
  431.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  432.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  433.                     -depth $depth $layer $pan]
  434.  
  435.         eval "oz'widget::property [set $object] $args"
  436.  
  437.         if $v(play?) {
  438.             oz'event {
  439.                 ozSet mvDisableMouse 0
  440.                 if [ozIsEnable mouse] {
  441.                     wizDisableMouse
  442.                     ozSet mvDisableMouse 1
  443.                 }
  444.             }
  445.             wq'widget::waitfor [set $object] -animate
  446.             wq'widget::delete [set $object]
  447.             oz'event {
  448.                 if [ozGet mvDisableMouse] {
  449.                     wizEnableMouse
  450.                 }
  451.             }
  452.             set $object 0
  453.         }
  454.     }
  455.  
  456.     proc newSt {object args} {
  457.         variable $object
  458.         variable posx
  459.         variable posy
  460.         variable width
  461.         variable height
  462.         variable scene
  463.         variable camera
  464.  
  465.         if {[set $object] != 0} return
  466.  
  467.         set optstring {play foreground {depth 1}}
  468.         array set v [cmdline::getopt $args $optstring]
  469.  
  470.         set layer "-background"
  471.         if $v(foreground) {
  472.             set layer "-foreground"
  473.         }
  474.  
  475.         set depth $v(depth)
  476.  
  477.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  478.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  479.                     -depth $depth $layer -pan]
  480.  
  481.         eval "oz'widget::property [set $object] $args"
  482.     }
  483. }
  484.  
  485.  
  486. namespace eval vision6 {
  487.     variable posx
  488.     variable posy
  489.     variable width
  490.     variable height
  491.     variable scene
  492.     variable camera
  493.  
  494.     variable {vision}  0
  495.     set posx(vision)   0.000000
  496.     set posy(vision)   0.000000
  497.     set width(vision)  1.000000
  498.     set height(vision) 1.000000
  499.     set scene(vision)  visions
  500.     set camera(vision) vision6
  501.  
  502.     proc new {object args} {
  503.         variable $object
  504.         variable posx
  505.         variable posy
  506.         variable width
  507.         variable height
  508.         variable scene
  509.         variable camera
  510.  
  511.         if {[set $object] != 0} return
  512.  
  513.         set optstring {play foreground nopan {depth 0}}
  514.         array set v [cmdline::getopt $args $optstring]
  515.  
  516.         set layer "-background"
  517.         if $v(foreground?) {
  518.             set layer "-foreground"
  519.         }
  520.  
  521.         set pan "-pan"
  522.         if $v(nopan?) {
  523.             set pan ""
  524.         }
  525.  
  526.         set depth $v(depth)
  527.  
  528.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  529.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  530.                     -depth $depth $layer $pan]
  531.  
  532.         eval "oz'widget::property [set $object] $args"
  533.  
  534.         if $v(play?) {
  535.             oz'event {
  536.                 ozSet mvDisableMouse 0
  537.                 if [ozIsEnable mouse] {
  538.                     wizDisableMouse
  539.                     ozSet mvDisableMouse 1
  540.                 }
  541.             }
  542.             wq'widget::waitfor [set $object] -animate
  543.             wq'widget::delete [set $object]
  544.             oz'event {
  545.                 if [ozGet mvDisableMouse] {
  546.                     wizEnableMouse
  547.                 }
  548.             }
  549.             set $object 0
  550.         }
  551.     }
  552.  
  553.     proc newSt {object args} {
  554.         variable $object
  555.         variable posx
  556.         variable posy
  557.         variable width
  558.         variable height
  559.         variable scene
  560.         variable camera
  561.  
  562.         if {[set $object] != 0} return
  563.  
  564.         set optstring {play foreground {depth 1}}
  565.         array set v [cmdline::getopt $args $optstring]
  566.  
  567.         set layer "-background"
  568.         if $v(foreground) {
  569.             set layer "-foreground"
  570.         }
  571.  
  572.         set depth $v(depth)
  573.  
  574.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  575.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  576.                     -depth $depth $layer -pan]
  577.  
  578.         eval "oz'widget::property [set $object] $args"
  579.     }
  580. }
  581.  
  582.  
  583. namespace eval vision7 {
  584.     variable posx
  585.     variable posy
  586.     variable width
  587.     variable height
  588.     variable scene
  589.     variable camera
  590.  
  591.     variable {vision}  0
  592.     set posx(vision)   0.000000
  593.     set posy(vision)   0.000000
  594.     set width(vision)  1.000000
  595.     set height(vision) 1.000000
  596.     set scene(vision)  visions
  597.     set camera(vision) vision7
  598.  
  599.     proc new {object args} {
  600.         variable $object
  601.         variable posx
  602.         variable posy
  603.         variable width
  604.         variable height
  605.         variable scene
  606.         variable camera
  607.  
  608.         if {[set $object] != 0} return
  609.  
  610.         set optstring {play foreground nopan {depth 0}}
  611.         array set v [cmdline::getopt $args $optstring]
  612.  
  613.         set layer "-background"
  614.         if $v(foreground?) {
  615.             set layer "-foreground"
  616.         }
  617.  
  618.         set pan "-pan"
  619.         if $v(nopan?) {
  620.             set pan ""
  621.         }
  622.  
  623.         set depth $v(depth)
  624.  
  625.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  626.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  627.                     -depth $depth $layer $pan]
  628.  
  629.         eval "oz'widget::property [set $object] $args"
  630.  
  631.         if $v(play?) {
  632.             oz'event {
  633.                 ozSet mvDisableMouse 0
  634.                 if [ozIsEnable mouse] {
  635.                     wizDisableMouse
  636.                     ozSet mvDisableMouse 1
  637.                 }
  638.             }
  639.             wq'widget::waitfor [set $object] -animate
  640.             wq'widget::delete [set $object]
  641.             oz'event {
  642.                 if [ozGet mvDisableMouse] {
  643.                     wizEnableMouse
  644.                 }
  645.             }
  646.             set $object 0
  647.         }
  648.     }
  649.  
  650.     proc newSt {object args} {
  651.         variable $object
  652.         variable posx
  653.         variable posy
  654.         variable width
  655.         variable height
  656.         variable scene
  657.         variable camera
  658.  
  659.         if {[set $object] != 0} return
  660.  
  661.         set optstring {play foreground {depth 1}}
  662.         array set v [cmdline::getopt $args $optstring]
  663.  
  664.         set layer "-background"
  665.         if $v(foreground) {
  666.             set layer "-foreground"
  667.         }
  668.  
  669.         set depth $v(depth)
  670.  
  671.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  672.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  673.                     -depth $depth $layer -pan]
  674.  
  675.         eval "oz'widget::property [set $object] $args"
  676.     }
  677. }
  678.  
  679.  
  680.