home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd554 / dicktracydemo.amos / dicktracydemo.amosSourceCode < prev    next >
AMOS Source Code  |  2000-07-11  |  7KB  |  260 lines
  1. DT
  2. Procedure DT
  3.    Fade 2 : NL=203 : Dim MSG$(NL) : For X=1 To NL : Read MSG$(X) : Next X
  4.    Data "TR"
  5.    Data "Welcome  To"
  6.    Data "  The 2nd  "
  7.    Data "Part Of Our"
  8.    Data "MEGA  DEMO!"
  9.    Data "           "
  10.    Data " The  POPE "
  11.    Data "And I Hope "
  12.    Data " You  Like "
  13.    Data " Our Small "
  14.    Data "Efforts  At"
  15.    Data " Writting  "
  16.    Data "  Such A   "
  17.    Data "Creature As"
  18.    Data "     A     "
  19.    Data "MEGA  DEMO!"
  20.    Data "SG"
  21.    Data "           "
  22.    Data " This Part "
  23.    Data " Is Titled "
  24.    Data "Dick  Tracy"
  25.    Data " Of Course!"
  26.    Data " Or Did You"
  27.    Data " Work That "
  28.    Data "  Out For  "
  29.    Data "YourSelves?"
  30.    Data "KG"
  31.    Data "           "
  32.    Data "Dick  Tracy"
  33.    Data " Graphics  "
  34.    Data "By The POPE"
  35.    Data "-----------"
  36.    Data "Codeing and"
  37.    Data "additional "
  38.    Data " GRAPHICS  "
  39.    Data "  By TEX!  "
  40.    Data "-----------"
  41.    Data "   MUSIC   "
  42.    Data "By Sausage!"
  43.    Data "-----------"
  44.    Data "           "
  45.    Data "Sorry Did I"
  46.    Data "   Hear    "
  47.    Data "  You Say  "
  48.    Data "There Is No"
  49.    Data " MUSIC?!?! "
  50.    Data "           "
  51.    Data "Hey Sausage"
  52.    Data " Where  Is "
  53.    Data "The  MUSIC?"
  54.    Data "           "
  55.    Data "It's Coming"
  56.    Data "Just  Wait!"
  57.    Data "           "
  58.    Data "           "
  59.    Data "What Do You"
  60.    Data " Mean It's "
  61.    Data "  Coming?  "
  62.    Data "           "
  63.    Data "Hey Sausage"
  64.    Data "Do Us All A"
  65.    Data "Favour  And"
  66.    Data "   Stand   "
  67.    Data "Against The"
  68.    Data "   Wall!   "
  69.    Data "           "
  70.    Data "     OK.   "
  71.    Data "           "
  72.    Data "SG"
  73.    Data "You  Should"
  74.    Data "Of  Started"
  75.    Data "KS"
  76.    Data " The Music "
  77.    Data "KG"
  78.    Data "  SAUSAGE! "
  79.    Data "           "
  80.    Data " Well That "
  81.    Data "Takes  Care"
  82.    Data "Of Sausage!"
  83.    Data "           "
  84.    Data "Oh Dear! It"
  85.    Data "Would  Seem"
  86.    Data " That  The "
  87.    Data " Music Was "
  88.    Data "Here  After"
  89.    Data "   ALL!!   "
  90.    Data "SM"
  91.    Data "           "
  92.    Data "Great Music"
  93.    Data "    EH?    "
  94.    Data "           "
  95.    Data "Sorry There"
  96.    Data " Is No BIG "
  97.    Data " Scrolling "
  98.    Data "Letters But"
  99.    Data "You Have To"
  100.    Data "    Be     "
  101.    Data " Different "
  102.    Data "Some  Time!"
  103.    Data "And If You "
  104.    Data "Don't  Like"
  105.    Data "  It Then  "
  106.    Data "           "
  107.    Data "Take  That!"
  108.    Data "SG"
  109.    Data "           "
  110.    Data "KG"
  111.    Data "Better  Put"
  112.    Data "Some Greets"
  113.    Data "  In Now!  "
  114.    Data "-+-+-+-+-+-"
  115.    Data " Hi To.... "
  116.    Data "MIG, BIGMAC"
  117.    Data "AXEL F, MAL"
  118.    Data " BEASTIE!, "
  119.    Data "  SANDRA,  "
  120.    Data "  Robert,  "
  121.    Data " FRANCOIS, "
  122.    Data "  DAISY!,  "
  123.    Data "PIXIE, GARY"
  124.    Data " All  PHIL "
  125.    Data "  COLLINS  "
  126.    Data "Fans!,  And"
  127.    Data " All  AMOS "
  128.    Data "  Users!!  "
  129.    Data "-+-+-+-+-+-"
  130.    Data "           "
  131.    Data "And Now For"
  132.    Data "  A Joke:  "
  133.    Data "           "
  134.    Data " ATARI ST! "
  135.    Data "^^^^^^^^^^^"
  136.    Data "           "
  137.    Data "I'm Off Now"
  138.    Data " See You On"
  139.    Data " The  AMOS "
  140.    Data "    BBS!   "
  141.    Data "(02)6046816"
  142.    Data "           "
  143.    Data "    CU!    "
  144.    Data "    TEX    "
  145.    Data "           "
  146.    Data "The  POPE's"
  147.    Data " Up  Next! "
  148.    Data "ST"
  149.    Data "PR"
  150.    Data " The  POPE "
  151.    Data "Would  Like"
  152.    Data "     To    "
  153.    Data " Apologise "
  154.    Data " For  What "
  155.    Data "  TEX Has  "
  156.    Data " Said Thus "
  157.    Data "    Far!   "
  158.    Data "           "
  159.    Data "   Thanks  "
  160.    Data "   Kerrie  "
  161.    Data " For  your "
  162.    Data "  Help!?!  "
  163.    Data "           "
  164.    Data "L"
  165.    Data "See I told "
  166.    Data "You I would"
  167.    Data "Give Credit"
  168.    Data " For  what "
  169.    Data "You  Did?!?"
  170.    Data "           "
  171.    Data "I must not "
  172.    Data "  forget   "
  173.    Data "my  special"
  174.    Data "   MATE    "
  175.    Data "  Wayne!   "
  176.    Data "B"
  177.    Data "           "
  178.    Data "B"
  179.    Data " Bless You "
  180.    Data "    ALL!   "
  181.    Data "           "
  182.    Data "    BYE!   "
  183.    Data "           "
  184.    Data "(Waynes  My"
  185.    Data "   DOG!)   "
  186.    Data "ST"
  187.    Data "SR"
  188.    Data "           "
  189.    Data " Thats  It "
  190.    Data "For Now, If"
  191.    Data "You Want To"
  192.    Data "  See The  "
  193.    Data " Complete  "
  194.    Data " Demo Then "
  195.    Data " You  Will "
  196.    Data "  Have To  "
  197.    Data "  Wait  A  "
  198.    Data "While  Yet!"
  199.    Data "           "
  200.    Data " Also  The "
  201.    Data "Music  Will"
  202.    Data "    Be     "
  203.    Data "Different! "
  204.    Data "See You All"
  205.    Data "   Later!  "
  206.    Data "SR"
  207.    Screen Open 1,320,20,2,Lowres : Colour 0,$0 : Colour 1,$F00 : Screen Hide 1 : Unpack 10 To 0 : Double Buffer : Screen Open 2,320,256,2,Lowres : Colour 1,$0 : Screen 0
  208.    Flash Off : Curs Off : Hide On : Bob Update Off 
  209.    'Colour 1,$0 
  210.    B$="A 0,(1,6)(2,6)(3,6)(4,6)(5,6)(6,6)(7,6)(8,6)(9,6)(10,6)"
  211.    Bob 1,212,-3,1 : Channel 1 To Bob 1 : Amal 1,B$ : Amal On 1
  212.    C$="A 0,(11,3)(12,3)(13,3)(14,3)"
  213.    Bob 2,61,52,11 : Channel 2 To Bob 2 : Amal 2,C$
  214.    Bob 3,214,95,15 : Bob 4,232,95,16 : Bob 5,245,95,17 : Bob 6,259,95,18
  215.    Bob 7,273,95,16 : Bob 8,287,95,19 : Bob 9,300,95,20
  216.    For X=3 To 9 : Channel X To Bob X : Next X
  217.    D$="Loop: M 0,13,23; M 0,-13,23; J Loop"
  218.    For X=3 To 9 : Amal X,D$ : Amal On X : Wait 2 : Next X
  219.    Def Scroll 1,214,137 To 308,245,0,-1
  220.    Wait 5 : Screen Close 2
  221.    CT=0 : Pen 1 : Paper 0
  222.    Repeat 
  223.       B:
  224.       Inc CT : If CT=NL+1 Then For Z=1 To 109 : Scroll 1 : Next Z : CT=0 : For X=63 To 0 Step -1 : Mvolume X : Wait 3 : Next X : Goto B
  225.       If MSG$(CT)="SG" Then Amal 2,C$ : Amal On 2 : Sam Play 9,1,13000 : Sam Loop On : Goto B
  226.       If MSG$(CT)="KG" Then Amal Off 2 : Bob 2,,,11 : Sam Loop Off : Goto B
  227.       If MSG$(CT)="KS" Then Amal Off 2 : Bob 2,,,11 : Sam Loop Off : Sam Play 6,2,8000 : Goto B
  228.       If MSG$(CT)="SM" Then Music 1 : Goto B
  229.       If MSG$(CT)="KM" Then Music Off : Goto B
  230.       If MSG$(CT)="ST" Then For Z=1 To 109 : Scroll 1 : Next Z : Goto B
  231.       If MSG$(CT)="PR"
  232.          Set Rainbow 1,1,150,"","(4,15,15)","" : Rainbow 1,73,232,54
  233.          Set Rainbow 2,1,150,"","(4,1,15)","" : Rainbow 2,68,178,54
  234.       End If 
  235.       If MSG$(CT)="PR" Then Goto B
  236.       If MSG$(CT)="SR"
  237.          Set Rainbow 1,1,150,"(4,15,15)","","(4,15,15)" : Rainbow 1,73,232,54
  238.          Set Rainbow 2,1,150,"(4,1,15)","","(4,1,15)" : Rainbow 2,68,178,54
  239.       End If 
  240.       If MSG$(CT)="SR" Then Goto B
  241.       If MSG$(CT)="TR"
  242.          Set Rainbow 1,1,150,"","","(4,15,15)" : Rainbow 1,73,232,54
  243.          Set Rainbow 2,1,150,"","","(4,1,15)" : Rainbow 2,68,178,54
  244.       End If 
  245.       If MSG$(CT)="TR" Then Goto B
  246.       If MSG$(CT)="L" Then Sam Loop Off : Sam Play 6,3,8000 : Goto B
  247.       If MSG$(CT)="B" Then Sam Loop Off : Sam Play 6,4,8000 : Goto B
  248.       Screen 1 : Locate 0,0 : Print "           "; : Locate 0,0 : Print MSG$(CT);
  249.       SC:
  250.       For X=1 To 9 : 
  251.          Screen Swap 
  252.          Screen Copy 1,0,X-1,88,X To 0,218,244
  253.          Screen Swap 
  254.          Screen Copy 1,0,X-1,88,X To 0,218,244 : Bob Update 
  255.          Screen 0 : Scroll 1
  256.       Next X
  257.    Until Mouse Click<>0
  258.    Fade 10 : Rainbow Del 1 : Rainbow Del 2
  259.    For X=63 To 0 Step -1 : Mvolume X : Wait 3 : Next X
  260. End Proc