-----------------------------------

ssr

Sun Feb 27, 2005 8:35 pm


test ur mouse

-----------------------------------

I meant ...
alrighty
just a program (strange) I made 
go along the  line and teh square wont change
...
 :lol:  :lol: 
lame eh? :roll:  :wink: 

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

Sun Feb 27, 2005 8:43 pm



-----------------------------------

it's beautiful ssr  :notworthy:


-----------------------------------

ssr

Sun Feb 27, 2005 8:49 pm



-----------------------------------

it's beautiful ssr  :notworthy:
tnx :idea:


-----------------------------------

Flikerator

Mon Feb 28, 2005 4:44 pm



-----------------------------------

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

If mousebutton = 1 then


-----------------------------------

ssr

Mon Feb 28, 2005 6:57 pm



-----------------------------------

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


-----------------------------------

ssr

Mon Feb 28, 2005 10:10 pm



-----------------------------------

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

Tue Mar 08, 2005 9:07 pm



-----------------------------------

wow that ones crazy  :?  lol