Computer Science Canada :: View topic

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

Author:	Shyfire [ 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]

Author:	zomg [ Fri Nov 19, 2004 10:58 am ]
Post subject:
lol thats awesome! this takes me back... thanks for posting

Author:	zomg [ Fri Nov 19, 2004 12:12 pm ]
Post subject:
lol fatboi ur a loser jeez thats low o well nice program mix-watever

Author:	MiX-MaztA-M8riX [ Fri Nov 19, 2004 12:15 pm ]
Post subject:
lol thx lol, Im the best in my class 8)

Author:	zomg [ Fri Nov 19, 2004 12:35 pm ]
Post subject:
is was too (not to brag but my class new nothing by grade 11)

Author:	MiX-MaztA-M8riX [ Fri Nov 19, 2004 2:10 pm ]
Post subject:
lol thats cool, well any other opinions?

Author:	Shyfire [ Fri Nov 19, 2004 4:10 pm ]
Post subject:
didnt steal anyones code i had the basic idea and he copied me!!!!!!!!!!!!!!!!!!!!

Author:	Neo [ Fri Nov 19, 2004 4:21 pm ]
Post subject:
Mix-whatever, I dont think it was possible to draw on the red plastic in the real etch-n-sketch.

Author:	zomg [ Fri Nov 19, 2004 4:24 pm ]
Post subject:
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...

Author:	Tony [ Fri Nov 19, 2004 4:25 pm ]
Post 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..

Author:	AsianSensation [ Fri Nov 19, 2004 4:29 pm ]
Post subject:
Locked....for obvious reasons.