home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 5 / boot-disc-1997-01.iso / media / utility.cst / 00025_Script_VideoClass < prev    next >
Text File  |  1996-11-05  |  2KB  |  67 lines
  1. property spritenum,ancestor
  2.  
  3. global videosprite,video
  4.  
  5. on new me
  6.   set spritenum=videosprite
  7.   set ancestor=new(script "GenericClass")
  8.   clearactorlist me,"VideoClass",#spritenum
  9.   add the actorlist,me
  10.   set video=me
  11.   return me
  12. end
  13.  
  14. on stepframe me
  15.   if the membernum of sprite spritenum>0 then
  16.     if the movietime of sprite spritenum>=trackstoptime(sprite spritenum,1) then
  17.       dispose me
  18.     end if
  19.   else
  20.     clearactorlist me,"VideoClass",#spritenum
  21.   end if
  22. end
  23.  
  24. on dispose me
  25.   global imagesprite,glevel,dbase,videosprite,banner
  26.   dispose banner
  27.   clearactorlist me,"VideoClass",#spritenum
  28.   --  puppetsound 2,"dleep"
  29.   puppetsprite imagesprite,false
  30.   puppetsprite videosprite,false
  31.   if the membernum of sprite videosprite>0 then
  32.     set the movierate of sprite videosprite to false
  33.     set the visible of sprite imagesprite to false
  34.     set the visible of sprite videosprite to false
  35.   end if
  36.   go to "main"
  37.   updateStage
  38.   puppetsound 2,"dleep"
  39.   set curtext=the category of the activerec of dbase
  40.   set the alignment of member "display" to "center"
  41.   set files=cvtlisttotext(dbase,getprograms(dbase,false))
  42.   put files
  43.   set pos=offset("(",files)
  44.   repeat while pos>0
  45.     set endpos=offset(")",files)
  46.     delete char pos to endpos of files
  47.     set pos=offset("(",files)
  48.   end repeat
  49.   set the visible of sprite castsprite("display") to false
  50.   set the fontsize of field "display" to 21
  51.   set the lineheight of field "display" to 30
  52.   set the text of member "display" to ¼
  53.                 files
  54.   set the alignment of member "display" to "center"           
  55.   set the visible of sprite castsprite("display") to true        
  56.   global scrollpos
  57.   set the scrolltop of member "display" to scrollpos
  58.   set the visible of sprite castsprite("prevbtn") to true
  59.   set the visible of sprite castsprite("nextbtn") to true
  60.   --  set the text of member "title" to curtext
  61.   put curtext into field "title"
  62.   set the alignment of member "display" to "center"  
  63.   set glevel=2 
  64.   -- puppetsound 1,"adam"
  65.   return 0
  66. end
  67.