home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / pc / gcsdata / intro_o.dxr / 00003_Main Scripts.ls < prev    next >
Encoding:
Text File  |  1996-09-01  |  906 b   |  42 lines
  1. on startMovie
  2.   global Screen, CDLocation, rwObj, sync, Sep
  3.   cursor(200)
  4.   if the machineType = 256 then
  5.     set Sep to "\"
  6.   else
  7.     set Sep to ":"
  8.   end if
  9.   set the exitLock to 1
  10.   preLoadCast(10)
  11.   preLoadCast()
  12.   set Screen to 0
  13.   set the soundEnabled to 1
  14.   set sync to 0
  15.   set the fileName of cast 10 to CDLocation & "SOUNDS" & Sep & "INTRO.MOV"
  16.   set the keyDownScript to "EndIntro"
  17.   set the mouseDownScript to "EndIntro"
  18. end
  19.  
  20. on idle
  21.   global sync
  22.   if (sync = 0) and (the frame > 5) then
  23.     if the movieTime of sprite 1 > (20.75 * 60) then
  24.       go("Bang")
  25.       set sync to 1
  26.     end if
  27.   end if
  28. end
  29.  
  30. on EndIntro
  31.   global CDLocation, name, PopQuizTime, NoQuiz, QuizUp, QuizWaiting, Difficulty
  32.   cursor(200)
  33.   set Difficulty to 1
  34.   set PopQuizTime to the ticks
  35.   set NoQuiz to 0
  36.   set QuizUp to 0
  37.   set QuizWaiting to 0
  38.   set name to EMPTY
  39.   cursor(4)
  40.   go(1, CDLocation & "MENUS_O.DIR")
  41. end
  42.