On opencard
OMath Open without menu  44 , 49 , 461, 341
OMath Menu Grid 32
OMath NoSave
  play area_c
   put 3 into ntx
   naratoranimex
wait 1 seconds

  play bokuwo
   put 5 into ntx
   naratoranimex
  put 107 into presentcard
put 0 into init107

End Opencard





On move_object
OMath Menu Move
end move_object

On find_length
OMath Menu Length
End find_length

On find_angle
OMath Menu AngleSize
End find_angle




On Cancellation
OMath Menu Undo
End Cancellation








On idle

OMath  Put Value of len_10001 into lengthx
OMath  Put Value of len_10002 into lengthy
OMath  Put Value of len_10003 into lengthz


end idle


---------------
On GameStart

put int( lengthx * 100) / 100.0  into length1x
put int( length1x * 10 + 0.5) / 10.0  into length1x


put int( lengthy * 100) / 100.0  into length1y
put int( length1y * 10 + 0.5) / 10.0  into length1y

put int( lengthz * 100) / 100.0  into length1z
put int( length1z * 10 + 0.5) / 10.0  into length1z



put (length1x * length1x * 3.14 )  into body

put int(body + 0.5) into body1


put (length1y * length1y * 3.14 )  into body

put int(body + 0.5) into body2

put (length1z * length1z * 3.14 )  into body

put int(body + 0.5) into body3


put (length1x * length1x * 3.14 ) - (length1y * length1y * 3.14 ) -  (length1z * length1z * 3.14 )  into body
put int(body + 0.5) into body4



put random(4) into rdm
if rdm = 1 then

 QuizDlg4 "Find the area of the purple circle to the nearest integer",body1

end if

if rdm = 2 then

 QuizDlg4 "Find the area of the red circle to the nearest integer",body2

end if

if rdm = 3 then

 QuizDlg4 "Find the area of the blue circle to the nearest integer",body3

end if

if rdm = 4 then

 QuizDlg4 "The area of the purple circle excluding the red and blue circles is __cm2",body4

end if






      repeat while quiz_quit = 0
         wait 30 ticks
      end repeat
      put 0 into quiz_quit
  if math_answer is not 1 then
       if math_answer is  -1 then
          play  uhoh2


          exit GameStart
       else
              play jawharp
          showwitch_surprised
      end if

   else
           play good
           show_frog_good


 

  end if


End Gamestart


