home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / introduction.mvwrap.tcl < prev    next >
Text File  |  2005-11-18  |  8KB  |  292 lines
  1. namespace eval introduction {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {introduction}  0
  10.     set posx(introduction)   0.000000
  11.     set posy(introduction)   0.000000
  12.     set width(introduction)  1.000000
  13.     set height(introduction) 1.000000
  14.     set scene(introduction)  movies
  15.     set camera(introduction) introduction
  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 introduction {
  99.     variable posx
  100.     variable posy
  101.     variable width
  102.     variable height
  103.     variable scene
  104.     variable camera
  105.  
  106.     variable {logo}  0
  107.     set posx(logo)   0.000000
  108.     set posy(logo)   0.000000
  109.     set width(logo)  1.000000
  110.     set height(logo) 1.000000
  111.     set scene(logo)  movies
  112.     set camera(logo) introduction
  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 introduction {
  196.     variable posx
  197.     variable posy
  198.     variable width
  199.     variable height
  200.     variable scene
  201.     variable camera
  202.  
  203.     variable {logoB}  0
  204.     set posx(logoB)   0.000000
  205.     set posy(logoB)   0.000000
  206.     set width(logoB)  1.000000
  207.     set height(logoB) 1.000000
  208.     set scene(logoB)  movies
  209.     set camera(logoB) introduction
  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.