home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo5.AMOS / Demo5.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  2.1 KB  |  57 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Demo 5 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Load "LostInTime.abk",3
  9. Hide : Auto View Off : Screen Open 0,320,256,16,Lowres
  10. Flash Off : Curs Off : Paper 0 : Cls 
  11. Unpack 9 To 0
  12. Screen Hide 0
  13. Screen Open 1,320,88,8,Lowres
  14. Flash Off : Curs Off : Paper 0 : Cls 
  15. Screen Copy 0,0,168,320,250 To 1,6,0
  16. For A=0 To 7 : Colour A,0 : Next 
  17. Screen Display 1,,90,,
  18. Screen To Front 1 : Screen Open 2,320,25,16,Lowres
  19. Flash Off : Curs Off : Paper 0 : Cls 
  20. Get Palette 0 : Screen Display 2,,249,,
  21. Def Scroll 1,0,0 To 320,25,-4,0
  22. S$="HOTSOFT  c a PRbESENTS ANOTHER    FINE INdTROec!      GREETINGS GO TO "
  23. S$=S$+"ALL AMIGA FREAKS AND TO ALL MY FRIENDS!       THERE IS NOT MUCH "
  24. S$=S$+"TO SAY ABOUT THIS OOOOLLLLD INTRO, SO SEE YOU AT THE NEXT!"
  25. S$=S$+"      BYYYYEEEE!     "
  26. S$=S$+"UP ff UP ff     AND AWAY ff         "
  27. PI=32 : LS=Len(S$) : SY=-32 : Y=500
  28. Screen 2 : Music 1 : Tempo 17
  29. Set Rainbow 1,0,28,"","",""
  30. For A=0 To 27
  31.   Rain(1,A)=14-Abs(((A-13)*15)/27)*2
  32. Next 
  33. Rainbow 1,0,248,28
  34. View 
  35. S:
  36.   If PI>31 Then PI=0 : Add B,1,1 To LS : C=Asc(Mid$(S$,B,1))-32 : YY=C/10 : XX=(C-YY*10)*32 : YY=YY*28
  37.   Dec SS
  38.   If C>64 Then Gosub F : PI=32 : Goto S
  39.   If SCR Then Inc SCR
  40.   Wait Vbl 
  41.   If SS<0 Then Scroll 1 : Screen Copy 0,XX+PI,YY,XX+PI+4,YY+25 To 2,316,0 : Add PI,4
  42.   If SCR>100 Then Inc SY : Add Y,SY : Screen Display 1,,40+Y/10,, : View : If Y>1310 Then SY=-SY : Dec Y
  43.   If Mouse Key=1 Then Goto E
  44. Goto S
  45. E:
  46.   Screen Close 0 : Screen Close 1 : Screen Close 2 : Music Off 
  47.   Rainbow Del : View : Wait Vbl 
  48. End 
  49. F:
  50.   If C=68 Then Fade 1,0,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF : Return 
  51.   If C=69 Then Fade 2 To 0 : Return 
  52.   If C=70 Then Add SY,-20 : Return 
  53.   If C=66 and SCR=0 Then Screen 1 : Fade 2,0,$CEC,$AAA,$666,$8B8,$494,$272,$50 : Screen 2 : Inc SCR : Return 
  54.   If C=66 Then Return 
  55.   If C=65 and SCR=0 Then Screen 1 : Fade 1,0,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF : Screen 2
  56.   If C=67 Then SS=100
  57. Return