test ur mouse

[ssr]

I meant ...
alrighty
just a program (strange) I made
go along the line and teh square wont change
...

lame eh?

code:

setscreen("graphics: 400;400") View.Set ("offscreenonly") Mouse.ButtonChoose ("multibutton") var x, y, button, left, middle, right : int x:=0 y:=0 loop     Mouse.Where (x, y, button)     left := button mod 10                    right := button - left              if left = 1 then         x + = 10     else         x - = 10     end if     if right = 10 then         y + = 10     else         y - = 10     end if drawfillbox (x-5,x-5,x+5,y+5,green) drawfillbox (x-5,x-5,y+5,y+5,brightblue) drawfillbox (x-5,y-5,x+5,y+5,red) drawfillbox (x-5,y-5,y+5,y+5,green) View.Update cls    drawline (0,0,maxx,maxy,black) end loop

[jamonathin]

it's beautiful ssr

[ssr]

jamonathin wrote:

it's beautiful ssr

tnx

[Flikerator]

Pretty neat, why not make it so it changes colours (random) when you click?

If mousebutton = 1 then

[ssr]

lol
I was just playing with Turing and made this
so...
wasnt that nice
but glad u like it

[ssr]

code:

setscreen("graphics: 400;400") View.Set ("offscreenonly") Mouse.ButtonChoose ("multibutton") var x, y, button, left, middle, right, color1 : int x:=0 y:=0 color1:=5 loop     Mouse.Where (x, y, button)     left := button mod 10                    middle := (button - left) mod 100        right := button - middle - left              if left = 1 or middle = 10 or right = 100 then     randint (color1,1,maxcolor-3)     end if drawfillbox (x-5,x-5,y+5,y+5,color1) drawfillbox (x-5,x-5,x+5,y+5,color1+3) drawfillbox (x-5,y-5,y+5,y+5,color1+3) drawfillbox (x-5,y-5,x+5,y+5,red) View.Update cls    drawline (0,0,maxx,maxy,black) end loop

lol here is a new one 8)

[mike200015]

wow that ones crazy lol