etch a sketch

[Shyfire]

[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]

[zomg]

lol thats awesome!

this takes me back...
thanks for posting

[MiX-MaztA-M8riX]

Yo man, stop posting my freakin codes!

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

Heres The Actual Code anywayz

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]

lol fatboi ur a loser

jeez thats low

o well nice program mix-watever

[MiX-MaztA-M8riX]

lol thx

lol, Im the best in my class 8)

[zomg]

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

[MiX-MaztA-M8riX]

lol thats cool, well any other opinions?

[Shyfire]

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

[Neo]

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

[zomg]

fatboi wrote:

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

well who ever wrote this program 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]

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..

[AsianSensation]

Locked....for obvious reasons.