home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd228 / credit.amos / credit.amosSourceCode < prev    next >
AMOS Source Code  |  1991-01-29  |  7KB  |  207 lines
  1. '    CONTACT : 
  2. '
  3. '        PAUL HARTHEN
  4. '        43 BOYDS WALK 
  5. '        DUKINFIELD
  6. '        CHESHIRE
  7. '        SK16 4AX
  8. '
  9. '
  10. BEGIN
  11. MERLIN
  12. RSCROLL
  13. '
  14. Procedure BEGIN
  15.    Dir$="Robots2:"
  16.    Load "MUSIC/MUS4"
  17.    Led Off 
  18.    Volume 0
  19.    Music 1
  20.    For N=1 To 63 : Wait 2
  21.       Volume N
  22.    Next N
  23. End Proc
  24. '
  25. Procedure RSCROLL
  26.    Dim X$(32),Y(32)
  27.    SCNT=1
  28.    CNT=39
  29.    SC$="WHO IS THAT ?  YOU MIGHT ASK !    ITS   MERLIN ! ^  DRAWN BY ME {   WHY HAVE MERLIN IN THE CREDITS ?  WELL I JUST WANTED TO TRY AN INTERLACED SCREEN OUT ! "
  30.    SC$=SC$+"ALSO WATCH OUT FOR MERLIN IN ANOTHER DEMO BY US !   WHAT WILL THE DEMO BE CALLED ?   MERLIN OF COURSE !       "
  31.    SC$=SC$+"YOU MIGHT BE ASKING YOURSELF WHY THERE IS HARDLY ANYTHING ON THE SCREEN       THIS IS JUST THE CREDITS AND GREETS  SO I THINK ITS A BIT POINTLESS "
  32.    SC$=SC$+"WASTING VALUABLE DISK SPACE ON IT !  I THINK YOU WILL AGREE THAT YOU WOULD MUCH RATHER SEE THE PROPER DEMO THAN SPEND AGES LOOKING AT THE CREDS ! ! ! ! ! {   "
  33.    SC$=SC$+"NOW THATS OVER      BACK TO THE SCROLL ! ! ! ! !      "
  34.    SC$=SC$+"BY THE WAY    IF FRANCOIS LIONET IS READING THIS  THEN I THINK YOU HAVE DONE A GOOD JOB WITH THE INTERLACE SYSTEM    SEE MERLIN    NO FLICKER  !    WELL DONE ! ! ! ! !    "
  35.    SC$=SC$+"WELCOME TO THE END OF THE ROBOTS HQ DEMO  ^ WELL WHAT DO YOU THINK ?   NOT BAD EH !       "
  36.    SC$=SC$+"OK !   ^  HERES A REMINDER    IF YOU MISSED THE WELCOME DEMO YOU WILL HAVE MISSED AN IMPORTANT MESSAGE   "
  37.    SC$=SC$+"ROBOTS NOW HAS 2 MEMBERS !     WHO ?  ^   ME !     PAUL HARTHEN     {    ^THAT WAS ME !  AND IAN FAICHNIE     }    ^ YES ! THAT WAS HIM    "
  38.    SC$=SC$+"IAN WILL BE DOING MUSIC AND SOME GRAFIX SO WATCH OUT FOR SOME GREAT DEMOS BY US !      "
  39.    SC$=SC$+"RIGHT ! ^  ON WITH THE SCROLL !     WANT TO SEE SOME GREETS ?   WHAT DO YOU MEAN  NO !    TOUGH SHIT !  HERE THEY ARE  { }   "
  40.    SC$=SC$+"SANDRA AT AMOS PD { FRANCOIS LIONET } RICHARD VANNER { PETER HICKMAN } STEPHEN HILL   THANKS FOR A BRILLIANT MANUAL ! { PETER LEE } AARON AND ADAM AT SHADOW SOFTWARE { "
  41.    SC$=SC$+"EVERYONE AT DATABASE AND MANDARIN } NBS { PETE } TONY { SYNTEX    SOME GREAT STUFF ON THE ARMAGEDON DEMO } GLOBAL PD { LUCKY LADY } PATRIK HOLSTROM    GOOD GAME { SPADGE   RAINBOW WARRIOR IS A MUST FOR EVERYONE } "
  42.    SC$=SC$+"GARY SYMONS   AMOS ASSEMBLER IS PRETTY GOOD {    RIGHT ! ^   THATS IT FOR THE GREETS        MAKE CONTACT! ^    THE ADDRESS IS AT THE BEGINNING OF THIS PROGRAM LISTING    CREDIT AMOS  ITS CALLED       RIGHT PRESS THAT BUTTON TO GO BACK TO "
  43.    SC$=SC$+"THE MAIN SCREEN ! ! ! ! !   {  }  {  }  {  }  {  }       BYE !  ^           "
  44.    SC$=SC$+"PRESS THE MOUSE ! ! !    { }             ARE YOU DEAF !       WHAT ?  ^       IF YOU DONT PRESS THE BUTTON I WILL HAVE TO DO IT FOR YOU ! !                      "
  45.    SC$=SC$+"THIS IS YOUR LAST CHANCE TO PRESS THE RAT !          OK !   ^     YOU ASKED FOR IT ! ! ! ! !   +"
  46.    '
  47.    Screen Open 1,320,256,4,Lowres : Flash Off : Curs Off : Hide On : Get Icon Palette : Ink 0 : Paint 10,10
  48.    Palette ,,$A00
  49.    MBOW
  50.    Screen Open 0,400,Screen Height,Screen Colour,Lowres
  51.    Screen Display 0,120,40,,100
  52.    Def Scroll 1,1,0 To 400,80,-4,0
  53.    Curs Off 
  54.    Cls 0
  55.    Flash Off 
  56.    Screen Copy 1,0,0,39,79 To 1,200,0
  57.    Get Palette 1
  58.    SCRL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ!?2{} "
  59.    Gosub PIXD
  60.    Wait Vbl 
  61.    For R=16 To 31
  62.       Colour R,Colour(R-16)
  63.    Next R
  64.    Curs Off 
  65.    Screen Close 1
  66.    Channel 5 To Screen Display 0
  67.    L$="L: M 0,30,30; M 0,-30,30; J L"
  68.    Amal 5,L$
  69.    Amal On 
  70.    '
  71.    ROO:
  72.    Gosub STEXT : 
  73.    Wait Vbl 
  74.    Goto ROO
  75.    PIXD:
  76.    Restore SD
  77.    For F=1 To 32
  78.       Read X$(F),Y(F)
  79.    Next F
  80.    Return 
  81.    '
  82.    SD:
  83.    Data "A",1
  84.    Data "B",2
  85.    Data "C",3
  86.    Data "D",4
  87.    Data "E",5
  88.    Data "F",6
  89.    Data "G",7
  90.    Data "H",8
  91.    Data "I",9
  92.    Data "J",10
  93.    Data "K",11
  94.    Data "L",12
  95.    Data "M",13
  96.    Data "N",14
  97.    Data "O",15
  98.    Data "P",16
  99.    Data "Q",17
  100.    Data "R",18
  101.    Data "S",19
  102.    Data "T",20
  103.    Data "U",21
  104.    Data "V",22
  105.    Data "W",23
  106.    Data "X",24
  107.    Data "Y",25
  108.    Data "Z",26
  109.    Data "!",27
  110.    Data "?",28
  111.    Data "2",29
  112.    Data "{",30
  113.    Data "}",31
  114.    Data " ",32
  115.    Rem
  116.    Rem ********* SCROLL TEXT ROUTINE ********** 
  117.    STEXT:
  118.    Scroll 1
  119.    Add CNT,4
  120.    If CNT>39 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  121.    If Mid$(SC$,SCNT,1)="^" Then Wait 120 : Add SCNT,1,1 To Len(SC$)
  122.    If Mid$(SC$,SCNT,1)="+" Then Wait 10 : QUIT
  123.    If Mouse Key=1 Then QUIT
  124.    Return 
  125.    NCHAR:
  126.    E$=Mid$(SC$,SCNT,1)
  127.    E=Instr(SCRL$,E$)
  128.    Paste Icon 350,0,Y(E)
  129.    Return 
  130. End Proc
  131. '
  132. Procedure QUIT
  133.    Fade 5 : Wait 75 : Rainbow Del 0 : Screen Close 0
  134.    For A=63 To 0 Step -1
  135.       Volume A : Wait 2
  136.    Next A
  137.    Music Off : Erase 3
  138.    Volume 63
  139.    Run "AutoExec.Amos"
  140. End Proc
  141. '
  142. Procedure MBOW
  143.    Set Rainbow 0,1,280,"","",""
  144.    Rainbow 0,0,0,280
  145.    Colour Back 0
  146.    Restore RDATA
  147.    For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  148.    Next C : View 
  149.    RDATA:
  150.    Data $0,$0,$0,$0,$0,$0,$0,$0
  151.    Data $0,$0,$0,$0,$0,$100,$0,$200
  152.    Data $0,$300,$0,$400,$0,$500,$0,$600
  153.    Data $0,$700,$0,$800,$0,$900,$0,$A00
  154.    Data $0,$B00,$0,$C00,$0,$D00,$0,$F00
  155.    Data $0,$F00,$0,$F02,$0,$F04,$0,$F05
  156.    Data $0,$F06,$0,$F07,$0,$F08,$0,$F09
  157.    Data $0,$F0A,$0,$F0B,$0,$F0C,$0,$F0D
  158.    Data $0,$F0E,$0,$F0F,$0,$F0F,$0,$E0F
  159.    Data $0,$C0F,$0,$B0F,$0,$A0F,$0,$90F
  160.    Data $0,$80F,$0,$70F,$0,$60F,$0,$50F
  161.    Data $0,$40F,$0,$30F,$0,$20F,$0,$10F
  162.    Data $0,$10F,$0,$10F,$0,$12F,$0,$14F
  163.    Data $0,$15F,$0,$16F,$0,$17F,$0,$18F
  164.    Data $0,$19F,$0,$1AF,$0,$1BF,$0,$1CF
  165.    Data $0,$1DF,$0,$1EF,$0,$1FF,$0,$1FF
  166.    Data $0,$1FD,$0,$1FC,$0,$1FB,$0,$1FA
  167.    Data $0,$1F9,$0,$1F8,$0,$1F7,$0,$1F6
  168.    Data $0,$1F5,$0,$1F5,$0,$1F4,$0,$1F3
  169.    Data $0,$1F2,$0,$1F1,$0,$1F1,$0,$3F1
  170.    Data $0,$5F1,$0,$6F1,$0,$7F1,$0,$7F1
  171.    Data $0,$8F1,$0,$9F1,$0,$9F1,$0,$AF1
  172.    Data $0,$CF1,$0,$DF1,$0,$EF1,$0,$FF1
  173.    Data $0,$FD1,$0,$FC1,$0,$FA1,$0,$F91
  174.    Data $0,$F81,$0,$F71,$0,$F61,$0,$F51
  175.    Data $0,$F51,$0,$F31,$0,$F21,$0,$F11
  176.    Data $0,$F11,$0,$F11,$0,$F11,$0,$F11
  177.    Data $0,$D00,$0,$D00,$0,$C00,$0,$B00
  178.    Data $0,$A00,$0,$800,$0,$800,$0,$700
  179.    Data $0,$600,$0,$500,$0,$400,$0,$300
  180.    Data $0,$200,$0,$0,$0,$0,$0,$0
  181.    Data $0,$0,$0,$0,$0,$0,$0,$0
  182.    Data $0,$0,$0,$0,$0,$0,$0,$0
  183.    Data $0,$0,$0,$0,$0,$0,$0,$0
  184.    Data $0,$0,$0,$0,$0,$0,$0,$0
  185.    Data $0,$0,$0,$0,$0,$0,$0,$0
  186.    '
  187.    Channel 0 To Rainbow 0
  188.    Z$="L: F R0=0 T 280; L X=R0; N R0: J L"
  189.    Amal 0,Z$
  190.    Amal On 
  191. End Proc
  192. '
  193. Procedure MERLIN
  194.    Unpack 10 To 0
  195.    Screen Display 0,140,300,,400 : Hide On 
  196.    Channel 1 To Screen Display 0
  197.    M$="M 0,-195,50"
  198.    M2$="M 0,200,200"
  199.    Amal 1,M$
  200.    Amal On 
  201.    Wait 500
  202.    Amal Off 
  203.    Amal 1,M2$
  204.    Amal On 
  205.    Fade 10 : Wait 200
  206.    Screen Close 0
  207. End Proc