On fix_object
OMath Menu FixedOperation
end fix_object

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 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 init104
else
  put 104 into presentcard

end if
End Opencard


On fix_screen
OMath Menu FixedOperation
end fix_screen


On idle

OMath  Put Value of len_10001 into length1
OMath  Put Value of len_10002 into length2
OMath  Put Value of len_10003 into length3
OMath  Put Value of len_10004 into length4


OMath Set LabelValue A , 0, length1
OMath Set LabelValue B , 0, length2
OMath Set LabelValue C , 0, length3
OMath Set LabelValue D , 0, length4
end idle


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

put int( length1 + 0.5)   into length1x
put int( length2 + 0.5)   into length2x
put int( length3 + 0.5)   into length3x
put int( length4 + 0.5)   into length4x

put length1x * length2x into x
put length3x * length4x into y

if random(2) = 1 then

 QuizDlg4 "El rea del cuadrado verde es ___cm2",x
else
 QuizDlg4 "El rea del rectngulo rojo es __cm2",y
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


