home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / enchantedHallway.mvwrap.tcl < prev    next >
Text File  |  2005-10-22  |  10KB  |  332 lines
  1. namespace eval bookCorner {
  2.     variable posx
  3.     variable posy
  4.     variable width
  5.     variable height
  6.     variable scene
  7.     variable camera
  8.  
  9.     variable {lightCandle}  0
  10.     set posx(lightCandle)   0.000000
  11.     set posy(lightCandle)   0.346354
  12.     set width(lightCandle)  0.125000
  13.     set height(lightCandle) 0.333333
  14.     set scene(lightCandle)  enchantedHallway
  15.     set camera(lightCandle) bookCorner
  16.  
  17.     variable {lightLanter}  0
  18.     set posx(lightLanter)   0.707031
  19.     set posy(lightLanter)   0.131510
  20.     set width(lightLanter)  0.250000
  21.     set height(lightLanter) 0.333333
  22.     set scene(lightLanter)  enchantedHallway
  23.     set camera(lightLanter) bookCorner
  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 corridor {
  107.     variable posx
  108.     variable posy
  109.     variable width
  110.     variable height
  111.     variable scene
  112.     variable camera
  113.  
  114.     variable {lightCandleA1}  0
  115.     set posx(lightCandleA1)   0.875000
  116.     set posy(lightCandleA1)   0.666667
  117.     set width(lightCandleA1)  0.125000
  118.     set height(lightCandleA1) 0.333333
  119.     set scene(lightCandleA1)  enchantedHallway
  120.     set camera(lightCandleA1) corridor
  121.  
  122.     variable {lightCandleA2}  0
  123.     set posx(lightCandleA2)   0.750000
  124.     set posy(lightCandleA2)   0.854167
  125.     set width(lightCandleA2)  0.125000
  126.     set height(lightCandleA2) 0.145833
  127.     set scene(lightCandleA2)  enchantedHallway
  128.     set camera(lightCandleA2) corridor
  129.  
  130.     variable {lightCandleB}  0
  131.     set posx(lightCandleB)   0.360352
  132.     set posy(lightCandleB)   0.278646
  133.     set width(lightCandleB)  0.125000
  134.     set height(lightCandleB) 0.333333
  135.     set scene(lightCandleB)  enchantedHallway
  136.     set camera(lightCandleB) corridor
  137.  
  138.     variable {lightChandelier}  0
  139.     set posx(lightChandelier)   0.000000
  140.     set posy(lightChandelier)   0.144531
  141.     set width(lightChandelier)  0.061523
  142.     set height(lightChandelier) 0.333333
  143.     set scene(lightChandelier)  enchantedHallway
  144.     set camera(lightChandelier) corridor
  145.  
  146.     variable {lightChandelierBack}  0
  147.     set posx(lightChandelierBack)   0.749023
  148.     set posy(lightChandelierBack)   0.364583
  149.     set width(lightChandelierBack)  0.125000
  150.     set height(lightChandelierBack) 0.166667
  151.     set scene(lightChandelierBack)  enchantedHallway
  152.     set camera(lightChandelierBack) corridor
  153.  
  154.     proc new {object args} {
  155.         variable $object
  156.         variable posx
  157.         variable posy
  158.         variable width
  159.         variable height
  160.         variable scene
  161.         variable camera
  162.  
  163.         if {[set $object] != 0} return
  164.  
  165.         set optstring {play foreground nopan {depth 0}}
  166.         array set v [cmdline::getopt $args $optstring]
  167.  
  168.         set layer "-background"
  169.         if $v(foreground?) {
  170.             set layer "-foreground"
  171.         }
  172.  
  173.         set pan "-pan"
  174.         if $v(nopan?) {
  175.             set pan ""
  176.         }
  177.  
  178.         set depth $v(depth)
  179.  
  180.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  181.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  182.                     -depth $depth $layer $pan]
  183.  
  184.         eval "oz'widget::property [set $object] $args"
  185.  
  186.         if $v(play?) {
  187.             oz'event {
  188.                 ozSet mvDisableMouse 0
  189.                 if [ozIsEnable mouse] {
  190.                     wizDisableMouse
  191.                     ozSet mvDisableMouse 1
  192.                 }
  193.             }
  194.             wq'widget::waitfor [set $object] -animate
  195.             wq'widget::delete [set $object]
  196.             oz'event {
  197.                 if [ozGet mvDisableMouse] {
  198.                     wizEnableMouse
  199.                 }
  200.             }
  201.             set $object 0
  202.         }
  203.     }
  204.  
  205.     proc newSt {object args} {
  206.         variable $object
  207.         variable posx
  208.         variable posy
  209.         variable width
  210.         variable height
  211.         variable scene
  212.         variable camera
  213.  
  214.         if {[set $object] != 0} return
  215.  
  216.         set optstring {play foreground {depth 1}}
  217.         array set v [cmdline::getopt $args $optstring]
  218.  
  219.         set layer "-background"
  220.         if $v(foreground) {
  221.             set layer "-foreground"
  222.         }
  223.  
  224.         set depth $v(depth)
  225.  
  226.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  227.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  228.                     -depth $depth $layer -pan]
  229.  
  230.         eval "oz'widget::property [set $object] $args"
  231.     }
  232. }
  233.  
  234.  
  235. namespace eval stairsLow {
  236.     variable posx
  237.     variable posy
  238.     variable width
  239.     variable height
  240.     variable scene
  241.     variable camera
  242.  
  243.     variable {lightChandelierBack}  0
  244.     set posx(lightChandelierBack)   0.814453
  245.     set posy(lightChandelierBack)   0.000000
  246.     set width(lightChandelierBack)  0.250000
  247.     set height(lightChandelierBack) 0.333333
  248.     set scene(lightChandelierBack)  enchantedHallway
  249.     set camera(lightChandelierBack) stairsLow
  250.  
  251.     proc new {object args} {
  252.         variable $object
  253.         variable posx
  254.         variable posy
  255.         variable width
  256.         variable height
  257.         variable scene
  258.         variable camera
  259.  
  260.         if {[set $object] != 0} return
  261.  
  262.         set optstring {play foreground nopan {depth 0}}
  263.         array set v [cmdline::getopt $args $optstring]
  264.  
  265.         set layer "-background"
  266.         if $v(foreground?) {
  267.             set layer "-foreground"
  268.         }
  269.  
  270.         set pan "-pan"
  271.         if $v(nopan?) {
  272.             set pan ""
  273.         }
  274.  
  275.         set depth $v(depth)
  276.  
  277.         set $object [wq'widget::new "movies/[MOVIE_QUALITY]/$scene($object)/$camera($object)/$object" \
  278.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  279.                     -depth $depth $layer $pan]
  280.  
  281.         eval "oz'widget::property [set $object] $args"
  282.  
  283.         if $v(play?) {
  284.             oz'event {
  285.                 ozSet mvDisableMouse 0
  286.                 if [ozIsEnable mouse] {
  287.                     wizDisableMouse
  288.                     ozSet mvDisableMouse 1
  289.                 }
  290.             }
  291.             wq'widget::waitfor [set $object] -animate
  292.             wq'widget::delete [set $object]
  293.             oz'event {
  294.                 if [ozGet mvDisableMouse] {
  295.                     wizEnableMouse
  296.                 }
  297.             }
  298.             set $object 0
  299.         }
  300.     }
  301.  
  302.     proc newSt {object args} {
  303.         variable $object
  304.         variable posx
  305.         variable posy
  306.         variable width
  307.         variable height
  308.         variable scene
  309.         variable camera
  310.  
  311.         if {[set $object] != 0} return
  312.  
  313.         set optstring {play foreground {depth 1}}
  314.         array set v [cmdline::getopt $args $optstring]
  315.  
  316.         set layer "-background"
  317.         if $v(foreground) {
  318.             set layer "-foreground"
  319.         }
  320.  
  321.         set depth $v(depth)
  322.  
  323.         set $object [wq'widget::new "states/[MODE]/$scene($object)/$camera($object)/$object" \
  324.                     -pos $posx($object) $posy($object) -dsize $width($object) $height($object) \
  325.                     -depth $depth $layer -pan]
  326.  
  327.         eval "oz'widget::property [set $object] $args"
  328.     }
  329. }
  330.  
  331.  
  332.