home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo12.AMOS / Demo12.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  1.8 KB  |  54 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *           Demo 12 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Dim S$(4),D(4,2)
  9. Screen Close 0 : Hide 
  10. Set Rainbow 1,1,162,"","",""
  11. For A=0 To 4
  12.   Repeat 
  13.     C1=Rnd(2)*7 : C2=Rnd(2)*7 : C3=Rnd(2)*7
  14.   Until Not((C1=C2 and C1=C3) or(C1=C2 and C1=C3))
  15.   R=Rnd(1)*2-1
  16.   For B=0 To 15
  17.     AD=R*B/2+1
  18.     Rain(1,A*32+B+1)=Max(Min(C1+AD,15),0)*$100+Max(Min(C2+AD,15),0)*$10+Max(Min(C3+AD,15),0)
  19.   Next 
  20. Next 
  21. Rainbow 1,0,49,162
  22. For A=0 To 4
  23.   Screen Open A+1,720,17,2,0
  24.   Curs Off : Palette 0,$FFF
  25.   Screen Display A+1,128,49+A*32,320,17
  26.   If A=0 Then S$(A)="  HELLO WORLD!  HERE IS HOTSOFT PRESENTING A FIVE SCROLLER DEMO!   ENJOY!     "
  27.   If A=1 Then S$(A)="   OH YEAH, THIS IS HOD ROD SPEAKING!     IT WAS A BIG PROBLEM TO MAKE THIS FIVE SCROLLERS NOT JERKING!     "
  28.   If A=2 Then S$(A)="    NORMAL GREETINGS TO ALL AMIGA FREAKS!     A BIG BOO TO ALL PC-USERS!      "
  29.   If A=3 Then S$(A)="     SPECIAL GREETINGS TO HANS-PETER, RALF, JARO, FLORIAN, CHRISTOPH, XAVER, WOLFGANG, ANDREAS, TOBIAS, HENDRIK, MICHAEL, MICHI AND TO ALL MEMBERS OF THE RAMSES COMPUTER CLUB!         "
  30.   If A=4 Then S$(A)="      SEE YA AT THE NEXT DEMO WITHOUT FIVE SCROLLERS!    BYYYYYEEEEE!         "
  31. Next 
  32. Auto View Off : Bob Update Off 
  33. No Icon Mask 
  34. Repeat 
  35.   For A=0 To 4
  36.     D(A,0)=(D(A,0)+A+2) mod 352 : Add D(A,1),A+2
  37.     If D(A,1)>15 Then Add D(A,1),-16 : Gosub NL
  38.     Screen Offset 1+A,D(A,0)+32,0
  39.   Next 
  40.   View : Wait Vbl 
  41. Until Mouse Key
  42. For A=0 To 4
  43.   Screen Close A+1
  44. Next 
  45. Rainbow Del : View 
  46. End 
  47. NL:
  48.   Screen A+1
  49.   Add D(A,2),1,1 To Len(S$(A))
  50.   B=Peek(Varptr(S$(A))+D(A,2)-1)-31
  51. '  B=Asc(Mid$(S$(A),D(A,2),1))-31
  52.   Paste Icon 352+D(A,0)-D(A,1),1,B+A*64
  53.   Paste Icon D(A,0)-D(A,1),1,B+A*64
  54. Return