home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / james_demo.amos / james_demo.amosSourceCode < prev    next >
AMOS Source Code  |  1994-01-01  |  11KB  |  286 lines
  1. Set Buffer 10 : On Error Proc ERRR
  2. Global ZON,VOL,LINE,H$,SS
  3. JAMES
  4. Procedure JAMES
  5.    Break Off 
  6.    HELP
  7.    VOL=63
  8.    SS=5
  9.    LINE=1
  10.    Timer=0
  11.    Set Rainbow 0,1,20,"(1,1,10)(1,-1,10)","",""
  12.    Rainbow 0,0,0,20
  13.    Channel 2 To Rainbow 0
  14.    Move X 2,"(1,1,20)(1,-1,20)l"
  15.    Move On 
  16.    A$=A$+"Bonjourno.(Pardon-PAUL)       Coding: Paul(Jo)     Art & Graphics: Joby   'H' for Help    Greetingz goto the following dudettes...  Pritash, Super Nova, Neil, Sid, Ste, Sparky, Mike (Phhhh!) & any other cu(snip!) who "
  17.    A$=A$+"wants to be up there (not that there are any)...        Do any of you want some pictures or music doing for you? Thought not, but if there is some wierdo out there who does then please write to the following address-------------->         "
  18.    A$=A$+"124 Radcliffe Road,    The Haulgh,      Bolton,          BL2 1PE.          or phone...          (0204) 394227            All letters will be answered and so will the phone calls (not that there are going to be any!!!)           You can "
  19.    A$=A$+"also write to me for utilities... Oh, I forgot to mention that this demo was wrote using AMOS. It wasn't that important but we could get done for releasing things using it and not mentioning the name!            "
  20.    A$=A$+"As you can see by the demo       We(that is Paul and I) are not very experienced in this field of work(nor any other come to think of it)(speak for yourself-PAUL) but you should expect to see us springing up every month or so with new "
  21.    A$=A$+"releases and that possibly includes games (Mmmmmmmmmmm!)...        This scroll text is getting long and boring so to add flavour to it... Here is something special... Watch the picture!!!!! Isn't that good, Yes , you're right , NOTHING"
  22.    A$=A$+"HAPPENED.  Have I ever told you that O.M.D (Orchestral Manouvers in the Dark) are a brilliant group and you might see a demo with loadsa their music on  "
  23.    A$=A$+"(If I can bribe the coder (HINT!) (HMMMMMMMMMMMMMM-PAUL)       "
  24.    A$=A$+"What's black and white and looks like a horse...  I don't know. Why?      I don't know either. I was just asking you to see if you knew...(yes well , ladies and gentlemen, that's about Jobies Joke Limitation...) "
  25.    A$=A$+"     Imagine this...     It was a bright sunny day (you must be joking. You don't get them in Bolton) (Too True-PAUL)"
  26.    A$=A$+"and I was walking a dog.(I don't know who's dog but it's a dog all the same) All of a sudden a group of girls jumped out screaming and yelling. I though.That's amazing,but I thought.(Think hard about the last few bits, they DO make "
  27.    A$=A$+"sense.) Gosh! Look at those girls. I think they're screaming "
  28.    A$=A$+"and yelling at me.(Hmmmm-PAUL) Then they all ran past me.(Awwwwwwwww-PAUL)"
  29.    A$=A$+" I turned round to find the dog had been splatted by a lorry which had crashed into a car.(boo Hoo-PAUL) They weren't screaming at me. They might have been if I wasn't with that stupid mutt,but they where "
  30.    A$=A$+"screaming at the dog!(Gosh, this guy has one hell of a large EGO.) I am never taking a dog out with me again...     (Yes well, Paul here, I have just been through Jobies scroll text, looking for spelling mistakes, and missing grammar(Dead "
  31.    A$=A$+"Exciting, and I've had to change over 100 things, and there are still probably more, The guy jibbers on for ages about nothing....)   Well , we're coming to the end of this scroll-text, so I would just like to thank Neil for releasing this "
  32.    A$=A$+"Demo, and to you for having it.. To get in touch with me, (If You Really did want to!!) then write to Jobies House, and adress it To Paul. Thats all folks... don't forget that pressing 'H' will give you the help page... Have fun, I Hope you "
  33.    A$=A$+"liked this demo... BYEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE..............                                                   "
  34.    Screen Open 3,640,9,2,Hires
  35.    Colour 1,$FFF
  36.    Screen Display 3,128,80,,
  37.    Curs Off 
  38.    Hide 
  39.    Music 1
  40.    Unpack 2 To 0
  41.    Screen Show 2
  42.    Screen Open 1,360,17,2,Lowres
  43.    Colour 1,$FFF
  44.    Screen Display 1,128,285,,
  45.    Def Scroll 1,0,0 To 360,9,-1,0
  46.    Screen 0
  47.    Shift Up 5,3,16,1
  48.    Screen 1
  49.    Curs Off 
  50.    For N=1 To Len(A$)
  51.       Print At(40,0);Mid$(A$,N,1)
  52.       For A=1 To 8
  53.          Wait Vbl 
  54.          Scroll 1
  55.          CHECKALL
  56.       Next A
  57.    Next N
  58. End Proc
  59. Procedure ERRR
  60.    If Errn=26
  61.       ALERT["System Error","Error has occoured.","Probably Due To Memory Fragmentation","Or Low Memory.Giving Up, Sorry","Cancel","Cancel"] : End 
  62.       JAMES
  63.    End If 
  64.    ALERT["System Error","Error "+Str$(Errn),"Has Occoured","HEEEELLLP","Retry","Cancel"]
  65.    If ZON=1 Then Resume Next 
  66.    If ZON=2 Then End 
  67.    Resume 
  68. End Proc
  69. Procedure CHECKALL
  70.    If SS=1 Then SS=2
  71.    A=Screen
  72.    If Mouse Key=1 Then Led Off 
  73.    If Mouse Key=2 Then Led On 
  74.    A$=Upper$(Inkey$)
  75.    If A$="" Then Pop Proc
  76.    If A$="2"
  77.       Screen 0
  78.       SS=SS+1
  79.       Shift Up SS,3,16,1
  80.    End If 
  81.    If A$="1"
  82.       Screen 0
  83.       SS=SS-1
  84.       Shift Up SS,3,16,1
  85.    End If 
  86.    If A$="Q" Then VOL=VOL+1
  87.    If A$="Z" Then VOL=VOL-1
  88.    If VOL<1 Then VOL=1
  89.    If VOL>63 Then VOL=63
  90.    Mvolume VOL
  91.    If A$="A" Then ENROUTINE
  92.    If A$="P" Then Tempo 0
  93.    If A$="O" Then Tempo 17
  94.    If A$="M"
  95.       Screen Display 1,128,285,,
  96.       Channel 1 To Screen Display 1 : Move Y 1,"(1,-1,24)(1,1,24)l" : Move On 1
  97.    End If 
  98.    If A$="N" Then Move Off 1
  99.    If A$="H"
  100.       Screen To Front 2
  101.       Channel 7 To Sprite 1
  102.       Sprite 1,128,50,4
  103.       Move X 7,"(1,1,300)(1,-1,300)l"
  104.       Move Y 7,"(1,1,236)(1,-1,236)l"
  105.       Move On 7
  106.    End If 
  107.    If A$="G"
  108.       Screen To Back 2
  109.       Sprite Off 1 : Move Off 7
  110.    End If 
  111.    If A$="B" Then Screen Display 1,128,285,, : Move Off 1
  112.    If A$="W" Then Screen To Front 3
  113.    If A$="X" Then Screen To Back 3
  114.    If A$="S"
  115.       Screen 3
  116.       H$=Str$(LINE)
  117.       H$=H$-" "
  118.       Restore H$
  119.       Read A$
  120.       Cls 
  121.       Centre A$
  122.       LINE=LINE+1
  123.    End If 
  124.    If LINE=70 Then LINE=1
  125.    If A$="F" Then Tempo 100
  126.    If A$="R" Then Sprite Off 1 : Move Off 7
  127.    Screen A
  128.    Pop Proc
  129.    1 Data "I sing myself to sleep"
  130.    2 Data "A song from the darkest hour"
  131.    3 Data "Secrets I can't keep"
  132.    4 Data "In sight of the day"
  133.    5 Data "Swing from high to deep"
  134.    6 Data "Extremes of sweet and sour"
  135.    7 Data "Hope that god exists"
  136.    8 Data "I hope I pray"
  137.    9 Data "Drawn by the undertow"
  138.    10 Data "My life is out of control"
  139.    11 Data "I belive this wave will bear my weight"
  140.    12 Data "So let it flow"
  141.    13 Data "Oh sit down"
  142.    14 Data ".Oh sit down."
  143.    15 Data "..Oh sit down.."
  144.    16 Data "Sit down next to me"
  145.    17 Data "Sit down"
  146.    18 Data ".Sit down."
  147.    19 Data "..Sit down.."
  148.    20 Data "...Sit down..."
  149.    21 Data "Down in symapthy"
  150.    22 Data "                               "
  151.    23 Data "Now I'm relived to hear"
  152.    24 Data "That you've been to some far out places"
  153.    25 Data "It's hard to carry on"
  154.    26 Data "When you feel all alone"
  155.    27 Data "Now I've swum back down again"
  156.    28 Data "Its worse than it was before"
  157.    29 Data "If I hadn't seen such riches I could"
  158.    30 Data "Live with being poor"
  159.    31 Data "Oh sit down"
  160.    32 Data ".Oh sit down."
  161.    33 Data "..Oh sit down.."
  162.    34 Data "Sit down next to me"
  163.    35 Data "Sit down"
  164.    36 Data ".Sit down."
  165.    37 Data "..Sit down.."
  166.    38 Data "...Sit down..."
  167.    39 Data "Doooooooown in sympathy"
  168.    40 Data "Dooooooooooooooooooooooooown"
  169.    41 Data "Dooooooooooooooooooooooooooown"
  170.    42 Data "Those who feel the breath of sadness"
  171.    43 Data "Sit down next to me"
  172.    44 Data "Those who find themselves ridiculous"
  173.    45 Data "Sit down next to me"
  174.    46 Data "Those who find themselves religious"
  175.    47 Data "Sit down next to me"
  176.    48 Data ""
  177.    49 Data ".Oh sit down."
  178.    50 Data "..Oh sit down.."
  179.    51 Data "Sit down next to me"
  180.    52 Data "Sit down"
  181.    53 Data ".Sit down."
  182.    54 Data "..Sit down.."
  183.    55 Data "...Sit down..."
  184.    56 Data "Dooooooooooown in sympathy"
  185.    57 Data "Doooooooooooooooooown"
  186.    58 Data ""
  187.    59 Data ""
  188.    60 Data ""
  189.    61 Data ""
  190.    62 Data "Thats about it Folks..."
  191.    63 Data ""
  192.    64 Data ""
  193.    65 Data ""
  194.    66 Data ""
  195.    67 Data ""
  196.    68 Data ""
  197.    69 Data ""
  198. End Proc
  199. Procedure ALERT[A$,D$,E$,F$,B$,C$]
  200.    A=Screen
  201.    Tempo 0 : Freeze : Screen Open 7,320,120,4,Hires : Screen Display 7,220,80,200,200 : Limit Mouse 208,80 To 366,199 : Reserve Zone 10 : Show On : Flash Off : Curs Off : Cls 0 : Palette 0,$F52,$6F,$FFF : Ink 1
  202.    Bar 0,0 To 320,20 : Bar 0,94 To 320,120
  203.    Locate 0,0 : Ink 2
  204.    Bar 0,20 To 320,98 : Ink 3
  205.    Box 0,0 To 318,20 : Box 0,20 To 318,99 : Box 0,99 To 318,119
  206.    Text(320-(Len(A$)*8))/2,13,A$ : Locate 2,10 : Ink 0 : Paper 1 : Pen 3 : Print Border$(B$,2)
  207.    X=40-Len(C$)-2 : Y=10 : Locate X,Y : Print Border$(C$,2) : Paper 2 : Locate 0,5
  208.    Centre D$ : Cdown : Centre E$ : Cdown : Centre F$
  209.    Set Zone 1,8,72 To 8+(Len(B$)*8)+16,72+(8*3) : Set Zone 2,(X*8)-8,(Y*8)-8 To(X*8)+Len(C$)*8,Y*8+(8*3) : Locate 0,13
  210.    Ink 3 : Paper 1 : Centre "AMOS Alert V1.1 (C) Paul Heald."
  211.    Do 
  212.       MISS:
  213.       If Mouse Key=1 and Mouse Zone>0 Then ZON=Mouse Zone : Goto EXIIT
  214.       If Mouse Zone>0 Then Gosub INVBUT : Goto MISS
  215.       Locate 2,10 : Ink 0 : Paper 1 : Pen 3 : Print Border$(B$,2)
  216.       X=40-Len(C$)-2 : Y=10
  217.       Locate X,Y : Print Border$(C$,2)
  218.    Loop 
  219.    INVBUT:
  220.    Inverse On 
  221.    If Mouse Zone=1
  222.       Locate 2,10
  223.       Print Border$(B$,2)
  224.    End If 
  225.    If Mouse Zone=2
  226.       X=40-Len(C$)-2 : Y=10
  227.       Locate X,Y
  228.       Print Border$(C$,2)
  229.    End If 
  230.    Inverse Off 
  231.    Return 
  232.    EXIIT:
  233.    Screen Close 7
  234.    Tempo 17 : Unfreeze 
  235.    Hide 
  236.    Screen A
  237. End Proc
  238. Procedure HELP
  239.    Screen Open 2,640,256,2,Hires
  240.    Curs Off 
  241.    Screen Hide 2
  242.    Colour 1,$FFF
  243.    Print "                            Help Screen"
  244.    Print "                            ~~~~~~~~~~~"
  245.    Print " "
  246.    Print ""
  247.    Print ""
  248.    Print " Hello Out There , PAUL here, Here are the Commands For this Program..."
  249.    Print ""
  250.    Print ""
  251.    Print "  Q-------------->     Volume Up "
  252.    Print "  Z-------------->     Volume Down "
  253.    Print "  A-------------->     End Scrolly "
  254.    Print "  Left mouse----->     Filter Off"
  255.    Print "  Right mouse---->     Filter On "
  256.    Print "  M-------------->     Bounce Scrolly"
  257.    Print "  N-------------->     Stop Bouncing Scrolly "
  258.    Print "  B-------------->     Replace Scrolly "
  259.    Print "  P-------------->     Pause Music "
  260.    Print "  O-------------->     Unpause Music "
  261.    Print "  F-------------->     Fast Forward Music"
  262.    Print "  H-------------->     This Page "
  263.    Print "  G-------------->     Back To Demo"
  264.    Print "  W-------------->     Words On"
  265.    Print "  S-------------->     Next Line"
  266.    Print "  X-------------->     Words Off"
  267.    Print "  R-------------->     Remove that annoying Amos sprite"
  268.    Print "  1-------------->     Speed Color changing"
  269.    Print "  2-------------->     slow color changing"
  270.    Print ""
  271.    Print ""
  272.    Print "Thats About it, Last Things ...... Thanks to Francois Lionette, For Writing "
  273.    Print "AMOS, Mandarin/Jawx for releasing Amos, and You For Buying This Demo."
  274. End Proc
  275. Procedure ENROUTINE
  276.    ALERT["Program Request","You Really","Want To Leave","This Demo","Yes please","Oh No!"]
  277.    If ZON=2 Then Pop Proc
  278.    If ZON=1 Then Music Off 
  279.    Screen Close 1 : Screen Close 2 : Screen Close 3
  280.    Screen 0
  281.    Cls 0
  282.    Rainbow Del 
  283.    Screen Close 0
  284.    Move Off 
  285.    End 
  286. End Proc