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

  1. namespace eval cabinetCloseUp {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {doorClosing}  0
  10.     set posx(doorClosing)   0.000000
  11.     set posy(doorClosing)   0.000000
  12.     set width(doorClosing)  1.000000
  13.     set height(doorClosing) 1.000000
  14.     set scene(doorClosing)  tutorial
  15.     set camera(doorClosing) cabinetCloseUp
  16.  
  17.     variable {doorOpening}  0
  18.     set posx(doorOpening)   0.000000
  19.     set posy(doorOpening)   0.000000
  20.     set width(doorOpening)  1.000000
  21.     set height(doorOpening) 1.000000
  22.     set scene(doorOpening)  tutorial
  23.     set camera(doorOpening) cabinetCloseUp
  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 forestExit {
  107.     variable posx
  108.     variable posy
  109.     variable width
  110.     variable height
  111.     variable scene
  112.     variable camera
  113.  
  114.     variable {waterfallA}  0
  115.     set posx(waterfallA)   0.613281
  116.     set posy(waterfallA)   0.201823
  117.     set width(waterfallA)  0.221680
  118.     set height(waterfallA) 0.453125
  119.     set scene(waterfallA)  tutorial
  120.     set camera(waterfallA) forestExit
  121.  
  122.     variable {waterfallB}  0
  123.     set posx(waterfallB)   0.151367
  124.     set posy(waterfallB)   0.173177
  125.     set width(waterfallB)  0.250000
  126.     set height(waterfallB) 0.472656
  127.     set scene(waterfallB)  tutorial
  128.     set camera(waterfallB) forestExit
  129.  
  130.     proc new {object args} {
  131.         variable $object
  132.         variable posx
  133.         variable posy
  134.         variable width
  135.         variable height
  136.         variable scene
  137.         variable camera
  138.  
  139.         if {[set $object] != 0} return
  140.  
  141.         set optstring {play foreground nopan {depth 0}}
  142.         array set v [cmdline::getopt $args $optstring]
  143.  
  144.         set layer "-background"
  145.         if $v(foreground?) {
  146.             set layer "-foreground"
  147.         }
  148.  
  149.         set pan "-pan"
  150.         if $v(nopan?) {
  151.             set pan ""
  152.         }
  153.  
  154.         set depth $v(depth)
  155.  
  156.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  157.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  158.                     -depth $depth $layer $pan]
  159.  
  160.         eval "oz'widget::property [set $object] $args"
  161.  
  162.         if $v(play?) {
  163.             oz'event {
  164.                 ozSet mvDisableMouse 0
  165.                 if [ozIsEnable mouse] {
  166.                     wizDisableMouse
  167.                     ozSet mvDisableMouse 1
  168.                 }
  169.             }
  170.             wq'widget::waitfor [set $object] -animate
  171.             wq'widget::delete [set $object]
  172.             oz'event {
  173.                 if [ozGet mvDisableMouse] {
  174.                     wizEnableMouse
  175.                 }
  176.             }
  177.             set $object 0
  178.         }
  179.     }
  180.  
  181.     proc newSt {object args} {
  182.         variable $object
  183.         variable posx
  184.         variable posy
  185.         variable width
  186.         variable height
  187.         variable scene
  188.         variable camera
  189.  
  190.         if {[set $object] != 0} return
  191.  
  192.         set optstring {play foreground {depth 1}}
  193.         array set v [cmdline::getopt $args $optstring]
  194.  
  195.         set layer "-background"
  196.         if $v(foreground) {
  197.             set layer "-foreground"
  198.         }
  199.  
  200.         set depth $v(depth)
  201.  
  202.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  203.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  204.                     -depth $depth $layer -pan]
  205.  
  206.         eval "oz'widget::property [set $object] $args"
  207.     }
  208. }
  209.  
  210.  
  211. namespace eval mustavioWagon {
  212.     variable posx
  213.     variable posy
  214.     variable width
  215.     variable height
  216.     variable scene
  217.     variable camera
  218.  
  219.     variable {waterfallA}  0
  220.     set posx(waterfallA)   0.303711
  221.     set posy(waterfallA)   0.389323
  222.     set width(waterfallA)  0.101563
  223.     set height(waterfallA) 0.233073
  224.     set scene(waterfallA)  tutorial
  225.     set camera(waterfallA) mustavioWagon
  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.