home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd138 / autoexec.bak / autoexec.amosSourceCode
AMOS Source Code  |  1991-05-03  |  4KB  |  192 lines

  1. Screen Open 0,320,256,32,Lowres
  2. Curs Off : Flash Off : Hide On : Cls 0
  3. Load Iff "Df0:Logo"
  4. Wait 200
  5. Load Iff "Df0:Logo2"
  6. Wait 200
  7. Screen Close 0
  8. Screen Open 0,320,256,16,Lowres
  9. Cls 0
  10. Flash Off : Curs Off : Hide On 
  11. Load Iff "Df0:S/Title.Pic"
  12. Load "Df0:Title.Abk"
  13. Music 1
  14. Repeat 
  15. Until Mouse Key=1
  16. Do 
  17.    ERMEDIATE
  18.    Load "Df0:Anim1_Sprites.Abk"
  19.    Get Sprite Palette : Cls 0
  20.    Load Iff "Df0:S/Anim1.Pic"
  21.    Double Buffer 
  22.    Bob 3,250,50,2
  23.    Channel 1 To Bob 3
  24.    Amal 1,"A 0,(2,10)(3,10)"
  25.    Amal On 1
  26.    Wait 50
  27.    For F=0 To 100
  28.       Bob 1,F,100,1
  29.       Wait 1
  30.    Wait 2 : Next F
  31.    For F=0 To 90
  32.       Bob 2,130,F,4
  33.       Wait 1
  34.    Next F
  35.    N=90
  36.    For F=130 To 150
  37.       Bob 2,F,N,5
  38.       N=N-1
  39.       Wait 1
  40.    Next F
  41.    For F=150 To 200
  42.       Bob 2,F,70,6
  43.       Wait 1
  44.    Next F
  45.    For F=200 To 256
  46.       Bob 2,F,70,7
  47.       Wait 1
  48.    Next F
  49.    Bob 2,256,70,8
  50.    Bob Off 2
  51.    Wait 100
  52.    Amal Off 1 : Bob Off : Bob Clear 
  53.    Fade 3 : Wait 10*3
  54.    ERMEDIATE
  55.    Load "Df0:Anim2_Sprites.Abk",1
  56.    Load Iff "Df0:S/Anim2.Pic"
  57.    Double Buffer 
  58.    Bob 1,220,-10,1
  59.    Wait 100
  60.    N=220
  61.    For F=-10 To -40 Step -1
  62.       Bob 1,N,F,2
  63.       N=N-1
  64.       Wait 1
  65.    Next F
  66.    For F=-40 To 50
  67.       Bob 1,194,F,4
  68.       Wait 1
  69.    Next F
  70.    For F=1 To 10
  71.       Bob 1,180,60,5
  72.       Wait 10
  73.       Bob 1,180,60,6
  74.       Wait 10
  75.    Next F
  76.    Wait 50
  77.    Bob 1,180,60,7
  78.    Wait 10
  79.    Bob 1,180,60,8
  80.    Wait 10
  81.    Bob 1,180,60,9
  82.    Wait 10
  83.    Bob 1,180,60,10
  84.    Wait 100
  85.    Bob Off : Bob Clear 
  86.    Fade 3 : Wait 10*3
  87.    Erase 1
  88.    ERMEDIATE
  89.    Load "Df0:Anim3_Sprites.Abk",1
  90.    Load Iff "Df0:S/Anim3.Pic"
  91.    Double Buffer 
  92.    Bob 1,120,130,1
  93.    Wait 100
  94.    For F=1 To 5
  95.       Bob 1,120,130,2
  96.       Wait 50
  97.       Bob 1,120,130,1
  98.       Wait 50
  99.    Next F
  100.    Bob 1,120,130,2
  101.    Wait 50
  102.    Bob 1,120,130,3
  103.    Wait 4
  104.    Bob 1,120,130,4
  105.    Wait 4
  106.    Bob 1,120,130,5
  107.    Wait 50
  108.    Bob 1,120,130,6
  109.    Wait 200
  110.    Bob Off : Bob Clear : Fade 3 : Wait 10*3
  111.    Erase 1
  112.    ERMEDIATE
  113.    Load "Df0:Anim4_Sprites.Abk",1
  114.    Load Iff "Df0:s/Anim4.Pic"
  115.    Double Buffer 
  116.    For F=400 To 50 Step -1
  117.       Bob 1,F,100,1
  118.       Wait 1
  119.    Next F
  120.    For F=100 To 300
  121.       Bob 1,50,F,2
  122.       Wait 1
  123.    Next F
  124.    Bob Off : Bob Clear 
  125.    Screen Close 0
  126.    Load Iff "df0:s/Anim4b.Pic",0
  127.    Double Buffer 
  128.    For F=0 To 150
  129.       Bob 1,50,F,2
  130.       Wait 1
  131.    Next F
  132.    Bob 1,50,150,3
  133.    Wait 100
  134.    Bob Off : Bob Clear : Fade 3 : Wait 10*3
  135.    Erase 1
  136.    ERMEDIATE
  137.    Load "df0:Anim5_Sprites.Abk",1
  138.    Load Iff "Df0:s/Anim5.Pic"
  139.    Double Buffer 
  140.    Bob 2,120,53,1
  141.    Bob 3,130,53,1
  142.    Bob 4,140,53,2
  143.    Bob 5,150,53,2
  144.    Channel 0 To Bob 2 : Channel 1 To Bob 3 : Channel 2 To Bob 4 : Channel 3 To Bob 5
  145.    Amal 0,"L:M -3,0,3;M 3,0,3;J L" : Amal 1,"L:M -3,0,3;M 3,0,3;J L" : Amal 2,"L:M 3,0,3;M -3,0,3;J L" : Amal 3,"L:M 3,0,3;M -3,0,3;J L"
  146.    Amal On 
  147.    For F=0 To 160
  148.       Bob 1,F,0,3
  149.    Wait 1 : Next F
  150.    Bob 1,160,0,4
  151.    Wait 10
  152.    For F=0 To 60
  153.       Bob 1,160,F,4
  154.       Wait 1
  155.    Next F
  156.    Wait 100
  157.    Bob Off : Bob Clear : Fade 3 : Wait 10*3
  158.    Erase 1
  159.    Screen Close 0
  160.    Screen Open 0,320,256,2,LORES
  161.    Colour 1,$FFF
  162.    Cls 0 : Hide On : Curs Off : Flash Off : Cls 0
  163.    Centre At(,0)+"THE END"
  164.    Centre At(,2)+"Yes,it is a pity is'nt it!              "
  165.    Centre At(,4)+"Thanks to the following people...       "
  166.    Print At(0,6)+"Jake for adding a touch here and there! "
  167.    Print At(0,8)+"M.T. for doing Animation, number 5!     "
  168.    Print At(0,10)+"Dad for actually liking it !           "
  169.    Print At(0,12)+"And you lot for actually getting it!   "
  170.    Print At(0,14)+"Hi to:Tom,Nick,Simon,Steve,Damien,Paul"
  171.    Print At(0,16)+"      Lucy,Nancy,Walshe,Giuseppi.....  "
  172.    Centre At(,18)+"Press ANYTHING to continue"
  173.    Repeat 
  174.       If Inkey$<>"" Then Goto HI
  175.    Until Mouse Key=1 or Fire(1) or Fire(0)
  176.    HI:
  177.    Fade 3 : Wait 10*3
  178. Loop 
  179. Procedure ERMEDIATE
  180.    Erase 1
  181.    Screen Close 0
  182.    Screen Open 0,320,256,16,Lowres
  183.    Colour 1,$FFF
  184.    Cls 0 : Hide On : Curs Off : Flash Off 
  185.    Cls 0 : Pen 1 : Paper 0
  186.    Centre At(,10)+"Loading animation...."
  187. End Proc
  188. ' By the way,also,if you load workbench,you will find a DOC on this disk 
  189. ' which is surprisingly called DOC,it just sums up this program,says HI  
  190. ' to more people and gives you the lowdown on whats available from.... 
  191. '                           TOP SPRITE software
  192. '                          ---------------------