home *** CD-ROM | disk | FTP | other *** search
/ Liberty's Kids / LIBERTY.iso / pc / PRINT / scripts / zp1print.mps < prev   
Encoding:
Text File  |  2002-09-20  |  2.5 KB  |  119 lines
  1. yield off
  2.  
  3. gBackgroundID=10000
  4. kExitBtnID=10101
  5. kPrintBtnID=10100
  6. kCreditsID=10010
  7. kTitleID=10012
  8.  
  9. gBkgdMusicID=10000
  10. kHighlightSfxID=10010
  11. kClickSfxID=10011
  12.  
  13. kListFilename="zp1print.xml"
  14.  
  15. kListZ=2
  16. kButtonZ=4
  17. kCreditsZ=10
  18.  
  19. ;// Global stuff
  20. resPort=RResourcePort !
  21. play resPort deactivateAllDLLs
  22. play resPort uncacheAllDLLs
  23. play resPort uncacheResources
  24.  
  25. gScenePort=RScenePort !
  26.  
  27. call pInit
  28.  
  29. play gScenePort displayScreen
  30. EndTransition
  31.  
  32. procedure pInit
  33. [
  34.     SetDoubleClicksEnabled 0
  35.  
  36.     play resPort activateDLL "zp1print.rsc"
  37.     play resPort activateDLL "zp1prpre.rsc"
  38.     play resPort cacheDLL "zp1prpre.rsc"
  39.  
  40.     ;// Background
  41. ;    play gScenePort scene gBackgroundID
  42.  
  43.     ;// Background music
  44. ;    set gScenePort backgroundMusicID gBkgdMusicID
  45.  
  46.     ;// Play title "movie"
  47.     play gScenePort scene kTitleID
  48.     ;// do this to set the window's mouseDown link since the RScenePort constructor
  49.     ;// sets it only if there is a background, and this is the first time one
  50.     ;// has been created
  51.     drop gScenePort
  52.     gScenePort=RScenePort !
  53.     
  54.     set gScenePort backgroundClicked eTitleClicked
  55.  
  56.     sQueue=RQueue 1
  57.     play sQueue add DelayAction 4000
  58.     set sQueue "finished" eTitleClicked
  59.     play sQueue "start"
  60.  
  61. ;    soundQueue=RQueue 1
  62. ;    play soundQueue add SoundAction gBkgdMusicID 0 1 30
  63. ;    play soundQueue "start"
  64. ]
  65.  
  66. procedure eTitleClicked
  67. [
  68.     drop sQueue
  69.  
  70.     play gScenePort scene gBackgroundID
  71.     set gScenePort "backgroundClicked"
  72.  
  73.     exitButton=RFlyButton kExitBtnID
  74.     set exitButton "z" kButtonZ
  75.     set exitButton "clickSoundID" kClickSfxID
  76.     set exitButton "flyOnSoundID" kHighlightSfxID
  77.     set exitButton "hit" eExitButtonClicked
  78.     play exitButton "setAOCursor" kFingerCursorID
  79.  
  80.     printButton=RFlyButton kPrintBtnID
  81.     set printButton "z" kButtonZ
  82.     set printButton "clickSoundID" kClickSfxID
  83.     set printButton "flyOnSoundID" kHighlightSfxID
  84.     set printButton "hit" ePrintButtonClicked
  85.     play printButton "setAOCursor" kFingerCursorID
  86.  
  87.     printList=RPrintList kListZ kListFilename
  88. ]
  89.  
  90. procedure eExitButtonClicked
  91. [
  92.     drop exitButton
  93.     drop printButton
  94.     drop printList
  95.     drop sQueue
  96.  
  97.     play gScenePort scene kCreditsID
  98.     set gScenePort backgroundClicked eSayByeBye
  99.  
  100.     sQueue=RQueue 1
  101.     play sQueue add DelayAction 5000
  102.     set sQueue "finished" eSayByeBye
  103.     play sQueue "start"
  104. ]
  105.  
  106. procedure eSayByeBye
  107. [
  108. ;    play soundQueue "clear"
  109.     play sQueue "clear"
  110.  
  111.     play gScenePort goToBlack
  112.     StartTransition
  113.     quit
  114. ]
  115.  
  116. procedure ePrintButtonClicked
  117. [
  118.     play printList "printCurrentSelection"
  119. ]