home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd272 / lineint / lineint.amosSourceCode < prev    next >
AMOS Source Code  |  1992-05-20  |  5KB  |  89 lines
  1. Screen Open 0,320,200,16,Lowres : Flash Off : Curs Off : Hide On : Cls 0
  2. Colour 1,$FFF : Get Sprite Palette : Double Buffer 
  3. For C=0 To 15 : Colour C,$0 : Next C
  4. Screen Hide 0 : Unpack 5 To 1 : Screen Hide 1 : Screen Display 1,130,310,320,80
  5. Screen 0 : SETUP_STARS : SETUP_ROCKS : SHIP_ANIM : CONTROL_ANIM
  6. Procedure SETUP_STARS
  7.    For B=0 To 47 : Channel B To Bob B : Bob B,150,100,20 : Next B : Synchro Off 
  8.    Amal 0,"L: M -10,100,110 J L" : Amal 1,"L: M 100,200,120 J L"
  9.    Amal 2,"L: M 200,-100,150 J L" : Amal 3,"L: M -50,-200,120 J L"
  10.    Amal 4,"L: M -200,200,120 J L" : Amal 5,"L: M 150,100,110 J L"
  11.    Amal 6,"L: M -150,-200,130 J L" : Amal 7,"L: M 50,-200,160 J L"
  12.    Amal 8,"L: M 150,-150,150 J L" : Amal 9,"L: M -200,30,140 J L"
  13.    Amal 10,"L: M -100,200,170 J L" : Amal 11,"L: M 10,150,130 J L"
  14.    Amal 12,"L: M -100,-200,120 J L" : Amal 13,"L: M 200,-30,90 J L"
  15.    Amal 14,"L: M -200,-30,100  J L" : Amal 15,"L: M -200,-60,130 J L"
  16.    Amal 16,"L: M -10,100,90 J L" : Amal 17,"L: M 100,200,100 J L"
  17.    Amal 18,"L: M 200,-100,130 J L" : Amal 19,"L: M -50,-200,100 J L"
  18.    Amal 20,"L: M -200,200,100 J L" : Amal 21,"L: M 150,100,90 J L"
  19.    Amal 22,"L: M -150,-200,110 J L" : Amal 23,"L: M 50,-200,140 J L"
  20.    Amal 24,"L: M 150,-150,130 J L" : Amal 25,"L: M -200,30,120 J L"
  21.    Amal 26,"L: M -100,200,150 J L" : Amal 27,"L: M 10,150,110 J L"
  22.    Amal 28,"L: M -100,-200,100 J L" : Amal 29,"L: M 200,-30,70 J L"
  23.    Amal 30,"L: M -200,-30,80  J L" : Amal 31,"L: M -200,-60,110 J L"
  24.    Amal 32,"L: M -10,100,70 J L" : Amal 33,"L: M 100,200,80 J L"
  25.    Amal 34,"L: M 200,-100,110 J L" : Amal 35,"L: M -50,-200,80 J L"
  26.    Amal 36,"L: M -200,200,80 J L" : Amal 37,"L: M 150,100,70 J L"
  27.    Amal 38,"L: M -150,-200,90 J L" : Amal 39,"L: M 50,-200,120 J L"
  28.    Amal 40,"L: M 150,-150,110 J L" : Amal 41,"L: M -200,30,100 J L"
  29.    Amal 42,"L: M -100,200,130 J L" : Amal 43,"L: M 10,150,90 J L"
  30.    Amal 44,"L: M -100,-200,80 J L" : Amal 45,"L: M 200,-30,50 J L"
  31.    Amal 46,"L: M -200,-30,60  J L" : Amal 47,"L: M -200,-60,90 J L"
  32.    '
  33. End Proc
  34. Procedure SETUP_ROCKS
  35.    AN$="A 0,(21,3)(22,3)(23,3)(24,3)(25,3)(26,3)(27,3)(28,3)(29,3)(30,3)(31,3)(32,3)(33,3)(34,3)(35,3)(36,3)(37,3)(38,1)(37,3)(36,3)(35,3)(34,3)(33,3)(32,3)(31,3)(30,3)(29,3)(28,3)(27,3)(26,3)(25,3)(24,3)(23,3)(22,3)(21,3)(39,3)"
  36.    Bob 48,50,50,14 : Bob 49,250,10,14 : Bob 50,160,100,14 : Bob 51,50,150,14
  37.    Bob 52,260,100,14 : Bob 53,170,190,14
  38.    For ROCK=48 To 50 : Channel ROCK To Bob ROCK : Amal ROCK,AN$ : Next ROCK
  39.    For ROCK=51 To 53 : Channel ROCK To Bob ROCK : Amal ROCK,AN$ : Next ROCK
  40. End Proc
  41. Procedure SHIP_ANIM
  42.    A$="L: A 1,(13,3)(12,3)(11,3)(10,3)(9,3)(8,3) ;"
  43.    A$=A$+"M -80,80,40 A 1,(9,3)(10,3)(11,3)(12,3)(13,3)(1,3)(2,3)(3,3)(4,3)(5,3) ;"
  44.    A$=A$+"M 200,0,100 A 1,(4,3)(3,3)(2,3)(1,3)(13,3)(12,3) ;"
  45.    A$=A$+"M -100,-100,50 P A 1,(11,3)(10,3) ;"
  46.    A$=A$+"M -100,0,50 A 1,(10,3)(11,3)(12,3)(13,3)(1,3)(2,3)(3,3)(4,3)(5,3)(6,3)(7,3)"
  47.    A$=A$+"M 0,0,200 M 100,100,50 A 1,(5,3)(4,3)(3,3)(2,3)(1,3)"
  48.    A$=A$+"M 0,0,200 M 0,-100,50 J L"
  49.    Channel 54 To Bob 54 : Bob 54,140,90,1 : Amal 54,A$
  50. End Proc
  51. Procedure CONTROL_ANIM
  52.    Dim MSG$(7)
  53.    For A=48 To 53 : Amal On A : Synchro On : Wait 10 : Next A
  54.    For A=0 To 47 : Amal On A : Synchro On : Wait Vbl : Next A
  55.    Amal On 54 : Screen Show 0 : TIME=0 : Fade 4 To -1
  56.    Repeat 
  57.       For B=0 To 47
  58.          X=X Bob(B)
  59.          Y=Y Bob(B)
  60.          If X>300 or X<5 or Y>190 or Y<5 : Bob B,150,100,20 : End If 
  61.          If I Bob(48)=39 Then Bob 48,Rnd(320),Rnd(200),21
  62.          If I Bob(49)=39 Then Bob 49,Rnd(320),Rnd(200),21
  63.          If I Bob(50)=39 Then Bob 50,Rnd(320),Rnd(200),21
  64.          If I Bob(51)=39 Then Bob 51,Rnd(320),Rnd(200),21
  65.          If I Bob(52)=39 Then Bob 52,Rnd(320),Rnd(200),21
  66.          If I Bob(53)=39 Then Bob 53,Rnd(320),Rnd(200),21
  67.          Wait Vbl : Synchro On 
  68.       Next B
  69.       Inc TIME
  70.    Until TIME=2
  71.    For B=48 To 53 : Bob Off B : Wait 5 : Next B
  72.    Repeat : Until I Bob(54)=1
  73.    Amal Off 54
  74.    For A=0 To 47 : Amal Off A : Next A
  75.    Synchro On : Channel 0 To Bob 54
  76.    Amal 0,"A 1,(14,3)(15,3)(16,3)(17,3)(18,3)(19,3)(39,3)" : Amal On 0
  77.    Screen Show 1 : Screen To Front 1 : Channel 1 To Screen Display 1
  78.    Amal 1,"M 0,-100,100" : Amal On 1
  79.    Repeat : Until Chanmv(1)=False : Bob Off 54
  80.    CREDS:
  81.    MSG$(0)=".. Credits .." : MSG$(1)=".. Game Intro .."
  82.    MSG$(2)="Code ... Dug" : MSG$(3)="Gfx .... Dug"
  83.    MSG$(4)=".. Line Game 2 .." : MSG$(5)="Code ... Dug"
  84.    MSG$(6)="Gfx .... Dug" : MSG$(7)="Fire Button To Continue"
  85.    Y=5
  86.    For M=0 To 7 : Paper 0 : Locate ,Y : Centre MSG$(M) : Y=Y+2 : Next M
  87.    Repeat : Until Fire(1) or Fire(0)
  88.    Screen 1 : Fade 3 : Wait 45 : Screen 0 : Fade 3 : Wait 45 : Screen Close 0 : Screen Close 1
  89. End Proc