home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 26 / CDL26.iso / PICASSO / DATA / CREDITS.DXR / 00001.ls next >
Encoding:
Text File  |  1996-12-12  |  607 b   |  28 lines
  1. on startMovie
  2.   global g_cred_page, g_cred_maxpg
  3.   set g_cred_page to 1
  4.   set g_cred_maxpg to 13
  5. end
  6.  
  7. on OwnPlay destination
  8.   global gOwnPlayList
  9.   if voidp(gOwnPlayList) then
  10.     set gOwnPlayList to []
  11.   end if
  12.   add(gOwnPlayList, [the pathName & the movie, the frame])
  13.   put "play ---> ", gOwnPlayList
  14.   go(1, destination)
  15. end
  16.  
  17. on OwnPlayDone
  18.   global gOwnPlayList
  19.   put "done ---> ", gOwnPlayList
  20.   set length to count(gOwnPlayList)
  21.   if length = 0 then
  22.     beep()
  23.     exit
  24.   end if
  25.   go(getAt(getAt(gOwnPlayList, length), 2), getAt(getAt(gOwnPlayList, length), 1))
  26.   deleteAt(gOwnPlayList, length)
  27. end
  28.