traffic light testing program

[kokok]

hello. im kokok
currently im taking ICE3U
and we need to make a program using turing to control a mini traffic light

what we need to do is we need to click a circle that has color of red and then if you click it, it will turn into brighter red and if you click it again it will turn to the normal red, while you can make all of the lights on and off..
i been thinking about how to do this all day but i just dun get it
i tried to use double if...but it didn work..
im not saying you have to check my program but i want some advise on how to make such programs><

[quote]setscreen ("graphics:300;400:noecho:nocursur")

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%--------------------variables----------------------%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%variables for making pics%%
var red1, red2, green1, green2, yellow1, yellow2 : int
const r := 30
var R, Y, G : int := 0

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%-----------------actual program--------------%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
drawentire
var x, y, button : int

loop
Mouse.Where (x, y, button)

if x > 260 and x < 340 and y > 0 and y < 110 then %%green
if button = 1 then
Draw.FillOval (300, 80, r, r, 10)
G := 1
elsif button = 1 and G = 1 then
Draw.FillOval (300, 80, r, r, 2)
G := 0
end if

elsif x > 260 and x < 340 and y > 111 and y < 180 and button = 1 then %%%yellow
if button = 1 then
Draw.FillOval (300, 150, r, r, 44)
Y := 1
elsif button = 1 and Y = 1 then
Draw.FillOval (300, 150, r, r, 42)
Y := 0
end if

elsif x > 260 and x < 340 and y > 190 and y < 260 and button = 1 then %%red
if button = 1 then
Draw.FillOval (300, 220, r, r, 12)
R := 1
elsif button = 1 and R = 1 then
Draw.FillOval (300, 220, r, r, 4)
R := 0
end if
end if
end loop