On opencard

OMath Open  without menu   44 , 49 , 461, 341
OMath Menu Grid 32
OMath NoSave
if (onlyonetime102 is not 999) and ( game_on is not 1 ) then
  play V_P_L
   put 3 into ntx
   naratoranimex
wait 1 seconds
put 999 into onlyonetime102
end if




if game_on is not 1 then
  play bokuwo
   put 5 into ntx
   naratoranimex
put 0 into init102



end if
  put 102 into presentcard
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(8) 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 "Which lines are parallel?", A and D, B and F, C and E, D and F,  2
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 "Which lines are perpendicular?",  A and D,B and D, E and D, C and B, 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 "Which lines are parallel?",   B and F,A and D, B and E, E and C,  1
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 "Which lines are perpendicular?",   B and F,E and C, F and E, E and D,  4
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 "Which lines are perpendicular?",   B and F,A and B, F and E, B and C,  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 "Which lines are parallel?", B and D, B and F, C and E, B and E,  3
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 "Which lines are parallel?", A and D, B and D, C and B, D and F,  4
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 "Which lines are perpendicular?",  A and C,A and F, E and D, F and B, 1
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




