home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / DEMONS-Positron.DMS / DEMONS-Positron.adf / Autoexec.AMOS / Autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1990-09-27  |  7.2 KB  |  307 lines
  1. '----------------------------------
  2. '----------------------------------
  3. '-------  P O S I T R O N ---------
  4. '---------- TECH  INTRO -----------
  5. '------------- V 1.0 --------------
  6. '---- By BLUE MAX of DEMONS -------
  7. '----------------------------------
  8. '----------------------------------
  9. Hide 
  10. Load "df0:Positron.abk",2
  11. Get Disc Fonts 
  12. Screen Open 0,320,200,32,Lowres
  13. Curs Off : Flash Off : Cls 0
  14. Screen Open 1,320,256,32,Lowres
  15. Curs Off : Flash Off : Cls 0
  16. Screen Hide 0
  17. POSITRON
  18. Screen Close 0
  19. Screen Close 1
  20. Erase 2
  21. Procedure POSITRON
  22. Unpack 2 To 0
  23. Screen To Front 1
  24. Screen 1
  25.  For I=4 To 31 : Colour I,$A3A : Next 
  26. Colour 2,$AAA : Colour 1,$A40
  27. Screen 0 : Get Palette 1 : Screen 1
  28. TET
  29. Screen 1 : Cls 0
  30. For I=0 To 31 : Colour I,$0 : Next I
  31. Colour 2,$AAA : Colour 1,$A40
  32. Wait 5
  33. Screen Copy 0,0,0,70,80 To 1,0,80
  34. For I=3 To 31 : Colour I,$0 : Next I
  35. Wait 15
  36. Screen Copy 0,0,0,320,80 To 1,0,80
  37. Fade 5 To 0 : Wait 5*15
  38. For I=3 To 31 : Colour I,$A3A : Next I
  39. Colour 2,$AAA : Colour 1,$A40
  40. Wait 50
  41.  For I=4 To 30 : Colour I,$A3A : Next : Colour 30,$FFF : Colour 31,$FAF
  42. Shift Down 4,4,31,1
  43. Wait 106
  44. Shift Off : For I=4 To 31 : Colour I,$A3A : Next I
  45. Bell 
  46. Fade 2,,$FFF,$FFF
  47. Wait 2*15
  48. Fade 2,,$A40,$AAA
  49. Wait 100
  50. End Proc
  51. Procedure TET
  52. Data "A new label is Born"
  53. Data "Under  the   famous"
  54. Data "DEMONS french group"
  55. Data "We  are  now  ready"
  56. Data "To reach  the  best"
  57. Data "Prepare  you for  a"
  58. Data "Funtastic   amazing"
  59. Data "Trip  in  our World"
  60. Data "$"
  61. Colour 31,$1D1
  62. Y=50 : X=30
  63. For J=1 To 10
  64. Ink 31
  65. Bar 30+T*8,Y-8 To 30+T*8+8,Y
  66. Wait 4
  67. Ink 0
  68. Bar 30+T*8,Y-8 To 30+T*8+8,Y
  69. Wait 4
  70. Next J
  71. For Y=50 To 150 Step 10
  72. Read A$
  73. If A$="$" Then Goto SUITE
  74. L=Len(A$)
  75. Ink 31,0
  76. For X=30 To 50+L*8 Step 8
  77. Inc T
  78. Text X,Y,Mid$(A$,T,1)
  79. Ink 31
  80. Bar 30+T*8,Y-8 To 30+T*8+8,Y
  81. Wait 5
  82. Ink 0
  83. Bar 30+T*8,Y-8 To 30+T*8+8,Y
  84. Ink 31
  85. Next X
  86. For J=1 To 10
  87. Ink 31
  88. Bar 30+T*8,Y-8 To 30+T*8+8,Y
  89. Wait 4
  90. Ink 0
  91. Bar 30+T*8,Y-8 To 30+T*8+8,Y
  92. Wait 4
  93. Next J
  94. T=0
  95. Next Y
  96. SUITE:
  97. Wait 50
  98. Fade 5 : Wait 5*15 : Cls 0
  99. Screen 1
  100. End Proc
  101. '--------------------------------------------
  102. '--------------------------------------------
  103. '- S L I D E  S H O W  v1.0 -----------------  
  104. '- Amos programming By BLUE Max of DEMONS ---
  105. '-  -> A POSITRON PRODUCTION <- -------------
  106. '--------------------------------------------
  107. '--------------------------------------------
  108. For J=0 To 1
  109.    Screen Open J,640,256,16,Hires
  110.    Curs Off : Flash Off : Cls 0
  111. Next J
  112. Dim C(16)
  113. Global C()
  114. '---------------------- INTRO
  115. CLP
  116. INIT
  117. ITN
  118. Procedure CLP
  119. Screen Open 2,320,200,32,Lowres
  120. Curs Off : Flash Off 
  121. Cls 0 : Colour 24,$FFF : Colour 25,$AAA : Colour 26,$555
  122. Screen Open 3,320,200,32,Lowres : Curs Off : Flash Off : Cls 0
  123. Screen Hide 3
  124. Hide 
  125. Screen To Front 2
  126. Screen 2
  127. Data $C02,$A04,$806,$608,$40A,$20C,$E
  128. Data $2E,$4C,$6A,$88,$A6,$D4,$E2,$E0
  129. Data $2E0,$4C0,$6A0,$880,$A60,$C40,$E20,$E00
  130. Data $A00
  131. For C=1 To 23
  132.    Read A
  133.    Colour C,A
  134.    Ink C,0
  135.    Inc X
  136.    Draw 2+X*13-13,70 To 2+X*13+13,70
  137.    Draw 2+X*13-13,150 To 2+X*13+13,150
  138. Next C
  139. Shift Up 4,1,23,1
  140. Screen 3
  141. Pen 24 : Paper 0
  142. End Proc
  143. Procedure ITN
  144. Led Off 
  145. Set Font 1
  146. Sam Loop On 
  147. Sam Play 1,1
  148. Do 
  149.    Data "In this end of Year 1990","%","Presents you","a new Great production from","$"
  150.    Data "- The Japaness Sexy Folies -"
  151.    Data "A slide Show Programing with AMOS","All ArtWork by","- Blue Max -"
  152.    Data "Pictures digitalised","from MSX 2 !","In 640 / 256 * 16 colors"
  153.    Data "Hope you will enjoy !","PLease Look out for","Our Best products"
  154.    Data "FANTASY SPACE slide Show 1 & 2","Are now available","Ask for them","to your Demoniac Dealer"
  155.    Data "My next production","Available current January 1991"
  156.    Data "Will be a FunTastic","Infinity Bobs Demo","Programming in AMOS !!"
  157.    Data "For the Moment...","Enjoy this Cool Product","Realise date : 11/12/90"
  158.    Data "Greeting to all Amiga Freaks","*"
  159.    RD:
  160.    Read A$ : If A$="$" Then LG1 : Goto RD
  161.    If A$="%" Then LG2 : Goto RD
  162.    If A$="*" Then SLIDE
  163.    L=Len(A$)
  164.    LS=L*9
  165.    Screen 3
  166.    Ink 0 : Bar 0,160 To 320,200
  167.    Ink 24,0
  168.    Text 1,180,A$
  169.    CK=1
  170.    For X=0 To 320
  171.       For Y=171 To 181
  172.       If Mouse Key<>0 Then SLIDE
  173.          A=Point(X,Y)
  174.          If A=24 Then Ink CK : Plot X,Y : Add L,1,0 To 4 : If L=2 Then Add CK,1,1 To 23
  175.       Next Y
  176.    Next X
  177.    Screen 2
  178.    For D=0 To 10
  179.       Screen Copy 3,0,D+171,320,D+172 To 2,0,100+D
  180.       For C=1 To(320-LS)/2
  181.    If Mouse Key<>0 Then SLIDE
  182.          Screen Copy 2,0,100+D,320,100+D+1 To 2,1,100+D
  183.       Next C
  184.    Next D
  185.    Exit If Mouse Key
  186. Loop 
  187. SLIDE
  188. End Proc
  189. Procedure INIT
  190.    Screen 2 : Ink 24,0 : Text 105,106,"DECRUNCHING"
  191.    Screen Hide 3 : Unpack 1 To 3 : Screen To Front 2 : Screen Hide 3
  192.    For X=0 To 320
  193.       For Y=37 To 72
  194.          A=Point(X,Y)
  195.          If A=25 Then Ink CK : Plot X,Y : Add L,1,0 To 4 : If L=2 Then Add CK,1,1 To 23
  196.       Next Y
  197.    Next X
  198. End Proc
  199. Procedure LG1
  200.    Wait 250
  201.    Screen 2 : Ink 0 : Bar 0,71 To 320,149 : Colour 26,$555
  202.    For I=0 To 37
  203.       Screen Copy 3,0,I,264,I+1 To 2,25,90+I
  204.       Wait Vbl 
  205.    Next I
  206.    Wait 50
  207.    For I=90 To 90+37
  208.       For X=1 To 90
  209.          Screen Copy 2,0,I,320,I+1 To 2,4,I
  210.       Next X
  211.    Next I
  212. End Proc
  213. Procedure LG2
  214.    Wait 250
  215.    Screen 2 : Ink 0 : Bar 0,71 To 320,149 : Colour 26,$AAA
  216.    For I=37 To 72
  217.       Screen Copy 3,0,I,264,I+1 To 2,75,50+I
  218.       Wait Vbl 
  219.    Next I
  220.    Wait 150
  221.    For I=85 To 90+32
  222.       For X=1 To 90
  223.          Screen Copy 2,0,I,320,I+1 To 2,4,I
  224.       Next X
  225.    Next I
  226. End Proc
  227. Procedure SLIDE
  228. Sam Play 1,2
  229. Shift Off 
  230. Screen 2 : Cls 0 : Screen 3 : Cls 0
  231. Screen Close 2 : Screen Close 3
  232. '----------------------PP
  233. A$="df0:PeachUp"
  234. Do 
  235. For L=1 To 13
  236.    N$=A$+Mid$(Str$(L),2,2)+".Abk"
  237.    Load N$,1
  238.    SPECIAL
  239.    EFFACE
  240.    Screen Hide 0
  241.    Unpack 1 To 0
  242.    Screen To Front 1
  243.    Screen 0
  244.    For I=0 To 15
  245.       C(I)=Colour(I)
  246.       Colour I,$FFF
  247.    Next I
  248.    Screen 1
  249.    AFFICHE
  250. Sam Play 1,2
  251.    Wait 200
  252. Next L
  253. SPECIAL
  254. AUTRE
  255. Loop 
  256. End Proc
  257. Procedure AFFICHE
  258. Sam Play 1,4
  259.    Screen Copy 0,0,0,640,256 To 1,0,0
  260.    Fade 7,C(0),C(1),C(2),C(3),C(4),C(5),C(6),C(7),C(8),C(9),C(10),C(11),C(12),C(13),C(14),C(15)
  261.    Wait 10*15
  262. End Proc
  263. Procedure EFFACE
  264. Sam Play 1,3
  265.    Fade 5,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  266.    Wait 5*15
  267.    Cls 0
  268. End Proc
  269. Procedure SPECIAL
  270.    For I=7 To 1 Step -1
  271.       Screen Open 2,640,I*32,16,Hires : Curs Off : Flash Off : Get Palette 1
  272.       Screen To Front 1
  273.       Screen Display 2,128,42,640,I*32
  274.       Screen Copy 1,0,0,640,256 To 2,0,0
  275.       Screen To Front 2
  276.       Screen 1
  277.       Fade 3
  278.       Wait 3*15
  279.       Ink 0 : Bar 0,I*32 To 640,256
  280.       Get Palette 2
  281.       Screen Close 2
  282.    Next I
  283.    Fade 3
  284.    Wait 3*15
  285. End Proc
  286. Procedure AUTRE
  287. Sam Play 1,1
  288. Screen 0
  289. Cls 0 : Pen 5 : Paper 0
  290. Locate 0,1 : Centre "Nous remercions toute l'equipe Technique"
  291. Locate 0,2 : Centre "John Jack pour la Video"
  292. Locate 0,4 : Centre "Scott pour la prise de son"
  293. Locate 0,6 : Centre "Blue Max pour l'animation"
  294. Locate 0,8 : Centre "Le chat MiaOU pour son Moral Support"
  295. Locate 0,10 : Centre " ---"
  296. Locate 0,12 : Centre "TECHNIQUE :"
  297. Locate 0,14 : Centre "Images 640/256 16 Couleurs"
  298. Locate 0,16 : Centre "Digitalisees sur MSX2 avec "
  299. Locate 0,18 : Centre "Un digiview 4.0"
  300. Locate 0,20 : Centre "Un filtre DG88"
  301. Locate 0,22 : Centre "Un MSX2 Philips"
  302. Locate 0,24 : Centre "Un Amiga 500 "
  303. Locate 0,26 : Centre "---"
  304. Locate 0,28 : Centre "Demons/Positron"
  305. Screen To Front 0
  306. Wait 400
  307. End Proc