home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd519 / intro / intro.amosSourceCode < prev    next >
AMOS Source Code  |  1991-07-11  |  4KB  |  127 lines
  1. Global SET
  2. Procedure WOBBLY_SCROLL[TXT$,SCRN,X,Y]
  3.    Screen Open SCRN,450,20,2,Lowres
  4.    Screen Display SCRN,50+X,Y,,
  5.    Palette 0,$FFF
  6.    Curs Off 
  7.    Cls 0
  8.    TXT$=TXT$+Space$(50)
  9.    Locate 51,0
  10.    Memorize X 
  11.    Memorize Y 
  12.    Def Scroll 1,0,0 To 450,10,-2,0
  13.    For I=1 To Len(TXT$)
  14.       Remember X 
  15.       Remember Y 
  16.       Print Mid$(TXT$,I,1);
  17.       For J=1 To 4
  18.          Scroll 1
  19.          If Timer=500
  20.             Screen 0
  21.             Fade 5
  22.             Screen SCRN
  23.          End If 
  24.          If Timer=575
  25.             Screen To Back 0
  26.             Screen 1
  27.             Fade 7 To 2
  28.             Screen SCRN
  29.          End If 
  30.          If Timer=1000
  31.             Screen 1
  32.             Fade 5
  33.             Screen SCRN
  34.          End If 
  35.          If Timer=1075
  36.             Screen To Back 1
  37.             Screen 0
  38.             Fade 7 To 2
  39.             Screen SCRN
  40.             Timer=0
  41.          End If 
  42.          If Mouse Key
  43.             I=Len(TXT$)
  44.             For K=0 To 100
  45.                Screen Display SCRN,,Y+K,,
  46.                Wait Vbl 
  47.             Next K
  48.             Screen Close SCRN
  49.          End If 
  50.       Wait Vbl 
  51.       Next J
  52.    Next I
  53. End Proc
  54. Procedure BLACK[SCRN]
  55.    Screen SCRN
  56.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  57. End Proc
  58. Procedure SETUP
  59.    Hide On 
  60.    Unpack 6 To 0
  61.    Screen Hide 0
  62.    Unpack 7 To 1
  63.    Screen Hide 1
  64.    Screen Open 2,32,8,32,Lowres
  65.    Flash Off 
  66.    Get Palette 1
  67.    Screen Hide 2
  68.    BLACK[0]
  69.    BLACK[1]
  70.    Screen Show 0
  71.    Screen Show 1
  72.    Timer=0
  73. End Proc
  74. Procedure GO
  75.    Load "fx/music2.abk"
  76.    Shift Off 
  77.    Fade 15
  78.    Wait 225
  79.    Music 1
  80.    QUESTION
  81.    Fade 15
  82.    Wait 225
  83.    SETUP
  84.    Screen To Back 1
  85.    Screen 0
  86.    Fade 7 To 2
  87.    A$="Hello, and welcome to the (hopefully) final version of Karma Productions 'The Pre-Drivers Learning Program', a program that will test your knowledge of the Victorian Road Laws, using a format similar to the exam that is presented to candidate"
  88.    A$=A$+"s hoping to obtain their 'L' plates. This program has undergone a number of revisions since its first release, which was actually written for our Year 12 VCE English Communication Project. This final version has better graphics and sound, "
  89.    A$=A$+"more efficient routines (including some extra bits), and better disk compaction and handling. Naturally, this makes our earlier versions (of which a few copies are floating around) quite redundant. This version was produced for the AMOS PD"
  90.    A$=A$+" library, mainly because there seems to be a sudden drop in submissions. Hopefully, everybody has been working on long projects, and will soon flood the market with lots of high-quality software!!! We in Karma have been developing a few it"
  91.    A$=A$+"ems, such as demos and a game or two, but these are not quite ready for release. Well, I (Hitman) have always wanted to write a scroll-text, and I guess this is my chance. It's a shame this isn't a demo, or else I could have a monster gree"
  92.    A$=A$+"ts list appearing right about now. However, a greets list shall not appear here, but instead a thoughtful message to everybody. And the message is: BUY A MODEM. Why??? 'Cause their awesome fun. 'Nuff said......                             "
  93.    WOBBLY_SCROLL[A$,3,SET,280]
  94.    For I=63 To 0 Step -1
  95.       Mvolume I
  96.       Wait 3
  97.    Next I
  98.    Music Off 
  99.    Mvolume 63
  100. End Proc
  101. Procedure QUESTION
  102.    Unpack 8 To 0
  103.    Reserve Zone 3
  104.    Set Zone 1,146,149 To 214,164
  105.    Set Zone 2,297,149 To 365,164
  106.    Set Zone 3,445,149 To 513,164
  107.    Show On 
  108.    Change Mouse 2
  109.    SELECT=False
  110.    Repeat 
  111.       If Mouse Key and Mouse Zone=1
  112.          SET=50
  113.          SELECT=True
  114.       End If 
  115.       If Mouse Key and Mouse Zone=2
  116.          SET=50
  117.          SELECT=True
  118.       End If 
  119.       If Mouse Key and Mouse Zone=3
  120.          SET=0
  121.          SELECT=True
  122.       End If 
  123.    Until SELECT=True
  124.    Reset Zone 
  125. End Proc
  126. GO
  127. Run "TheSecondBit"