home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 301-325 / apd323 / colourscrollloader.amos / colourscrollloader.amosSourceCode < prev    next >
AMOS Source Code  |  1989-12-04  |  1KB  |  46 lines
  1. TITLES
  2. Procedure TITLES
  3. Screen Open 0,320,256,16,Lowres
  4. Double Buffer : Flash Off : Hide On : Curs Off : Paper 0 : Cls 0
  5. Get Sprite Palette 
  6. If Fast Free>0 and Length(3)=0 Then Load "DF0:Ramage.ABK" : Wait 200
  7. L=-20 : R=340 : U=-20 : D=280
  8. Do 
  9. Wait Vbl : Bob 1,L,100,3 : Bob 2,R,100,4 : Bob 3,20,U,1 : Bob 4,20,D,2
  10. If FLG=True Then Exit 
  11. If R=45 Then FLG=True
  12. If L<20 Then L=L+5
  13. If R>45 Then R=R-5
  14. If U<70 Then U=U+5
  15. If D>133 Then D=D-3
  16. Loop 
  17. If Fast Free>0 Then Music 1
  18. For N=300 To 80 Step -2
  19. Wait Vbl : Bob 5,N,100,12 : Next N
  20. Wait 40 : Fade 2 : Wait 70
  21. TURTLES:
  22. Bob Off : Cls 0 : Get Sprite Palette 
  23. For N=-20 To 70 Step 10 : Wait Vbl : Bob 1,80,N,13 : Next N
  24. For N=-20 To 80 Step 10 : Wait Vbl : Bob 2,N,120,14 : Next N
  25. For N=280 To 120 Step -10 : Wait Vbl : Bob 3,160,N,15 : Next N
  26. For N=360 To 155 Step -10 : Wait Vbl : Bob 4,N,70,16 : Next N
  27. For N=330 To -30 Step -30 : Wait Vbl : Paste Bob N,225,5 : Next N
  28. For N=280 To 200 Step -1 : Wait Vbl : Bob 5,10,N,12 : Next N
  29. A$="       Software ya don't have"
  30. B$="         to shell out for !"
  31. Pen 1 : For N=1 To Len(A$) : Locate N,0 : Print Mid$(A$,N,1) : Next N
  32. For N=1 To Len(B$) : Locate N,2 : Print Mid$(B$,N,1) : Next N
  33. Wait 50 : Fade 2
  34. RISE:
  35. Unpack 10 To 1 : Screen Display 1,,300,,
  36. For N=300 To 49 Step -1
  37. Wait Vbl : Screen Display 1,,N,,
  38. Next N : View 
  39. Wait 100 : Fade 4
  40. Wait 100
  41. Load Iff "df0:Title",0
  42. Repeat 
  43. Until Mouse Key=1
  44. For N=63 To 0 Step -1 : Mvolume N : Wait 5 : Next N : Erase 3
  45. Run "DF0:ColourScroll.AMOS"
  46. End Proc