home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 2209a.dms / in.adf / autoexec.Bak / autoexec.amosSourceCode
Encoding:
AMOS Source Code  |  1978-02-21  |  24.9 KB  |  1,082 lines
  1. Rem HELLO  
  2. Rem SORRY ALL PROCEDURES LOCKED
  3. Rem I WAS GOING TO LEAVE THEM OPENED BUT WHILE DOCUMENTING MY SOURCE 
  4. Rem I USED SOME RATHER BRASH LANGUAGE (I~M FROM MANCHESTER,ORIGINALLY)   
  5. Rem BUT  DO NOT DESPAIR AS THERE IS ONE PROCEDURE OPEN BUT ONLY BROADMINDED
  6. Rem PEOPLE SHOULD OPEN IT !!!!!!!!!!!!!!!!!!!!!!!!!!!
  7. Rem FOR PEOPLE INTERESTED I USED OVER 100 BOBS IN THIS GAME(NO SPRITES THERE TOO FICKLE) 
  8. '************************* OLEMPIAD 92 ********************************* 
  9. '***********************BY RICHARD EVANS*********************************
  10. 'RESPECT TO JASON HOLBORN,PETER HICKMAN,PHIL SOUTH,DMA DESIGN,ERIC SCHWARTZ
  11. 'TOBIAS RICTHER,BJORN A LYNNE,FRANCOIS LIONET,ELECTRONIC ARTS,LEAKY FRESH
  12. 'SIZZLING SI BATES,PSYGNOSIS,FUTURE PUBLISHING,CINEMAWARE,ANWAR,BENNY HILL 
  13. 'FRANKIE HOWARD,"MICK",TEAM 17,17 BIT SOFTWARE,BLITTERCHIPS,BEN ELTON, 
  14. 'PUBLIC ENEMY,GREGORY ABBOTT,ELKIE BROOKS,GRANNY HOTWHEELS,BUDBRAIN,"MANDI"
  15. 'MUM,DAD,JOE,MR HOLT,PRSIDENT BUSH(NOT!!!!),GILMAN LOUIE,CHRIS ORTON,JIM 
  16. 'ODIN,CHANNEL 4,THOR,BALDER,EMMA,KATE,MINOS,PETER MOLYNEAUX,PUBLIC DOMAIN MAG
  17. 'NWA,TRACEY CHAPMAN,HARRY ENFIELD,ROWAN ATKINSON,NELSON MANDELA,MEL GIBSON 
  18. 'BOB HOSKINS,ROBERT DENIRO,BATMAN,SUPERMAN,BERT THE AMAZING SPROUT,
  19. 'CHRIS EUBANK,FRANK BRUNO,MICHAEL WATSON,LABOUR PARTY,NIEL KINNOCK 
  20. 'MARC TOMLINSON,DANNY KAY,ANTON,TOM,BEN MINOUGE,PHILIP SCHOFIELD?, 
  21. 'ITV,SUNSET,SUNSET,-SO GOOD YOU GOTTA SAY IT TWICE!!!!!!!!!!!!!!!!!!!
  22. 'THE ENTIRE RED DWARF CREW,ROB GRANT,DOUG NAYLOR,VIZ,AMIGA SHOPPER,
  23. 'AMIGA FORMAT,cu AMIGA,DAMIEN NOONAN,MAFF EVANS,ROCKET RANGER,DAVID JASON, 
  24. 'BOYZ IN THE HOOD,SPIKE LEE,BRIAN DE PALMA,STAR TREK,NADEEM,WASIM, 
  25. 'AND LASTLY ME!!!!!!!!!!!!!! 
  26. 'THE BEST PROGRAM ON TV AT THE MOMENT IS BLOSSOM CHANNEL 4 FRIDAY 6:00 
  27. '
  28. 'DIS GOING OUT TO:OCEAN(ONCE THE BEST SOFTWARE HOUSE BUT SADLY NO LONGER)
  29. 'AMIGANUTS,COMMODORE(A600),PAL COMPUTERS,AMIGA COMPUTING(WHAT HAPPENED TO YOU) 
  30. 'THE WHOLE CAPITIALIST WORLD,AEROSOL SPRAYS,VIVISECTION,FRIDGES,CROSSROADS 
  31. 'AMIGA MART(FOR BEING CRAP),THE PERSON THAT SUNK THE RAINBOW WARRIOR 
  32. 'THE YUGOSLAVIAN GOVERNMENT,JOHN MAJOR,THE TORY PARTY,WAR....... 
  33. 'SCOTT STEWARD,LOUIS FORBES YOU STUPID FUCKIN BLOODY MINDED PEOPLE!!!!   
  34. 'AND ALL OTHER PEOPLE WHO THINK VIOLENCE SOLVES ANYTHING 
  35. 'AND LASTLY THE ROYAL FAMILY.(MY ARSE YOU NEED ALL YOUR MONEY) 
  36. '
  37. 'REMEMBER IF YOU HAVE TWO POUND AND YOUR NEIGHBOUR HAS NOTHING IS IT NOT 
  38. 'BETTER FOR YOU BOTH TO HAVE A POUND(THE POOR YOU WILL HAVE WITH YOU ALWAYS) 
  39. '
  40. Screen Open 0,320,256,32,Lowres : Curs Off : Flash Off : Hide : Cls 0
  41. Break Off 
  42. INIT
  43. Procedure INIT
  44. Close Editor 
  45. Break Off 
  46. MENU
  47. End Proc
  48. Procedure MENU
  49. Cls 0 : Hide : Curs Off : Flash Off 
  50.    Load "olempiad1:samples/music.abk" : Music 1
  51.    Screen Open 0,320,256,32,Lowres : Curs Off : Flash Off : Cls 0
  52.    Show On 
  53.    Load Iff "olempiad1:ilbm-iff/menu.iff",0
  54.    Reserve Zone 2
  55.    N=1
  56.    Set Zone N,45,56 To 244,94
  57.    N=2
  58.    Set Zone N,39,162 To 257,202
  59.    Do 
  60.       M=Mouse Zone
  61.       If M=1 and Mouse Key=1
  62. Reset Zone : Reserve Zone : _INTRO
  63. End If 
  64.       If M=2 and Mouse Key=1
  65.          Music Stop : Erase 3 : Reset Zone : Reserve Zone : RACE
  66.       End If 
  67.    Loop 
  68. End Proc
  69. Procedure _INTRO
  70.    Screen Open 0,320,256,32,Lowres : Hide : Curs Off : Flash Off : Cls 0
  71.    Load Iff "olempiad1:ilbm-iff/storry1",0
  72.    Wait 350
  73.    Load Iff "olempiad1:ilbm-iff/overworked",0
  74.    Wait 150
  75.    Load "olempiad1:sprites/shade+dib.abk"
  76.    Cls 0
  77.    Double Buffer 
  78.    Get Sprite Palette 
  79.    Sam Bank 4 : Load "olempiad1:samples/buycheap.abk",4
  80.    X_SHADE=330 : Y_SHADE=125 : SHADE=1
  81.    X_DIBBLE=330 : Y_DIBBLE=125 : DIBBLE=10
  82.    Do 
  83.       Bob 1,X_SHADE,Y_SHADE,$8000+SHADE
  84.       X_SHADE=X_SHADE-2
  85.       SHADE=SHADE+1
  86.       If SHADE=7 Then SHADE=1
  87.       If X_SHADE=-2 Then Gosub SELL
  88.       Wait Vbl 
  89.       Wait 4
  90.    Loop 
  91.    SELL:
  92.    '   For HERBERT=63 To 0
  93.    '      Mvolume HERBERT 
  94.    '   Next HERBERT 
  95.    '   Music Stop 
  96.    '   Erase 3
  97.    Repeat 
  98.       Bob 1,X_SHADE,Y_SHADE,SHADE
  99.       SHADE=SHADE+1
  100.       X_SHADE=X_SHADE+2
  101.       If SHADE=7 Then SHADE=1
  102.       Wait Vbl 
  103.       Wait 4
  104.    Until X_SHADE=150
  105.    SHADE=8
  106.    Bob 1,X_SHADE-1,Y_SHADE,SHADE
  107.    Wait Vbl 
  108.    Wait 50
  109.    SHADE=9
  110.    Bob 1,X_SHADE-1,Y_SHADE,SHADE
  111.    Wait Vbl 
  112.    Wait 50
  113. HERBERT=63
  114. Repeat 
  115. HERBERT=HERBERT-1
  116.       Mvolume HERBERT
  117. Wait 6
  118. Until HERBERT=0
  119.    Music Stop 
  120.    SHADE=7
  121.    Bob 1,X_SHADE-1,Y_SHADE,SHADE
  122.    Wait Vbl 
  123.    Sam Play 1
  124.    Wait 150
  125.    SHADE=8
  126.    Bob 1,X_SHADE-1,Y_SHADE,SHADE
  127.    Wait Vbl 
  128.    Wait 4
  129.    Wait 50
  130.    SHADE=9
  131.    Bob 1,X_SHADE-1,Y_SHADE,SHADE
  132.    Wait Vbl 
  133.    Wait 50
  134.    SHADE=7
  135.    Bob 1,X_SHADE,Y_SHADE,SHADE
  136.    Wait Vbl 
  137.    Sam Play 2
  138.    Wait 100
  139.    Erase 4
  140.    Load "olempiad1:samples/bill+whoo.abk",4
  141.    SHADE=9
  142.    Bob 1,X_SHADE,Y_SHADE,SHADE
  143.    Wait Vbl : Wait 25
  144.    Sam Play 1
  145.    Wait 50
  146.    SHADE=1
  147.    Do 
  148.       Bob 1,X_SHADE,Y_SHADE,$8000+SHADE
  149.       SHADE=SHADE+1 : If SHADE=7 Then SHADE=1
  150.       X_SHADE=X_SHADE-2
  151.       If X_SHADE=-2 Then Gosub BILL
  152.       Wait Vbl 
  153.    Loop 
  154.    BILL:
  155.    Sam Loop On 
  156.    Sam Play 2
  157.    Wait 50
  158.    Erase 4
  159.    Bob Off(SHADE)
  160.    Do 
  161.       Bob 1,X_DIBBLE,Y_DIBBLE,$8000+DIBBLE
  162.       DIBBLE=DIBBLE+1
  163.       If DIBBLE=16 Then DIBBLE=10
  164.       If X_DIBBLE=-4 Then Gosub AGAIN
  165.       X_DIBBLE=X_DIBBLE-2
  166.       Wait Vbl 
  167.       Wait 3
  168.    Loop 
  169.    AGAIN:
  170.    Erase 1
  171.    Sam Loop Off 
  172.    Mvolume 63
  173.    Music 1
  174.    Load Iff "olempiad1:ilbm-iff/think",0
  175.    Wait 300
  176.    Load Iff "olempiad1:hairygrandad",0
  177.    Wait 200
  178.    Load Iff "olempiad1:ilbm-iff/instructions1.iff",0
  179.    Do 
  180.       If Mouse Key=1
  181.          Gosub TWO
  182.       End If 
  183.    Loop 
  184.    TWO:
  185.    Load Iff "olempiad1:ilbm-iff/instructions2.iff",0
  186.    Do 
  187.       If Mouse Key=1
  188.          Music Stop 
  189.          Erase 3
  190.          RACE
  191.       End If 
  192.    Loop 
  193. End Proc
  194. Procedure RACE
  195.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  196.    Sam Bank 4
  197.    Load Iff "olempiad1:ilbm-iff/insdisk.iff",0
  198.    Wait Key 
  199. On Error Proc TRAP
  200.    Load "olempiad2:samples/racesamples.abk",4 : Sam Loop On : Sam Play 8
  201.    Load Iff "olempiad2:ilbm-iff/intros/200intro.iff",0
  202.    Load "olempiad2:sprites/lem2.abk"
  203.    Wait 100
  204.    Screen Open 0,400,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  205.    Load Iff "olempiad2:ilbm-iff/grounds/stadium.iff",0
  206.    Double Buffer 
  207.    Screen Display 0,,,,256
  208.    NO=0
  209.    REDNO=0
  210.    GREENO=0
  211.    BLUENO=0
  212.    X_LEM=20
  213.    Y_LEM=130
  214.    XRED=20
  215.    YRED=200
  216.    X_GREEN#=20
  217.    Y_GREEN#=90
  218.    RED=7
  219.    GREEN=13
  220.    TURN=0
  221.    BLUE=1
  222.    Bob 1,X_LEM,Y_LEM,BLUE
  223.    Bob 2,XRED,YRED,RED
  224.    Bob 3,X_GREEN#,Y_GREEN#,GREEN
  225.    _ORNOT=0
  226.    LES=0
  227.    Sam Loop Off : Wait 50
  228.    Rem marks set go 
  229.    Sam Play 1 : Wait 50 : Sam Play 2 : Wait 50 : Sam Play 3
  230.    Wait 10
  231.    Sam Loop On : Sam Play 7
  232.    Do 
  233.       Bob 1,X_LEM,Y_LEM,BLUE
  234.       Bob 2,XRED,YRED,RED
  235.       Bob 3,X_GREEN#,Y_GREEN#,GREEN
  236.       If X_LEM>590 and BLUENO=0
  237.          Sam Loop Off 
  238.          NO=NO+1 : BLUENO=4
  239.          N=1
  240.          Bob Off(N)
  241.          If WINNER=0
  242.             WINNER=3
  243.             Sam Play 4
  244.          End If 
  245.       End If 
  246.       If XRED>590 and REDO=0
  247.          REDO=3 : NO=NO+1
  248.          N=2
  249.          Bob Off(N)
  250.          Sam Loop Off 
  251.          If WINNER=0
  252.             WINNER=1
  253.             Sam Play 5 : Sam Play 6
  254.          End If 
  255.       End If 
  256.       If X_GREEN#>590 and GREENO=0
  257.          Sam Loop Off 
  258.          NO=NO+1
  259.          GREENO=1
  260.          N=3
  261.          Bob Off(N)
  262.          If WINNER=0
  263.             Sam Play 6
  264.             WINNER=2
  265.          End If 
  266.       End If 
  267.       If X_LEM>170 and LES=0
  268.          Screen Offset 0,X_SCREEN,
  269.          X_SCREEN=X_SCREEN+1
  270.          If X_SCREEN>265
  271.             LES=1
  272.          End If 
  273.       End If 
  274.       If Mouse Key=1
  275.          GO=1
  276.       End If 
  277.       If Mouse Key=2 and GO=1
  278.          GO=0 : X_LEM=X_LEM+10 : BLUE=BLUE+1
  279.          If BLUE=7
  280.             BLUE=1
  281.          End If 
  282.       End If 
  283.       Add DELAY,1,1 To 4
  284.       XRED=XRED+1
  285.       X_GREEN#=X_GREEN#+0.8
  286.       If DELAY=4
  287.          Add GREEN,1,13 To 18
  288.          Add RED,1,7 To 12
  289.       End If 
  290.       If NO=3
  291.          Gosub WIN
  292.       End If 
  293.       Wait Vbl 
  294.    Loop 
  295.    WIN:
  296.    Erase 1
  297.    Screen Close 0
  298.    Screen Open 0,320,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  299.    If WINNER=3
  300.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  301.       Sam Loop On 
  302.       Sam Play 7
  303.       Wait 150
  304.       Sam Loop Off 
  305.       Erase 4
  306.    End If 
  307.    If WINNER<>3
  308.       Load Iff "olempiad2:ilbm-iff/medals/onlyone.iff",0
  309.       Sam Loop Off : Sam Play 5 : Wait 150
  310.       Erase 4
  311.    End If 
  312. Screen Close 0
  313.    JAVELIN
  314. End Proc
  315. Procedure JAVELIN
  316.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  317.    Sam Bank 4 : Load "olempiad2:samples/fieldsamples.abk",4 : Sam Loop On : Sam Play 4
  318.    Load Iff "olempiad2:ilbm-iff/intros/javeintro.iff",0
  319.    Load "olempiad2:sprites/javelinlem.abk" : Wait 150
  320.    Screen Open 0,800,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  321.    Sam Loop Off 
  322.    Load Iff "olempiad2:ilbm-iff/grounds/javelin.iff",0
  323.    Rem bobs 1-6 are lemms 7 to 10 are javelin 
  324.    Double Buffer 
  325.    Screen Display 0,,,,256
  326.    X_LEM=20 : Y_LEM=150 : X=1
  327.    Bob 1,X_LEM,Y_LEM,X
  328.    Wait Vbl 
  329.    Wait 50
  330.    Sam Play 1 : Wait 25 : Sam Loop On : Sam Play 3
  331.    Do 
  332.       If X_LEM=182
  333.          WAY=1
  334.          Gosub THROW
  335.       End If 
  336.       If BLUE=7
  337.          BLUE=1
  338.       End If 
  339.       Bob 1,X_LEM,Y_LEM,BLUE
  340.       If Mouse Key=1
  341.          GO=1
  342.       End If 
  343.       If Mouse Key=2 and GO=1
  344.          Inc DIST
  345.          GO=0
  346.       End If 
  347.       BLUE=BLUE+1
  348.       If WAY=0
  349.          X_LEM=X_LEM+2
  350.       End If 
  351.       Wait 4
  352.       Wait Vbl 
  353.       Bob 1,X_LEM,Y_LEM,7
  354.    Loop 
  355.    THROW:
  356.    'Print DIST
  357.    'Wait Key  
  358.    'DIST=40 
  359.    'Print DIST
  360.    'Wait Key  
  361.    J=8
  362.    If DIST=>33 and DIC=0
  363.       DIST=33
  364.       PLACE=1
  365.       DIC=1
  366.    End If 
  367.    If DIST<33 and DIST>25 and DIC=0
  368.       PLACE=2
  369.       DIC=1
  370.    End If 
  371.    If DIST<25 and DIC=0
  372.       PLACE=3
  373.       DIC=1
  374.    End If 
  375.    'Print DIST
  376.    'Wait Key  
  377.    DIST=DIST*10
  378.    DIST=DIST+X_LEM+2
  379.    Repeat 
  380.       Bob 2,X_LEM,Y_LEM,J
  381.       X_LEM=X_LEM+1
  382.       If Y_LEM>100
  383.          Y_LEM=Y_LEM-1
  384.       End If 
  385.       If Y_LEM=<100
  386.          J=9
  387.       End If 
  388.       Wait Vbl 
  389.       Screen Offset 0,X_LEM-180,
  390.    Until X_LEM=DIST
  391.    J=10
  392.    Repeat 
  393.       Bob 2,X_LEM,Y_LEM,J
  394.       X_LEM=X_LEM+1
  395.       Y_LEM=Y_LEM+1
  396.       Wait Vbl 
  397.    Until Y_LEM=150
  398.    Erase 1 : Bob Off(BLUE)
  399.    Fade 7 : Wait 7*15 : Screen Open 0,320,256,32,Lowres : Cls 0 : Hide : Flash Off : Curs Off : 
  400.    If PLACE=1
  401.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  402.       Wait 50
  403.       Sam Loop On : Sam Play 3 : Wait 150 : Sam Loop Off : 
  404.       Wait 50
  405.       Erase 4
  406.    End If 
  407. Sam Loop Off 
  408.    If PLACE=2
  409.       Sam Loop Off 
  410.       Load Iff "olempiad2:ilbm-iff/medals/silver.iff",0
  411.       Wait 50
  412.       Sam Loop On : Sam Play 3 : Wait 100 : Sam Loop Off 
  413.       Wait 50
  414.       Erase 4
  415.    End If 
  416.    If PLACE=3
  417.       Sam Loop Off 
  418.       Load Iff "olempiad2:ilbm-iff/medals/bronze.iff",0
  419.       Wait 50
  420.       Sam Play 2
  421.       Wait 100
  422.       Erase 4
  423.    End If 
  424.    Wait 50
  425. Screen Close 0
  426.    SKATE
  427. End Proc
  428. Procedure LONG
  429.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  430.    Sam Bank 4 : Load "olempiad2:samples/fieldsamples.abk",4 : Sam Loop On : Sam Play 4
  431.    Load Iff "olempiad2:ilbm-iff/intros/longintro.iff",0
  432.    Load "olempiad2:sprites/longlem2.abk"
  433.    Wait 100
  434.    Screen Open 0,800,256,16,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  435.    Load Iff "olempiad2:ilbm-iff/grounds/longjump.iff",0
  436.    Sam Loop Off 
  437.    Rem bobs 1-6 are lemms 7 to 10 are javelin 
  438.    Double Buffer 
  439.    Screen Display 0,,,,256
  440.    X_LEM=20 : Y_LEM=150 : X=1
  441.    Bob 1,X_LEM,Y_LEM,X
  442.    Wait Vbl 
  443.    Wait 50
  444.    Sam Play 1 : Wait 25 : Sam Loop On : Sam Play 3
  445.    Do 
  446.       If X_LEM=182
  447.          WAY=1
  448.          Gosub JUMP
  449.       End If 
  450.       If BLUE=6
  451.          BLUE=1
  452.       End If 
  453.       Bob 1,X_LEM,Y_LEM,BLUE
  454.       If Mouse Key=1
  455.          GO=1
  456.       End If 
  457.       If Mouse Key=2 and GO=1
  458.          Inc DIST
  459.          GO=0
  460.       End If 
  461.       BLUE=BLUE+1
  462.       If WAY=0
  463.          X_LEM=X_LEM+2
  464.       End If 
  465.       Wait 4
  466.       Wait Vbl 
  467.    Loop 
  468.    JUMP:
  469.    'Print DIST
  470.    'Wait Key  
  471.    'DIST=40 
  472.    'Print DIST
  473.    'Wait Key  
  474.    J=7
  475.    If DIST=>33 and DIC=0
  476.       DIST=33
  477.       PLACE=1
  478.       DIC=1
  479.    End If 
  480.    If DIST<33 and DIST>25 and DIC=0
  481.       PLACE=2
  482.       DIC=1
  483.    End If 
  484.    If DIST=<25 and DIC=0
  485.       PLACE=3
  486.       DIC=1
  487.    End If 
  488.    'Print DIST
  489.    'Wait Key  
  490.    DIST=DIST*10
  491.    DIST=DIST+X_LEM+2
  492.    BLUE=6
  493.    Bob 1,X_LEM,Y_LEM,BLUE
  494.    Wait Vbl 
  495.    Wait 6
  496.    BLUE=7
  497.    Repeat 
  498.       Bob 1,X_LEM,Y_LEM,BLUE
  499.       X_LEM=X_LEM+1
  500.       If Y_LEM>100
  501.          Y_LEM=Y_LEM-1
  502.       End If 
  503.       Wait Vbl 
  504.       Screen Offset 0,X_LEM-180,
  505.    Until X_LEM=DIST
  506.    Repeat 
  507.       Bob 1,X_LEM,Y_LEM,BLUE
  508.       X_LEM=X_LEM+1
  509.       Y_LEM=Y_LEM+1
  510.       Wait Vbl 
  511.    Until Y_LEM=150
  512.    BLUE=8
  513.    Bob 1,X_LEM,Y_LEM,BLUE
  514.    Wait 6
  515.    BLUE=7
  516.    Bob 1,X_LEM,Y_LEM,BLUE
  517.    Wait 10
  518.    BLUE=9
  519.    Bob 1,X_LEM,Y_LEM+10,BLUE
  520.    Wait 50
  521.    Sam Loop Off 
  522.    Erase 1
  523.    Bob Off(BLUE)
  524.    Fade 7 : Wait 7*15 : Screen Open 0,320,256,32,Lowres : Cls 0 : Hide : Flash Off : Curs Off : 
  525.    Cls 0
  526.    If PLACE=1
  527.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  528.       Sam Play 3 : Wait 150 : Erase 4
  529.    End If 
  530.    If PLACE=2
  531.       Load Iff "olempiad2:ilbm-iff/medals/silver.iff",0
  532.       Sam Play 3 : Wait 100 : Erase 4
  533.    End If 
  534.    If PLACE=3
  535.       Load Iff "olempiad2:ilbm-iff/medals/bronze.iff",0
  536.       Sam Play 2
  537.       Wait 100 : Erase 4
  538.    End If 
  539. Screen Close 0
  540.    ROW
  541. End Proc
  542. Procedure SKATE
  543. Rem OKAY DOLLYS SHOW US YOUE TITS
  544.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  545.    Sam Bank 4
  546.    Load "olempiad2:samples/racesamples.abk",4 : Sam Loop On : Sam Play 8
  547.    Load Iff "olempiad2:ilbm-iff/intros/skateintro.iff",0
  548.    Load "olempiad2:sprites/skatelem.abk"
  549.    Wait 100
  550.    Screen Open 0,400,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  551.    Load Iff "olempiad2:ilbm-iff/grounds/stadium.iff",0
  552.    Double Buffer 
  553.    Screen Display 0,,,,256
  554.    NO=0
  555.    REDNO=0
  556.    GREENO=0
  557.    BLUENO=0
  558.    X_LEM=20
  559.    Y_LEM=130
  560.    XRED=20
  561.    YRED=200
  562.    X_GREEN#=20
  563.    Y_GREEN#=90
  564.    RED=7
  565.    GREEN=13
  566.    TURN=0
  567.    BLUE=1
  568.    Bob 1,X_LEM,Y_LEM,BLUE
  569.    Bob 2,XRED,YRED,RED
  570.    Bob 3,X_GREEN#,Y_GREEN#,GREEN
  571.    _ORNOT=0
  572.    LES=0
  573.    Sam Loop Off : Wait 50
  574.    Rem marks set go 
  575.    Sam Play 1 : Wait 50 : Sam Play 2 : Wait 50 : Sam Play 3
  576.    Wait 10
  577.    Sam Loop On : Sam Play 7
  578.    Do 
  579.       Bob 1,X_LEM,Y_LEM,BLUE
  580.       Bob 2,XRED,YRED,RED
  581.       Bob 3,X_GREEN#,Y_GREEN#,GREEN
  582.       If X_LEM>590 and BLUENO=0
  583.          Sam Loop Off 
  584.          NO=NO+1 : BLUENO=4
  585.          N=1
  586.          Bob Off(N)
  587.          If WINNER=0
  588.             WINNER=3
  589.             Sam Play 4
  590.          End If 
  591.       End If 
  592.       If XRED>590 and REDO=0
  593.          REDO=3 : NO=NO+1
  594.          N=2
  595.          Bob Off(N)
  596.          Sam Loop Off 
  597.          If WINNER=0
  598.             WINNER=1
  599.             Sam Play 5 : Sam Play 6
  600.          End If 
  601.       End If 
  602.       If X_GREEN#>590 and GREENO=0
  603.          Sam Loop Off 
  604.          NO=NO+1
  605.          GREENO=1
  606.          N=3
  607.          Bob Off(N)
  608.          If WINNER=0
  609.             Sam Play 6
  610.             WINNER=2
  611.          End If 
  612.       End If 
  613.       If X_LEM>170 and LES=0
  614.          Screen Offset 0,X_SCREEN,
  615.          X_SCREEN=X_SCREEN+1
  616.          If X_SCREEN>265
  617.             LES=1
  618.          End If 
  619.       End If 
  620.       If Mouse Key=1
  621.          GO=1
  622.       End If 
  623.       If Mouse Key=2 and GO=1
  624.          GO=0 : X_LEM=X_LEM+10 : BLUE=BLUE+1
  625.          If BLUE=6
  626.             BLUE=1
  627.          End If 
  628.       End If 
  629.       Add DELAY,1,1 To 4
  630.       XRED=XRED+1
  631.       X_GREEN#=X_GREEN#+0.8
  632.       If DELAY=4
  633.          Add GREEN,1,12 To 15
  634.          Add RED,1,7 To 10
  635.       End If 
  636.       If NO=3
  637.          Gosub BE
  638.       End If 
  639.       Wait Vbl 
  640.    Loop 
  641.    BE:
  642.    Erase 1
  643.    Screen Close 0
  644.    Screen Open 0,320,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  645.    If WINNER=3
  646.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  647.       Sam Loop On 
  648.       Sam Play 7
  649.       Wait 150
  650.       Erase 4
  651.       Sam Loop Off 
  652.    End If 
  653.    If WINNER<>3
  654.       Load Iff "olempiad2:ilbm-iff/medals/onlyone.iff",0
  655.       Sam Loop Off : Sam Play 5 : Wait 150
  656.       Erase 4
  657.    End If 
  658. Screen Close 0
  659.    LONG
  660. End Proc
  661. Procedure ROW
  662.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  663.    Sam Bank 4
  664.    Load "olempiad2:samples/racesamples.abk",4 : Sam Loop On : Sam Play 8
  665.    Load Iff "olempiad2:ilbm-iff/intros/rowintro.iff",0
  666.    Load "olempiad2:sprites/rowlem.abk"
  667.    Wait 100
  668.    Screen Open 0,400,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  669.    Load Iff "olempiad2:ilbm-iff/grounds/boat.iff",0
  670.    Double Buffer 
  671.    Screen Display 0,,,,256
  672.    NO=0
  673.    REDNO=0
  674.    GREENO=0
  675.    BLUENO=0
  676.    X_LEM=20
  677.    Y_LEM=130
  678.    XRED#=20
  679.    YRED#=200
  680.    X_GREEN=20
  681.    Y_GREEN=90
  682.    RED=5
  683.    GREEN=9
  684.    TURN=0
  685.    BLUE=1
  686.    Bob 1,X_LEM,Y_LEM,BLUE
  687.    Bob 2,XRED#,YRED#,RED
  688.    Bob 3,X_GREEN,Y_GREEN,GREEN
  689.    _ORNOT=0
  690.    LES=0
  691.    Sam Loop Off : Wait 50
  692.    Rem marks set go 
  693.    Sam Play 1 : Wait 50 : Sam Play 2 : Wait 50 : Sam Play 3
  694.    Wait 10
  695.    Sam Loop On : Sam Play 7
  696.    Do 
  697.       Bob 1,X_LEM,Y_LEM,BLUE
  698.       Bob 2,XRED#,YRED#,RED
  699.       Bob 3,X_GREEN,Y_GREEN,GREEN
  700.       If X_LEM>590 and BLUENO=0
  701.          Sam Loop Off 
  702.          NO=NO+1 : BLUENO=4
  703.          N=1
  704.          Bob Off(N)
  705.          If WINNER=0
  706.             WINNER=3
  707.             Sam Play 4
  708.          End If 
  709.       End If 
  710.       If XRED#>590 and REDO=0
  711.          REDO=3 : NO=NO+1
  712.          N=2
  713.          Bob Off(N)
  714.          Sam Loop Off 
  715.          If WINNER=0
  716.             WINNER=1
  717.             Sam Play 5 : Sam Play 6
  718.          End If 
  719.       End If 
  720.       If X_GREEN>590 and GREENO=0
  721.          Sam Loop Off 
  722.          NO=NO+1
  723.          GREENO=1
  724.          N=3
  725.          Bob Off(N)
  726.          If WINNER=0
  727.             Sam Play 6
  728.             WINNER=2
  729.          End If 
  730.       End If 
  731.       If X_LEM>170 and LES=0
  732.          Screen Offset 0,X_SCREEN,
  733.          X_SCREEN=X_SCREEN+1
  734.          If X_SCREEN>265
  735.             LES=1
  736.          End If 
  737.       End If 
  738.       If Mouse Key=1
  739.          GO=1
  740.       End If 
  741.       If Mouse Key=2 and GO=1
  742.          GO=0 : X_LEM=X_LEM+7 : BLUE=BLUE+1
  743.          If BLUE=5
  744.             BLUE=1
  745.          End If 
  746.       End If 
  747.       XRED#=XRED#+0.8
  748.       X_GREEN=X_GREEN+1
  749.       Add DELAY,1,1 To 4
  750.       If DELAY=4
  751.          Add GREEN,1,9 To 12
  752.          Add RED,1,5 To 8
  753.       End If 
  754.       If NO=3
  755.          Gosub LES
  756.       End If 
  757.       Wait Vbl 
  758.    Loop 
  759.    LES:
  760.    Erase 1
  761.    Screen Close 0
  762.    Screen Open 0,320,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  763.    If WINNER=3
  764.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  765.       Sam Loop On 
  766.       Sam Play 7
  767.       Wait 150
  768.       Sam Loop Off 
  769.       Erase 4
  770.    End If 
  771.    If WINNER<>3
  772.       Load Iff "olempiad2:ilbm-iff/medals/onlyone.iff",0
  773.       Sam Loop Off : Sam Play 5 : Wait 150
  774.       Erase 4
  775.    End If 
  776. Screen Close 0
  777.   SWIM
  778. End Proc
  779. Procedure SWIM
  780.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  781.    Sam Bank 4
  782.    Load "olempiad2:samples/racesamples.abk",4 : Sam Loop On : Sam Play 8
  783.    Load Iff "olempiad2:ilbm-iff/intros/swimintro.iff",0
  784.    Load "olempiad2:sprites/swimlem.abk"
  785.    Wait 100
  786.    Screen Open 0,400,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  787.    Load Iff "olempiad2:ilbm-iff/grounds/boat.iff",0
  788.    Double Buffer 
  789.    Screen Display 0,,,,256
  790.    NO=0
  791.    REDNO=0
  792.    GREENO=0
  793.    BLUENO=0
  794.    X_LEM=20
  795.    Y_LEM=130
  796.    XRED=20
  797.    YRED=200
  798.    X_GREEN#=20
  799.    Y_GREEN#=90
  800.    RED=8
  801.    GREEN=15
  802.    TURN=0
  803.    BLUE=1
  804.    Bob 1,X_LEM,Y_LEM,BLUE
  805.    Bob 2,XRED,YRED,RED
  806.    Bob 3,X_GREEN#,Y_GREEN#,GREEN
  807.    _ORNOT=0
  808.    LES=0
  809.    Sam Loop Off : Wait 50
  810.    Rem marks set go 
  811.    Sam Play 1 : Wait 50 : Sam Play 2 : Wait 50 : Sam Play 3
  812.    Wait 10
  813.    Sam Loop On : Sam Play 7
  814.    Do 
  815.       Bob 1,X_LEM,Y_LEM,BLUE
  816.       Bob 2,XRED,YRED,RED
  817.       Bob 3,X_GREEN#,Y_GREEN#,GREEN
  818.       If X_LEM>590 and BLUENO=0
  819.          Sam Loop Off 
  820.          NO=NO+1 : BLUENO=4
  821.          N=1
  822.          Bob Off(N)
  823.          If WINNER=0
  824.             WINNER=3
  825.             Sam Play 4
  826.          End If 
  827.       End If 
  828.       If XRED>590 and REDO=0
  829.          REDO=3 : NO=NO+1
  830.          N=2
  831.          Bob Off(N)
  832.          Sam Loop Off 
  833.          If WINNER=0
  834.             WINNER=1
  835.             Sam Play 5 : Sam Play 6
  836.          End If 
  837.       End If 
  838.       If X_GREEN#>590 and GREENO=0
  839.          Sam Loop Off 
  840.          NO=NO+1
  841.          GREENO=1
  842.          N=3
  843.          Bob Off(N)
  844.          If WINNER=0
  845.             Sam Play 6
  846.             WINNER=2
  847.          End If 
  848.       End If 
  849.       If X_LEM>170 and LES=0
  850.          Screen Offset 0,X_SCREEN,
  851.          X_SCREEN=X_SCREEN+1
  852.          If X_SCREEN>265
  853.             LES=1
  854.          End If 
  855.       End If 
  856.       If Mouse Key=1
  857.          GO=1
  858.       End If 
  859.       If Mouse Key=2 and GO=1
  860.          GO=0 : X_LEM=X_LEM+9 : BLUE=BLUE+1
  861.          If BLUE=8
  862.             BLUE=1
  863.          End If 
  864.       End If 
  865.       Add DELAY,1,1 To 4
  866.       XRED=XRED+1
  867.       X_GREEN#=X_GREEN#+0.8
  868.       If DELAY=4
  869.          Add GREEN,1,15 To 24
  870.          Add RED,1,8 To 14
  871.       End If 
  872.       If NO=3
  873.          Gosub GRAN
  874.       End If 
  875.       Wait Vbl 
  876.    Loop 
  877.    GRAN:
  878.    Erase 1
  879.    Screen Close 0
  880.    Screen Open 0,320,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  881.    If WINNER=3
  882.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  883.       Sam Loop On 
  884.       Sam Play 7
  885.       Wait 150
  886.       Sam Loop Off 
  887.       Erase 4
  888.       Cls 0
  889.    End If 
  890.    If WINNER<>3
  891.       Load Iff "olempiad2:ilbm-iff/medals/onlyone.iff",0
  892.       Sam Loop Off : Sam Play 5 : Wait 150
  893.       Erase 4
  894.       Cls 0
  895.    End If 
  896. Screen Close 0
  897. HORSE_AND_CART
  898. End Proc
  899. Procedure HORSE_AND_CART
  900.    HUNG=0
  901.    Screen Open 0,320,256,32,Lowres : Cls 0 : Curs Off : Flash Off : Hide : Cls 0
  902.    Sam Bank 4
  903.    Load "olempiad2:samples/racesamples.abk",4 : Sam Loop On : Sam Play 8
  904.    Load Iff "olempiad2:ilbm-iff/intros/horseintro.iff",0
  905.    Load "olempiad2:sprites/dogpull1.abk"
  906.    Wait 100
  907.    Screen Open 0,800,256,32,Lowres : Cls 0 : Hide : Curs Off : Flash Off : Cls 0
  908.    Load Iff "olempiad2:ilbm-iff/grounds/horse.iff",0
  909.    Double Buffer 
  910.    Screen Display 0,,,,256
  911.    Sam Loop Off 
  912.    X_LEM=20
  913.    X_COM=20
  914.    Y_LEM=200
  915.    Y_COM=100
  916.    LEM=1
  917.    COM=10
  918.    DELAY=0
  919.    Bob 1,X_LEM,Y_LEM,LEM
  920.    Bob 2,X_COM,Y_COM,COM
  921. Wait Vbl 
  922.    Rem marks set go 
  923. Wait 50
  924.    Sam Play 1 : Wait 50 : Sam Play 2 : Wait 50 : Sam Play 3
  925.    Wait 10
  926.    Sam Loop On : Sam Play 7
  927.    Do 
  928.       Bob 1,X_LEM,Y_LEM,LEM
  929.       Bob 2,X_COM,Y_COM,COM
  930.       If Mouse Key=1 Then GO=1
  931.       If X_LEM>170 and LES=0
  932.          Screen Offset 0,X_SCREEN,
  933.          X_SCREEN=X_SCREEN+3
  934.          If X_SCREEN>460
  935.             LES=1
  936.          End If 
  937.       End If 
  938.       Add DELAY,1,1 To 4
  939.       If DELAY=4
  940.          Add COM,1,10 To 18
  941.       End If 
  942.       If Mouse Key=2 and GO=1
  943.          LEM=LEM+1 : X_LEM=X_LEM+5
  944.       End If 
  945.       If LEM=10 Then LEM=1
  946.       X_COM=X_COM+2
  947.       If X_LEM>690 and FART=0
  948.          If WINNER=0
  949.             WINNER=1
  950.          Sam Loop Off : Sam Play 4
  951. End If 
  952.          FART=8
  953.          Bob Off(LEM)
  954.          HUNG=HUNG+1
  955.       End If 
  956.       If X_COM>690 and TURD=0
  957.          If WINNER=0
  958.             WINNER=2 : Sam Loop Off : Sam Play 6
  959.          End If 
  960.          TURD=3
  961.          HUNG=HUNG+1
  962.          Bob Off(COM)
  963.          COM=3
  964.       End If 
  965.       If HUNG=2
  966.          Gosub FIN
  967.       End If 
  968.       Wait Vbl 
  969.    Loop 
  970.    FIN:
  971.    If WINNER<>1
  972.       Sam Loop Off 
  973.       Load Iff "olempiad2:ilbm-iff/medals/onlyone.iff",0
  974.       Sam Play 6
  975.       Wait 100
  976.       Erase 4
  977.       Erase 1
  978.    End If 
  979.    If WINNER=1
  980.       Sam Loop Off 
  981.       Load Iff "olempiad2:ilbm-iff/medals/gold.iff",0
  982.       Sam Play 6
  983.       Wait 100
  984.       Erase 4
  985.       Erase 1
  986.    End If 
  987.    Cls 0
  988. Screen Close 0
  989. _END
  990. End Proc
  991. Procedure WHEREMOUSE
  992.    Amal Freeze : Curs Off : Limit Mouse 
  993.    Paper Point(0,0) : Change Mouse 2 : Show On 
  994.    Repeat 
  995.       MK=Mouse Key : Locate 0,0
  996.       XM=X Screen(X Mouse) : YM=Y Screen(Y Mouse)
  997.       If MK=1
  998.          Print "graphic x = ";XM;" y =";YM;Space$(6)
  999.       Else 
  1000.          Print "text x =";X Text(XM);" y = ";Y Text(YM);Space$(6)
  1001.       End If 
  1002.    Until MK=0
  1003.    Hide On : Change Mouse 1 : Print Space$(23) : Amal On 
  1004. End Proc
  1005. Procedure LASER
  1006. LES=63
  1007. Load "olempiad1:samples/music.abk"
  1008. Music 1
  1009. '***************LASER*************************** 
  1010. '*************BY DARREN BARNEY SKIRVIN 
  1011. Curs Off : Hide 
  1012. Cls 0
  1013. Do 
  1014. PV=Rnd(150)
  1015. PH=Rnd(300)+10
  1016. V=Rnd(20)+15
  1017. Colour 2,Rnd(10000)
  1018. For P=10 To 240 Step 10
  1019. For X=10 To 319 Step V
  1020. Ink 2
  1021. Draw PH,PV To X,P
  1022. Next X
  1023. OUT:
  1024. For X=10 To 319 Step V
  1025. Ink 0
  1026. Draw PH,PV To X,P
  1027. Next X : Next P
  1028. For P=240 To 1 Step -10
  1029. For X=10 To 319 Step V
  1030. Ink 2 : Draw PH,PV To X,P
  1031. Next X
  1032. For X=10 To 319 Step V
  1033. Ink 0 : Draw PH,PV To X,P
  1034. Next X : Next P
  1035. If Mouse Key=1
  1036. Repeat 
  1037. Mvolume LES
  1038. LES=LES-1
  1039. Wait 8
  1040. Until LES=0
  1041. Cls 0
  1042. Erase 3
  1043. MENU
  1044. End If 
  1045. Loop 
  1046. End Proc
  1047. Procedure _END
  1048. Hide On 
  1049. Screen Open 0,320,256,32,Lowres : Curs Off : Flash Off : Cls 0
  1050.    Load Iff "olempiad2:ilbm-iff/thanks",0
  1051.    Do 
  1052.       If Mouse Key=1 Then Gosub INS
  1053.    Loop 
  1054.    INS:
  1055.    Load Iff "olempiad2:ilbm-iff/inspiration"
  1056.    Do 
  1057.       If Mouse Key=1 Then Gosub INSE
  1058.    Loop 
  1059.    INSE:
  1060.    Load Iff "olempiad2:ilbm-iff/insdisk.iff",0
  1061. On Error Proc TRAP
  1062.    Wait Key 
  1063.    Cls 0
  1064. MENU
  1065. End Proc
  1066. Procedure TRAP
  1067. Do 
  1068. X=1
  1069. Loop 
  1070. End Proc
  1071. Procedure OPEN_FOR_DIRTY_JOKES
  1072. 'OH OH YOU FELL FOR IT,THAT HAS MADE MY DAY!!! 
  1073. 'HO HO HO HO HO HO HO HO 
  1074. 'HO HO HO HO HO HO HO HO 
  1075. 'HO HO HO HO HO HO HO HO 
  1076. 'HO HO HO HO HO HO HO HO 
  1077. 'HO HO HO HO HO HO HO HO 
  1078. 'HO HO HO HO HO HO HO HO 
  1079. 'HO HO HO HO HO HO HO HO 
  1080. 'HO HO HO HO HO HO HO HO 
  1081. 'HO HO HO HO HO HO HO HO 
  1082. End Proc