home *** CD-ROM | disk | FTP | other *** search
/ Bible Champions - The Birth of Jesus / BIRTH.ISO / pc / mainmenu.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1999-07-02  |  1.0 KB  |  47 lines
  1. on startMovie
  2.   cursor(200)
  3.   append(the searchPath, the pathName)
  4.   append(the searchPath, the pathName & "timeline")
  5.   append(the searchPath, the pathName & "stories")
  6.   append(the searchPath, the pathName & "games")
  7.   repeat with y = 12 to 14
  8.     set the visible of sprite y to 0
  9.   end repeat
  10. end
  11.  
  12. on allvis
  13.   repeat with x = 1 to 120
  14.     set the visible of sprite x to 1
  15.   end repeat
  16.   updateStage()
  17. end
  18.  
  19. on myPause seconds
  20.   startTimer()
  21.   repeat while the timer < (seconds * 60)
  22.     nothing()
  23.   end repeat
  24. end
  25.  
  26. on mypauseb seconds
  27.   startTimer()
  28.   repeat while the timer < (seconds * 60)
  29.     if the mouseDown then
  30.       go("main")
  31.     end if
  32.   end repeat
  33. end
  34.  
  35. on ckbit
  36.   repeat with y = 1 to the number of castLibs
  37.     repeat with x = 1 to the number of castMembers of castLib y
  38.       if the type of member x of castLib y = #bitmap then
  39.         if the depth of member x of castLib y > 8 then
  40.           put "Member " & the memberNum of member x & " from Castlib " & y
  41.         end if
  42.       end if
  43.     end repeat
  44.   end repeat
  45.   put "All Done"
  46. end
  47.