home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 195.lha / Sample.Script < prev    next >
Encoding:
Text File  |  1988-12-28  |  3.1 KB  |  89 lines
  1. REM       I put this short animation together to show people
  2. REM       what a Director script would look like.
  3. REM       As you can see, it is alot like BASIC.
  4. REM       You can use line numbers for GOTO or GOSUB
  5.        REM--------------------------------------------------------------
  6. EXECUTE a,"ASSIGN mod: :options":REM This lets the program know where to
  7.                                  REM find the sound module.
  8. MODULE "sound":REM                      LOAD MODULE
  9. PRINT
  10. PRINT "        Sample Animation":REM     THIS OUTPUT GOES TO CLI OR WINDOW
  11. PRINT "         by Don Bloomer"
  12. SOUND V,"LOAD",1,":startrek":REM        LOAD SOUND NUMBER ONE
  13. SOUND V,"LOAD",2,":cycles.snd"
  14. SOUND V,"LOAD",3,":ZZAP"
  15. SETBLACK 1:REM                MAKE SCREEN BLACK
  16. LOAD 4,":TITLE.PIC":REM       LOAD PICTURE INTO BUFFER NUMBER 4
  17. SOUND V,"LOAD",4,":Spock.snd"
  18. LOAD 3,":Enterprise.PIC"
  19. POSITION 108,25:REM           ADJUST FOR OVERSCAN PICTURE
  20. DISPLAY 3:REM       SHOW STAR SHIP ENTERPRISE
  21. SETBLACK 0:REM      TURN OFF BLACK SCREEN
  22. NEW 1,3:REM         MAKE A NEW BUFFER WITH SAME DIMENSIONS AS ENTERPRISE.PIC
  23. COPY 3,1:REM        AND SAME PALETTE, AND COPY PICTURE TO BUFFER 1.
  24. DISPLAY 1
  25. PAUSE 10:REM        WAIT ONE SECOND
  26. PEN 1,1:REM         FOREGROUND PEN IS COLOR 1 (WHITE)
  27. RECT 0,18,350,80:REM          MAKE LARGE SOLID WHITE RECTANGLE
  28. TRANSPARENT 1:REM   TURN ON TRANSPARENT MODE SO COLOR 0 (BACKGROUND) IS
  29.               REM   NOT TRANSFERRED WITH BLIT COMMANDS
  30. BLIT 4,37,24,50,20,240,54:REM  MOVE TITLE ON TO SCREEN
  31. SOUND V,"PLAY",2,1,63:REM     PLAY SOUND
  32. PAUSE 10
  33. FREE 4:REM GET RID OF BUFFER 4 (TO SAVE ON MEMORY USE)
  34. PAUSE 15
  35. SOUND V,"PLAY",2,1,63
  36. DISPLAY 3:REM CHANGE DISPLAY SO TITLE DISAPPEARS
  37. PAUSE 10
  38. SOUND V,"PLAY",4,1,63:REM     PLAY SPOCK'S VOICE
  39. SOUND V,"FREE",2:REM          FREE UP MORE CHIP MEMORY
  40. NEW 2,3
  41. COPY 3,2
  42. BUFF = 2:REM        SET UP VARIABLE
  43.           FOR D = 124 TO 240:REM        MAKE LOOP
  44.           BLITDEST BUFF:REM             MAKE BLIT COMMANDS GO TO BUFF
  45.           COPY 3,BUFF
  46.           BLIT 3,313,190,584 -(D*2),D,25,22:REM   MOVE STAR
  47.           DISPLAY BUFF
  48.           BUFF = 3-BUFF:REM   SWITCH TO OTHER BUFFER
  49.           NEXT
  50. SOUND V,"FREE",4
  51. NEW 4,3
  52. PEN 1,0
  53. MOVE 109,125
  54. DRAW 1,200
  55. SOUND V,"PLAY",3,1,63
  56.      FOR Z = 1 TO 2
  57.      PEN 1,11
  58.      MOVE 108,125
  59.      DRAW 0,200:REM      DRAW PHASER SHOT
  60.      PAUSE 2
  61.      PEN 1,0
  62.      MOVE 108,125
  63.      DRAW 0,200:REM      ERASE PHASER SHOT
  64.      PAUSE 1
  65.      NEXT
  66. SOUND V,"PLAY",1,1,63:REM     PLAY KIRK SOUND
  67. PAUSE 20
  68.      FOR T = 0 TO 325 STEP 3
  69.      BLITDEST BUFF
  70.      COPY 3,BUFF
  71.      BLIT 4,0,88,0,88,325,80:REM             COVER UP SHIP
  72.      BLIT 3,T,88,0,88,326-T,80:REM  MOVE ENTERPRISE
  73.      DISPLAY BUFF
  74.      BUFF = 3-BUFF
  75.      NEXT
  76. PAUSE 33
  77. PRINT
  78. PRINT
  79. PRINT
  80. REM       If you have The Director from The Right Answers Group
  81. REM       you can change this any way you like.  It would be possible
  82. REM       to make the Phaser shots respond to key presses of the
  83. REM       user.  More sounds and pictures can be added.  It wouldn't
  84. REM       be too hard to make the animation loop.
  85. REM       Have fun !
  86. REM                           Don Bloomer
  87. REM                              1988
  88.        
  89.