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