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

Username:   Password: 
 RegisterRegister   
 etch a sketch
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Shyfire




PostPosted: Fri Nov 19, 2004 10:29 am   Post subject: etch a sketch

[code]
var x,y:int:=10
var b,a:int := 50
var keys : array char of boolean
colorback (black)
cls


loop
drawdot (x, y,white)
Input.KeyDown (keys)

if keys (KEY_RIGHT_ARROW)
then x += 1
delay (10)


elsif keys (KEY_LEFT_ARROW)
then x -= 1
delay (10)


elsif keys (KEY_UP_ARROW)
then y += 1
delay (10)


elsif keys (KEY_DOWN_ARROW)
then y -= 1
delay (10)


elsif keys (KEY_CTRL)
then for n : b .. 500
delay (2)
color (white)
put "shake shake shake"
delay (2)
cls
end for
end if
end loop
[/code]
Sponsor
Sponsor
Sponsor
sponsor
zomg




PostPosted: Fri Nov 19, 2004 10:58 am   Post subject: (No subject)

lol thats awesome!

this takes me back... Razz
thanks for posting Smile
MiX-MaztA-M8riX




PostPosted: Fri Nov 19, 2004 12:04 pm   Post subject: (No subject)

Yo man, stop posting my freakin codes! Mad

This kid sits beside me in Comp Sci class (Gr. 10) and keeps stealing my codes! No More Codes For You you Fag Boi. Laughing

Heres The Actual Code anywayz Rolling Eyes

code:

setscreen ("graphics:400;400,nobuttonbar")

var font2 : int
font2 := Font.New ("Arial :20")
var keys : array char of boolean
var x, y : int := 100

colorback (grey)
cls

Draw.FillBox (0, 0, 60, maxy, red)
Draw.FillBox (maxx, 0, maxx - 60, maxy, red)
Draw.FillBox (0, maxy, maxx, maxy - 30, red)
Draw.FillBox (0, 0, maxx, 30, red)
Draw.FillOval (30, 30, 30, 30, brightred)
Draw.FillOval (370, 30, 30, 30, brightred)


loop

    Draw.Dot (x, y, 255)

    Input.KeyDown (keys)

    if keys (KEY_DOWN_ARROW)
            then
        y -= 1
        delay (10)

    elsif keys (KEY_UP_ARROW)
            then
        y += 1
        delay (10)

    elsif keys (KEY_LEFT_ARROW)
            then
        x -= 1
        delay (10)

    elsif keys (KEY_RIGHT_ARROW)
            then
        x += 1
        delay (10)

    elsif keys (KEY_ENTER)
            then
        Font.Draw ("Shake Shake!", maxx div 2 - 140, maxy div 2, font2, 10)
        delay (1000)
        Font.Draw ("Shake Shake!", maxx div 2 - 10, maxy div 2-50, font2, 10)
        delay (1000)
        cls
        Draw.FillBox (0, 0, 60, maxy, red)
        Draw.FillBox (maxx, 0, maxx - 60, maxy, red)
        Draw.FillBox (0, maxy, maxx, maxy - 30, red)
        Draw.FillBox (0, 0, maxx, 30, red)
        Draw.FillOval (30, 30, 30, 30, brightred)
        Draw.FillOval (370, 30, 30, 30, brightred)

    end if

end loop
zomg




PostPosted: Fri Nov 19, 2004 12:12 pm   Post subject: (No subject)

Surprised lol fatboi ur a loser

jeez thats low Rolling Eyes

o well nice program mix-watever Smile
MiX-MaztA-M8riX




PostPosted: Fri Nov 19, 2004 12:15 pm   Post subject: (No subject)

lol thx Embarassed

lol, Im the best in my class 8) Laughing
zomg




PostPosted: Fri Nov 19, 2004 12:35 pm   Post subject: (No subject)

is was too (not to brag but my class new nothing by grade 11)
MiX-MaztA-M8riX




PostPosted: Fri Nov 19, 2004 2:10 pm   Post subject: (No subject)

lol thats cool, well any other opinions? Laughing
Shyfire




PostPosted: Fri Nov 19, 2004 4:10 pm   Post subject: (No subject)

didnt steal anyones code i had the basic idea and he copied me!!!!!!!!!!!!!!!!!!!!
Sponsor
Sponsor
Sponsor
sponsor
Neo




PostPosted: Fri Nov 19, 2004 4:21 pm   Post subject: (No subject)

Mix-whatever, I dont think it was possible to draw on the red plastic in the real etch-n-sketch.
zomg




PostPosted: Fri Nov 19, 2004 4:24 pm   Post subject: (No subject)

fatboi wrote:
didnt steal anyones code i had the basic idea and he copied me!!!!!!!!!!!!!!!!!!!!


well who ever wrote this program Confused its good but guys dont copy each other thats just stupid

come up with ur own ideas and we'll get along fine here...
Tony




PostPosted: Fri Nov 19, 2004 4:25 pm   Post subject: (No subject)

fatboi and MiX-MaztA-M8riX, I suggest you settle this between yourself, else I'd just ban you both so that I wouldn't have to deal with this soap opera about plagiarism..
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
AsianSensation




PostPosted: Fri Nov 19, 2004 4:29 pm   Post subject: (No subject)

Locked....for obvious reasons.
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  [ 12 Posts ]
Jump to:   


Style:  
Search: