home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Planet_Rocker.asc < prev    next >
Text File  |  1996-01-21  |  2KB  |  102 lines
  1. ' Off His Rocker!  
  2. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯  
  3. ' cODED bY ßudda/NFA 
  4. ' StARtEd : 14/10/1995 
  5. ' FiNiSHed: 15/10/1995 
  6.  
  7. ' --- load in a kewl mod by Tez/NFA! 
  8. 'Med Load "work:modules/nfa/tez/mod.garagetrance",3 : Rem change the path to your copy of the mod!!! 
  9. 'Med Play 3
  10. Make Icon Mask 
  11.  
  12. Load "Planet_Rocker.abk"
  13.  
  14. ' --- two screens for this effect
  15. For SCR=0 To 1
  16.    Screen Open SCR,336,256,16,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Get Bob Palette 
  20.    Hide On 
  21.    Cls 0
  22.    Ink 10
  23. Next SCR
  24. Double Buffer 
  25.  
  26. ' --- setup stars and hide from screen 
  27. Bob Update Off 
  28. U=1
  29. For T=2 To 4
  30.    Bob T,-100,-100,U
  31.    Inc U
  32.    Channel T To Bob T
  33.    STARZ$="A:Let X=Z(100);Let X=X+100;Let Y=Z(30);Let Y=Y+45;P P P P P P;Jump A;"
  34.    Amal T,STARZ$
  35. Next T
  36. Screen Hide 0 : Screen 0
  37.  
  38. ' --- the all important variables
  39. JX=Screen Width/2
  40. JY=Screen Height/2
  41. _MAX_X=200
  42. _MIN_X=120
  43. FRAME=2
  44. Timer=0
  45.  
  46. Do 
  47.    ' --- draw funky triangle background 
  48.    ' - horizontal top/bottom  
  49.    For XXX=0 To Screen Width Step 168
  50.       T_X=XXX+84
  51.       Polygon XXX,0 To T_X,0 To JX,JY
  52.       Polygon XXX,Screen Height To T_X,Screen Height To JX,JY
  53.    Next XXX
  54.    ' - verticleleft/right 
  55.    For YYY=100 To 200 Step 110
  56.       T_Y=YYY+55
  57.       Polygon 0,YYY To 0,T_Y To JX,JY
  58.       Polygon Screen Width,YYY To Screen Width,T_Y To JX,JY
  59.    Next YYY
  60.    
  61.    ' --- move centre point left/right 
  62.    If Q=True
  63.       Add JX,6
  64.       Add JY,-1
  65.    Else 
  66.       Add JX,-6
  67.       Add JY,1
  68.    End If 
  69.    
  70.    ' --- check center limits
  71.    If JX=>_MAX_X
  72.       Q=False
  73.    End If 
  74.    If JX<=_MIN_X
  75.       Q=True
  76.    End If 
  77.    
  78.    ' --- change face picture
  79.    If Timer>300
  80.       Add FRAME,1,1 To 2
  81.    End If 
  82.    F Paste Icon 125,70,FRAME
  83.    
  84.    ' --- update viewing screen
  85.    Screen Copy 0 To Logic(1)
  86.    
  87.    ' --- clear old screen 
  88.    Blit Clear -1
  89.    Bob Draw 
  90.    Screen Swap 1
  91.    Wait Vbl 
  92.    
  93.    ' --- sync. stars with music 
  94.    If Timer>595 and Timer<605 Then Amal On 
  95. Loop 
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.