home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / gardenWatch.mvwrap.tcl < prev    next >
Text File  |  2005-10-24  |  12KB  |  421 lines
  1. namespace eval alley {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {waterFallA}  0
  10.     set posx(waterFallA)   0.143555
  11.     set posy(waterFallA)   0.277344
  12.     set width(waterFallA)  0.088867
  13.     set height(waterFallA) 0.308594
  14.     set scene(waterFallA)  gardenWatch
  15.     set camera(waterFallA) alley
  16.  
  17.     variable {waterFallB}  0
  18.     set posx(waterFallB)   0.298828
  19.     set posy(waterFallB)   0.359375
  20.     set width(waterFallB)  0.099609
  21.     set height(waterFallB) 0.227865
  22.     set scene(waterFallB)  gardenWatch
  23.     set camera(waterFallB) alley
  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 gardenWatchEntrance {
  107.     variable posx
  108.     variable posy
  109.     variable width
  110.     variable height
  111.     variable scene
  112.     variable camera
  113.  
  114.     variable {waterfall}  0
  115.     set posx(waterfall)   0.620117
  116.     set posy(waterfall)   0.386719
  117.     set width(waterfall)  0.052734
  118.     set height(waterfall) 0.208333
  119.     set scene(waterfall)  gardenWatch
  120.     set camera(waterfall) gardenWatchEntrance
  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 minotaurMazeCloseUp {
  204.     variable posx
  205.     variable posy
  206.     variable width
  207.     variable height
  208.     variable scene
  209.     variable camera
  210.  
  211.     variable {nigilisBean}  0
  212.     set posx(nigilisBean)   0.409180
  213.     set posy(nigilisBean)   0.110677
  214.     set width(nigilisBean)  0.500000
  215.     set height(nigilisBean) 0.665365
  216.     set scene(nigilisBean)  gardenWatch
  217.     set camera(nigilisBean) minotaurMazeCloseUp
  218.  
  219.     variable {reset}  0
  220.     set posx(reset)   0.008789
  221.     set posy(reset)   0.122396
  222.     set width(reset)  0.250000
  223.     set height(reset) 0.333333
  224.     set scene(reset)  gardenWatch
  225.     set camera(reset) minotaurMazeCloseUp
  226.  
  227.     proc new {object args} {
  228.         variable $object
  229.         variable posx
  230.         variable posy
  231.         variable width
  232.         variable height
  233.         variable scene
  234.         variable camera
  235.  
  236.         if {[set $object] != 0} return
  237.  
  238.         set optstring {play foreground nopan {depth 0}}
  239.         array set v [cmdline::getopt $args $optstring]
  240.  
  241.         set layer "-background"
  242.         if $v(foreground?) {
  243.             set layer "-foreground"
  244.         }
  245.  
  246.         set pan "-pan"
  247.         if $v(nopan?) {
  248.             set pan ""
  249.         }
  250.  
  251.         set depth $v(depth)
  252.  
  253.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  254.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  255.                     -depth $depth $layer $pan]
  256.  
  257.         eval "oz'widget::property [set $object] $args"
  258.  
  259.         if $v(play?) {
  260.             oz'event {
  261.                 ozSet mvDisableMouse 0
  262.                 if [ozIsEnable mouse] {
  263.                     wizDisableMouse
  264.                     ozSet mvDisableMouse 1
  265.                 }
  266.             }
  267.             wq'widget::waitfor [set $object] -animate
  268.             wq'widget::delete [set $object]
  269.             oz'event {
  270.                 if [ozGet mvDisableMouse] {
  271.                     wizEnableMouse
  272.                 }
  273.             }
  274.             set $object 0
  275.         }
  276.     }
  277.  
  278.     proc newSt {object args} {
  279.         variable $object
  280.         variable posx
  281.         variable posy
  282.         variable width
  283.         variable height
  284.         variable scene
  285.         variable camera
  286.  
  287.         if {[set $object] != 0} return
  288.  
  289.         set optstring {play foreground {depth 1}}
  290.         array set v [cmdline::getopt $args $optstring]
  291.  
  292.         set layer "-background"
  293.         if $v(foreground) {
  294.             set layer "-foreground"
  295.         }
  296.  
  297.         set depth $v(depth)
  298.  
  299.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  300.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  301.                     -depth $depth $layer -pan]
  302.  
  303.         eval "oz'widget::property [set $object] $args"
  304.     }
  305. }
  306.  
  307.  
  308. namespace eval outsideGardenWatch {
  309.     variable posx
  310.     variable posy
  311.     variable width
  312.     variable height
  313.     variable scene
  314.     variable camera
  315.  
  316.     variable {fishesA}  0
  317.     set posx(fishesA)   0.000000
  318.     set posy(fishesA)   0.833333
  319.     set width(fishesA)  0.500000
  320.     set height(fishesA) 0.166667
  321.     set scene(fishesA)  gardenWatch
  322.     set camera(fishesA) outsideGardenWatch
  323.  
  324.     variable {fishesB}  0
  325.     set posx(fishesB)   0.496094
  326.     set posy(fishesB)   0.916667
  327.     set width(fishesB)  0.031250
  328.     set height(fishesB) 0.083333
  329.     set scene(fishesB)  gardenWatch
  330.     set camera(fishesB) outsideGardenWatch
  331.  
  332.     variable {fishesC}  0
  333.     set posx(fishesC)   0.100586
  334.     set posy(fishesC)   0.729167
  335.     set width(fishesC)  0.348633
  336.     set height(fishesC) 0.109375
  337.     set scene(fishesC)  gardenWatch
  338.     set camera(fishesC) outsideGardenWatch
  339.  
  340.     proc new {object args} {
  341.         variable $object
  342.         variable posx
  343.         variable posy
  344.         variable width
  345.         variable height
  346.         variable scene
  347.         variable camera
  348.  
  349.         if {[set $object] != 0} return
  350.  
  351.         set optstring {play foreground nopan {depth 0}}
  352.         array set v [cmdline::getopt $args $optstring]
  353.  
  354.         set layer "-background"
  355.         if $v(foreground?) {
  356.             set layer "-foreground"
  357.         }
  358.  
  359.         set pan "-pan"
  360.         if $v(nopan?) {
  361.             set pan ""
  362.         }
  363.  
  364.         set depth $v(depth)
  365.  
  366.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  367.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  368.                     -depth $depth $layer $pan]
  369.  
  370.         eval "oz'widget::property [set $object] $args"
  371.  
  372.         if $v(play?) {
  373.             oz'event {
  374.                 ozSet mvDisableMouse 0
  375.                 if [ozIsEnable mouse] {
  376.                     wizDisableMouse
  377.                     ozSet mvDisableMouse 1
  378.                 }
  379.             }
  380.             wq'widget::waitfor [set $object] -animate
  381.             wq'widget::delete [set $object]
  382.             oz'event {
  383.                 if [ozGet mvDisableMouse] {
  384.                     wizEnableMouse
  385.                 }
  386.             }
  387.             set $object 0
  388.         }
  389.     }
  390.  
  391.     proc newSt {object args} {
  392.         variable $object
  393.         variable posx
  394.         variable posy
  395.         variable width
  396.         variable height
  397.         variable scene
  398.         variable camera
  399.  
  400.         if {[set $object] != 0} return
  401.  
  402.         set optstring {play foreground {depth 1}}
  403.         array set v [cmdline::getopt $args $optstring]
  404.  
  405.         set layer "-background"
  406.         if $v(foreground) {
  407.             set layer "-foreground"
  408.         }
  409.  
  410.         set depth $v(depth)
  411.  
  412.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  413.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  414.                     -depth $depth $layer -pan]
  415.  
  416.         eval "oz'widget::property [set $object] $args"
  417.     }
  418. }
  419.  
  420.  
  421.