On opencard
OMath Open  without menu    44 , 49 , 461, 341
OMath Menu Grid 32
OMath NoSave
if game_on =0 then
  play bokuwo
   put 5 into ntx
   naratoranimex
put 0 into init103
else
  put 103 into presentcard

end if
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 fix_screen
OMath Menu FixedOperation
end fix_screen





On GameStart

put anglex into x
put angley into y
put random(16) into rdm

if rdm = 1 then
OMath Set LabelString A , A
OMath Set LabelString B , B
OMath Set LabelString C , C
OMath Set LabelString D , D
OMath Set LabelString E, E
OMath Set LabelString F , F
QuizDlg2 "Cul es el dimetro del crculo?", A, B, C, D,  4
End if
if rdm = 2 then
OMath Set LabelString A , A
OMath Set LabelString B , B
OMath Set LabelString C , C
OMath Set LabelString D , D
OMath Set LabelString E, E
OMath Set LabelString F , F
QuizDlg2 "Cul es el radio del crculo?",  C, D, E, F, 3
End if

if rdm = 3 then
OMath Set LabelString A , C
OMath Set LabelString B , F
OMath Set LabelString C , A
OMath Set LabelString D , E
OMath Set LabelString E, D
OMath Set LabelString F , B
QuizDlg2 "Cul es el radio del crculo?",  C, D, E, F, 2
End if

if rdm = 4 then
OMath Set LabelString A , C
OMath Set LabelString B , F
OMath Set LabelString C , A
OMath Set LabelString D , E
OMath Set LabelString E, D
OMath Set LabelString F , B
QuizDlg2 "Cul es el dimetro del crculo?",  C, D, E, F, 3
End if

if rdm = 5 then
OMath Set LabelString A , D
OMath Set LabelString B , C
OMath Set LabelString C , A
OMath Set LabelString D , B
OMath Set LabelString E, F
OMath Set LabelString F , E
QuizDlg2 "Cul es el dimetro del crculo?",  B,C, D, E, 1
End if


if rdm = 6 then
OMath Set LabelString A , D
OMath Set LabelString B , C
OMath Set LabelString C , A
OMath Set LabelString D , B
OMath Set LabelString E, F
OMath Set LabelString F , E
QuizDlg2 "Cul es el radio del crculo?",  C, D, E,F, 4
End if

if rdm = 7 then
OMath Set LabelString A , E
OMath Set LabelString B , F
OMath Set LabelString C , B
OMath Set LabelString D , A
OMath Set LabelString E, C
OMath Set LabelString F , D
QuizDlg2 "Cul es el radio del crculo?", A,B, C, D,  3
End if
if rdm = 8 then
OMath Set LabelString A , E
OMath Set LabelString B , F
OMath Set LabelString C , B
OMath Set LabelString D , A
OMath Set LabelString E, C
OMath Set LabelString F , D
QuizDlg2 "Cul es el dimetro del crculo?", A,B, C, D,  1
End if

if rdm = 9 then
QuizDlg8 "Si el dimetro es = 10 cm, la circunferencia = __.__cm", 31.4
End if

if rdm = 10 then
QuizDlg8 "Si el radio es = 5 cm, la circunferencia = __.__cm", 31.4
End if

if rdm = 11 then
QuizDlg8 "Si el radio es = 10 cm, la circunferencia = __.__cm", 62.8
End if


if rdm = 12 then
QuizDlg8 "Si el dimetro es = 20 cm, la circunferencia = __.__cm", 62.8
End if

if rdm = 13 then
QuizDlg4 "Si el dimetro es 2 veces mayor, la circunferencia es __ veces mayor", 2
End if

if rdm = 14 then
QuizDlg4 "Si el radio es 2 veces mayor, la circunferencia es __ veces mayor", 4
End if

if rdm = 15 then
QuizDlg4 "Si el radio es 3 veces mayor, la circunferencia es __ veces mayor", 9
End if

if rdm = 16 then
QuizDlg4 "Si el dimetro es 3 veces mayor, la circunferencia es __ veces mayor", 3
End if








fix_screen

      repeat while quiz_quit = 0
         wait 30 ticks
      end repeat

move_object

      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






