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

 end if

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(11) into rdm

if rdm = 1 then
 QuizDlg2 "Cuntos vrtices ves?",1, 2, 3, 4, 3
end if

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

if rdm = 3 then
 QuizDlg2 "Un tringulo issceles tiene dos lados de igual longitud.",SI , NO, , , 1
end if

if rdm = 4 then
 QuizDlg2 "Un tringulo issceles tiene dos lados de diferente longitud.",SI , NO, , , 2
end if

if rdm = 5 then
 QuizDlg2 "Los tres ngulos interiores de este tringulo son diferentes",SI , NO, , , 2
end if

if rdm = 6 then
 QuizDlg2 "Cul tringulo tiene 3 ngulos interiores de igual tamao?", " rectngulo", " issceles"," equiltero","no tringulo", 3
end if

if rdm = 7 then
 QuizDlg2 "El tringulo _______ solo tiene 2 ngulos interiores iguales", " rectngulo", " issceles"," equiltero","no tringulo", 2
end if

if rdm = 8 then
 QuizDlg2 "Todos los ngulos interiores en este tringulo son diferentes",SI , NO, , , 2
end if

if rdm = 9 then
 QuizDlg2 "Un tringulo rectngulo puede ser un tringulo issceles",SI , NO, , , 1
end if

if rdm = 10 then
 QuizDlg2 "Un tri?ngulo cuyos lados midan 3cm,4cm y 4cm de largo es is?sceles.",SI , NO, , , 1
end if

if rdm = 11 then
 QuizDlg2 "Un tringulo equiltero y un tringulo issceles son iguales.",SI , NO, , , 2
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





