home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2131.dms / in.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >
Encoding:
AMOS Source Code  |  1999-09-26  |  1.8 KB  |  70 lines
  1. Rem  "      This Program is (c)copyright 1991 Waynee 
  2. WAYNEE
  3. End 
  4. Procedure WAYNEE
  5. Screen Open 0,470,110,16,Hires
  6. Double Buffer : Flash Off : Curs Off : Hide On 
  7. Unpack 6 To 5 : Screen Hide 5 : Screen 0 : Get Palette 5
  8. Screen To Front 0 : Screen Hide 0
  9. Screen 0
  10. Cls 0 : Colour 8,$FFF
  11. Bob 4,0,21,1
  12. Bob 5,65,20,2
  13. Bob 6,118,20,3
  14. Bob 7,186,20,4
  15. Bob 8,250,20,5
  16. Bob 9,310,20,5
  17. Bob 10,255,50,6
  18. Bob 11,255,78,7
  19. Screen Display 0,170,30,,
  20. RemSet Rainbow 0,0,128,"","(2,1,8)(2,-1,8)","" 
  21. RemRainbow 0,0,0,255 
  22. For T=4 To 9
  23. Channel T To Bob T
  24. Amal T,"G:M0,-10,10;M0,10,10;P;JG"
  25. Next T
  26. For T=4 To 9 : Amal On T : Wait Vbl : Next 
  27. For T=10 To 15
  28. Channel T To Bob(T-6)
  29. Amal T,"G:M70,0,70;M-70,0,70;P;JG"
  30. Next 
  31. For T=9 To 15 : Amal On T : Wait 2 : Next 
  32. Screen Open 1,250,120,16,Lowres : Curs Off : Double Buffer : Cls 0 : Flash Off : Get Sprite Palette 
  33. Screen Display 1,190,135,, : Screen Hide 1
  34. Rem
  35. Rem Load music 
  36. Rem Start music
  37. No Mask 9
  38. Rem Load sprite images 
  39. Rem Fade in sprite palette 
  40. Rem AMAL program to animate sprite using the Vu function 
  41. A$=A$+"       AUtotest(Let R1=Vu(R0)*5/3; If R1=0 eXit else Direct Start)"
  42. A$=A$+"Start: Let R2=R1; Let X=R0*50; Let Y=RA-R1;P;"
  43. A$=A$+"       Move 0,R2,RB ;Wait10 ;"
  44. Rem set RA and RB to 100 and 25 repecitively 
  45. Amreg(0)=95 : Amreg(1)=25
  46. Rem Intailise bobs 
  47.    For N=0 To 3
  48.    Rem Position bob   
  49.    Bob N,N,Amreg(0),9
  50.    Rem Assign channel to bob
  51.    Channel N To Bob N
  52.    Rem Assign amal command to bob 
  53.    Amal N,"Let R0="+Str$(N)+A$
  54. Next N
  55. Amal On 
  56. Screen Show 0 : Wait 40 : Screen Show 1
  57. Music 1
  58. Screen Open 2,520,20,2,Lowres : Flash Off : Curs Off 
  59. Screen Display 2,165,260,,
  60. Print "Press left mouse button now!! "
  61. Repeat : Until Mouse Click=1
  62. Screen 1 : Fade 15
  63. For T=63 To 0 Step -4 : Volume T : Wait Vbl : Next 
  64. Screen 0 : Fade 8
  65. Screen 2 : Cls 0 : Screen 1 : Cls 0
  66. For T=1 To 2 : Screen Close T : Next 
  67. Music Off 
  68. Run "Sick.amos"
  69. End 
  70. End Proc