home *** CD-ROM | disk | FTP | other *** search
/ Liberty's Kids / LIBERTY.iso / pc / PRINT / scripts / zp1main.mps next >
Encoding:
Text File  |  2002-08-30  |  1.4 KB  |  68 lines
  1. yield off
  2.  
  3. ;// Cache some resources
  4. resPort=RResourcePort !
  5.  
  6. play resPort activateDLL "compre.rsc" 1
  7. play resPort cacheDLL "compre.rsc" 0 1
  8.  
  9. drop resPort
  10.  
  11. ;// Setup fonts
  12. ;SubstituteFont "Dado" 0 14 4107
  13. ;SubstituteFont "Geneva" 1 10 4100
  14. ;SubstituteFont "Geneva" 0 12 4101
  15. ;SubstituteFont "Geneva" 0 14 4102
  16. ;SubstituteFont "Chicago" 0 12 4103
  17. ;SubstituteFont "Chicago" 0 14 4104
  18. ;SubstituteFont "Arial" 0 12 4105
  19. ;SubstituteFont "Arial" 1 12 4106
  20. ;SubstituteFont "Jackie" 0 16 4108
  21. ;SubstituteFont "Alien" 0 12 4109
  22. ;SubstituteFont "Alien" 0 18 4110
  23. ;SubstituteFont "Arial" 0 14 4111
  24. ;SubstituteFont "Arial" 1 14 4112
  25. ;SubstituteFont "Arial" 1 18 4113
  26. ;SubstituteFont "Times New Roman" 0 12 4114
  27.  
  28. ;// Setup closed captioning
  29. ;SetClosedCaptioningColorIndex 11
  30. SetClosedCaptioningFont Arial 1 18
  31. SetClosedCaptioningRect 100 400 472 18*3+16
  32.  
  33. ;// Install cursors
  34. InstallCursors
  35.  
  36. ;// Add properties
  37. ;gPort=RWorldPort !
  38.  
  39. ;drop gPort
  40.  
  41. ;// Intro movies
  42. gScenePort=RScenePort !
  43. ;call pTitleMovie
  44. call pIntroMoviesDone
  45.  
  46. procedure pTitleMovie
  47. [
  48.     set gScenePort spacebarPressed pIntroMoviesDone
  49.     set gScenePort returnPressed pIntroMoviesDone
  50.  
  51.     movie=RBinkMovie "MVTitle.bik"
  52.     set movie mouseDown pIntroMoviesDone
  53.     set movie finished pIntroMoviesDone
  54.     
  55.     play movie start
  56.  
  57. ]
  58.  
  59. procedure pIntroMoviesDone
  60. [
  61.     drop movie
  62.  
  63.     ;// See ya!
  64.     play gScenePort goToBlack
  65.     StartTransition
  66.     relay "zp1print.mps"
  67. ]
  68.