DIM Series: Yumi Fukawa/DIM Series: Yumi Fukawa.iso/pc/data/photo_l.dxr/00003_photo album common script.ls

Text File | 1998-06-10 | 1.7 KB | 76 lines

global kphotosprnum, kmovielinksprnum, kautoslidestrsprnum, gautoslide, gautoslidespeed, gautoslidewaitticks, gautoslidewaittickslist, galbummode, gcurphotoorder, gcurphotonum

on updatephotoview
  busycurs()
  if count(gcurphotoorder) = 0 then
    sendSprite(kphotosprnum, #mresetphotonum)
  else
    sendSprite(kphotosprnum, #msetphotonum, getAt(gcurphotoorder, gcurphotonum))
  end if
  sendSprite(kphotosprnum, #mupdatephotoview)
  updatemovielinkview()
  updateStage()
  resetcurs()
end

on setcurphotonum vphotonum
  set gcurphotonum to vphotonum
  updatephotoview()
end

on setcurphotonumnoupdate vphotonum
  set gcurphotonum to vphotonum
end

on incphotonum
  set gcurphotonum to cropvaluerotate(gcurphotonum + 1, 1, count(gcurphotoorder))
  updatephotoview()
end

on decphotonum
  set gcurphotonum to cropvaluerotate(gcurphotonum - 1, 1, count(gcurphotoorder))
  updatephotoview()
end

on doautoslide
  if not gautoslide then
    exit
  end if
  if (the ticks - gautoslidewaitticks) < getAt(gautoslidewaittickslist, gautoslidespeed) then
    exit
  end if
  incphotonum()
  if not galbummode then
    updatethumbnailandmarker()
  end if
  set gautoslidewaitticks to the ticks
end

on autoclickreaction
  playclicksnd()
  setautoslidestate(not gautoslide)
end

on setautoslidestate vstate
  set gautoslide to vstate
end

on changeautoslidespeed vvalue
  set gautoslidespeed to vvalue
end

on updatemovielinkview
  if gcurphotonum = 0 then
    exit
  end if
  if count(gcurphotoorder) < gcurphotonum then
    exit
  end if
  set amovielinknum to getmovielinknum(getAt(gcurphotoorder, gcurphotonum))
  if amovielinknum > 0 then
    sendSprite(kmovielinksprnum, #mshowspr)
  else
    sendSprite(kmovielinksprnum, #mhidespr)
  end if
end