home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / demos / d163.dms / in.adf / autoexec.AMOS / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1989-09-30  |  3.3 KB  |  120 lines
  1. '*********************************************************** 
  2. '*           MACCLESFIELD COMPUTER CLUB DEMO               * 
  3. '*                                                         * 
  4. '*               by  D.R.Tart and J.Tart                   * 
  5. '*                      Dec 1990                           * 
  6. '***********************************************************   
  7. BEGIN:
  8. Screen Open 0,320,256,32,Lowres
  9. Flash Off : Hide 
  10. TX$="" : E$="" : POS=0 : N=0 : E=0
  11. Unpack 8 To 0
  12. Double Buffer 
  13. Load "df0:jonts_2.abk" : Music 1
  14. TX$="hi.....this demo was produced for the macclesfield computer"
  15. TX$=TX$+" club . . . . thanks especially to amos . the creator . . which enabled "
  16. TX$=TX$+"me to combine the following in this demo ! ! ! "
  17. TX$=TX$+" deluxe paint . .datell digitiser . . 17 bit software . . med213 . . "
  18. TX$=TX$+" and the harlequins wine bar for their room every tuesday night at 8.00           "
  19. LETTERS:
  20. Inc N : If N>11 : N=1 : End If : Inc POS : LET$="abcdefghijklmnopqrstuvwxyz1234567890.,!"
  21. If POS>Len(TX$) Then Goto CARRYON
  22. M=Mouse Key : If M<>0 Then Goto CARRYON
  23. E$=Mid$(TX$,POS,1) : E=Instr(LET$,E$)
  24. Channel N To Bob N : Bob N,330,218,E : LSCROLL : Move On 
  25. Repeat : X1=X Bob(N) : Until X1<300 : Goto LETTERS : 
  26. Procedure LSCROLL
  27. Shared N
  28. Move X N,"(1,-1,0)"
  29. Move Y N,"(1,-1,35)(1,1,35)L"
  30. End Proc
  31. CARRYON:
  32. Rem If SEC=1 Then Goto CARRYON2
  33. Fade 10 : Wait 140
  34. Unpack 7 To 0
  35. Flash Off 
  36. Load "df0:jonts_3.abk"
  37. Music 1
  38. Wait 400
  39. Fade 10 : Wait 120
  40. Unpack 9 To 0
  41. Flash Off 
  42. Wait 300
  43. Fade 10 : Wait 120
  44. Unpack 8 To 0
  45. Double Buffer 
  46. TX$=" please wait . . next sequence loading now " : SEC=1 : POS=0 : Goto LETTERS2
  47. LETTERS2:
  48. Inc N : If N>11 : N=1 : End If : Inc POS
  49. If POS>Len(TX$) Then Goto CARRYON2
  50. E$=Mid$(TX$,POS,1) : E=Instr(LET$,E$)
  51. Channel N To Bob N : Bob N,330,205,E : LSCROLL2 : Move On 
  52. Repeat : X1=X Bob(N) : Until X1<300 : Goto LETTERS2 : 
  53. Procedure LSCROLL2
  54. Shared N
  55. Move X N,"(1,-1,0)L"
  56. End Proc
  57. CARRYON2:
  58. POS=0
  59. Load "df0:Disco_girl.abk"
  60. Unpack 6 To 0
  61. Flash Off 
  62. Double Buffer 
  63. Get Sprite Palette 
  64. Load "df0:jonts_1.abk" : Music 1
  65. Channel 8 To Bob 8
  66. Bob 8,10,130,1
  67. Repeat 
  68.  Anim 8,"(1,5)(2,5)(3,5)(4,5)(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)(12,5)(13,5)(14,5)(15,5)(16,5)(17,5)(18,5)(19,5)(20,5)(21,5)(22,5)(23,5)(24,5)(25,5)(26,5)(27,5)(28,25)"
  69.  Anim On 8
  70.  Wait 200
  71.  B=B+1
  72. Until B=2
  73. B=1
  74. Bob Off 8
  75. Fade 10 : Wait 120
  76. Unpack 9 To 0
  77. Wait 100
  78. Load "df0:Disco_girl_2.abk"
  79. Unpack 6 To 0
  80. Flash Off 
  81. Double Buffer 
  82. Get Sprite Palette 
  83. Channel 8 To Bob 8
  84. Bob 8,10,130,1
  85. Amal 8,"A 0,(1,5)(2,5)(3,5)(4,5)(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)(12,35)"
  86. Amal On 8
  87. A=12
  88. Repeat 
  89.  Channel 9 To Bob 9
  90.  Inc A
  91.  B=Rnd(3)
  92.  If B=0 Then B=1
  93.  If B=1 Then X=30 : Y=10
  94.  If B=2 Then X=170 : Y=10
  95.  If B=3 Then X=170 : Y=125
  96.  Bob 9,X,Y,A
  97.  Wait 50
  98.  Bob Off 9
  99. Until A>26
  100. Amal Off 
  101. Load "df0:letters_2.abk"
  102. Unpack 8 To 0
  103. Double Buffer 
  104. Load "df0:jonts_4.abk"
  105. Music 1
  106. TX$="that,s all for now folk,s . . but if you can , come to the club"
  107. TX$=TX$+"tuesday nights at 8 . . . press ,ctrl, and ,c, to finish "
  108. TX$=TX$+" or press mouse button to replay the demo    "
  109. LETTERS3:
  110. Inc N : If N>11 : N=1 : End If : Inc POS
  111. If POS>Len(TX$) Then POS=1
  112. M=Mouse Key : If M<>0 Then Goto BEGIN
  113. E$=Mid$(TX$,POS,1) : E=Instr(LET$,E$)
  114. Channel N To Bob N : Bob N,330,205,E : LSCROLL3 : Move On 
  115. Repeat : X1=X Bob(N) : Until X1<300 : Goto LETTERS3 : 
  116. Procedure LSCROLL3
  117. Shared N
  118. Move X N,"(1,-1,0)L"
  119. End Proc
  120. Goto LETTERS3 :