home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3082b.dms / 3082b.adf / Code / endbit.AMOS / endbit.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-09-02  |  1.0 KB  |  50 lines
  1. ' End Animation Jobby
  2. '
  3. ' Sample from "Eye of The Beholder" by Metallica . 
  4. '
  5. '
  6. Sam Loop On 
  7. Volume 0
  8. Sam Play 1
  9. For N=0 To 63
  10.    Volume N
  11.    Wait 2
  12. Next N
  13. Global WIN
  14. If Command Line$="black" Then WIN=2
  15. If Command Line$="red" Then WIN=1
  16. Proc _ENDBIT
  17. Procedure _ENDBIT
  18.    Screen Open 0,320,256,16,Lowres
  19.    Unpack 7 To 0
  20.    If WIN=1 Then Paste Bob 30,10,1
  21.    If WIN=2 Then Paste Bob 5,10,2 : Colour 8,$113 : Colour 9,$111
  22.    Paste Bob 110,10,3
  23.    Wait 80
  24.    Proc NUKE
  25.    Wait 120
  26.    Fade 5 : Wait 15*5
  27. End Proc
  28. Procedure NUKE
  29.    Restore 
  30.    For N=1 To 15
  31.       Read X : Colour 8,X : Wait 3
  32.    Next N
  33.    Wait 30
  34.    For N=1 To 15
  35.       Read X : Colour 8,X : Wait 3
  36.    Next N
  37.    If WIN=1 Then Colour 8,$620
  38.    Data $111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  39.    Data $FFF,$EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777,$666,$555,$444,$333,$222,$113
  40. End Proc
  41. For N=63 To 0 Step -1
  42.    Volume N
  43.    Wait 2
  44. Next N
  45. Sam Stop : Wait 5
  46. Volume 63
  47. Screen Open 0,320,256,4096,Lowres : Cls 0 : Curs Off : Flash Off 
  48. Unpack 8 To 0
  49. Wait 30
  50. Run "df0:code/barebones.amos"