home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 426-450 / apd427 / plasma.amos / plasma.amosSourceCode < prev    next >
AMOS Source Code  |  1989-11-29  |  5KB  |  142 lines
  1. THE_GRID
  2. HORIZON
  3. PLAS
  4. MAIN
  5. PLUG_OVER
  6. Procedure THE_GRID
  7.    Amal Off : Wait Vbl 
  8.    Auto View Off 
  9.    Sload Start(15),
  10.     Extension_1_022E 0,0,0,1
  11.    Hide On 
  12.    Unpack 8 To 0
  13.    Shift Up 1,1,10,1
  14.    View 
  15.    Timer=0
  16.    While Timer<500
  17.       If Mouse Click
  18.          Timer=501
  19.       End If 
  20.    Wend 
  21.    Shift Off 
  22.    Fade 3 : Wait 45
  23.    Cls 0
  24. End Proc
  25. Procedure HORIZON
  26.    Screen Close 0
  27.    Set Rainbow 0,0,280,"","",""
  28.    Rainbow 0,0,260,280
  29.    Colour Back 0
  30.    Restore RDATA
  31.    For C=0 To 99 : Read CVA : Rain(0,C)=CVA
  32.    Next C : View 
  33.    Set Rainbow 1,0,16,"","",""
  34.    Rainbow 1,0,159,16
  35.    Rain(1,0)=$1
  36.    Rain(1,1)=$5
  37.    Rain(1,2)=$A
  38.    Rain(1,3)=$F
  39.    Rain(1,4)=$A
  40.    Rain(1,5)=$5
  41.    Rain(1,6)=$1
  42.    RDATA:
  43.    Data $1,$2,$3,$3,$4,$4,$5,$6
  44.    Data $6,$7,$7,$7,$8,$8,$9,$9
  45.    Data $9,$A,$A,$B,$B,$C,$C,$C
  46.    Data $10D,$10D,$20E,$20F,$30F,$40F,$40F,$40F
  47.    Data $50F,$50F,$50F,$60F,$60F,$60F,$60F,$70F
  48.    Data $70F,$70F,$80F,$80F,$80F,$90F,$90F,$A0F
  49.    Data $A0F,$A0F,$B0F,$B0F,$C0F,$C0F,$D0F,$D0F
  50.    Data $E0F,$E0F,$F0F,$F0F,$808,$808,$808,$808
  51.    Data $708,$708,$708,$708,$608,$608,$608,$608
  52.    Data $508,$508,$508,$508,$408,$408,$408,$408
  53.    Data $308,$308,$308,$208,$107,$107,$7,$6
  54.    Data $6,$5,$5,$5,$4,$4,$3,$3
  55.    Data $3,$2,$2,$2
  56. End Proc
  57. Procedure PLAS
  58.    Screen Open 1,320,150,32,Lowres
  59.    Curs Off : Flash Off : Cls 0
  60.    Unpack 6 To 1
  61.    Palette 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
  62.    Screen Display 1,,,,120
  63.    Shift Down 1,1,31,1
  64.    Screen Open 2,320,64,8,Lowres
  65.    Curs Off : Flash Off : Cls 2
  66.    Unpack 7 To 2
  67.    Screen Display 2,,162,,
  68. End Proc
  69. Procedure MAIN
  70.    Auto View On 
  71.    SETUP:
  72.    Close Editor 
  73.    SCNT=1
  74.    CNT=31
  75.    SC$=SC$+"STILL WITH US ???           GOOD.         AND NOW A SMALL AD.          IF YOU WANT TO SEE HOW TO PROGRAM A COMPLETE GAME IN AMOS (NOT COMPILED!!) THEN BUY "
  76.    SC$=SC$+"WILLIES WATERWORKS ( OUT NOW AS UPD LICENCEWARE. PHONE NBS (0983) 529594 ) READ THE FOLLOWING REVIEWS: "
  77.    SC$=SC$+"(ANOTHER CLASSIC GAME WORTH HAVING.... 4 OUT OF 5 - GAMES X ISSUE 47 MARCH 92. "
  78.    SC$=SC$+"AS COMPELLING AS EVER... THIS IS A WORTHWHILE INVESTMENT. 5 OUT OF 5 - CU AMIGA APRIL 1992. "
  79.    SC$=SC$+"EXCELLENT PRESENTATION  - AMIGA MANIA APRIL 1992. "
  80.    SC$=SC$+"IT JUST LOOKS A WHOLE LOT MORE PROFESSIONAL.  87 PERCENT - PUBLIC DOMAIN MAY 1992. ) "
  81.    SC$=SC$+"        ( PLUG OVER )        WE NOW CONTINUE WITH THE SCROLLTEXT...... "
  82.    SC$=SC$+"THE OFFICIAL OMEGA CONTACT ADDRESSES FOLLOW ...   BUT BEFORE THAT ANOTHER QUICK AD ...       "
  83.    SC$=SC$+"IF YOU LIKE WHAT YOU SEE AND HEAR AND WOULD LIKE TO JOIN US ....   WE ARE LOOKING "
  84.    SC$=SC$+"FOR A GFX ARTIST TO HELP US IN THE DEVELOPMENT OF OUR FUTURE PRODUCTIONS (GAMES AND DEMOS). "
  85.    SC$=SC$+"WE DO NOT WANT ANY TIMEWASTERS OR CONTACTS WITH ANYTHING ILLEGAL !!!      RMB STOPS SCROLL    "
  86.    SC$=SC$+"CONTACT: NEAL (UTILIZER)-CODER-(WILLIES WATERWORKS / GOLDEN AGES) TEL (0978) 756469 "
  87.    SC$=SC$+"CONTACT: NICK (CERBERUS)-CODER-(GOLDEN AGES) 2 WALTON HOUSE,LLANGOLLEN,CLWYD.NORTH WALES.UK "
  88.    SC$=SC$+"CONTACT: SHAUN (D.S. ATE)-MUSICIAN-(WILLIES WATERWORKS / GOLDEN AGES) TEL (0978) 264187 "
  89.    SC$=SC$+"CONTACT: ALEX (LAZARUS)-MUSICIAN-(GOLDEN AGES) TEL (0978) 861512  "
  90.    SC$=SC$+"CONTACT: STEVE (PARAGON)-CODER-CLASSIFIED!           "
  91.    SC$=SC$+"TO JOIN OUR TEAM IT WOULD HELP IF YOU ARE A FEW BUTTIES SHORT OF A PICNIC !!!        WE ARE ALSO INTERESTED IN CONTACTING ANY AMOS GROUPS TO SWAP IDEAS / ETC. "
  92.    SC$=SC$+"ALSO IF ANYONE OUT THERE IS A MUSIC X USER AND WOULD LIKE TO SWAP IDEAS OR MUSIC "
  93.    SC$=SC$+"THEN CONTACT SHAUN (AFTER 6PM - IM A WORKING LAD YOU KNOW !)  REPEAT NO ILLEGAL STUFF !!    JUST ENOUGH SPACE LEFT FOR "
  94.    SC$=SC$+"A FEW HELLOS - NICK (EX HANNISIS V) , ALL AT WREXHAM COMP CLUB , ADAM , RAYMOND , CROW , LINDA AND KELVIN (MIND THAT "
  95.    SC$=SC$+"TUB OF WATER !!) AND TO ALL WHO KNOW US.           GOODNIGHT WREXHAM WHEREVER YOU ARE !"
  96.    SC$=SC$+"........... WRAP ............"
  97.    Screen Open 0,354+32,64,8,Lowres
  98.    Screen Display 0,120,240,,
  99.    Def Scroll 1,1,0 To 353+32,64,-4,0
  100.    Curs Off 
  101.    Flash Off 
  102.    Cls 0
  103.    Wait Vbl 
  104.    Palette 0,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
  105.    Wait Vbl 
  106.    Curs Off 
  107.    ROO:
  108.    Gosub STEXT : 
  109.    Wait Vbl 
  110.    Goto ROO
  111.    Rem ********* SCROLL TEXT ROUTINE ********** 
  112.    STEXT:
  113.    Scroll 1
  114.    Add CNT,4
  115.    If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  116.    If Mouse Key=1 Then Pop Proc
  117.    While Mouse Key=2
  118.    Wend 
  119.    Return 
  120.    NCHAR:
  121.    E$=Mid$(SC$,SCNT,1)
  122.    E=Asc(E$)
  123.    Paste Bob 300+32,0,(E-30)
  124.    Paste Bob 300+32,32,(E-30)+$4000
  125.    Return 
  126.    EXIDEMO:
  127. End Proc
  128. Procedure PLUG_OVER
  129. While Screen<>-1
  130.    Fade 1 : Wait 16
  131.    Screen Close Screen
  132. Wend 
  133. Rainbow Del 0 : Rainbow Del 1
  134. Screen Open 0,320,34,2,Lowres
  135. Curs Off : Flash Off : Cls 0 : Hide On 
  136. Colour 1,0
  137. Screen Display 0,,148,,
  138. Paste Bob 55,0,1
  139. Fade 1,0,$F : Wait 16
  140.  Sam Swapped
  141.  Run "ehb_shine.amos"
  142. End Proc