home *** CD-ROM | disk | FTP | other *** search
/ Pro-motion 2 / PM02-Disk1.iso / mac / Parts / Main.dir / Script_3_CustumHandres2.ls < prev    next >
Encoding:
Text File  |  2001-01-31  |  3.3 KB  |  132 lines
  1. global f, ff, s, ss, m, mm, l_sozaipath, s_sozaipath, p_sozaipath, d, filenamelist, s_sizelist, l_sizelist, endtime, nowtime, nowrate, prevrect, activsam, activsp, activpage, mode
  2.  
  3. on drawprev
  4.   oldtime = nowtime
  5.   oldrate = nowrate
  6.   sprite(100).visible = 0
  7.   sprite(30).visible = 0
  8.   sprite(100).movieTime = 0
  9.   updateStage()
  10.   set the rect of sprite 100 to the rect of sprite 47
  11.   loadsammovie()
  12.   sprite(100).visible = 1
  13.   if oldtime <> 0 then
  14.     sprite(100).movieTime = oldtime
  15.     sprite(100).movieRate = oldrate
  16.     updateStage()
  17.   end if
  18.   repeat with i = 31 to 48
  19.     sprite(i).visible = 0
  20.   end repeat
  21.   viewselectfile()
  22. end
  23.  
  24. on drawpdage
  25.   oldtime = nowtime
  26.   oldrate = nowrate
  27.   sprite(100).visible = 0
  28.   sprite(30).visible = 0
  29.   sprite(100).movieTime = 0
  30.   updateStage()
  31.   set the rect of sprite 100 to the rect of sprite activsp
  32.   set the rect of sprite 30 to the rect of sprite activsp + rect(-2, -2, 2, 2)
  33.   loadsammovie()
  34.   if oldtime <> 0 then
  35.     sprite(100).visible = 1
  36.     sprite(30).visible = 1
  37.     sprite(100).movieTime = oldtime
  38.     sprite(100).movieRate = oldrate
  39.     updateStage()
  40.   end if
  41.   repeat with i = 30 to 48
  42.     sprite(i).visible = 1
  43.   end repeat
  44.   updateStage()
  45.   viewselectfile()
  46.   setsamname()
  47. end
  48.  
  49. on viewselectfile
  50.   info = EMPTY
  51.   put string(activpage + 1) & " / 7" into line 1 of info
  52.   put "PM02-" & filenamelist[activsam] & ".mov" into line 2 of info
  53.   put " " into line 3 of info
  54.   put l_sizelist[activsam] into line 4 of info
  55.   put s_sizelist[activsam] into line 5 of info
  56.   if activsam < 43 then
  57.     put "2" into line 6 of info
  58.   else
  59.     put "3" into line 6 of info
  60.   end if
  61.   put info into field "Information"
  62. end
  63.  
  64. on inisam
  65.   activsam = 1
  66.   activsp = 31
  67.   activpage = 0
  68.   sprite(100).visible = 0
  69.   endtime = member(1, "Sam").duration
  70.   nowtime = 0
  71.   nowrate = 0
  72.   set the rect of sprite 100 to the rect of sprite 31
  73.   set the rect of sprite 30 to the rect of sprite 31 + rect(-2, -2, 2, 2)
  74.   sprite(30).visible = 1
  75.   updateStage()
  76. end
  77.  
  78. on loadsammovie
  79.   case mode of
  80.     1:
  81.       s_name = s_sozaipath & "PM02-" & filenamelist[activsam]
  82.       member(1, "Sam").fileName = s_name
  83.     0:
  84.       p_name = p_sozaipath & "PM02-" & filenamelist[activsam]
  85.       member(1, "Sam").fileName = p_name
  86.   end case
  87.   member(1, "Sam").pausedAtStart = 1
  88.   member(1, "Sam").loop = 0
  89.   set the member of sprite 100 to member(1, "Sam")
  90.   updateStage()
  91.   if sprite(13).status = 1 then
  92.     member(1, "Sam").loop = 1
  93.     set the member of sprite 13 to member("Loop-Down")
  94.   else
  95.     member(1, "Sam").loop = 0
  96.     set the member of sprite 13 to member("Loop-Up")
  97.   end if
  98. end
  99.  
  100. on stopsammovie
  101.   sprite(100).movieRate = 0
  102.   updateStage()
  103.   sprite(100).visible = 0
  104.   updateStage()
  105.   sprite(100).movieTime = 0
  106.   set the locH of sprite 100 to -200
  107. end
  108.  
  109. on standbysammovie
  110.   sprite(100).movieRate = 0
  111.   updateStage()
  112.   loadsammovie()
  113.   endtime = member(1, "Sam").duration
  114.   nowtime = 0
  115.   set the rect of sprite 100 to the rect of sprite activsp
  116.   if member("Sam-Movie", "Sam").loop then
  117.     set the member of sprite 13 to member("Loop-Down")
  118.     sprite(13).status = 1
  119.   else
  120.     set the member of sprite 13 to member("Loop-Up")
  121.     sprite(13).status = 0
  122.   end if
  123.   set the locH of sprite 28 to 30
  124. end
  125.  
  126. on getfilenamelist
  127.   filenamelist = []
  128.   repeat with i = 1 to 120
  129.     filenamelist[i] = pluszero(i, 3)
  130.   end repeat
  131. end
  132.