MIA, Ask an Expert: polygons test

["Ask an Expert - Question" <askanexpert@xxxxxxxxxxxxxxxxxxxxx>]

This is an automatic message sent from the web form at:
http://mia.openworldlearning.org/mwforum.htm

from: ariana <wotruon@xxxxxxxxxxx>
date: Tue Oct 25 04:48:22 2005

i need help on writing a simple polygons drawing program for microworlds 2.0

 i need it to draw the shapes randomly, ask questions of name, how many 
questions that 
they want, and what the shape is. this is what i have but don't no where 2 put 
:dotimes 
or how to make it keep score.Please help me fix it! 


to shapes 
let [count 0] 
let [score 0] 
let [number 0] 
question [what is your name?] 
make "name answer 
question [how many questions would you like?] 
make "number answer 
dotimes :count :number\ 
make "score (:score + :right + :wrong) 
make "count (:count + 1) 
quiz 
talkto "text1 pr (se [well done ] :name [. Your score is ] :score [out of] 
:number 
end 

quiz 
pu cg cc setbg "white setc "black setpensize 2 ht 
setpos [100 -120] pd 
make "sides 3 + random 7 
make "length 20 + random 50 
ifelse (1 + random 2) = 1 [repeat :sides [fd :length rt (360 / :sides]] 
[rt 1 + random 360 repeat :sides [fd :length rt (360 / :sides]] 
set "question "pos [-350 185] 
question [please type the name of the shape in lower case letters.] 
make "ans item :sides [1 2 triangle square pentagon hexagon heptagon octagon 
nonagon 
decagon] 
ifelse answer = :ans [announce (se [yes, this is a ] answer [!])] 
[announce [sorry this is incorrect!]] 
end 


please help me fix it up!!!
thanks, ariana





*****************************
OpenWorld Learning
http://www.openworldlearning.org