home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / bat_4_demo.amos / bat_4_demo.amosSourceCode < prev    next >
AMOS Source Code  |  1993-01-23  |  2KB  |  70 lines
  1. '    ____     _____  ________ _   _   _____   _____     _     _____   __                       
  2. '   /    \   /     \     \   / \_/ \ /     \ /     \     \_  /     \   /                           
  3. '  /_____/  /______/     /  /      //______//      /        /      /  /                  
  4. ' /      \ /      /     /  /      //      //      /         \_____/  /             
  5. ' \______//      /     /  /      //      //      /               /  /            
  6. '  ================================ :-) ============================         
  7. '
  8. DEMO[N,TX$]
  9. Procedure DEMO[N,TX$]
  10. Shared N,TX$
  11. Led Off : Music 1
  12. Screen Open 0,320,256,16,Lowres
  13. Hide On : Flash Off : Curs Off 
  14. Screen Open 1,352,290,8,Lowres : Unpack 7 To 1
  15. Screen Open 2,352,290,8,Lowres : Double Buffer 
  16. Unpack 8 To 2
  17. Dual Playfield 1,2
  18. Screen Display 1,125,10,,
  19. Channel 15 To Screen Offset 2
  20. Move Y 15,"(1,1,150)(1,-1,150)L"
  21. Move On 15
  22. Unpack 6 To 0 : Double Buffer 
  23. Screen Display 0,,95,,
  24. N=2
  25. TXT[TX$]
  26. S_RAIN
  27. I:
  28. Inc N
  29. If N>13
  30. N=2
  31. End If 
  32. Inc POS
  33. LET$="abcdefghijklmnopqrstuvwxyz0123456789."
  34. If POS>Len(TX$) Then POS=1
  35. E$=Mid$(TX$,POS,1)
  36. E=Instr(LET$,E$)
  37. Channel N To Bob N
  38. E=E+0
  39. If E=0
  40. E=0
  41. End If 
  42. Bob 38,35,86,38
  43. Bob N,255,121,E
  44. MO[N]
  45. Repeat 
  46. X1=X Bob(N)
  47. If X1<241 Then Goto I : 
  48. Until Mouse Key
  49. End Proc
  50. Procedure MO[N]
  51. Shared N
  52. Move X N,"(2,-1,0)(1,1,0)"
  53. Move Y N,"(2,-2,9)(2,2,9)L"
  54. Move On N
  55. End Proc
  56. Procedure TXT[TX$]
  57. Shared TX$
  58. TX$=". . . . . . . . . . . . . hi out there and welcome to my 4th demo but before i type anything else just want to tell you that the letters tend to stick together from time to time ... "
  59. TX$=TX$+"i cant do anything to stop it from doing that until the compiler comes out then we will know ... anyway i want to send some greetings to ... hawk ... terminator ... tex ... angeldust ... "
  60. TX$=TX$+"the punisher ... now to a few friends ... fabrice ... charles ... kris ... dirk ... ok back to reality .. as you might have noticed the font was ripped from the acu demo and the music well "
  61. TX$=TX$+"it isnt too bad ... well thats it for now as i really hate typing the scrolltexts so i will let the scroll restart instead ...        ... regs  batman tdf 1991            . bye .           "
  62. End Proc
  63. Procedure S_RAIN
  64. Set Rainbow 0,1,600,"(1,1,15)(1,-1,15)","(15,1,15)(15,-1,15)","(15,15,15)(15,-15,15)"
  65. Rainbow 0,56,150,105
  66. Set Rainbow 2,0,18,"","(1,1,10)(1,-1,10)","(1,1,10)(1,-1,10)"
  67. Rainbow 2,56,290,18
  68. Set Rainbow 3,0,18,"(1,1,10)(1,-1,10)","","(1,1,10)(1,-1,10)"
  69. Rainbow 3,56,90,18
  70. End Proc