home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD2.iso / DEMOS / SOD-ShadowRun.DMS / SOD-ShadowRun.adf / Intro.AMOS / Intro.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1993-03-28  |  9.6 KB  |  177 lines
  1. Hide : Unpack 12 To 1 : Screen Hide 1 : Unpack 11 To 3 : Colour 15,0 : Screen Hide 3
  2. Screen Open 2,352,200,16,Lowres : Cls 0
  3. Flash Off 
  4. Get Palette 1
  5. Screen Open 0,320,256,16,Lowres
  6. Cls 0 : Flash Off : Colour 15,0
  7. Double Buffer : Autoback 0
  8. Global ABC$,TA$,TB$,TC$
  9. Procedure TXTS
  10. Shared ABC$,TA$,TB$,TC$
  11.  
  12. ABC$="abcdefghijklmnopqrstuvwxyz 1234567890!#�$%&/()=?;.:,-+" : ABC$=Upper$(ABC$)
  13. TA$="Peace to the world!                      and money to me!!!                              "
  14. TA$=TA$+"Welcome to another scrolltext-demo of firefly....                    "
  15. TA$=TA$+"As you can see I did improve my three way scrolling in a view points (better font - thanks to dragon, faster, and - well see yourself...) "
  16. TA$=TA$+"          Ok. i guess i should type some lines. so first i will tell you how this demo was created. it was on a saturday evening and it was raining. Suddenly my doorbell rang. "
  17. TA$=TA$+"Dragon made a short visit, just to scan in some graphics for a game called #chopterduell 2#, we wanted to write. you know that kind of a shoot em all down game, with 3 way paralax-scrolling in the "
  18. TA$=TA$+"background and so on..... so after the scanning session (around 19.00 pm that day) we decided to make a try with the scrolling. but it didnt work the way we wanted it. all we got was supersoft "
  19. TA$=TA$+"scrolling with a strange color-mixture. So we turned our plans, froze #project chopterduell2# and programmed this little "
  20. TA$=TA$+"demo with the effect....                  Hope you enjoy it!                 Oh my dear, that was just one out of three texts i ve gotta type...    so much work this typing stuff, so i guess this will be my last demo with "
  21. TA$=TA$+"three scroll-texts at once ...                                           "
  22. TA$=TA$+"But that doesnt mean this will be my last demo forever.                     wait till summer, when i return from my trip - maybe i bring back home some good ideas for a new asthonishing demo.                                           "
  23. TA$=TA$+"by for now, have a good time, stay clean and never forget: the world is an orange!!!!!!!!!!!!!!!                                                                                                                           "
  24. TA$=TA$+"                                                                                                                        "
  25.  
  26. TB$="and in this line the greetings:   firefly (thats me, oh yeah!) sends his best wishes for the future and greets to the following persons:  (not in alphabetical order)       (but the girls first of course)                                         "
  27. TB$=TB$+"sonia leiker (a little hello with a long kiss!),                          heike unger (hi, i am missing your psychoanalysis!),                    sandy (our little heart-baby),                               steffi (the one from munich, she"
  28. TB$=TB$+" knows what i mean),                     andrea (called #mausi#),                       dagmar (the world famous card-shark),                                "
  29. TB$=TB$+"karin (huepf doch mal, karin!),                                  but i dont want to forget another steffi, sister of a guy named red rat. i greet her in this text because she has got such a lovely voice on the phone......                   "
  30. TB$=TB$+"               ok. so much for the girls! and now the rest: greetings go to the whole team of   s.o.d.                        "
  31. TB$=TB$+" special greetings go to wizard for installing my turbocard, dragon for giving me the font and idea, gundi for dont damming me with those poor glasses last year (no gundi, you dont have to jump anymore! (if you dont like to!)), red rat for"
  32. TB$=TB$+" giving me access to his computer when i needed it;         and now a really special greet (which only one person will understand) to martin ransberger:     #der seine weihnachtsplaetzchen nicht gegessen hat!!!!#                           "
  33. TB$=TB$+" a very special greet goes to the guys from ocean (who programmed epic - the first game i bought, that doesnt run with the blizzard-turbocard!!!)                                          "
  34. TB$=TB$+" more greetings go to the rest from my former school class - hope you enjoy the # hard life #, too!!!                  "
  35. TB$=TB$+" at the end of this greeting-line i want to say hello to all fans of guns&roses, genesis, melissa etheridge, j.r.r. tolkien, terry pratchett, douglas adams and frank herbert!                              "
  36. TB$=TB$+"                                              bye.                                                                             "
  37. TC$="--- Deutschland in den Schatten ---   " : TC$=TC$+TC$
  38. TC$=TC$+"for all you guys out there who want to take part on some runs contact me:                   hippauf andreas, bayerwaldring 26,     8312 Dingolfing,   Tel.:   08731/7974                                 "
  39. TC$=TC$+"if you want to know what had happened (happens) to our proud,good and old germany  login the matrix and find it out yerself...                                                               "
  40. TC$=TC$+"if you dont get around with it cause you dont know what to do watch this line carefully:                       "
  41. TC$=TC$+"first login by typing your login and password (if you have one). if you dont have a login type #guest# or #gast# instead... "
  42. TC$=TC$+"               ok. then you should be brought to the matrix. if you have a datalink in your head plug in to enter the cyberspace and start your quest!                            "
  43. TC$=TC$+"if the mcp (Master-controll-programm) cannot find cybersoftware you are brought to the good old shell from the ending 20th century.                    type #help#  or wait till some "
  44. TC$=TC$+"#decker# helps you along....                                                                        "
  45. TC$=TC$+"                      so far chummer,          see you in the    m a t r i x                            firefly                                                                                                                                 "
  46. TC$=TC$+"                                                                                                                                                                                                                                                "
  47.  
  48. End Proc
  49. DEMO
  50. Procedure DEMO
  51.    Dim PX(55),PY(55)
  52.    Z=1
  53.    For Y=0 To 5
  54.       For X=0 To 8
  55.          PX(Z)=X*32+1
  56.          PY(Z)=Y*32+1
  57.          Inc Z
  58.       Next X
  59.    Next Y
  60.    QA=5 : SPEEDA=4 : SPEEDC=3
  61.    QB=2 : YB=50 : SPEEDB=6
  62.    QC=2 : YA=180
  63.    LT=1 : LTB=1 : LTC=1
  64.    Screen 0
  65.    Track Play 
  66.  
  67.    Track Loop On 
  68.    TXTS
  69.    N=16
  70.    For Q=1 To 14
  71.       Colour Q,N
  72.       Dec N : If N<0 Then N=16
  73.    Next Q : Q=0
  74.    Flash 15,"(000,200)(ffe,10)(000,200)(ffe,8)(000,10)(eff,10)(000,600)(efe,5)(000,400)(0f0,7)(000,300)(00f,6)(000,400)"
  75.    Timer=0
  76.    YC=100
  77.    Repeat 
  78.       Screen 2
  79.       If SCA>20
  80.          B$=Upper$(Mid$(TA$,LT,1))
  81.          E=Instr(ABC$,B$)
  82.          Screen Copy Logic(1),PX(E),PY(E),PX(E)+21,PY(E)+21 To Logic(2),321,0
  83.          Inc LT : SCA=0
  84.       End If 
  85.       Screen Copy Logic(2),SPEEDA,0,352,24 To Logic(2),0,0
  86.       Add SCA,SPEEDA
  87.       If SCB>20
  88.          B$=Upper$(Mid$(TB$,LTB,1))
  89.          E=Instr(ABC$,B$)
  90.          Screen Copy Logic(1),PX(E),PY(E),PX(E)+21,PY(E)+21 To Logic(2),321,50
  91.          Inc LTB : SCB=0
  92.       End If 
  93.       Screen Copy Logic(2),SPEEDB,50,352,74 To Logic(2),0,50
  94.       Add SCB,SPEEDB
  95.       If SCC>20
  96.          B$=Upper$(Mid$(TC$,LTC,1))
  97.          E=Instr(ABC$,B$)
  98.          Screen Copy Logic(1),PX(E),PY(E),PX(E)+21,PY(E)+21 To Logic(2),321,100
  99.          Inc LTC : SCC=0
  100.       End If 
  101.       Screen Copy Logic(2),SPEEDC,100,352,124 To Logic(2),0,100
  102.       Add SCC,SPEEDC
  103.       Screen 0 : Screen Copy 3 To Logic(0)
  104.       Screen Copy Logic(2),0,0,320,23 To Logic(0),0,YC,16*14
  105.       Screen Copy Logic(2),0,50,320,73 To Logic(0),0,YB,16*14
  106.       Screen Copy Logic(2),0,100,320,123 To Logic(0),0,YA,16*14
  107.       Screen Swap : Wait Vbl 
  108.       Add YA,QA
  109.       Add YB,QB
  110.       If YA>200 or(YA<4) Then QA=QA*-1
  111.       If YB>70 or(YB<20) Then QB=QB*-1
  112.       If LT>Len(TA$) Then LT=1
  113.       If LTB>Len(TB$) Then LTB=1
  114.       If LTC>Len(TC$) Then LTC=1
  115.       YC=Y Screen(Y Mouse)
  116.       PPI=Rnd(200)
  117.       If Timer>500 and(Timer<520) Then Fade 10 To 3
  118.    Until Mouse Click
  119.    Screen Close 1 : Screen Close 3 : Screen Close 2
  120.    Auto View Off 
  121.    Unpack 13 To 2
  122.    Unpack 14 To 1
  123.    Screen To Front 1
  124.    Screen 1
  125.    Auto View On 
  126.    Palette 0,$C00,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  127.    Shift Up 10,1,16,
  128.    Wait 200
  129.    Shift Off 
  130.    Fade 5,$3A8,
  131.    Wait 200
  132.    Auto View Off 
  133.    Wait Vbl 
  134.    Screen 2
  135.    Palette $3A8,$FFF,$C00,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8,$3A8
  136.    Wait Vbl 
  137.    Screen To Front 2
  138.    Screen Hide 1
  139.    Auto View On 
  140.    Fade 15,$0,,,$C97,$EB9,,,,,$644,$865,$976,$A86,$C97,$DA8,$EB9
  141.    Wait 300
  142.    Fade 10,,,,,,$F90,$D80,$3A8,$78
  143.    Pen 1 : Paper 7
  144.    Locate 0,24 : Centre "Deutschland in den Schatten"
  145.    For Q=0 To 10
  146.       Z$=Inkey$
  147.    Next Q
  148.    Repeat 
  149.       Z$=Inkey$
  150.    Until Mouse Click or(Z$<>"")
  151.    Screen Close 0
  152.    Screen Close 1
  153.    For Q=Screen Height To 0 Step -2
  154.       Screen Display 2,,,,Q
  155.       Wait Vbl 
  156.    Next Q
  157. End Proc
  158. Screen Close 2
  159. Wait Vbl 
  160. Track Stop 
  161. Show 
  162. Rem Ok. Thats it!!!
  163. Rem                  I guess it looks quiet fine now. So enjoy it and have 
  164. Rem fun. Like I do! And keep your eyes on the street man!
  165. Rem  
  166. Rem See you, in the  
  167. Rem
  168. Rem                                      S h a d o w s . . . . .   
  169. Rem
  170. Rem
  171. Rem
  172. Rem
  173. Rem
  174. Rem
  175. Rem--------------------------------------------------------------------------
  176. Rem* Firefly (1993) ********************************************************* Aaaaah thats life... 
  177. Rem--------------------------------------------------------------------------