Line Party

' Touch the screen to end the program.

Speed = 15
Size = 10
RETINA on

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Line Party ' by TheBaykun.
'           July 21, 2013
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

bclra=RND*255
bclrb=RND*255
bclrc=RND*255
BCOLOR bclra,bclrb,bclrc
WHILE Touch=0
    clra=RND*255
    clrb=RND*255
    clrc=RND*255
    COLOR clra,clrb,clrc
    lineax=RND*ScreenWidth
    lineay=RND*ScreenHeight 'Starting Point
    linebx=5+RND*speed
    lineby=5+RND*speed 'Line speed
    la=RND
    lb=RND
    IF la<0.5 THEN
        lineby=-lineby
    ENDIF
    IF lb<0.5 THEN
        linebx=-linebx
    ENDIF
    linecx=lineax 'Current location
    linecy=lineay
    lined=1+(RND*(size-1))
    WHILE linecx>0-(lined/2) AND linecx<ScreenWidth+(lined/2) AND linecy>0-(lined/2) AND linecy<ScreenHeight+(lined/2) AND Touch=0
        linecx=linecx+linebx
        linecy=linecy+lineby
        LINE lineax,lineay,linecx,linecy,lined
        SLEEP 0.05
    WEND
WEND