home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / detectpc.dxr / 00040.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  873 b   |  50 lines
  1. global gQTState, gDisableQT, gPathDelimiter
  2.  
  3. on startMovie
  4.   gPathDelimiter = determineDelimiter()
  5.   gQTState = #unknown
  6.   gDisableQT = 0
  7.   checkForQT(5)
  8.   case gQTState of
  9.     #QTPresent:
  10.       nothing()
  11.     #wrongversion:
  12.       go("wrongversion")
  13.     #notPresent:
  14.       go("noQT")
  15.   end case
  16.   initMovie()
  17. end
  18.  
  19. on checkForQT versionNumber
  20.   if voidp(versionNumber) then
  21.     exit
  22.   end if
  23.   currentVersion = QuickTimeVersion()
  24.   if currentVersion <> 0 then
  25.     if currentVersion >= versionNumber then
  26.       gQTState = #QTPresent
  27.     else
  28.       gQTState = #wrongversion
  29.     end if
  30.   else
  31.     gQTState = #notPresent
  32.   end if
  33. end
  34.  
  35. on initMovie
  36. end
  37.  
  38. on determineDelimiter
  39.   thisMAchine = the platform
  40.   if thisMAchine contains "Windows" then
  41.     return "\"
  42.   else
  43.     if thisMAchine contains "Macintosh" then
  44.       return ":"
  45.     else
  46.       return "/"
  47.     end if
  48.   end if
  49. end
  50.