home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd273 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1990-09-06  |  10KB  |  327 lines
  1. Procedure BLADERUNNERS
  2.    Break Off 
  3.    Hide 
  4.    Load "mania1:tune1.abk"
  5.    Close Workbench 
  6.    Close Editor 
  7.    Screen Open 0,320,256,2,0
  8.    Bar 0,0 To 15,255
  9.    Get Bob 0,$37,0,0 To 15,255
  10.    Cls 0
  11.    Bar 0,0 To 159,15
  12.    Get Bob 0,$38,0,0 To 159,15
  13.    Cls 0
  14.    Double Buffer 
  15.    Flash Off 
  16.    Curs Off 
  17.    Cls 0
  18.    Colour 1,$FFF
  19.    Colour 0,$0
  20.    Screen Display 0,112,41,320,256
  21.    Screen Offset 0,0,0
  22.    Music 1
  23.    WASTER2
  24.    Set Rainbow 0,1,268,"(2,15,1)(2,0,14)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,0,45)","(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,0,15)(2,1,15)(2,-1,15)","(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,-1,15)"
  25.    Rainbow 0,0,40,258
  26.    Rainbow 0,0,40,258
  27.    WASTER
  28.    Repeat 
  29.       WASTER3
  30.    Until NULL=1
  31. End Proc
  32. Procedure WASTER
  33.    Screen Display 0,112,41,320,256
  34.    Cls 0
  35.    Bob Off 
  36.    Amal Off 
  37.    SCRL$=" @0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ|,!.:?/+-()"
  38.    WORD$="          BANZI!! WERE BACK!! THE BLADERUNNERS HAVE RETURNED FROM THE WILDERNESS CALLED A-LEVELS WITH A NEW PRODUCTION CALLED...  BEER MANIA.  THE BLADERUNNERS ARE A NEW GROUP WHO ARE QUITE SMALL AND HAVE ONLY BEEN AROUND FOR A SHORT TIME,"
  39.    WORD$=WORD$+" BUT WE HAVE BIG (FNAR!) PLANS. WE WANT TO EXPAND AND TO DO THIS WE NEED NEW MEMBERS (ARTISTS, MUSICIANS, CODERS, SWAPPERS, ETC.) SO IF YOU WANT TO JOIN US THEN GIVE US A CALL (THE ADDRESS IS IN THE CREDITS SECTION). EVEN IF YOU DO "
  40.    WORD$=WORD$+"NOT WANT TO JOIN US CONTACT US ANY WAY, WE WANT TO MEET AS MANY PEOPLE AS POSSIBLE. SPECIAL MESSAGE TO THE HULMERIST OF SLIPSTREAM... SORRY I TOOK SO LONG TO REPLY TO YOU, BUT THIS DISK TOOK LONGER THAN I THOUGHT TO COMPLETE, ANYWAY"
  41.    WORD$=WORD$+" I UNDERSTAND ABOUT THE GRAPHICS AND I HOPE YOU MAKE ENOUGH MONEY FROM THE GAME TO BE ABLE TO AFFORD YOUR OWN TOILET PAPER SO I DO NOT HAVE TO SEND YOU MINE!!. HERE ARE THE FACTS THE RELEASE DATE FOR THIS DISK IS THE 09/07/1991 AND I"
  42.    WORD$=WORD$+" AM BLOODY GLAD I HAVE FINISHED IT, UNTIL NEXT TIME KEEP ON DRINKIN... NOW WHERE DID I PUT THAT CAN OF GUINESS??        "
  43.    A$="Move -230,-230,115"
  44.    For N=1 To 14
  45.       Channel N To Bob N
  46.    Next N
  47.    Q=0
  48.    For N=11 To 14
  49.       Bob N,256+Q,-250,$37
  50.       Q=Q+16
  51.    Next N
  52.    E$="AUtotest(Let R1=Vu(0); If R1=0 eXit else Direct Start);"
  53.    E$=E$+"Start: Let Y=0; Pause;"
  54.    E$=E$+"Move 0,-250,26; Wait;"
  55.    B$="AUtotest(Let R1=Vu(1); If R1=0 eXit else Direct Start);"
  56.    B$=B$+"Start: Let Y=0; Pause;"
  57.    B$=B$+"Move 0,-250,26; Wait;"
  58.    C$="AUtotest(Let R1=Vu(2); If R1=0 eXit else Direct Start);"
  59.    C$=C$+"Start: Let Y=0; Pause;"
  60.    C$=C$+"Move 0,-250,26; Wait;"
  61.    D$="AUtotest(Let R1=Vu(3); If R1=0 eXit else Direct Start);"
  62.    D$=D$+"Start: Let Y=0; Pause;"
  63.    D$=D$+"Move 0,-250,26; Wait;"
  64.    Amal 11,E$
  65.    Amal 12,B$
  66.    Amal 13,C$
  67.    Amal 14,D$
  68.    Amal On 11
  69.    Amal On 12
  70.    Amal On 13
  71.    Amal On 14
  72.    NUM=1
  73.    Cls 0
  74.    LX=Length(15)/2
  75.    Set Rainbow 0,1,268,"(2,15,1)(2,0,14)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,0,45)","(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,0,15)(2,1,15)(2,-1,15)","(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,-1,15)"
  76.    Rainbow 0,0,40,258
  77.    Wait Vbl 
  78.    TUP:
  79.    For N=1 To Len(WORD$)
  80.       E$=Mid$(WORD$,N,1)
  81.       POS=Instr(SCRL$,E$)
  82.       Bob NUM,180,256,POS
  83.       Amal NUM,A$
  84.       Amal On NUM
  85.       Inc NUM
  86.       If NUM=10 Then NUM=1
  87.       For T=0 To 13
  88.          If Mouse Key<>0 Then Goto POT
  89.          Wait 1
  90.       Next T
  91.    Next N
  92.    Goto TUP : 
  93.    POT:
  94.    Bob Off 
  95.    Cls 0
  96. End Proc
  97. Procedure WASTER2
  98.    Set Rainbow 0,1,256,"(4,15,1)(4,0,14)(4,-1,15)(4,1,15)(4,0,15)","(4,1,15)(4,0,15)(4,0,15)(4,-1,15)(4,1,15)",""
  99.    Rainbow 0,0,45,270
  100.    Screen Display 0,128,50,320,256
  101.    Rem Set Envel 1,0 To 1,15
  102.    Rem Play 1,0 
  103.    Rem Set Envel 1,1 To 875,15
  104.    Rem Play 1,1 
  105.    Rem Set Envel 1,2 To 1,0 
  106.    Rem Goto CHEESE
  107.    A$="Move -128,-200,48"
  108.    B$="Move -80,-200,48"
  109.    C$="Move -32,-200,48"
  110.    D$="Move 16,-200,48"
  111.    E$="Move 64,-200,48"
  112.    F$="Move 112,-200,48"
  113.    For N=1 To 12
  114.       Channel N To Bob N
  115.    Next N
  116.    Bob 1,150,256,35
  117.    Bob 2,150,256,13
  118.    Bob 3,150,256,31
  119.    Bob 4,150,256,32
  120.    Bob 5,150,256,17
  121.    Bob 6,150,256,30
  122.    Amal 1,A$
  123.    Amal 2,B$
  124.    Amal 3,C$
  125.    Amal 4,D$
  126.    Amal 5,E$
  127.    Amal 6,F$
  128.    Amal On 
  129.    Wait 50
  130.    G$="Move -32,-130,32"
  131.    H$="Move 16,-130,32"
  132.    Bob 7,150,256,27
  133.    Bob 8,150,256,18
  134.    Amal 7,G$
  135.    Amal 8,H$
  136.    Amal On 
  137.    Wait 50
  138.    J$="Move -8,-70,24"
  139.    I$="Move -64,-70,24"
  140.    K$="Move 40,-70,24"
  141.    Bob 9,160,256,32
  142.    Bob 10,150,256,20
  143.    Bob 11,150,256,17
  144.    Amal 9,I$
  145.    Amal 10,J$
  146.    Amal 11,K$
  147.    Amal On 
  148.    Wait 50
  149.    A$="Move 0,-300,48"
  150.    For N=1 To 11
  151.       Amal N,A$
  152.       Amal On N
  153.       Wait 5
  154.    Next N
  155.    Wait 40
  156.    Bob Off 
  157.    Unpack 10
  158.    Wait 120
  159.    CHEESE:
  160.    A$="Loop: For R0=0 To 1; Move -4,1,1; Move -4,2,1;Move -4,3,1; Move -4,4,1; Move -4,5,1; Move -4,6,1; Move -4,7,1; Move -4,8,1; Move -4,9,1; Move -4,10,1; Move -4,11,1;"
  161.    A$=A$+"Move -4,11,1; Move -4,10,1;Move -4,9,1; Move -4,8,1; Move -4,7,1; Move -4,6,1; Move -4,5,1; Move -4,4,1; Move -4,3,1; Move -4,2,1; Move -4,1,1;"
  162.    A$=A$+"Move -4,-1,1; Move -4,-2,1;Move -4,-3,1; Move -4,-4,1; Move -4,-5,1; Move -4,-6,1; Move -4,-7,1; Move -4,-8,1; Move -4,-9,1; Move -4,-10,1; Move -4,-11,1;"
  163.    A$=A$+"Move -4,-11,1; Move -4,-10,1;Move -4,-9,1; Move -4,-8,1; Move -4,-7,1; Move -4,-6,1; Move -4,-5,1; Move -4,-4,1; Move -4,-3,1; Move -4,-2,1; Move -4,-1,1;Next R0"
  164.    Cls 0
  165.    X=355
  166.    Y=0
  167.    For N=1 To 4
  168.       Read Q
  169.       Bob N,X,Y,Q
  170.       Amal N,A$
  171.       X=X+32
  172.       Y=Y+30
  173.    Next N
  174.       Y=Y-30
  175.       X=X+16
  176.    For N=5 To 8
  177.       Read Q
  178.       Bob N,X,Y,Q
  179.       Amal N,A$
  180.       X=X+40
  181.       Y=Y-30
  182.    Next N
  183.    For N=1 To 8
  184.       Amal On N
  185.       Wait 5
  186.    Next N
  187.    Wait 125
  188.    Bob Off 
  189.    Cls 0
  190.    A$="Loop: Move 0,1,1; Move 0,2,1;Move 0,3,1; Move 0,4,1; Move 0,5,1; Move 0,6,1; Move 0,7,1; Move 0,8,1; Move 0,9,1;"
  191.    A$=A$+"Move 0,9,1; Move 0,8,1; Move 0,7,1; Move 0,6,1; Move 0,5,1; Move 0,4,1; Move 0,3,1; Move 0,2,1; Move 0,1,1;"
  192.    A$=A$+"Move 0,-1,1; Move 0,-2,1;Move 0,-3,1; Move 0,-4,1; Move 0,-5,1; Move 0,-6,1; Move 0,-7,1; Move 0,-8,1; Move 0,-9,1;"
  193.    A$=A$+"Move 0,-9,1; Move 0,-8,1; Move 0,-7,1; Move 0,-6,1; Move 0,-5,1; Move 0,-4,1; Move 0,-3,1; Move 0,-2,1; Move 0,-1,1;Jump Loop"
  194.    X=64 : Y=0
  195.    For N=1 To 4
  196.       Read Q
  197.       Bob N,X,Y,Q
  198.       Amal N,A$
  199.       X=X+48
  200.    Next N
  201.    X=40 : Y=100
  202.    For N=5 To 9
  203.       Read Q
  204.       Bob N,X,Y,Q
  205.       Amal N,A$
  206.       X=X+48
  207.    Next N
  208.    Wait 50
  209.    Amal On 
  210.    Wait 225
  211.    Rem Follow LRT 
  212.    Bob Off 
  213.    Screen Display 0,112,41,320,256
  214.    Data 28,30,17,31,17,26,32,31,14,17,17,30,25,13,26,21,13
  215. End Proc
  216. Procedure WASTER3
  217.    Screen Display 0,128,40,320,256
  218.    Set Rainbow 0,1,300,"(2,15,1)(2,0,14)(2,-1,15)(2,1,15)(2,0,15)(2,0,15)(2,-1,15)","","(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,1,15)(2,0,15)"
  219.    Rainbow 0,0,60,56
  220.    Bob Off 
  221.    Cls 0
  222.    Unpack 10
  223.    Set Rainbow 1,1,268,"(2,15,1)(2,0,14)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,0,45)","(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,0,15)(2,1,15)(2,-1,15)","(2,1,15)(2,0,15)(2,0,15)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(2,-1,15)"
  224.    Rainbow 1,120,250,60
  225.    For N=1 To 4
  226.       Channel N To Bob N
  227.    Next N
  228.    Bob 1,-155,222,$38
  229.    Bob 2,-155,239,$38
  230.    Bob 3,316,222,$38
  231.    Bob 4,316,239,$38
  232.    E$="AUtotest(Let R1=Vu(0); If R1=0 eXit else Direct Start);"
  233.    E$=E$+"Start: Let X=-1; Pause;"
  234.    E$=E$+"Move -156,0,26; Wait;"
  235.    B$="AUtotest(Let R1=Vu(1); If R1=0 eXit else Direct Start);"
  236.    B$=B$+"Start: Let X=-1; Pause;"
  237.    B$=B$+"Move -156,0,26; Wait;"
  238.    C$="AUtotest(Let R1=Vu(2); If R1=0 eXit else Direct Start);"
  239.    C$=C$+"Start: Let X=161; Pause;"
  240.    C$=C$+"Move 156,0,26; Wait;"
  241.    D$="AUtotest(Let R1=Vu(3); If R1=0 eXit else Direct Start);"
  242.    D$=D$+"Start: Let X=161; Pause;"
  243.    D$=D$+"Move 156,0,26; Wait;"
  244.    Auto View On 
  245.    Amal 1,E$
  246.    Amal 2,B$
  247.    Amal 3,C$
  248.    Amal 4,D$
  249.    Channel 5 To Rainbow 0
  250.    F$="Loop:For R0=0 To 120; Let X=X+1;Next R0;Let X=0 Jump Loop"
  251.    Amal 5,F$
  252.    Amal On 
  253.    Locate 0,12
  254.    Centre "WASTER PAINT"
  255.    Locate 0,14
  256.    Centre "MANDEL MASTER"
  257.    Locate 0,16
  258.    Centre "BLACK GOLD DEMO"
  259.    Locate 0,18
  260.    Centre "SIMON"
  261.    Locate 0,20
  262.    Centre "CREDITS & GREETINGS"
  263.    Set Rainbow 2,0,32,"","(1,2,7)(1,-2,7)",""
  264.    Rainbow 2,0,132,16
  265.    N=1
  266.    Limit Mouse 0,132 To 1,196
  267.    While Mouse Click<>1
  268.    YPOS=Y Screen(Y Mouse)
  269.    ACT=((YPOS/16)*16)
  270.    Rainbow 2,0,52+ACT,16
  271.    NUM=(ACT-79)/16
  272.    Wend 
  273.    Bob Off 
  274.    Cls 0
  275.    Rainbow 1,0,40,256
  276.    Cls 0
  277.    A$="Loop: For R0=0 To 1; Move -4,1,1; Move -4,2,1;Move -4,3,1; Move -4,4,1; Move -4,5,1; Move -4,6,1; Move -4,7,1; Move -4,8,1; Move -4,9,1; Move -4,10,1; Move -4,11,1;"
  278.    A$=A$+"Move -4,11,1; Move -4,10,1;Move -4,9,1; Move -4,8,1; Move -4,7,1; Move -4,6,1; Move -4,5,1; Move -4,4,1; Move -4,3,1; Move -4,2,1; Move -4,1,1;"
  279.    A$=A$+"Move -4,-1,1; Move -4,-2,1;Move -4,-3,1; Move -4,-4,1; Move -4,-5,1; Move -4,-6,1; Move -4,-7,1; Move -4,-8,1; Move -4,-9,1; Move -4,-10,1; Move -4,-11,1;"
  280.    A$=A$+"Move -4,-11,1; Move -4,-10,1;Move -4,-9,1; Move -4,-8,1; Move -4,-7,1; Move -4,-6,1; Move -4,-5,1; Move -4,-4,1; Move -4,-3,1; Move -4,-2,1; Move -4,-1,1;Next R0"
  281.    X=355
  282.    Y=5
  283.    For N=1 To 7
  284.       Channel N To Bob N
  285.    Next N
  286.    For N=1 To 7
  287.       Read Q
  288.       Bob N,X,Y,Q
  289.       Amal N,A$
  290.       X=X+32
  291.          Y=Y+30
  292.    Next N
  293.    For N=1 To 8
  294.       Amal On N
  295.       Wait 5
  296.    Next N
  297.    Wait 85
  298.    For N=1 To 7
  299.       Put Bob N
  300.    Next N
  301.    Bob Off 
  302.    Music Off 
  303.    Show 
  304.    If NUM=0
  305.       Run "mpaint.amos"
  306.    End If 
  307.    If NUM=1
  308.       Run "mandy.amos"
  309.    End If 
  310.    If NUM=2
  311.       Run "4eyes.amos"
  312.    End If 
  313.    If NUM=3
  314.       Run "simon.amos"
  315.    End If 
  316.    If NUM=4
  317.       Run "credits.amos"
  318.    End If 
  319.    If NUM=5
  320.       Run "credits.amos"
  321.    End If 
  322.    If NUM=6
  323.       Run "credits.amos"
  324.    End If 
  325.    Data 24,27,13,16,21,26,19
  326. End Proc
  327. BLADERUNNERS