home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / lamer.amos / lamer.amosSourceCode < prev    next >
AMOS Source Code  |  1991-06-02  |  4KB  |  163 lines
  1. Rem*********************************************************************** 
  2. Rem***                                                                 *** 
  3. Rem***            THE    LAMER    STRIKES    BACK    DEMO              *** 
  4. Rem***                                                                 *** 
  5. Rem***                      BY    GRAHAM  CROWE                        *** 
  6. Rem***                                                                 *** 
  7. Rem***                         APRIL   1991.                           *** 
  8. Rem***                                                                 *** 
  9. Rem***                   Place this disk in df0:                       *** 
  10. Rem***                                                                 *** 
  11. Rem*********************************************************************** 
  12. Screen Open 1,320,270,8,Lowres
  13. Screen Display 1,112,30,320,270
  14. Get Sprite Palette 
  15. Global J
  16. Cls 0 : Flash Off : Hide 
  17. Double Buffer 
  18. Autoback 0
  19. Bob Update Off 
  20. Synchro Off 
  21. For C=1 To 19
  22.   Channel C To Bob C
  23. Next C
  24. AAA
  25. BBB
  26. CCC
  27. Music Off 
  28. End 
  29. Procedure AAA
  30.  Bob 1,35,-62,10
  31.  Bob 2,66,-63,11
  32.  Bob 3,102,-62,12
  33.  Bob 4,160,-64,1
  34.  Bob 5,189,-63,2
  35.  Bob 6,225,-64,3
  36.  Bob 7,262,-62,12
  37.  Bob 8,286,-64,4
  38.  Bob 9,70,292,9
  39.  Bob 10,98,294,10
  40.  Bob 11,128,292,4
  41.  Bob 12,157,294,5
  42.  Bob 13,189,293,6
  43.  Bob 14,218,294,12
  44.  Bob 15,243,292,9
  45.  Bob 16,110,352,7
  46.  Bob 17,136,351,2
  47.  Bob 18,171,349,8
  48.  Bob 19,197,351,6
  49.  A$="M 0,100,50"
  50.  B$=" M 0,-200,50;"
  51.  For A=1 To 8
  52.    Amal A,A$
  53.  Next A
  54.  For A=9 To 19
  55.   Amal A,B$
  56.  Next A
  57. Music 1
  58. Timer=0
  59. Repeat 
  60.  If Timer>0 Then Amal On 1 : Amal On 2 : Amal On 3
  61.  If Timer>80 Then Amal On 4 : Amal On 5 : Amal On 6 : Amal On 7 : Amal On 8
  62.  If Timer>160 Then Amal On 9 : Amal On 10 : Amal On 11 : Amal On 12 : Amal On 13 : Amal On 14 : Amal On 15
  63.  If Timer>240 Then Amal On 16 : Amal On 17 : Amal On 18 : Amal On 19
  64.  Bob Clear 
  65.  Synchro 
  66.  Bob Draw 
  67.  Screen Swap 
  68.  Wait Vbl 
  69. Until Timer>400
  70. End Proc
  71. Procedure BBB
  72. A$="B:M 0,-5,5;M0,10,10;M0,-5,5;JB;"
  73. B$="C:M0,5,5;M0,-10,10;M0,5,5;JC;"
  74. C$="D:M-3,0,3;M3,0,3;JD;"
  75. D$="E:M3,0,3;M-3,0,3;JE;"
  76. For A=1 To 9 Step 2
  77.  Amal A,A$
  78. Next A
  79. For A=2 To 8 Step 2
  80.  Amal A,B$
  81. Next A
  82. For A=9 To 19 Step 2
  83.  Amal A,C$
  84. Next A
  85. For A=10 To 18 Step 2
  86.  Amal A,D$
  87. Next A
  88. Amal On 
  89. Pen 1
  90. Paper 0
  91. Set Rainbow 1,1,4097,"","",""
  92. For Y=0 To 4095
  93.  Rain(1,Y)=Y
  94. Next Y
  95. For C=0 To 4095-255
  96.  Rainbow 1,C,40,255
  97. Next C
  98. Screen Swap 
  99. Wait Vbl 
  100. For Y=0 To 4095
  101.  Rain(1,Y)=Y
  102. Next Y
  103. For C=0 To 4095-255
  104.  Rainbow 1,C,40,255
  105. Next C
  106. Screen Swap 
  107. Wait Vbl 
  108. Screen Open 3,500,50,16,Lowres
  109. Screen Display 3,112,250,500,50
  110. Screen 3 : Set Rainbow 3,1,64,"(8,2,8)","","" : Rainbow 3,56,1,255
  111. Def Scroll 1,0,0 To 500,10,-1,0
  112. Locate 0,0
  113. Print "      ............GRAHAM'S...FIRST..DEMO....."
  114. Repeat 
  115.  Bob Clear 
  116.  Synchro 
  117.  SSS
  118.  Bob Draw 
  119.  Screen Swap 
  120.  Wait Vbl 
  121. Until Timer>6100
  122. End Proc
  123. Procedure CCC
  124. A$="M -300,0,150;"
  125. B$="M300,0,150;"
  126. For A=1 To 3
  127.  Amal A,A$
  128. Next A
  129. For A=4 To 15
  130.  Amal A,B$
  131. Next 
  132. For A=16 To 19
  133.  Amal A,A$
  134. Next A
  135. Amal On 
  136. Repeat 
  137.  S=S+1
  138.  If S>32 Then S=1
  139.  Bob Clear 
  140.  Synchro 
  141.  Cls S
  142.  Bob Draw 
  143.  Screen Swap 
  144.  Wait Vbl 
  145. Until Timer>6780
  146. End Proc
  147. Procedure SSS
  148.  Scroll 1
  149.  If Timer>650 and J<1 Then Locate 45,0 : Print "...GREETINGS....." : J=1
  150.  If Timer>1060 and J=1 Then Locate 45,0 : Print "..TO...TEX..." : J=2
  151.  If Timer>1370 and J=2 Then Locate 45,0 : Print "THE BLADE...MIG..." : J=3
  152.  If Timer>1780 and J=3 Then Locate 45,0 : Print ".AND...EVERYONE..." : J=4
  153.  If Timer>2190 and J=4 Then Locate 45,0 : Print ".ELSE...AT..." : J=5
  154.  If Timer>2515 and J=5 Then Locate 45,0 : Print "PREDATOR..BBS..." : J=6
  155.  If Timer>2910 and J=6 Then Locate 45,0 : Print "GRAPHICS...BY..." : J=7
  156.  If Timer>3300 and J=7 Then Locate 45,0 : Print "G.CROWE..." : J=8
  157.  If Timer>3535 and J=8 Then Locate 45,0 : Print "..MUSIC...ADAPTED." : J=9
  158.  If Timer>3960 and J=9 Then Locate 45,0 : Print "..BY...G.CROWE..." : J=10
  159.  If Timer>4370 and J=10 Then Locate 45,0 : Print "ALL...PROGRAMMING" : J=11
  160.  If Timer>4780 and J=11 Then Locate 45,0 : Print "...BY...G.CROWE." : J=12
  161.  If Timer>5170 and J=12 Then Locate 45,0 : Print "..USING..." : J=13
  162.  If Timer>5500 and J=13 Then Locate 45,0 : Pen 3 : Print "AMOS" : J=14
  163. End Proc