Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|469|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

The Really Stupid Ball Bouncing Game

by Jayenkai for Workshop #081

Bounce the ball down the path.

Cursors

Program
Uses Pure2d, Keyset

Var
    x,y,n:integer  
    mx,mt:integer
    mt2:integer    
    tick:integer
    speed:integer 
    ballx:integer   
    Heart:integer
    bally,bounce:real 
    score:integer  
    sx,ex:integer      
    endofgame:integer
    offset : array[100000,2] of integer                 
    col:array[100000,6] of integer    
    ballx2:array[500] of integer

Begin
    OpenScreen(800, 600)
mx=300
endofgame=0
mt=1
Speed=1
Tick=0
mt2=rand(0-Speed,Speed)   

ballx=400
bally=600
bounce=0
Score=0
Heart=5

for x=1 to mx
for y=1 to 3
col[x,y]=180
col[x,y+3]=1
next
next

    Repeat   
        CLS( torgba(40,80,160))
                 
            for x=1 to mx-1
                for y=1 to 3
                    col[x,y]=col[x+1,y]
                    if x<70 then col[x,y]=col[x+4,y]
                    if x<140 then col[x,y]=col[x+3,y]
                    if x<210 then col[x,y]=col[x+2,y]
                    
                next                                       
                y=1
                offset[x,y]=offset[x+1,y] 
                if x=mx-1 then offset[x,y]=offset[x,y]+rand(-2,2)
                    if x<70 then offset[x,y]=offset[x+4,y]
                    if x<140 then offset[x,y]=offset[x+3,y]
                    if x<210 then offset[x,y]=offset[x+2,y]
                                      
            next  
             
tick=tick+1
if tick>250 then tick=0; speed=speed+1
score=score+1

                           
             bounce=bounce+4
             bally=600-abs(sin(bounce)*50) 
             if bounce>176 
                bounce=0                    
             endif
                if keydown(VK_Left) then ballx=ballx-2
                if keydown(VK_Right) then ballx=ballx+2  
                
            x=mx                
                for y=1 to 3
                col[x,y]=col[x,y]+col[x,y+3]
                if col[x,y]>180 then col[x,y+3]=Rand(-4,1)
                if col[x,y]<100 then col[x,y+3]=Rand(1,4)   
                if rand(1,10)=1 then col[x,4]=rand(-4,4)
                next                         
                
                offset[x,1]=offset[x,1]+mt2
                if offset[x,1]<-250 then offset[x,1]=-250; mt2=2
                if offset[x,1]>250 then offset[x,1]=250; mt2=-2
                if (rand(1,30)=1) and (offset[x,1]<100) then mt2=rand(0,speed)
                if (rand(1,30)=1) and (offset[x,1]>-100) then mt2=rand(0-speed,0)

            for x=0 to mx   
            sx=(400-offset[x,1])-((mx-x)/3)
            ex=(400-offset[x,1])+((mx-x)/3)
                line (0,(300-offset[x,2])+((mx-x)*mt),800,(300-offset[x,2])+((mx-x)*mt), ToRGBA(col[x,1]-80,col[x,1],col[x,1]-80))     
                line (sx,(300-offset[x,2])+((mx-x)*mt),ex,(300-offset[x,2])+((mx-x)*mt), ToRGBA(col[x,1]+40,col[x,1]+20,col[x,1]))
                if (x=5) and (bounce=0)             
                    if (ballx<sx) then heart=heart-1
                    if (ballx>ex) then heart=heart-1
                endif 
            next
                  
ballx2[1]=ballx
for n=250 to 2 step -1
ballx2[n]=ballx2[n-1]
next
for n=1 to heart              
        ellipse (ballx2[((n-1)*25)+1],600-abs(sin(bounce+(n*25))*50),20,20,torgba(255-(n*25),0,0),1)
next

            pencolor(torgba(0,0,0))
            text (400,200,"Distance "+score)
            if heart=0 then endofgame=1                            
            
        Flip          
        if keydown(VK_Escape) then endofgame=99
    Until endofgame<>0
                      
    
    pause (1500)          
    
    CloseScreen
End