home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1179.dms / in.adf / AutoExec.AMOS / AutoExec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1991-04-20  |  7.5 KB  |  291 lines
  1. Set Buffer 2 : Break Off 
  2. Dim IKKUNA(8),IKKCOORD(8,1) : Randomize Timer : Change Mouse 2
  3. If Chip Free+Fast Free>200000 Then Load "Winning.abk",7 : Load "Loosing.abk",6 : Load "LamerMuzax.abk" : Music 1 : Else HAVIOLIPPU=-1
  4. Voice %111 : Volume %111,32 : Volume %1000,63
  5. For I=1 To 8
  6.    Channel I To Bob I
  7. Next 
  8. Global IKKUNA(),IKKCOORD(),HAVIOLIPPU
  9. GAME
  10. Procedure GAME
  11.    ALKU:
  12.    Screen Open 0,320,256,8,Lowres : Curs Off : Cls 0 : Flash Off : Get Icon Palette 
  13.    Restore DATOALKU : Paper 0 : Pen 3 : LAMER=0
  14.    For J=0 To 7
  15.       For I=0 To 9
  16.          Read A
  17.          If A=0 Then Goto JATKO2
  18.          If A=7
  19.             Paste Icon I*32+1,J*32,7
  20.          Else 
  21.             Paste Icon I*32,J*32,A
  22.          End If 
  23.          JATKO2:
  24.       Next 
  25.    Next 
  26.    Bob 1,97,33,1
  27.    Bob 2,97,193,1
  28.    Bob 3,193,33,1
  29.    Bob 4,193,193,1
  30.    Double Buffer 
  31.    For I=1 To 4
  32.       Amal I,"A 10000,(1,10)(2,10)(3,10)(4,30)(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)(12,30)L"
  33.       Amal On I
  34.    Next 
  35.    For J=0 To 3
  36.       For I=0 To 7
  37.          Read A$
  38.          Locate 8,12+I
  39.          Print A$
  40.       Next 
  41.       VENTTAA
  42.       Cls 0,65,96 To 256,160
  43.       Pen Rnd(6)+1
  44.    Next 
  45.    KYSY:
  46.    Locate 8,12 : Print "Select stage (0-9)"
  47.    Do 
  48.       A$=Inkey$
  49.       Exit If A$<>""
  50.    Loop 
  51.    If Val(A$)<0 or Val(A$)>9 Then Goto KYSY
  52.    B$="dato"+A$
  53.    Restore B$
  54.    KYSY2:
  55.    Locate 8,14 : Print "Select diff. level"
  56.    Locate 8,15 : Print "1-3, 0 for LAMER"
  57.    Do 
  58.       A$=Inkey$
  59.       Exit If A$<>""
  60.    Loop 
  61.    If Val(A$)<0 or Val(A$)>3 Then Goto KYSY2
  62.    VAIKEUS=Val(A$)
  63.    If VAIKEUS=0 Then LAMER=-1 : VAIKEUS=1
  64.    NUMERO=0 : I=0 : A=0 : OHI=0 : PISTEET=0 : J=0 : LIPPU=0 : LIPPU2=0
  65.    For I=1 To 8
  66.       IKKUNA(I)=0
  67.    Next 
  68.    Screen Open 0,320,256,8,Lowres : Curs Off : Cls 0 : Flash Off : Get Icon Palette : Colour 17,$A0 : Colour 18,$F0 : Colour 19,$F0
  69.    Make Icon Mask : Reserve Zone 8 : Reset Zone : Bob Off 
  70.    C=4 : Paper 2 : Pen 0
  71.    For J=0 To 7
  72.       For I=0 To 9
  73.          Read A
  74.          If A=0 Then Inc NUMERO : Set Zone NUMERO,I*32,J*32 To I*32+31,J*32+31 : IKKCOORD(NUMERO,0)=I*32 : IKKCOORD(NUMERO,1)=J*32 : Goto JATKO
  75.          If A=7
  76.             Paste Icon I*32+1,J*32,7
  77.          Else 
  78.             Paste Icon I*32,J*32,A
  79.          End If 
  80.          JATKO:
  81.       Next 
  82.    Next 
  83.    Double Buffer : Timer=0
  84.    LUUPPI:
  85.    A=Rnd(7)+1
  86.    If IKKUNA(A)=0
  87.       Bob A,IKKCOORD(A,0),IKKCOORD(A,1),1
  88.       A$="A 1,(1,10)(2,10)(3,10)(4,10)"
  89.       Amal A,A$
  90.       Amal On A
  91.       IKKUNA(A)=100
  92.       If Rnd(C)=0 : Goto LUUPPI : End If 
  93.       If Rnd(3)=0 and C>1 : Dec C : End If 
  94.       Locate 0,31 : Print PISTEET;
  95.       If Timer>3000*VAIKEUS : Goto VOITTO : End If 
  96.    End If 
  97.    Do 
  98.       If Mouse Click
  99.          Sam Raw %1000,Start(5),Length(5),2000
  100.          B=Mouse Zone
  101.          If B>0 and IKKUNA(B)>0
  102.             Amal B,"A 1,(5,5)(6,5)(7,5)(8,5)(9,5)(10,5)(11,5)(12,5)"
  103.             Amal On B
  104.             IKKUNA(B)=0
  105.             Add PISTEET,100
  106.             Exit 
  107.          Else 
  108.             If Not(LAMER)
  109.                Paste Bob OHI*32,0,4
  110.                Inc OHI
  111.                Bob Off B
  112.                IKKUNA(B)=0
  113.                If OHI=10 : LIPPU=-1 : Exit : End If 
  114.             End If 
  115.          End If 
  116.       End If 
  117.       For I=1 To 8
  118.          If IKKUNA(I)>0
  119.             Dec IKKUNA(I)
  120.             If IKKUNA(I)<=0
  121.                If Not(LAMER)
  122.                   Paste Bob OHI*32,0,4
  123.                   Inc OHI
  124.                End If 
  125.                Amal I,"A 1,(3,10)(2,10)(1,10)(12,10)"
  126.                Amal On I
  127.                IKKUNA(I)=0
  128.                If OHI=10 : LIPPU=-1 : Exit : End If 
  129.             End If 
  130.          End If 
  131.       Next 
  132.       LIPPU2=0
  133.       For I=1 To 8
  134.          If IKKUNA(I)=0 Then Inc LIPPU2
  135.       Next 
  136.       Exit If LIPPU2=8
  137.       Wait Vbl 
  138.    Loop 
  139.    If LIPPU=-1 Then Goto LOPPU
  140.    Goto LUUPPI
  141.    DATOALKU:
  142.    Data 2,1,1,1,1,1,1,1,1,3
  143.    Data 2,1,6,0,7,6,0,7,1,3
  144.    Data 2,1,1,5,1,1,5,1,1,3
  145.    Data 2,6,0,0,0,0,0,0,7,3
  146.    Data 2,6,0,0,0,0,0,0,7,3
  147.    Data 2,1,5,5,5,5,5,5,1,3
  148.    Data 2,1,6,0,7,6,0,7,1,3
  149.    Data 2,1,1,5,1,1,5,1,1,3
  150.    Data "Lamer Exterminator"
  151.    Data "=================="
  152.    Data "Your holy mission is to"
  153.    Data "destroy few lamers."
  154.    Data "You get some help from"
  155.    Data "your little shotgun."
  156.    Data " "
  157.    Data "Press a key."
  158.    Data "There is three levels in"
  159.    Data "this game.3rd is hardest"
  160.    Data "and 1st is easiest. You"
  161.    Data "can also select LAMER-"
  162.    Data "option, when game won't"
  163.    Data "count your miss."
  164.    Data " "
  165.    Data "Press a key."
  166.    Data "If you don't hit to the"
  167.    Data "lamer, or he escapes,you"
  168.    Data "got one mark. And when"
  169.    Data "you have ten marks, game"
  170.    Data "is over."
  171.    Data " "
  172.    Data "Thank you for your"
  173.    Data "co-operation (key)."
  174.    Data "Code; Plasticbrain/BLi"
  175.    Data "GFX;  Sir Arthur/NC"
  176.    Data "SFX;  Dragon/NC"
  177.    Data " "
  178.    Data "Ok, Jim! This disk will"
  179.    Data "self-destruct in five"
  180.    Data "seconds!!!!"
  181.    Data "Have a nice day!"
  182.    DATO0:
  183.    Data 1,1,1,1,3,2,1,1,1,1
  184.    Data 1,0,0,1,3,2,1,0,0,1
  185.    Data 1,5,5,1,3,2,1,5,5,1
  186.    Data 1,1,1,1,3,2,1,1,1,1
  187.    Data 1,0,0,1,3,2,1,0,0,1
  188.    Data 1,5,5,1,3,2,1,5,5,1
  189.    Data 1,1,1,1,3,2,1,1,1,1
  190.    Data 1,1,1,1,3,2,1,1,1,1
  191.    DATO1:
  192.    Data 2,1,1,1,1,1,1,1,1,3
  193.    Data 2,1,1,1,1,1,1,1,1,3
  194.    Data 2,1,6,0,0,0,0,7,1,3
  195.    Data 2,1,1,5,5,5,5,1,1,3
  196.    Data 2,1,6,0,0,0,0,7,1,3
  197.    Data 2,1,1,5,5,5,5,1,1,3
  198.    Data 2,1,1,1,1,1,1,1,1,3
  199.    Data 2,1,1,1,1,1,1,1,1,3
  200.    DATO2:
  201.    Data 2,1,1,1,1,1,1,1,1,3
  202.    Data 2,6,0,4,0,4,0,7,1,3
  203.    Data 2,1,5,1,5,1,5,1,1,3
  204.    Data 2,6,0,4,0,4,0,7,1,3
  205.    Data 2,1,5,1,5,1,5,1,1,3
  206.    Data 2,6,0,4,1,4,0,7,1,3
  207.    Data 2,1,5,1,5,1,5,1,1,3
  208.    Data 2,1,1,1,1,1,1,1,1,3
  209.    DATO3:
  210.    Data 2,1,1,1,1,1,1,1,1,3
  211.    Data 2,3,0,2,1,1,3,0,2,3
  212.    Data 2,1,5,1,1,1,1,5,1,3
  213.    Data 2,1,1,1,1,1,1,1,1,3
  214.    Data 2,6,0,4,0,0,4,0,7,3
  215.    Data 2,1,5,1,5,5,1,5,1,3
  216.    Data 2,1,6,0,7,6,0,7,1,3
  217.    Data 2,1,1,1,1,1,1,1,1,3
  218.    DATO4:
  219.    Data 1,1,1,1,1,1,1,1,1,1
  220.    Data 1,3,0,2,1,1,3,0,2,1
  221.    Data 1,1,5,3,0,0,2,5,1,1
  222.    Data 1,1,1,1,5,5,1,1,1,1
  223.    Data 1,3,0,2,1,1,3,0,2,1
  224.    Data 1,1,5,3,0,0,2,5,1,1
  225.    Data 1,1,1,1,5,5,1,1,1,1
  226.    Data 1,1,1,1,1,1,1,1,1,1
  227.    DATO5:
  228.    Data 2,1,1,1,1,1,1,1,1,3
  229.    Data 2,1,1,1,1,1,1,1,1,3
  230.    Data 2,6,0,0,7,6,0,0,1,3
  231.    Data 2,1,5,5,1,1,5,5,1,3
  232.    Data 2,1,1,1,1,1,1,1,1,3
  233.    Data 2,1,1,1,1,1,1,1,1,3
  234.    Data 2,6,0,0,7,6,0,0,1,3
  235.    Data 2,1,5,5,1,1,5,5,1,3
  236.    DATO6:
  237.    Data 3,2,1,1,1,1,1,1,3,2
  238.    Data 3,2,1,6,0,0,7,1,3,2
  239.    Data 3,2,1,1,5,5,1,1,3,2
  240.    Data 3,2,6,0,0,0,0,7,3,2
  241.    Data 3,2,1,5,5,5,5,6,3,2
  242.    Data 3,2,1,6,0,0,7,1,3,2
  243.    Data 3,2,1,1,5,5,1,1,3,2
  244.    Data 3,2,1,1,1,1,1,1,3,2
  245.    DATO7:
  246.    Data 2,1,6,0,7,6,0,7,1,3
  247.    Data 2,1,1,5,1,1,5,1,1,3
  248.    Data 2,1,6,0,7,6,0,7,1,3
  249.    Data 2,1,1,5,1,1,5,1,1,3
  250.    Data 2,1,6,0,7,6,0,7,1,3
  251.    Data 2,1,1,5,1,1,5,1,1,3
  252.    Data 2,1,6,0,7,6,0,7,1,3
  253.    Data 2,1,1,5,1,1,5,1,1,3
  254.    DATO8:
  255.    Data 2,6,0,7,1,1,6,0,7,3
  256.    Data 2,1,5,1,1,1,1,5,1,3
  257.    Data 2,6,0,7,1,1,6,0,7,3
  258.    Data 2,1,5,1,1,1,1,5,1,3
  259.    Data 2,6,0,7,1,1,6,0,7,3
  260.    Data 2,1,5,1,1,1,1,5,1,3
  261.    Data 2,6,0,7,1,1,6,0,7,3
  262.    Data 2,1,5,1,1,1,1,5,1,3
  263.    DATO9:
  264.    Data 1,1,1,1,1,1,1,1,1,1
  265.    Data 0,7,1,1,1,1,1,1,6,0
  266.    Data 5,1,6,0,7,6,0,7,1,5
  267.    Data 1,1,1,5,1,1,5,1,1,1
  268.    Data 1,1,6,0,7,6,0,7,1,1
  269.    Data 1,1,1,5,1,1,5,1,1,1
  270.    Data 0,7,1,1,1,1,1,1,6,0
  271.    Data 5,1,1,1,1,1,1,1,1,1
  272.    LOPPU:
  273.    Screen Close 0
  274.    If HAVIOLIPPU Then Load "Loosing.abk",6
  275.    Unpack 6 To 0
  276.    If HAVIOLIPPU Then Erase 6
  277.    VENTTAA
  278.    Goto ALKU
  279.    VOITTO:
  280.    Screen Close 0
  281.    If HAVIOLIPPU Then Load "Winning.abk",7
  282.    Unpack 7 To 0
  283.    If HAVIOLIPPU Then Erase 7
  284.    VENTTAA
  285.    Goto ALKU
  286. End Proc
  287. Procedure VENTTAA
  288.    Do 
  289.       Exit If Inkey$<>"" or Mouse Key>0 or Fire(1)
  290.    Loop 
  291. End Proc