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

Text File | 2001-01-31 | 1.6 KB | 81 lines

global f, ff, s, ss, m, mm, sozaipath, d, filenamelist, endtime, nowtime, nowrate, prevrect, activsam, activsp, activpage

on setsamname
  repeat with i = 1 to 18
    n = (activpage * 18) + i
    if n > 111 then
      set the member of sprite (i + 30) to member("Dummy")
      next repeat
    end if
    sam = n + 10
    set the member of sprite (i + 30) to member(sam, "Sam")
  end repeat
end

on pluszero val, k
  sa = 0
  zeros = EMPTY
  returnval = EMPTY
  val = string(val)
  sa = k - the number of chars in val
  if sa <= 0 then
    return val
    exit
  end if
  repeat with i = 1 to sa
    put "0" after sa
  end repeat
  returnval = zeros & val
  return returnval
end

on activmarker
  lc = the number of lines in the labelList
  repeat with i = 1 to lc
    if the frame < label(line i of the labelList) then
      return line i - 1 of the labelList
    end if
  end repeat
  return line lc - 1 of the labelList
end

on dsize byte
  bytet = EMPTY
  if byte < 1024 then
    bytet = string(float(byte)) && "Byte"
  else
    if byte < 1048576 = 1 then
      bytet = string(float(byte) / 1024) && "KB"
    else
      if byte < 1073741824 then
        bytet = string(float(byte) / 1048576) && "MB"
      else
        bytet = string(float(byte) / 1073741824) && "GB"
      end if
    end if
  end if
  return bytet
end

on msf t
  m = t / 3600
  s = t mod 3600 / 60
  f = t mod 60 / 2
  if m < 10 then
    mm = "0" & string(m)
  else
    mm = string(m)
  end if
  if s < 10 then
    ss = "0" & string(s)
  else
    ss = string(s)
  end if
  if f < 10 then
    ff = "0" & string(f)
  else
    ff = string(f)
  end if
  return mm & ":" & ss & ":" & ff
end