home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1056.dms / 1056.adf / BP_Intro.AMOS / BP_Intro.amosSourceCode
AMOS Source Code  |  2006-04-09  |  4KB  |  191 lines
  1. Dir$="BattlePong:"
  2. '
  3. Led Off 
  4. Hide On 
  5. '
  6. Dim BREITE(61)
  7. '
  8. INITTEXT
  9. '
  10. Screen Open 0,320,256,16,Lowres
  11. Curs Off : Flash Off 
  12. 'Load "BP_Sprites2.abk"
  13. Load "Intro_Samples.abk"
  14. Load "BP_Titel.pck",10
  15. Load "BP_Song.abk"
  16. Load "Scrollfont.pck",11
  17. Load Iff "Introfont.pic"
  18. '
  19. Screen Open 1,320,256,2,Lowres
  20. Curs Off : Flash Off 
  21. '
  22. Get Palette(0)
  23. Def Scroll 1,0,104 To 319,256,0,-25
  24. '
  25. Sam Loop On 
  26. Sam Play 2,1,8000
  27. '
  28. ' --- Weave World ---
  29.    For I=1 To 5
  30.       VERLAUF : Wait 30
  31.       Fade 3 : Wait 45
  32.       Cls 0 : Get Palette(0)
  33.    Next I
  34. '
  35. ' --- Titel Screen --- 
  36. Screen 0
  37. Unpack 10
  38. For I=0 To 15 : Colour I,0 : Next I
  39. Screen Close 1
  40. Screen Open 1,384,70,8,Lowres
  41. Screen Display 1,130,306,320,17
  42. Curs Off : Flash Off 
  43. Palette $0,$FFF,$FFF,$8CE,$49E,$FD3,$F82,$F20
  44. Cls 0
  45. Unpack 11,0,20
  46. '
  47. Set Rainbow 0,1,20,"","",""
  48. RABOW
  49. '
  50. Screen 0
  51. Fade 5,$0,$FFF,$BDD,$8BB,$699,$477,$255,$FE6,$88,$5AA,$F20,$C10,$900,$7AF,$47D,$14C
  52. Sam Loop Off 
  53. Music 1
  54. '
  55. Goto W
  56. Wait 75
  57. Double Buffer 
  58. Bob 1,210,150,1
  59. Channel 1 To Bob 1
  60. A$="For R0=1 To 57 ; P ; Let A=R0 ; Next R0"
  61. Amal 1,A$
  62. Amal On 1
  63. Wait 120
  64. W:
  65. '
  66. TXTREIN
  67. '
  68. Screen 1
  69. Def Scroll 1,0,0 To 383,17,-2,0
  70. '
  71. CNT=1 : HALT=0 : H=0
  72. Gosub PRNTTEXT
  73. Repeat 
  74.    If HALT=0
  75.       Scroll 1
  76.       XS=XS+2
  77.       If XS=>BREITE(NR)+3
  78.          Gosub PRNTTEXT
  79.       End If 
  80.    Else 
  81.       Inc H
  82.       If H=100
  83.          H=0 : HALT=0
  84.       End If 
  85.    End If 
  86.    Wait Vbl 
  87. Until Fire(0)<>0 or Fire(1)<>0
  88. '
  89. TXTRAUS
  90. Screen Close 1
  91. Screen 0
  92. Fade 4
  93. SOUNDAUS
  94. Screen Close 0
  95. Erase 1
  96. Erase 3
  97. Erase 5
  98. Erase 10
  99. Erase 11
  100. Run "BattlePong.AMOS"
  101. End 
  102. '
  103. PRNTTEXT:
  104.    B$=Mid$(T$,CNT,1)
  105.    If B$="^" Then CNT=1 : Goto PRNTTEXT
  106.    If B$="�" Then HALT=-1 : Inc CNT : XS=0 : Return 
  107.    NR=Instr(ABC$,B$)
  108.    Y=1
  109.    If NR<21 Then Y=0
  110.    If NR>40 Then Y=2
  111.    X=((NR-Y*20)-1)*16-1 : Y=Y*17
  112.    Screen Copy 1,X,Y+19,X+BREITE(NR)+1,Y+36 To 1,320,0
  113.    Inc CNT : XS=0
  114.    Return 
  115. '
  116. Procedure VERLAUF
  117.    Curs Off 
  118.    A=128 : Rem bottom line of image   
  119.    B=0 : Rem top line of image
  120.    C=0 : Rem line where image drops from  
  121.    D=B : Rem temp variable
  122.    Screen To Front 1 : Screen 0
  123.    While B+102<>A
  124.       Screen Copy 0,0,A,320,A+1 To 1,0,C
  125.       Inc C
  126.       Inc D
  127.       If D=A+3
  128.          Dec A
  129.          C=0
  130.          D=0
  131.       End If 
  132.    Wend 
  133.    Scroll 1
  134.    Screen 1
  135. End Proc
  136. Procedure SOUNDAUS
  137.    For S=63 To 0 Step -1
  138.       Mvolume S
  139.       Wait Vbl 
  140.    Next S
  141. End Proc
  142. Procedure TXTREIN
  143.    For I=306 To 275 Step -1
  144.       Screen Display 1,130,I,,
  145.       Rainbow 0,0,I-1,20
  146.       Wait 2
  147.    Next I
  148. End Proc
  149. Procedure TXTRAUS
  150.    For I=275 To 306
  151.       Screen Display 1,130,I,,
  152.       Rainbow 0,0,I-1,20
  153.       Wait 2
  154.    Next I
  155. End Proc
  156. Procedure INITTEXT
  157.    Shared T$,BREITE(),ABC$
  158.    ABC$="ABCDEFGHIJKLMNOPQRSTUVWXYZ�1234567890!"+Chr$(34)+"&/()?.,:;��##$###%### ï¿½"
  159.    For I=1 To 61
  160.       Read BREITE(I)
  161.    Next I
  162.    Data 15,10,12,12,9,9,11,10,2,7,9,7
  163.    Data 12,10,13,9,13,9,9,10,9,15,15,13
  164.    Data 10,11,10,7,10,10,13,11,11,11
  165.    Data 11,11,12,2,6,14,8,9,4,8
  166.    Data 2,2,2,2,15,47,0,0,60,0,0,0,57,0,0,0,8
  167.    T$=Upper$("Battle Pong !!!      ï¿½written in       $ by %.      ï¿½    Coded by      Thorsten Hansen.    ï¿½")
  168.    T$=T$+Upper$("Graphics by      Thorsten Hansen.    ï¿½Sound FX and Music by")
  169.    T$=T$+Upper$("        Stefan Zilz.       ï¿½Concept by Thorsten Hansen and Stefan ")
  170.    T$=T$+Upper$("Zilz.")
  171.    T$=T$+Upper$("                            ")
  172.    T$=T$+Upper$("Thanks to Gary Shilvock for Weave World.")
  173.    T$=T$+Upper$("                            ")
  174.    T$=T$+Upper$("Greetings to: Starcruiser, Matthias Kamenz, Stefan Harms and ")
  175.    T$=T$+Upper$("all the other Amos users out there.")
  176.    T$=T$+Upper$("                            ")
  177.    T$=T$+Upper$("P.S.:          Hi ï¿½,          ï¿½ please excuse our little joke.")
  178.    T$=T$+Upper$("                            ^")
  179. End Proc
  180. Procedure RABOW
  181.    Colour Back 0
  182.    Restore RDATA
  183.    For C=0 To 19
  184.       Read CVA : Rain(0,C)=CVA
  185.    Next C
  186.    View 
  187.    RDATA:
  188.    Data $FFF,$CEE,$ACC,$8BB,$6AA,$499,$388,$166
  189.    Data $155,$44,$FFA,$FE9,$FD7,$EB5,$E94
  190.    Data $E82,$B61,$B40,$0,$0
  191. End Proc