uses gdip

Screen 800, 600, 1
SetCaption "COLOR MOUSE SNAKE"
sys fo= LoadFont ("times",32)
SetSmoothMode 2

sys rr=40, i, j, k, mx, my
Dim r(200) As sys
Dim g(200) As sys
Dim b(200) As sys

Dim x(1000) as sys
Dim y(1000) as sys

For i=1 to 200
    r(i)= Rand(1,255)
    g(i)= Rand(1,255)
    b(i)= Rand(1,255)
Next
For i=1 to 1000
    mx= xMouse
    my= yMouse
    x(i) = mx
    y(i) = my
Next
i =1

While Key(27)=0
ClsColor 128,255,255,255
mx = xMouse-20
my = yMouse-20
x(i) = mx
y(i) = my
k =1
For j=100 to 1 step -1
    k = i-(j-1)*5
    iF k<1 Then k = k+1000
    FillOval x(k),y(k),rr,rr, ARGB 85,r(j),g(j),b(j) 
Next
i +=1
iF i>1000 Then i=1
Flip
SetFps 40
Wend
Ends