home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 426-450 / apd439 / s_con.amos / s_con.amosSourceCode < prev   
AMOS Source Code  |  1992-04-30  |  3KB  |  94 lines
  1. '**********************************************************************
  2. '***                      Super connect 4                           ***
  3. '**********************************************************************
  4. '***                            BY                                  ***
  5. '**********************************************************************
  6. '***                       Harbinder Ghag                           ***
  7. '**********************************************************************
  8. Dim Y(3),X(3),X1(3)
  9. X(0)=30 : X(1)=65 : X(2)=100 : X(3)=135
  10. X1(0)=275 : X1(1)=240 : X1(2)=205 : X1(3)=170
  11. INIT
  12. Screen 3 : Music 1
  13. Do 
  14.    For N=0 To 3
  15.       Add Y(N),Vumeter(N)
  16.       If Y(N)>64 Then Y(N)=64
  17.       If Y(N)>0 Then Add Y(N),-4
  18.       If Y(N)<1 Then Y(N)=1
  19.       Ink 5 : Bar X(N)-10,90-Y(N) To X(N),90
  20.       Ink 0 : Bar X(N)-10,26 To X(N),89-Y(N)
  21.       Ink 5 : Bar X1(N)-10,90-Y(N) To X1(N),90
  22.       Ink 0 : Bar X1(N)-10,26 To X1(N),89-Y(N)
  23.    Next 
  24.    If Key State(81)=True : Rainbow Del : Unpack 11 To 6 : Clear Key : Wait Key : Screen 3 : Screen Close 6 : _RAINBOWS : End If 
  25.    If Key State(82)=True Then Run "Harbinder_Ghag:super_connect_4.amos"
  26.    If Key State(80)=True Then Run "Harbinder_ghag:main_menu.amos"
  27. Loop 
  28. '**********************************************************************
  29. Procedure INIT
  30.    Load "Harbinder_Ghag:music/tinky.abk"
  31.    Default : Hide On : Cls 0
  32.    Screen Open 1,320,256,8,Lowres : Unpack 10 To 1 : Screen Hide 1
  33.    '********************************************************************* 
  34.    Screen Open 0,320,164,8,Lowres : Curs Off : Flash Off : Paper 0 : Cls 0
  35.    Screen Copy 1,60,5,220,90 To 0,70,0
  36.    Get Palette 1
  37.    _RAINBOWS
  38.    Screen Open 5,320,16,2,Lowres
  39.    Curs Off : Flash Off : Paper 0 : Cls 0
  40.    Palette ,$FDD
  41.    Pen 1 : Locate 10,0 : Print "By Harbinder Ghag"
  42.    Screen Display 5,,143,,
  43.    Wait Vbl 
  44.    For A=143 To 200 Step 2
  45.       Wait Vbl 
  46.       Screen Display 5,,A,,
  47.    Next A
  48.    For A=200 To 143 Step -2
  49.       Wait Vbl 
  50.       Screen Display 5,,A,,
  51.    Next A
  52.    Screen Copy 1,35,200,260,250 To 0,42,112
  53.    '********************************************************************* 
  54.    Screen Open 3,320,80,8,Lowres
  55.    Screen Display 3,,215,,
  56.    Curs Off : Flash Off : Get Palette 1 : Paper 0 : Cls 0
  57. End Proc
  58. Procedure _RAINBOWS
  59.    Set Rainbow 1,1,30,"(1,1,15)(1,-1,15)","",""
  60.    Rainbow 1,0,49,51
  61.    Set Rainbow 0,1,32,"","(2,1,16)",""
  62.    Rainbow 0,0,103,32
  63.    For A=1 To 20
  64.       Rain(0,A)=A
  65.    Next A
  66.    For A=1 To 15
  67.       Rain(1,A)=A+1
  68.    Next A
  69.    For A=0 To 3 : Channel 10+A To Rainbow A : Next A
  70.    Amal 10,"St: For R0=0 To 32 ; Let X=32-R0 ; Next R0 ; Jump St: "
  71.    Amal 11,"St: For R0=0 To 30 ; Let X=R0 ; Next R0 ; Jump St: "
  72.    Amal On 
  73.    Set Rainbow 2,5,65,"(1,1,1)","(1,1,1)","(1,1,1)"
  74.    Rainbow 2,0,234,65
  75.    For A=64 To 54 Step -1
  76.       Rain(2,A)=$A0
  77.    Next A
  78.    For A=54 To 44 Step -1
  79.       Rain(2,A)=$F0
  80.    Next A
  81.    For A=44 To 34 Step -1
  82.       Rain(2,A)=$AF0
  83.    Next A
  84.    For A=34 To 24 Step -1
  85.       Rain(2,A)=$FF0
  86.    Next A
  87.    For A=24 To 14 Step -1
  88.       Rain(2,A)=$A00
  89.    Next A
  90.    For A=14 To 4 Step -1
  91.       Rain(2,A)=$F00
  92.    Next A
  93.    Auto View On : View 
  94. End Proc