Computer Science Canada

var wino := Window.Open ("graphics:480;480,noecho, nocursor")
var x, y, x1, y1 : int

var cordinatex : array 1 .. 5 of int
var cordinatey : array 1 .. 5 of int

for i : 1 .. 11
drawline (60 + i * 30, 90, 60 + i * 30, 390, 17)
drawline (90, 60 + i * 30, 390, 60 + i * 30, 17)
drawline (60 + 30 * i, 30, 60 + 30 * i, 60, black)
drawline (60 + 30 * i, 420, 60 + 30 * i, 450, black)
drawline (30, 60 + 30 * i, 60, 60 + 30 * i, black)
drawline (420, 60 + 30 * i, 450, 60 + 30 * i, black)
end for

for i : 1 .. 5
x := 90 + (Rand.Int (2, 9) * 30) - 15
y := 90 + (Rand.Int (2, 9) * 30) - 15
cordinatex (i) := x
cordinatey (i) := y
drawfilloval (x, y, 13, 13, 7)
end for

var button : int

loop
Mouse.Where (x1, y1, button)
%The bottom Lines
if x1 > 91 and x1 < 389 and y1 > 30 and y1 < 60 and button = 1 then
%The Top Lines
elsif x1 > 91 and x1 < 389 and y1 > 420 and y1 < 450 and button = 1 then
%Left Lines
elsif x1 > 30 and x1 < 60 and y1 > 91 and y1 < 389 and button = 1 then
%Right Lines
elsif x1 > 420 and x1 < 450 and y1 > 91 and y1 < 389 and button = 1 then
end if
end loop

var wino := Window.Open ("graphics:480;480,noecho, nocursor")
var x, y, x1, y1 : int

var cordinatex : array 1 .. 5 of int
var cordinatey : array 1 .. 5 of int

for i : 1 .. 11
drawline (60 + i * 30, 90, 60 + i * 30, 390, 17)
drawline (90, 60 + i * 30, 390, 60 + i * 30, 17)
drawline (60 + 30 * i, 30, 60 + 30 * i, 60, black)
drawline (60 + 30 * i, 420, 60 + 30 * i, 450, black)
drawline (30, 60 + 30 * i, 60, 60 + 30 * i, black)
drawline (420, 60 + 30 * i, 450, 60 + 30 * i, black)
end for

for i : 1 .. 5
x := 90 + (Rand.Int (2, 9) * 30) - 15
y := 90 + (Rand.Int (2, 9) * 30) - 15
cordinatex (i) := x
cordinatey (i) := y
drawfilloval (x, y, 13, 13, 7)
end for

var button : int

loop
Mouse.Where (x1, y1, button)

if x1 > 90 and x1 < 390 and y1 > 30 and y1 < 60 and button = 1 then %The bottom Lines
x1 := floor((x1 - 90) / 30)
x1 := 105 + (x1 * 30)
drawline(x1,30,x1,450,black)
elsif x1 > 90 and x1 < 390 and y1 > 420 and y1 < 450 and button = 1 then %The Top Lines
x1 := floor((x1 - 90) / 30)
x1 := 105 + (x1 * 30)
drawline(x1,30,x1,450,black)
elsif x1 > 30 and x1 < 60 and y1 > 90 and y1 < 390 and button = 1 then %Left Lines
y1 := floor((y1 - 90) / 30)
y1 := 105 + (y1 * 30)
drawline(30,y1,450,y1,black)
elsif x1 > 420 and x1 < 450 and y1 > 90 and y1 < 390 and button = 1 then %Right Lines
y1 := floor((y1 - 90) / 30)
y1 := 105 + (y1 * 30)
drawline(30,y1,450,y1,black)
end if
end loop

Author:	Izzy [ Thu Feb 20, 2003 8:02 am ]
Post subject:
Heya. Sorry, I'm not totally with you on what you want, I got the part about creating a centered line in the area you click in, but the direction and it shooting to the right threw me off. Clarify and i'll help. - Izzy

Author:	CyCLoBoT [ Thu Feb 20, 2003 8:12 am ]
Post subject:
Sorry I didn't specify too well. All those lines on the side of the 10x10 grid have spaces in between. The user clicks in those spaces and the line should go towards the grid. If the user clicks on the spaces on top of the grid, the line should go down toward the grid. If the user clicks between the lines on the left side of the grid, the line should go towards the right and so on. The line always passes through the columns or rows of the grid. I have explained it through a picture: http://funware.topcities.com/picture.htm

Author:	CyCLoBoT [ Thu Feb 20, 2003 9:27 am ]
Post subject:
hey Izzy there are two more things with this thing if u can help me out. U know how the lines go through those black circles. I wanted to make it so that if the line hits the circle, the circle turns a different color. And if the line goes through any of the diagonals that surround the circles, the line is reflected 90 degrees. I would really appreciate it if u can help me out. Here is the picture to explain it better: http://funware.topcities.com/pic.htm

Author:	Izzy [ Thu Feb 20, 2003 12:33 pm ]
Post subject:
Hey, Sorry about the wait, I had a little "family" night! =P Anyway, no problem! I'll fix it all up for you tomorrow, I've gotta finish my h/w so I don't have time tonight. Sorry. - Izzy

Author:	CyCLoBoT [ Tue Feb 25, 2003 11:48 am ]
Post subject:
Hey can anyone else help me out with this program? Izzy was suppose to help me but he has not been online for a while and I need help urgently. I have posted in previous post with what I need help with. Anyone who can help me would be great.