home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 34 / Creative-Review-CD-ROM-34.iso / pc / jkd / folio / folio.dir / 00001_Script_1 next >
Text File  |  1998-02-05  |  2KB  |  40 lines
  1. on startMovie
  2.   global gOnPC,crPath
  3.   if the machineType = 256 then
  4.     set gOnPC = true
  5.   else
  6.     set gOnPC = false
  7.   end if
  8.   global imagePath, fullImageList
  9.   set fullImageList = []
  10.   if gOnPC then
  11.     set imagePath = crPath&"folio\images\"
  12.   else
  13.     set imagePath = crPath&"folio:images:"
  14.   end if
  15.   set fullImageList = loadImageInfo()
  16.   set imageList = setUpImageList (fullImageList,"cd")
  17.   
  18.   global slideShow
  19.   set slideShow = FALSE
  20.   
  21.   global quitButton,fullButton,cdButton,interButton,intraButton,editButton,liveButton
  22.   set quitButton = new(Script "Option Button Parent Script",point(618,452),60,"quit","quitdown","quitdown")
  23.   set cdButton = new(Script "Option Button Parent Script",point(536,147),61,"cd","cddown","cddown")
  24.   set interButton = new(Script "Option Button Parent Script",point(536,172),62,"inter","interdown","interdown")
  25.   set intraButton = new(Script "Option Button Parent Script",point(536,196),63,"intra","intradown","intradown")
  26.   set editButton = new(Script "Option Button Parent Script",point(536,219),64,"edit","editdown","editdown")
  27.   set liveButton = new(Script "Option Button Parent Script",point(536,292),65,"live","livedown","livedown")
  28.   
  29.   global imageBar,toolBar,searchMenu
  30.   set searchmenu = new(script"SearchMenu DropAcross Parent Script",["cd","inter","intra","edit"],70,point(96,431))
  31.   hideMenu searchMenu
  32.   set toolBar = new(script"Toolbar Parent Script",["top",point(0,-2),"middle",point(0,0),"bottom",point(0,2)],5,point(115,372),372,372)
  33.   set imageBar = new(script "ScrollingImageBar",(getAt(getAt(imageList,count(imageList)),3) + getAt(getAt(imageList,count(imageList)),4)) ,point(0,21),470,0,imageList)
  34.   displayBar imageBar,6,0
  35.   updateStage
  36.   set the attemptSelectedImage of imageBar to getAt(the selectedImageList of imageBar, 1)
  37.   displaySelectedImage imageBar
  38.   updateStage
  39. end startMovie
  40.