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

  play bokuwo
   put 5 into ntx
   naratoranimex
  put 106 into presentcard
put 0 into init106

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_10005 into Plengthx

OMath  Put Value of len_10006 into Plengthy

OMath  Put Value of len_10007 into Ylengthx

OMath  Put Value of len_10008 into Ylengthy



end idle


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

put random(3) into a_color

if a_color = 1 then

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 length2x
put int( length2x * 10 + 0.5) / 10.0  into length2x





put length1x * length2x  into body

put int(body + 0.5) into body


 QuizDlg4 "Find the area of the green parallel- ogram to the nearest integer",body


end if


if a_color = 2 then

put int( Plengthx * 100) / 100.0  into Plength1x
put int( Plength1x * 10 + 0.5) / 10.0  into Plength1x



put int(Plengthy * 100) / 100.0 into Plength2x
put int( Plength2x * 10 + 0.5) / 10.0  into Plength2x





put Plength1x * Plength2x  into body

put int(body + 0.5) into body


 QuizDlg4 "Find the area of the purple parallel- ogram to the nearest integer",body


end if


if a_color = 3 then

put int( Ylengthx * 100) / 100.0  into Ylength1x
put int( Ylength1x * 10 + 0.5) / 10.0  into Ylength1x



put int(Ylengthy * 100) / 100.0 into Ylength2x
put int( Ylength2x * 10 + 0.5) / 10.0  into Ylength2x





put Ylength1x * Ylength2x  into body

put int(body + 0.5) into body


 QuizDlg4 "Find the area of the yellow parallel- ogram to the nearest integer",body


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








