home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / demos / d008.dms / in.adf / predator.amos / predator.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-01-09  |  5.5 KB  |  238 lines
  1. Wait 50
  2. Load "Predator:music2.abk"
  3. Dir$="Predator:pics"
  4. Load "Robots",10
  5. Load "pred",11
  6. Load "bob"
  7. Led Off 
  8. Screen Open 0,320,270,32,Lowres
  9. Flash Off : Curs Off : Hide On : Cls 0
  10. Unpack 10 To 0
  11. Screen Hide 0
  12. Ink 6 : Draw 0,54 To 320,54 : Draw 0,185 To 320,185
  13. VUBALL
  14. O1
  15. SLIDESHOW
  16. Procedure SLIDESHOW
  17.    Do 
  18.       HISCREEN[1]
  19.       Load "predator",15
  20.       Unpack 15 To 1 : Erase 15
  21.       DI[1]
  22.       Screen Hide 3
  23.       Wait 500
  24.       Fade 5
  25.       Wait 50
  26.       Screen Show 3
  27.       Screen Close 1
  28.       HISCREEN[1]
  29.       Load "ship",15
  30.       Unpack 15 To 1 : Erase 15
  31.       DI[1]
  32.       Screen Hide 3
  33.       Wait 500
  34.       Fade 5
  35.       Wait 50
  36.       Screen Show 3
  37.       Screen Close 1
  38.       HISCREEN[1]
  39.       Load "lostpatrol",15
  40.       Unpack 15 To 1 : Erase 15
  41.       DI[1]
  42.       Screen Hide 3
  43.       Wait 500
  44.       Fade 5
  45.       Wait 50
  46.       Screen Show 3
  47.       Screen Close 1
  48.       HISCREEN[1]
  49.       Load "arnepatrol",15
  50.       Unpack 15 To 1 : Erase 15
  51.       DI[1]
  52.       Screen Hide 3
  53.       Wait 500
  54.       Fade 5
  55.       Wait 50
  56.       Screen Show 3
  57.       Screen Close 1
  58.       HISCREEN[1]
  59.       Load "m60",15
  60.       Unpack 15 To 1 : Erase 15
  61.       DI[1]
  62.       Screen Hide 3
  63.       Wait 500
  64.       Fade 5
  65.       Wait 50
  66.       Screen Show 3
  67.       Screen Close 1
  68.       HISCREEN[1]
  69.       Load "wipeout",15
  70.       Unpack 15 To 1 : Erase 15
  71.       DI[1]
  72.       Screen Hide 3
  73.       Wait 500
  74.       Fade 5
  75.       Wait 50
  76.       Screen Show 3
  77.       Screen Close 1
  78.       HISCREEN[1]
  79.       Load "poser",15
  80.       Unpack 15 To 1 : Erase 15
  81.       DI[1]
  82.       Screen Hide 3
  83.       Wait 500
  84.       Fade 5
  85.       Wait 50
  86.       Screen Show 3
  87.       Screen Close 1
  88.       HISCREEN[1]
  89.       Load "fire",15
  90.       Unpack 15 To 1 : Erase 15
  91.       DI[1]
  92.       Screen Hide 3
  93.       Wait 500
  94.       Fade 5
  95.       Wait 50
  96.       Screen Show 3
  97.       Screen Close 1
  98.       HISCREEN[1]
  99.       Load "bang",15
  100.       Unpack 15 To 1 : Erase 15
  101.       DI[1]
  102.       Screen Hide 3
  103.       Wait 500
  104.       Fade 5
  105.       Wait 50
  106.       Screen Show 3
  107.       Screen Close 1
  108.       HISCREEN[1]
  109.       Load "alien",15
  110.       Unpack 15 To 1 : Erase 15
  111.       DI[1]
  112.       Screen Hide 3
  113.       Wait 500
  114.       Fade 5
  115.       Wait 50
  116.       Screen Show 3
  117.       Screen Close 1
  118.       HISCREEN[1]
  119.       Load "ugly",15
  120.       Unpack 15 To 1 : Erase 15
  121.       DI[1]
  122.       Screen Hide 3
  123.       Wait 500
  124.       Fade 5
  125.       Wait 50
  126.       Screen Show 3
  127.       Screen Close 1
  128.       HISCREEN[1]
  129.       Load "final",15
  130.       Unpack 15 To 1 : Erase 15
  131.       DI[1]
  132.       Screen Hide 3
  133.       Wait 500
  134.       Fade 5
  135.       Wait 50
  136.       Screen Show 3
  137.       Screen Close 1
  138.    Loop 
  139. End Proc
  140. Procedure VUBALL
  141.    Double Buffer 
  142.    A$=A$+"       AUtotest(Let R1=Vu(R0)*1; If R1=0 eXit else Direct Start)"
  143.    A$=A$+"Start: Let R2=R1; Let X=R0+10; Let Y=195; Pause;"
  144.    A$=A$+"       Move 0,R2,RB; Wait;"
  145.    B$=B$+"       AUtotest(Let R1=Vu(R0)*1; If R1=0 eXit else Direct Start)"
  146.    B$=B$+"Start: Let R2=R1; Let X=R0+100; Let Y=195; Pause;"
  147.    B$=B$+"       Move 0,R2,RB; Wait;"
  148.    C$=C$+"       AUtotest(Let R1=Vu(R0)*1; If R1=0 eXit else Direct Start)"
  149.    C$=C$+"Start: Let R2=R1; Let X=R0+200; Let Y=195; Pause;"
  150.    C$=C$+"       Move 0,R2,RB; Wait;"
  151.    D$=D$+"       AUtotest(Let R1=Vu(R0)*1; If R1=0 eXit else Direct Start)"
  152.    D$=D$+"Start: Let R2=R1; Let X=R0+295; Let Y=195; Pause;"
  153.    D$=D$+"       Move 0,R2,RB; Wait;"
  154.    Amreg(0)=280 : Amreg(1)=30
  155.    Bob 0,10,Amreg(0),1
  156.    Channel 0 To Bob 0
  157.    Amal 0,"Let R0="+Str$(0)+A$
  158.    Bob 1,100,Amreg(0),1
  159.    Channel 1 To Bob 1
  160.    Amal 1,"Let R0="+Str$(1)+B$
  161.    Bob 2,200,Amreg(0),1
  162.    Channel 2 To Bob 2
  163.    Amal 2,"Let R0="+Str$(2)+C$
  164.    Bob 3,295,Amreg(0),1
  165.    Channel 3 To Bob 3
  166.    Amal 3,"Let R0="+Str$(3)+D$
  167.    Amal On 
  168. End Proc
  169. HISCREEN[1]
  170. Procedure HISCREEN[SCR]
  171.    Screen Open SCR,640,128,16,Hires
  172.    Flash Off : Hide On : Curs Off : Cls 0
  173.    Auto View Off 
  174. End Proc
  175. Procedure DI[SCR]
  176.    Screen Hide 1
  177.    Screen Display SCR,128,99,640,127
  178.    Screen Show 1
  179.    Auto View On 
  180. End Proc
  181. Procedure O1
  182.    Auto View Off 
  183.    Screen Open 3,320,256,32,Lowres
  184.    Flash Off : Curs Off : Hide On : Cls 0
  185.    Unpack 11 To 3
  186.    Screen Display 3,128,240,320,80
  187.    Screen Show 0
  188.    Screen Show 3
  189.    Set Rainbow 0,0,280,"","",""
  190.    Rainbow 0,0,0,280
  191.    Colour Back 0
  192.    Restore RDATA
  193.    For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  194.    Next C : View 
  195.    RDATA:
  196.    Data $0,$0,$0,$0,$0,$0,$0,$0
  197.    Data $0,$0,$0,$0,$1,$2,$3,$4
  198.    Data $5,$6,$7,$8,$9,$A,$B,$C
  199.    Data $D,$E,$11F,$F,$F,$11F,$E,$D
  200.    Data $C,$B,$A,$9,$8,$7,$6,$5
  201.    Data $4,$3,$2,$1,$0,$0,$0,$0
  202.    Data $0,$0,$0,$0,$0,$0,$0,$0
  203.    Data $0,$0,$0,$0,$0,$0,$0,$0
  204.    Data $0,$0,$0,$0,$0,$0,$0,$0
  205.    Data $0,$0,$0,$0,$0,$0,$0,$0
  206.    Data $0,$0,$0,$1,$0,$0,$0,$0
  207.    Data $0,$0,$0,$0,$0,$0,$0,$0
  208.    Data $0,$0,$0,$0,$0,$0,$0,$0
  209.    Data $0,$0,$0,$0,$0,$0,$0,$0
  210.    Data $0,$0,$0,$0,$0,$0,$0,$0
  211.    Data $0,$0,$0,$0,$0,$0,$0,$0
  212.    Data $0,$0,$0,$0,$0,$0,$0,$0
  213.    Data $0,$0,$0,$0,$0,$0,$0,$0
  214.    Data $0,$0,$0,$0,$0,$0,$0,$0
  215.    Data $0,$0,$0,$0,$0,$0,$0,$0
  216.    Data $0,$0,$0,$0,$0,$0,$0,$0
  217.    Data $0,$0,$0,$0,$0,$0,$0,$0
  218.    Data $0,$0,$0,$0,$0,$0,$0,$0
  219.    Data $0,$0,$0,$0,$0,$0,$0,$0
  220.    Data $0,$0,$0,$0,$0,$0,$0,$0
  221.    Data $0,$0,$0,$0,$0,$0,$0,$0
  222.    Data $0,$0,$0,$0,$0,$0,$0,$0
  223.    Data $0,$0,$0,$0,$0,$0,$0,$0
  224.    Data $0,$0,$0,$0,$0,$0,$0,$0
  225.    Data $0,$0,$0,$100,$100,$200,$200,$300
  226.    Data $300,$400,$400,$500,$500,$600,$600,$700
  227.    Data $700,$800,$800,$900,$900,$A00,$A00,$B00
  228.    Data $B00,$C00,$C00,$D00,$D00,$E00,$E00,$F00
  229.    Data $F00,$0,$0,$0,$0,$0,$0,$0
  230.    Data $0,$F00,$0,$0,$0,$0,$F00,$0
  231.    Data $0,$0,$0,$0,$0,$0,$0,$0
  232.    Music 1
  233.    Tempo 17
  234.    For N=1 To 63
  235.       Volume N
  236.    Next N
  237.    Auto View On 
  238. End Proc