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