HELP...How do i make this code work?

[bark52]

I have a program for school and this is what I have so far. I need to be able to choose a square or circle and then choose a colour for that choice. This is my code:


Code:

%Choose a square or circle
%Choose a colour

put "What object you would like to use"

%See choice of square or circle
drawbox (400, 300, 300, 200, 7)
drawoval (350, 100, 50, 50, 7)


%Use shape as a varibale
var shape : int

%Show text of choices with 1 being Square and 2 being Circle
put "Square - 1 or Circle - 2?"
%Get response
get shape

%clear screen
Draw.Cls

%If square is chosen draw square
if shape = 1 then
drawbox (400, 300, 300, 200, 7)

%if square is not choosen draw circle
else
drawoval (350, 100, 50, 50, 7)
end if

%Pick your colour

var c : int

%Show text of colour choices
put "Choose colour to fill shape"
put "1 - Red"
put "2 - Blue"
put "3 - Random"

%Get answer
get c

%If red- 1 draw redbox
if c = 1 then
drawfillbox (400, 300, 300, 200, 12)

end if

%if blue -2 draw bluebox
if c = 2 then
drawfillbox (400, 300, 300, 200, 1)
end if

%if random -3 draw randombox
if c = 3 then
%loop through colours 1-15
loop
for i : 1..15
colour (i)
drawfillbox (400, 300, 300, 200, i)
delay (750)
end for

end loop
end if




Any help on how to do this?

[lyam_kaskade]

What exactly is wrong with it?
Also, use the code tags.

code:

like this

[Neo]

You really dont need that for loop. Basically here is what you want. First you ask the user to choose a shape, if 1 then draw the circle else draw the square. Then you ask for a colour. If the user replies 1 then assign the variable that stores the colour with the number corresponding to which ever colour you want. Then use that variable in the colour paremeter when drawing your shape.