home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / dragonvaleHallway.mvwrap.tcl < prev    next >
Text File  |  2005-10-22  |  9KB  |  324 lines
  1. namespace eval topPasserelleLeft {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {lightChandelier1A}  0
  10.     set posx(lightChandelier1A)   0.500000
  11.     set posy(lightChandelier1A)   0.334635
  12.     set width(lightChandelier1A)  0.500000
  13.     set height(lightChandelier1A) 0.333333
  14.     set scene(lightChandelier1A)  dragonvaleHallway
  15.     set camera(lightChandelier1A) topPasserelleLeft
  16.  
  17.     variable {lightChandelier1C}  0
  18.     set posx(lightChandelier1C)   0.500000
  19.     set posy(lightChandelier1C)   0.173177
  20.     set width(lightChandelier1C)  0.500000
  21.     set height(lightChandelier1C) 0.166667
  22.     set scene(lightChandelier1C)  dragonvaleHallway
  23.     set camera(lightChandelier1C) topPasserelleLeft
  24.  
  25.     variable {lightChandelier2A}  0
  26.     set posx(lightChandelier2A)   0.251953
  27.     set posy(lightChandelier2A)   0.057292
  28.     set width(lightChandelier2A)  0.250000
  29.     set height(lightChandelier2A) 0.333333
  30.     set scene(lightChandelier2A)  dragonvaleHallway
  31.     set camera(lightChandelier2A) topPasserelleLeft
  32.  
  33.     proc new {object args} {
  34.         variable $object
  35.         variable posx
  36.         variable posy
  37.         variable width
  38.         variable height
  39.         variable scene
  40.         variable camera
  41.  
  42.         if {[set $object] != 0} return
  43.  
  44.         set optstring {play foreground nopan {depth 0}}
  45.         array set v [cmdline::getopt $args $optstring]
  46.  
  47.         set layer "-background"
  48.         if $v(foreground?) {
  49.             set layer "-foreground"
  50.         }
  51.  
  52.         set pan "-pan"
  53.         if $v(nopan?) {
  54.             set pan ""
  55.         }
  56.  
  57.         set depth $v(depth)
  58.  
  59.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  60.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  61.                     -depth $depth $layer $pan]
  62.  
  63.         eval "oz'widget::property [set $object] $args"
  64.  
  65.         if $v(play?) {
  66.             oz'event {
  67.                 ozSet mvDisableMouse 0
  68.                 if [ozIsEnable mouse] {
  69.                     wizDisableMouse
  70.                     ozSet mvDisableMouse 1
  71.                 }
  72.             }
  73.             wq'widget::waitfor [set $object] -animate
  74.             wq'widget::delete [set $object]
  75.             oz'event {
  76.                 if [ozGet mvDisableMouse] {
  77.                     wizEnableMouse
  78.                 }
  79.             }
  80.             set $object 0
  81.         }
  82.     }
  83.  
  84.     proc newSt {object args} {
  85.         variable $object
  86.         variable posx
  87.         variable posy
  88.         variable width
  89.         variable height
  90.         variable scene
  91.         variable camera
  92.  
  93.         if {[set $object] != 0} return
  94.  
  95.         set optstring {play foreground {depth 1}}
  96.         array set v [cmdline::getopt $args $optstring]
  97.  
  98.         set layer "-background"
  99.         if $v(foreground) {
  100.             set layer "-foreground"
  101.         }
  102.  
  103.         set depth $v(depth)
  104.  
  105.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  106.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  107.                     -depth $depth $layer -pan]
  108.  
  109.         eval "oz'widget::property [set $object] $args"
  110.     }
  111. }
  112.  
  113.  
  114. namespace eval topPasserelleRight {
  115.     variable posx
  116.     variable posy
  117.     variable width
  118.     variable height
  119.     variable scene
  120.     variable camera
  121.  
  122.     variable {lightWallA}  0
  123.     set posx(lightWallA)   0.000000
  124.     set posy(lightWallA)   0.333333
  125.     set width(lightWallA)  0.250000
  126.     set height(lightWallA) 0.666667
  127.     set scene(lightWallA)  dragonvaleHallway
  128.     set camera(lightWallA) topPasserelleRight
  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 trialDoorShatter {
  212.     variable posx
  213.     variable posy
  214.     variable width
  215.     variable height
  216.     variable scene
  217.     variable camera
  218.  
  219.     variable {doorShattering}  0
  220.     set posx(doorShattering)   0.000000
  221.     set posy(doorShattering)   0.000000
  222.     set width(doorShattering)  1.000000
  223.     set height(doorShattering) 1.000000
  224.     set scene(doorShattering)  dragonvaleHallway
  225.     set camera(doorShattering) trialDoorShatter
  226.  
  227.     variable {lightWallA}  0
  228.     set posx(lightWallA)   0.664063
  229.     set posy(lightWallA)   0.152344
  230.     set width(lightWallA)  0.125000
  231.     set height(lightWallA) 0.565104
  232.     set scene(lightWallA)  dragonvaleHallway
  233.     set camera(lightWallA) trialDoorShatter
  234.  
  235.     variable {lightWallB}  0
  236.     set posx(lightWallB)   0.850586
  237.     set posy(lightWallB)   0.000000
  238.     set width(lightWallB)  0.149414
  239.     set height(lightWallB) 0.200521
  240.     set scene(lightWallB)  dragonvaleHallway
  241.     set camera(lightWallB) trialDoorShatter
  242.  
  243.     proc new {object args} {
  244.         variable $object
  245.         variable posx
  246.         variable posy
  247.         variable width
  248.         variable height
  249.         variable scene
  250.         variable camera
  251.  
  252.         if {[set $object] != 0} return
  253.  
  254.         set optstring {play foreground nopan {depth 0}}
  255.         array set v [cmdline::getopt $args $optstring]
  256.  
  257.         set layer "-background"
  258.         if $v(foreground?) {
  259.             set layer "-foreground"
  260.         }
  261.  
  262.         set pan "-pan"
  263.         if $v(nopan?) {
  264.             set pan ""
  265.         }
  266.  
  267.         set depth $v(depth)
  268.  
  269.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  270.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  271.                     -depth $depth $layer $pan]
  272.  
  273.         eval "oz'widget::property [set $object] $args"
  274.  
  275.         if $v(play?) {
  276.             oz'event {
  277.                 ozSet mvDisableMouse 0
  278.                 if [ozIsEnable mouse] {
  279.                     wizDisableMouse
  280.                     ozSet mvDisableMouse 1
  281.                 }
  282.             }
  283.             wq'widget::waitfor [set $object] -animate
  284.             wq'widget::delete [set $object]
  285.             oz'event {
  286.                 if [ozGet mvDisableMouse] {
  287.                     wizEnableMouse
  288.                 }
  289.             }
  290.             set $object 0
  291.         }
  292.     }
  293.  
  294.     proc newSt {object args} {
  295.         variable $object
  296.         variable posx
  297.         variable posy
  298.         variable width
  299.         variable height
  300.         variable scene
  301.         variable camera
  302.  
  303.         if {[set $object] != 0} return
  304.  
  305.         set optstring {play foreground {depth 1}}
  306.         array set v [cmdline::getopt $args $optstring]
  307.  
  308.         set layer "-background"
  309.         if $v(foreground) {
  310.             set layer "-foreground"
  311.         }
  312.  
  313.         set depth $v(depth)
  314.  
  315.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  316.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  317.                     -depth $depth $layer -pan]
  318.  
  319.         eval "oz'widget::property [set $object] $args"
  320.     }
  321. }
  322.  
  323.  
  324.