Pro-motion 2/PM02-Disk1.iso/mac/Parts/Main.dir/Script_5_Debug.ls

Text File | 2001-01-31 | 1015 b | 41 lines

global mypath, d

on getsize
  dir = "C:\My Documents\Daisaku\PM2-Win\Movies\320x240\PM02-"
  sizelist = []
  repeat with i = 1 to 111
    file = pluszero(i, 3)
    member(256, "Sam").fileName = dir & file & ".mov"
    sizelist[i] = dsize(member(256, "Sam").size)
  end repeat
  put string(sizelist) into field "S-SizeList"
end

on defsam
  filepath = mypath & "Parts" & d & "Blank.mov"
  member(1, "Sam").fileName = filepath
  member(1, "Sam").name = "Sam-Movie"
end

on defield
  put "Time: 00:00:00 /  00:00:00" into field "T" of castLib "Items"
  put "320x240:" into line 1 of field "Information" of castLib "Items"
  put "720x486:" into line 2 of field "Information" of castLib "Items"
  put "1 / 111" into field "Select" of castLib "Items"
  put "1 / 8" into field "Page" of castLib "Items"
  put "MP01-001.mov" into field "FileName" of castLib "Items"
end

on leg00
  s = 11
  e = 121
  repeat with i = s to e
    member(i, "Sam").regPoint = point(0, 0)
  end repeat
end

on reset
  defield()
  defsam()
end