home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd077 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1990-11-07  |  7KB  |  110 lines
  1. Set Buffer 12
  2. Screen Open 0,320,200,2,LORES : Cls 0
  3. '
  4. '  A varient on Jaz Shipmans scrolling routine but totally overhauled, 
  5. '  the font is just one bit plane and much smaller.. the rainbow has been
  6. '  used to paint the font. An equalizer added too and NO FLICKER AT ALL ! :) 
  7. '
  8. Hide : Curs Off : Cls 0 : Auto View Off 
  9. SETUP:
  10. Led Off : Close Editor : Curs Off : Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  11. SCNT=1 : CNT=31
  12. SC$=SC$+Upper$(" ey up!    uncle spadge here with a disk full of my own amos")
  13. SC$=SC$+Upper$(" dabblings for you to mess about with. Of all the stuff on here you are most")
  14. SC$=SC$+Upper$(" likely to take a shine to - rainbow warrior - which is probably one of the")
  15. SC$=SC$+Upper$(" most useful amos utilities yet written....     /        hehe")
  16. SC$=SC$+Upper$("       i am quite happy at the moment because this is the last disk I am compiling (for the moment)")
  17. SC$=SC$+Upper$(" for the amos pd library.... / / / / / /     thank god thats 120 disks done.... / / / / / /")
  18. SC$=SC$+Upper$("      i hope you like all my little routines and stuff...    if you would like to get in touch then")
  19. SC$=SC$+Upper$(" put pen to paper and write to:    m.brown,            po box 13,         ossett,      west yorks,        wf5 oxa.          ")
  20. SC$=SC$+Upper$(" or why not call    @     the spadge factory     @     my bbs ???       telephone ")
  21. SC$=SC$+Upper$("     0     9     2     4       2    6    5    5    9    3       after 7pm daily.....")
  22. SC$=SC$+Upper$("      personal thanks to jason shipman for the inspiration for the scroller, i hope I have made it faster and smoother  /  now you can have music and")
  23. SC$=SC$+Upper$(" bobs without the flickering....  look    // no flicker! //                you luvvit.....  ")
  24. SC$=SC$+Upper$("               ok time for a few messages to certain people...              sandra sharkey:    hi sandra, I do hope the wait was worth it, I cannot express how much i am glad to see the back of all those disks!  / / / / /  (grin)")
  25. SC$=SC$+Upper$("     i hope they go well for you and the stuff continues to rain in....              richard vanner:  hi dick, thanks a lot mate for asking me to compile and edit the library, i really (no really /) enjoyed doing it...    and if")
  26. SC$=SC$+Upper$(" you believe that then you will believe anything.... / hehe  qpr go out in round 4.               francois lionet:    ey up francois, looking forward to seeing you on the bbs again!  wheres my compiler??? never mind this 3d nonsense!")
  27. SC$=SC$+Upper$("           peter hickman:  thanks for your suggestions for rainbow warrior, what a coincidence that I had already put the features in! / warped minds think alike....   /   ta for the imminent plug in amiga computing.....   ")
  28. SC$=SC$+Upper$("      Allister Brimble:  nip down to that pub on the main road (i forget the name) and tell that balding gunners fan that leeds were all over arsenal....   hows the database coming along and the amos 3d music??")
  29. SC$=SC$+Upper$("          rico beanbag holmes:   Ok reeks, why naff off to sweden without so much of a seeya later??? yer git! /   i thought you had some really nice artwork for me??   say hi to girlie... whatever it is in swedish,")
  30. SC$=SC$+Upper$("     pity she is not polish and therefore called onyurbackyerbitch       /      bjorn lynne:   how come you are reading this mate?? get back on noistracker!!  space delerium was something else !! ///// cor!       ")
  31. SC$=SC$+Upper$("       the girl in the winning post pub:   aww go on, i am a nice guy really...        the girl in the victoria, horbury:    i do not care if you are married and your bloke is a squaddie....     ")
  32. SC$=SC$+Upper$("      dawn at the park tavern:  if only you knew.... if only you had an amiga....    if only i had the guts...         /     ")
  33. SC$=SC$+Upper$("  to maria:   sod off.      /         right time to go before this all gets out of hand (ooerr)       /     ")
  34. SC$=SC$+Upper$("       have a fine mess with all my dabblings and log onto @ soon.....             bye!    spadge                                                                                     /                      ")
  35. Unpack 8 To 6 : Screen Hide 6 : Screen Display 6,140,32,,200
  36. Unpack 5 To 0 : Palette 0,0 : Restore RDATA : Gosub RB : Palette $0,$0
  37. Screen Open 1,370,250,2,LORES : Palette $0,0
  38. Screen Display 1,100,53,380,256 : Def Scroll 1,1,223 To 369,255,-4,0
  39. Curs Off : Cls 0 : Screen Copy 0,0,160,256,205 To 1,40,0
  40. SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
  41. Gosub PIXD : Wait Vbl : Screen Copy 0,0,205,223,255 To 1,50,100
  42. Auto View On : Hide : Gosub EQ : Screen To Front 6 : Screen Display 6,,55,,170 : Screen Show 6
  43. Hide : Music 1
  44. ROO:
  45. Gosub STEXT : Gosub EQP
  46. Wait Vbl : Goto ROO
  47. PIXD:
  48. Restore SD : 
  49. For F=1 To 51 : Read X$(F),X(F),Y(F)
  50. Next F : Return 
  51. SD:
  52. Data "0",84,40,"1",98,40,"2",112,40,"3",126,40,"4",140,40,"5",154,40
  53. Data "6",168,40,"7",182,40,"8",196,40,"9",210,40,"A",0,12,"B",14,12
  54. Data "C",28,12,"D",42,12,"E",56,12,"F",70,12,"G",84,12,"H",98,12
  55. Data "I",112,12,"J",126,12,"K",140,12,"L",154,12,"M",168,12,"N",182,12
  56. Data "O",196,12,"P",210,12,"Q",224,12,"R",238,12,"S",252,12,"T",266,12
  57. Data "U",0,40,"V",14,40,"W",28,40,"X",42,40,"Y",56,40,"Z",70,40,"@",210,68
  58. Data ",",14,68,"!",224,40,".",0,68,":",266,68,"?",28,68,"/",196,68
  59. Data "+",154,68,"-",224,68,"(",126,68,")",140,68,"#",42,68,"{",168,68,"}",182,68," ",288,68
  60. STEXT:
  61. Screen 1 : Scroll 1
  62. Add CNT,6
  63. If CNT>18 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  64. If Mouse Key=1 Then Goto EXIDEMO
  65. Return 
  66. NCHAR:
  67. E$=Mid$(SC$,SCNT,1) : E=Instr(SCRL$,E$)
  68. Screen Copy 0,X(E),Y(E),X(E)+14,Y(E)+25 To 1,352,223 : Return 
  69. EXIDEMO:
  70. Screen Hide 0
  71. FFF:
  72. Cls 0
  73. Screen 6 : Fade 3 : Screen Close 1 : Rainbow 0,0,0,0 : Rainbow 1,0,0,0
  74. For F=63 To 0 Step -1 : Volume F : Wait 1 : Next F : Screen Close 6
  75. Run "rainbowwarrior.amos"
  76. RB:
  77. Set Rainbow 0,1,28,"","","" : Rainbow 0,0,272,28 : Colour Back 0
  78. Restore RDATA : For C=0 To 27 : Read CVA : Rain(0,C)=CVA
  79. Next C : View : Return 
  80. RDATA:
  81. Data $0,$11,$22,$133,$244,$355,$466,$577
  82. Data $688,$799,$8AA,$9BB,$ACC,$BDD,$CEE,$DFF
  83. Data $89E,$78D,$67C,$56B,$45A,$349,$238,$127
  84. Data $16,$5,$4,$3,$2,$1,$0,$0
  85. EQ:
  86. ST: Show On : Cls 0 : Screen Open 2,332,33,2,LORES : Screen Display 2,,232,, : Cls 0 : Palette $0,$0
  87.     C1=0 : C2=0 : C3=0 : C4=0 : Unpack 6 To 4 : Screen Copy 4,0,4,320,32 To 2,0,0 : Screen Close 4
  88. View : Gosub RB2 : Return 
  89. EQP:
  90. V1=Int(Vumeter(0)/2) : V2=Int(Vumeter(1)/2) : V3=Int(Vumeter(2)/2) : V4=Int(Vumeter(3)/2)
  91. If V1>C1 Then C1=V1
  92. If V1<C1 and C1>0 Then Dec C1
  93. If V2>C2 Then C2=V2
  94. If V2<C2 and C2>0 Then Dec C2
  95. If V3>C3 Then C3=V3
  96. If V3<C3 and C3>0 Then Dec C3
  97. If V4>C4 Then C4=V4
  98. If V4<C4 and C4>0 Then Dec C4
  99. Screen 2
  100. Bob 1,140,0,C1 : Bob 2,150,0,C2 : Bob 3,160,0,C3 : Bob 4,170,0,C4
  101. Return 
  102. RB2:
  103. Rem
  104. Set Rainbow 1,1,35,"","","" : Rainbow 1,0,230,35 : Colour Back 0 : Restore RDATA7
  105. For C=0 To 34 : Read CVA : Rain(1,C)=CVA
  106. Next C : View : Return 
  107. RDATA7:
  108. Data $0,$0,$0,$544,$655,$766,$877,$988,$A99,$BAA,$CBB,$DCC,$EDD,$FED,$FEC,$FEB
  109. Data $FEA,$FE9,$FE8,$FE7,$FD6,$FC5,$FA3,$F92,$F81,$F70,$E60,$D50,$C40,$B30,$A20,$910
  110. Data $800,$700,$600,$0,$0,$0,$0,$0