On opencard
OMath Open without Menu    44 , 49 , 461, 341
--OMath Open
OMath Menu  Grid 32
OMath NoSave
 if game_on is not 1 then
  play bokuwo
   put 5 into ntx
   naratoranimex
 end if

  put 101 into presentcard
put 0 into init101

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 GameStart

put random(21) into rdm

if rdm = 1 then
 QuizDlg2 "Cuntos vrtices hay en cada figura?",1, 2, 3, 4, 4
end if

if rdm = 2 then
 QuizDlg2 " Cuntos lados hay en cada figura?",1, 2, 3, 4, 4
end if

if rdm = 3 then
 QuizDlg2 "El cuadrngulo verde siempre tiene cuatro ngulos rectos y cuatro lados iguales.",s, no, , , 2
end if

if rdm = 4 then
 QuizDlg2 "El cuadrngulo gris es un rectngulo.",s, no, , , 1
end if

if rdm = 5 then
 QuizDlg2 "El cuadrngulo amarillo siempre tiene cuatro ngulos rectos y cuatro lados iguales.",s, no, , , 2
end if



if rdm = 6 then
 QuizDlg2 "El cuadrngulo gris siempre tiene cuatro ngulos rectos y los lados opuestos iguales.",s, no, , , 1
end if

if rdm = 7 then
 QuizDlg2 "El cuadrngulo violeta siempre tiene cuatro ngulos rectos y cuatro lados iguales.",s, no, , , 2
end if



if rdm = 8 then
 QuizDlg2 "El cuadrngulo rojo es un cuadrado.",s, no, , , 1
end if


if rdm = 9 then
 QuizDlg2 "El cuadrngulo gris es un rectngulo.",s, no, , , 1
end if


if rdm = 10 then
 QuizDlg2 "El cuadrngulo amarillo es un rectngulo.",s, no, , , 2
end if

if rdm = 11 then
 QuizDlg4 "Si la longitud de AB es 3cm, entonces el largo de DC es __cm", 3
end if


if rdm = 12 then
 QuizDlg4 "Si la longitud de AD es 2cm, entonces el largo de BC es __cm", 2
end if

if rdm = 13 then
 QuizDlg4 "Si el ngulo BAD mide 60 grados, entonces el ngulo BCD mide __grados", 60
end if

if rdm = 14 then
 QuizDlg4 "Si el ngulo BAD mide 60 grados, entonces el ngulo ADC mide __grados", 120
end if

if rdm = 15 then
 QuizDlg4 "Si la longitud de EF es 2cm, entonces el largo de EH es __cm",2 
end if

if rdm = 16 then
 QuizDlg4 "Si el ngulo EFG mide 30 grados, entonces el ngulo EHG mide __grados", 30
end if

if rdm = 17 then
 QuizDlg4 "Si el ngulo EFG mide 60 grados, entonces el ngulo FEH mide __grados", 120
end if

if rdm = 18 then
 QuizDlg4 "Si la longitud de IJ es 2cm, entonces el largo de JK es __cm",2 
end if

if rdm = 19 then
 QuizDlg4 "El ngulo LKJ siempre mide __grados", 90
end if

if rdm = 20 then
 QuizDlg4 "Si la longitud de MP es 4cm, entonces el largo de NO es __cm",4 
end if

if rdm = 21 then
 QuizDlg4 "El ngulo PON siempre mide __grados", 90
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



