Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 test ur mouse
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
ssr




PostPosted: Sun Feb 27, 2005 8:35 pm   Post subject: test ur mouse

I meant ...
alrighty
just a program (strange) I made
go along the line and teh square wont change
...
Laughing Laughing
lame eh? Rolling Eyes Wink
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
Sponsor
Sponsor
Sponsor
sponsor
jamonathin




PostPosted: Sun Feb 27, 2005 8:43 pm   Post subject: (No subject)

it's beautiful ssr I am not worthy
ssr




PostPosted: Sun Feb 27, 2005 8:49 pm   Post subject: (No subject)

jamonathin wrote:
it's beautiful ssr I am not worthy

tnx Idea
Flikerator




PostPosted: Mon Feb 28, 2005 4:44 pm   Post subject: (No subject)

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

If mousebutton = 1 then
ssr




PostPosted: Mon Feb 28, 2005 6:57 pm   Post subject: (No subject)

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




PostPosted: Mon Feb 28, 2005 10:10 pm   Post subject: (No subject)

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




PostPosted: Tue Mar 08, 2005 9:07 pm   Post subject: (No subject)

wow that ones crazy Confused lol
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 7 Posts ]
Jump to:   


Style:  
Search: