home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / fishtank.amos / fishtank.amosSourceCode < prev    next >
AMOS Source Code  |  1991-01-29  |  3KB  |  157 lines
  1. Led On 
  2. Amal Off 
  3. Dir$="Robots2:"
  4. Load "MUSIC/JMUS"
  5. Unpack 10 To 0 : Hide On 
  6. Screen Display 0,120,35,,
  7. Double Buffer 
  8. BOW
  9. '
  10. Music 1
  11. '
  12. A$="A 0,(7,7)(8,7)(9,7)(10,7)(11,7)(12,7)(13,7)"
  13. B$="M -450,0,450"
  14. C$="M 450,0,450"
  15. '
  16. Channel 1 To Bob 1
  17. Channel 2 To Bob 2
  18. Channel 3 To Bob 3
  19. Channel 4 To Bob 4
  20. Channel 5 To Bob 5
  21. Channel 6 To Bob 6
  22. Channel 7 To Bob 7
  23. Bob 1,310,-25,8
  24. Amal 1,A$
  25. Amal On 
  26. '
  27. Bob 4,-80,0,6
  28. Bob 5,350,50,3
  29. Amal 4,C$
  30. Amal 5,B$
  31. Amal On 
  32. Wait 50
  33. Bob 6,-80,150,2
  34. Amal 6,C$
  35. Amal On 
  36. QUIT[4500]
  37. '
  38. Wait 1200
  39. Erase 3
  40. Load "MUSIC/MUS1"
  41. Volume 0
  42. Music 1
  43. For V=0 To 63
  44.    Volume V : Wait 2
  45. Next V
  46. '
  47. Do 
  48.    Bob 2,350,50,1
  49.    Bob 3,-80,150,4
  50.    Amal 2,B$
  51.    Amal 3,C$
  52.    Amal On 
  53.    QUIT[4000]
  54.    '
  55.    Bob 4,-80,0,6
  56.    Bob 5,350,50,3
  57.    Amal 4,C$
  58.    Amal 5,B$
  59.    Amal On 
  60.    Wait 50
  61.    Bob 6,-80,150,2
  62.    Amal 6,C$
  63.    Amal On 
  64.    QUIT[4500]
  65.    '
  66.    Bob 2,-80,0,4
  67.    Bob 3,350,50,1
  68.    Amal 2,C$
  69.    Amal 3,B$
  70.    Amal On 
  71.    Wait 50
  72.    Bob 4,350,150,5
  73.    Amal 4,B$
  74.    Amal On 
  75.    Wait 100
  76.    Bob 5,-80,100,2
  77.    Amal 5,C$
  78.    Amal On 
  79.    QUIT[4000]
  80.    '
  81.    Bob 2,350,0,1
  82.    Bob 3,350,50,5
  83.    Amal 2,B$
  84.    Amal On 
  85.    Wait 20
  86.    Amal 3,B$
  87.    Amal On 
  88.    Wait 50
  89.    Bob 4,-80,150,4
  90.    Amal 4,C$
  91.    Amal On 
  92.    Wait 100
  93.    Bob 5,350,100,3
  94.    Amal 5,B$
  95.    Amal On 
  96.    Wait 50
  97.    Bob 6,-80,160,2
  98.    Bob 7,-80,80,6
  99.    Amal 6,C$
  100.    Amal On 
  101.    Wait 50
  102.    Amal 7,C$
  103.    Amal On 
  104.    QUIT[4000]
  105. Loop 
  106. '
  107. Procedure BOW
  108.    Set Rainbow 0,0,280,"","",""
  109.    Rainbow 0,0,0,280
  110.    Colour Back 0
  111.    Restore RDATA
  112.    For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  113.    Next C : View 
  114.    RDATA:
  115.    Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  116.    Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  117.    Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  118.    Data $AF,$AF,$AF,$AF,$9F,$AF,$9F,$9F
  119.    Data $9F,$9F,$9F,$9F,$9F,$9F,$9F,$9F
  120.    Data $9F,$9F,$9F,$8F,$9F,$8F,$8F,$8F
  121.    Data $8F,$8F,$8F,$8F,$8F,$8F,$8F,$8F
  122.    Data $8F,$8F,$8F,$8F,$8F,$7F,$8F,$7F
  123.    Data $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  124.    Data $7F,$7F,$7F,$7F,$7F,$7F,$7F,$6F
  125.    Data $7F,$6F,$6F,$6F,$6F,$6F,$6F,$6F
  126.    Data $6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F
  127.    Data $6F,$6F,$6F,$6F,$5F,$6F,$5F,$5F
  128.    Data $5F,$5F,$5F,$5F,$5F,$5F,$5F,$5F
  129.    Data $5F,$5F,$5F,$5F,$5F,$5F,$4F,$5F
  130.    Data $4F,$4F,$4F,$4F,$4F,$4F,$4F,$4F
  131.    Data $4F,$4F,$4F,$4F,$4F,$4F,$4F,$4F
  132.    Data $4F,$3F,$4F,$3F,$3F,$3F,$3F,$3F
  133.    Data $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  134.    Data $2F,$3F,$2F,$2F,$2F,$2F,$2F,$2F
  135.    Data $2F,$2F,$2F,$2F,$2F,$2F,$2F,$2F
  136.    Data $2F,$1D,$2F,$1D,$1D,$1D,$1D,$1D
  137.    Data $1D,$1D,$1D,$1D,$1D,$1D,$1D,$1D
  138.    Data $1B,$1D,$1B,$1B,$1B,$1B,$1B,$1B
  139.    Data $1B,$1B,$1B,$1B,$1B,$1B,$1B,$1B
  140.    Data $1B,$19,$1B,$19,$19,$19,$19,$19
  141.    Data $19,$19,$19,$19,$19,$19,$19,$19
  142.    Data $19,$19,$17,$19,$17,$17,$17,$17
  143.    Data $17,$17,$17,$17,$17,$17,$17,$17
  144.    Data $17,$17,$17,$17,$17,$17,$17,$17
  145.    Data $17,$15,$17,$15,$15,$15,$15,$15
  146.    Data $15,$15,$15,$15,$15,$15,$15,$15
  147.    Data $15,$15,$15,$15,$15,$15,$15,$15
  148.    Data $15,$15,$15,$15,$15,$15,$15,$15
  149.    Data $14,$14,$14,$14,$0,$0,$0,$0
  150.    Data $0,$0,$0,$0,$0,$0,$0,$0
  151. End Proc
  152. '
  153. Procedure QUIT[TIME]
  154.    For T=1 To TIME
  155.       If Mouse Key=1 Then For V=63 To 0 Step -1 : Volume V : Wait 2 : Next V : Music Off : Erase 3 : Volume 63 : Fade 5 : Wait 75 : Bob Off : Rainbow Del 0 : Screen Close 0 : Run "AutoExec.Amos"
  156.    Next T
  157. End Proc