17 Bit Software 4: Phase Four/17Bit_Phase_Four.iso/files/3082a.dms/3082a.adf/animation.AMOS/animation.amosSourceCode

AMOS Source Code | 1992-09-02 | 13.6 KB | 523 lines

Screen Open 0,320,256,16,Lowres : Cls 0 : Curs Off
NN=25 : Dim X(NN),Y(NN),XX(NN),YY(NN),BC(NN),TXT$(242)
Global VOL,ES,NN,X(),Y(),XX(),YY(),BC(),W,TXT$()
Cls 0
'
' Oi ! I don't mind you reading this , but it would be a
' lot easier to figure out what I'm talking about in
' this program if you sent off for the Explained Source code !
'
' The Address is in the instructions or if you're lazy it's
' also in  - Procedure INFO - down about 11 lines from here .
'
'
S=Sin(30)
STARSET
Sam Loop On
TAM
Proc INFO
Procedure _END
   Fade 2 : Wait 30
   Screen Open 0,320,256,16,Lowres : Cls 0 : Flash Off
   Goto 70
   For N=5 To 0 Step -1
      Volume N
      W=5 : _WAIT
   Next N
   Sam Loop Off
   Show On
   Wait 90
   Volume 63
   RLOAD
   '   Run "ant_war2:code/barebones.amos"
End Proc
Procedure TAM
   Screen Open 0,320,256,16,Lowres
   'Goto 70
   Load "Ant_War1:graphics/titleanimbobs.abk"
   '
   Curs Off
   Cls 0 : Hide
   Get Sprite Palette
   '
   Double Buffer
   '
   Sam Play 1
   Unpack 7 To 0 : Wait Vbl : W=100 : Proc _WAIT
   _W=100 : _WAIT
   Fade 2 : W=2*15 : _WAIT
   '
   Unpack 8 To 0
   Bob 0,125,35,1 : Wait Vbl
   W=50 : _WAIT
   Bob 0,104,42,2 : Wait Vbl
   W=180 : _WAIT
   '
   Fade 2 : W=5*15 : _WAIT
   '
   Sam Play 2
   Unpack 9 To 0
   Double Buffer
   Bob 0,100,50,4
   '
   A$="Anim 0,(3,10)(4,10)(5,10)(3,10)(4,10)(3,10)"
   Channel 0 To Bob 0
   Amal 0,A$
   Amal On 0
   '
   Bob 1,120,170,7
   '
   Channel 2 To Bob 2
   Bob 2,220,130,6
   A$="Move -40,-10,90"
   Amal 2,A$
   Amal On 2
   W=100 : _WAIT
   '
   A$="Move -20,-40,110"
   Amal 2,A$
   Amal On 2
   W=100 : _WAIT
   '
   A$="Move -32,5,100"
   Amal 2,A$
   Amal On 2
   W=100 : _WAIT
   '
   Bob Off 1 : Wait Vbl
   Paste Bob 135,170,8 : Wait Vbl
   '
   Bob Off 2
   Wait Vbl
   Paste Bob 130,91,6
   Wait Vbl
   '
   Ink 12 : Box 138,100 To 180,137
   Ink 1 : Box 139,101 To 179,136
   Ink 12 : Box 140,102 To 178,135
   For N=3 To 1 Step -1
      Ink 12 : Circle 160,120,13*N : Ink 1 : Circle 160,120,(13*N)-1
      W=15*N : _WAIT
   Next N
   Fade 2 : Wait 30
   70
   Screen Open 1,320,100,16,Lowres : Cls 0 : Curs Off
   Unpack 6 To 1
   Screen Display 1,130,180,320,100
   Screen Close 0
   Screen To Front 1 : Wait Vbl
   Wait 50
   Load "Ant_War1:graphics/titlebobs.abk"
   80
   Screen Open 0,320,256,16,Lowres : Screen 0 : Curs Off : Cls 0 : Flash Off
   Screen To Front 1 : Wait Vbl
   Get Sprite Palette
   Limit Mouse 0,0 To 320,256
   Double Buffer
   Wait Vbl
   If VOL=5 Then Goto 90
   Bob 0,15,100,1
   Bob 1,150,100,2
   Bob 2,70,23,3
   For N=63 To 5 Step -1
      Volume N : VOL=N
      Wait 3
   Next N
   Screen 1 : Fade 3 : Wait 45
   Screen Close 1
   90
   Bob 0,15,100,1
   Bob 1,150,100,2
   Bob 2,70,23,3
   Bob 3,110,140,4
   Bob 4,64,200,5
   Ink 1
   Show On
   Limit Mouse
   Reserve Zone 2
   Set Zone 1,117,143 To 203,183
   Set Zone 2,78,203 To 243,244
   Do
      If Mouse Zone=1 and Mouse Key=1 Then RLOAD
      If Mouse Zone=2 and Mouse Key=1 Then INFO
   Loop
   Fade 5 : Wait 5*15
End Proc
Procedure INFO
   Screen Open 0,320,256,2,Lowres
   Bob Off : Cls 0 : Flash Off : Curs Off
   Rainbow Del
   Curs Off : Flash Off
   Restore
   Colour 1,$55E
   For N=1 To 242
      Read A$
      TXT$(N)=A$
   Next N
   CL=2 : PG=0 : PP=0
   Repeat
      Pen 1 : Paper 0
      HOP:
      Do
         Centre TXT$(CL)
         CL=CL+1
         If CL=243 Then Screen Open 0,320,256,16,Lowres : Flash Off : Get Sprite Palette : Curs Off : Cls 0 : Goto 90 : Rem * Hello Intrepid explorer ! *
         If TXT$(CL)="ANT WARS" Then PG=0
         If TXT$(CL)="*" Then PG=PG+1 : Exit
         Print : Print
      Loop
      Wait 5
      Goto FOW
      BACK:
      Repeat
         CL=CL-1
      Until TXT$(CL)="*"
      Repeat
         If CL=0 Then CL=CL+1 : Exit
         CL=CL-1
      Until TXT$(CL)="*"
      CL=CL+1 : If PG>0 Then PG=PG-2 Else PG=1
      Goto HOP
      FOW:
      STAR
      Wait Vbl
      Locate 0,27
      T$="Page :"+Str$(PG)
      Centre T$
      Locate 0,29
      Centre "Esc to Exit"
      Do
         A$=Inkey$
         SK=Scancode
         If Mouse Key=1 and CL<242 Then CL=CL+1 : Cls : Exit
         If SK=69 Then Screen Open 0,320,256,16,Lowres : Flash Off : Get Sprite Palette : Curs Off : Cls 0 : Goto 90 : Rem * Hello Intrepid explorer ! *
         If Mouse Key=2 and CL=>0 Then CL=CL-1 : Cls : Goto BACK
         STAR
      Loop
   Until INS=1
   Data "*"
   Data ""
   Data "ANT WARS"
   Data "------------"
   Data " "
   Data " "
   Data "Press Left/Right mouse button "
   Data "to read instructions"
   Data "or ESC to go back to the menu."
   '
   Data "*"
   '
   Data "Ant Wars is this really "
   Data "good game which is , like ,"
   Data "really brilliant , see ?"
   Data "The reasons why it is so "
   Data "gobsmackingly , like , cool are :"
   Data "*"
   Data "(1) - I made it .              "
   Data "(2) - It's taken me 10 months to"
   Data "      make the bloody thing .  "
   Data "(3) - It's got lots of violence"
   Data "      and death and groovy     "
   Data "      stuff like that .        "
   Data "(4) - Unlike Lemmings , the    "
   Data "      squished bodies stay on  "
   Data "      screen when you walk them"
   Data "      off high cliffs.         "
   Data "*"
   Data "O.K."
   Data "I've plugged the game (which"
   Data "incidentally is quite good.)"
   Data "so I can now tell you how to"
   Data "play the stupid thing."
   Data "*"
   Data "You'll need two players to play this"
   Data "game , so if you've got no friends"
   Data "'Ha ! , Ha !, Reject !' and tough ."
   Data "*"
   Data "Each player controls a helicopter"
   Data "and a nest full of ants."
   Data "Player 1 controls the Black ants."
   Data "Player 2 controls the Red ants."
   Data ""
   Data "Control is Via the Mouse , Keys +"
   Data "Joystick . The Function keys can"
   Data "be used instead of the option "
   Data "buttons at the top of the screen."
   Data "*"
   Data "Each player takes goes at blasting"
   Data "the daylights out of each other and"
   Data "is given five moves to get the ants"
   Data "or helicopter to perform their tasks"
   Data "*"
   Data "To Begin with , Black goes first."
   Data "You are presented with 3 buttons"
   Data ""
   Data "Infantry Heli and Skip"
   Data ""
   Data "Infantry gives you control over your"
   Data "ants."
   Data "Heli gives you control over your"
   Data "heli ( oddly enough .)"
   Data "Skip skips your go."
   Data "*"
   Data "INFANTRY"
   Data "--------"
   Data "The first button (Upside down leg"
   Data "stump or anthill , depending on "
   Data "which way you look at it .) , is"
   Data "the DEPLOY button . Use this to"
   Data "Deploy a new ant."
   Data "*"
   Data "The second button ( Pair of cloggers)"
   Data "lets you move your ant around the "
   Data "screen by first selecting an ant ,"
   Data "then clicking on where you want to"
   Data "move to . Press SPACE to quit walking."
   Data "Easy ."
   Data "*"
   Data "The third button is the fun one."
   Data "The bazooka button gives you"
   Data "the power to blast your opponents"
   Data "minions to bits (Hee! Hee!)"
   Data "Its pretty simple to use , you'll"
   Data "figure it out , trust me ."
   Data "*"
   Data "The fourth button (the pick axe)"
   Data "is the mining jobby."
   Data "Originally , I was going to give"
   Data "the ants pick axes , but I"
   Data "decided to modernise 'em a bit "
   Data "and gave them some good old"
   Data "Ultra Sonic Destructo-Tron"
   Data "Laser Guided Mining Cannons"
   Data "Courtesy of Double Decker (TM)"
   Data "*"
   Data "If you can't figure out how to "
   Data "use them then your IQ obviously"
   Data "hasn't reached the dizzy heights"
   Data "of double figures yet."
   Data "Get brain surgery pronto!"
   Data "*"
   Data "The fifth button ( bridges ) is handy"
   Data "when trying to cross abysmal chasms"
   Data "and the like.You use them in the"
   Data "same way as the last thingies ."
   Data "Using bridges doesn't use up"
   Data "a go , because it can take a while "
   Data "to cross large gaps ."
   Data "*"
   Data "Use skip to er, skip ."
   Data ""
   Data "Clicking on INFANTRY switches"
   Data "control to Heli ."
   Data "*"
   Data "HELICOPTERS"
   Data "-----------"
   Data "Okydo! "
   Data "The up/down arrows on the selection"
   Data "screen are for lifting and dropping"
   Data "ants respectively."
   Data "Use these to transport ants over long"
   Data "distances."
   Data "The other icon is the Move icon."
   Data "Selecting this allows you to manouvre"
   Data "your heli around the place."
   Data "*"
   Data "To quit your go select Skip. "
   Data ""
   Data "Select the HELI button to"
   Data "switch to Infantry ."
   Data "*"
   Data "I hope you enjoy this game"
   Data "('Cause I'm sick to death of"
   Data "making it.)"
   Data "Play it a few times and it'll"
   Data "grow on you (I hope)."
   Data "*"
   Data "If you like Ant Wars then you"
   Data "might like to avail of these offers:"
   Data "(Oh dear ! That's a little bit cliched"
   Data " isn't it ? Better change that so.)"
   Data "*"
   Data "Right , Spud Neck , me 'auld compost"
   Data "heap , Hangin' thirthy "
   Data "for zippo pot post?"
   Data "(That's better)"
   Data "*"
   Data "Send me � 5.75 and you'll get :"
   Data "Ant Wars 2 - The Stunning Sequel"
   Data "Sensation!"
   Data "Featuring :"
   Data "Bigger play areas !"
   Data "Multiple helicopters !"
   Data "Tanks !"
   Data "Personel Carriers !"
   Data "New types of weapons !"
   Data "Custom Map Editor !"
   Data "Improved graphics !"
   Data "Better Sound !"
   Data "A free Heifer !"
   Data "*"
   Data "And also a wholly improved"
   Data "Witty set of instructions."
   Data "*"
   Data "If you would like to obtain"
   Data "the fully explained AMOS source"
   Data "code for this game + the"
   Data "custom map editor + "
   Data "anything else I can fit on"
   Data "the disk , then ..."
   Data "*"
   Data "put a blank disk in with your "
   Data "donation to this humble destitute"
   Data "programmer."
   Data "*"
   Data "Apart from that , though , feel"
   Data "free to write to me about anything"
   Data "at all , (especially if you happen"
   Data "be female and about , oh , 16 say .)"
   Data "*"
   Data "Let's see , is there anything"
   Data "left to mention ?"
   Data "*"
   Data "Oh yeah! The charity appeal !"
   Data "You see this game was made on a bog"
   Data "standard A500 with one floppy"
   Data "drive , which is pretty amazing"
   Data "when you see the standard of my"
   Data "game , don't you think ?"
   Data "So please ! Give me money !"
   Data "Give me your money!"
   Data "Give me all of it !"
   Data "If I don't get a hard drive "
   Data "soon I'll flip."
   Data "*"
   Data "I'd better mention my friends"
   Data "here , I Suppose ."
   Data "Hello to :"
   Data "*"
   Data "Dave (totally paranoid)"
   Data "Binny (totally 12 year-old-ish)"
   Data "Gavin  (totally hairy chin wise)"
   Data "Fergal (a 'ickle bick odd)"
   Data "Steve (utterly cool,cute 'n cuddly)"
   Data "Colm (god guy gust gate ganoes)"
   Data "Lucifer ( Greetingsss Massster ! )"
   Data "Connor ( Kill! , Kill! , Mosh! )"
   Data "*"
   Data "Ruth (Hello Fishy!)"
   Data "Ev (Hello other fishy!)"
   Data "Mary (I'm blonde , I'm blonde ...)"
   Data "Karen (Bruises healed yet?)"
   Data "Elaine ( HAA! HAA! HAA! )"
   Data "Niamh (What ? me? I'm innocent!)"
   Data "Amy (Very few people are "
   Data "going to get this joke)"
   Data "*"
   Data "PARANOID"
   Data "PRODUCTIONS"
   Data "(93/94)"
   Data "*"
   Data "This game is Public Domain so I"
   Data "don't mind if you copy it and"
   Data "give it to your friends."
   Data "(Actually I'd appreciate it "
   Data "if you would.)"
   Data "*"
   LABEL:
   Data "Send all comments , observations , "
   Data "ideas , complaints , inquiries , "
   Data "subscriptions for Ant Wars Too ,"
   Data "death threats ,letter bombs , "
   Data "blank cheques and donations to :"
   Data " "
   Data "Chris Gregan"
   Data "Sheaf o' Wheat"
   Data "Dunboyne"
   Data "Co.Meath"
   Data "Ireland"
   Data ""
   Data ""
   Data "*"
   Data "\"
End Proc
Procedure ESC
   For N=1 To 10
      STAR
   Next N
   F$=""
   Do
      STAR
      F$=Inkey$ : K=Scancode
      If K=69 Then ES=1 : Exit
      If F$<>"" or Mouse Key=1 Then Exit
   Loop
End Proc
Procedure STARSET
   For N=0 To NN
      X(N)=Rnd(320)
      Y(N)=Rnd(200)
   Next N
End Proc
Procedure STAR
   '   CX=160 : CY=130
   Ink 1
   For N=0 To NN
      If Point(X(N),Y(N))>0 Then BC(N)=1
      Plot X(N),Y(N)
   Next N
   Ink 0
   For N=0 To NN
      If BC(N)=0 Then Plot X(N),Y(N) Else BC(N)=0
   Next N
   For N=0 To NN
      Y(N)=Y(N)+(N/10)+1 : If Y(N)>200 Then X(N)=Rnd(320) : Y(N)=0
   Next N
   '  For N=0 To NN
   '     XX(N)=XX(N)+X(N)
   '     YY(N)=YY(N)+Y(N)
   '     If Point(CX+XX(N),CY+YY(N))>0 Then BC(N)=1
   '     Plot CX+XX(N),CY+YY(N)
   '     If CX+XX(N)>320 or CX+XX(N)<0
   '        XX(N)=0 : YY(N)=0
   '        X(N)=Rnd(10)-5 : Y(N)=Rnd(10)-5
   '     End If
   '     If CY+YY(N)>230 or CY+YY(N)<0
   '        Ink 0 : Plot CX+XX(N),CY+YY(N)
   '        YY(N)=0 : XX(N)=0
   '        Y(N)=Rnd(10)-5 : X(N)=Rnd(10)-5
   '     End If
   '   Next N
End Proc
Procedure _WAIT
   For N=1 To W
      A$=""
      A$=Inkey$
      Wait 1
      If A$<>"" Then Goto 70
      If Mouse Key>0 Then Goto 70
      If Fire(1)=-1 Then Goto 70
   Next N
End Proc
Procedure RLOAD
   Fade 2 : Wait 30
   Bob Off : Wait 5
   Flash Off
   Get Sprite Palette
   Bob 0,75,60,6 : Wait Vbl
   Bob 0,75,60,6
   Sam Loop Off
   For N=5 To 0 Step -1
      Volume N
      Wait 5
   Next N
   Do
      K=Exist("ant_war2:")
      If K=-1 Then Exit
   Loop
   Fade 2 : Wait 30
   Volume 63
   Unpack 10 To 0
   Wait 30
   Run "Ant_War2:code/barebones.amos"
End Proc