home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2000 February / DPPCPRO0200.ISO / ps10.dxr / Scripts_1_startMovie.ls < prev    next >
Encoding:
Text File  |  1999-10-26  |  426 b   |  19 lines
  1. global giCurrentTrackNumber, gsPreviousPath, gArtist, gIntro, gVoiceFlag, gArtistFlag, gVOPlaying
  2.  
  3. on startMovie
  4.   gArtsit = 0
  5.   gIntro = 0
  6.   register(xtra("PrintOMatic"), "PMAT160-484-37931")
  7.   the randomSeed = the ticks
  8.   giCurrentTrackNumber = random(9) + 1
  9.   gsPreviousPath = EMPTY
  10.   gVoiceFlag = 0
  11.   gArtistFlag = 0
  12.   gVOPlaying = 0
  13.   if baCpuInfo("speed") > 170 then
  14.     go("intro")
  15.   else
  16.     go("intro2")
  17.   end if
  18. end
  19.