home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd559 / amoner4 / amoner.amos / amoner.amosSourceCode next >
Encoding:
AMOS Source Code  |  1993-11-29  |  2.8 KB  |  88 lines
  1. Copper On 
  2. Rem *****************************************************************
  3. Rem *          Thrown together by Michael Cox                       *
  4. Rem *          March 15, 1992 (15:15 CST)                           *
  5. Rem *          Email: aj639@cleveland.freenet.edu                   *
  6. Rem *****************************************************************
  7. Fade 1 : Wait 16
  8. Auto View Off 
  9. Unpack 6 To 0
  10. Curs Off : Hide : Flash Off : Music Off : Amal Off : Led On 
  11. Get Sprite Palette 
  12. Palette $0,$F,$F00,$F00
  13. N$="M -42,18,28"
  14. E$="M -56,36,28"
  15. R$="M -70,54,28"
  16. N_REV$="M 42,-18,28"
  17. E_REV$="M 56,-36,28"
  18. R_REV$="M 70,-54,28"
  19. NICEIFF[N$,E$,R$]
  20. Procedure NICEIFF[N$,E$,R$]
  21.    Screen Clone 1 : Screen To Front 0
  22.    Rem set all colours in screen zero to black
  23.    For X=0 To 31 : Colour X,0 : Next 
  24.    View : Auto View On 
  25.    Rem fade in screen one 
  26.    Channel 3 To Bob 3
  27.    Channel 2 To Bob 2
  28.    Channel 1 To Bob 1
  29.    Bob 1,112,78,1
  30.    Bob 2,126,78,2
  31.    Bob 3,140,78,3
  32.    Def Scroll 1,0,160 To 340,180,-2,0
  33.    Fade 3 To 1,%100 : Wait 45
  34.    Led Off 
  35.    Music 1
  36.    Amal 1,N$
  37.    Amal 2,E$
  38.    Amal 3,R$
  39.    Repeat 
  40.    Until Vumeter(1)=43
  41.    Amal On 
  42.    Fade 3 To 1,%1000 : Wait 45 : Screen Close 1
  43. End Proc
  44. Amal Off 
  45. SCR0LLY$=".................................."
  46. SCR0LLY$=SCR0LLY$+"Music is by --- M O B Y --- for his great friends in Northstar France."
  47. SCR0LLY$=SCR0LLY$+"  Well, now you know what AMONER stands for!  No, Gal-on"
  48. SCR0LLY$=SCR0LLY$+" was not stroking his ego by making it a combonation of"
  49. SCR0LLY$=SCR0LLY$+" AMOs and broNER.  Many people, including myself, thought"
  50. SCR0LLY$=SCR0LLY$+" this to be the case.  Thanks go to the following people:"
  51. SCR0LLY$=SCR0LLY$+" Aaron Wald of the AMOS NTSC PD Library (Thanks for including"
  52. SCR0LLY$=SCR0LLY$+" the AMONER disks!), Mark Schultz & Mark Budziszewski of AMOS CLUB USA (Keep up"
  53. SCR0LLY$=SCR0LLY$+" the great newsletter!), David Lazarek (Great job of getting TOME and other"
  54. SCR0LLY$=SCR0LLY$+" AMOS products!), and thanks to Europress for putting up with my"
  55. SCR0LLY$=SCR0LLY$+" never ending questions!  Well, see you folks next disk...(Yes, I know this"
  56. SCR0LLY$=SCR0LLY$+" scrolly and font are cheesey, but, hey, I don't have time to work on a better"
  57. SCR0LLY$=SCR0LLY$+" one!)....BTW, this was thrown together by Michael Cox on March 15, 1992 at"
  58. SCR0LLY$=SCR0LLY$+" 15:15 CST............." : COUNT=8 : T0TAL=0
  59. Ink 3
  60. Repeat 
  61.    Scroll 1
  62.    Wait Vbl 
  63.    Inc COUNT
  64.    If COUNT>4
  65.       COUNT=1
  66.       Inc T0TAL
  67.       If T0TAL>Len(SCR0LLY$)
  68.          T0TAL=1
  69.       End If 
  70.       Text 290,170,Mid$(SCR0LLY$,T0TAL,1)
  71.    End If 
  72. Until Mouse Key
  73. Fade 3,,$0,,$0 : Wait 45
  74. Amal 1,N_REV$
  75. Amal 2,E_REV$
  76. Amal 3,R_REV$
  77. Amal On 
  78. For X=63 To 0 Step -1
  79.    Volume X
  80.    Wait Vbl 
  81. Next X
  82. Fade 4 : Wait 105
  83. Erase 1
  84. Erase 3
  85. Erase 6
  86. Copper Off 
  87. Show : Amal Off : Music Off : Led On : Default 
  88. Run "AmoNER004:Autoexec.Amos"