

----------------- card 37 ----------


On opencard  37
if game_on is not 1 then
  put 37 into presentcard
  play measure
   put 3 into ntx
   naratoranimex
  wait 2 seconds
  play bokuwo
   put 5 into ntx
   naratoranimex
end if

End opencard

On howtomeasure123
put random(6) into selectedworm
if selectedworm = 1 then
 tonbocome
 put random(3) into selectedpoint
 if selectedpoint = 1 then
      put (278 + rdm37 * 4 -30) / 4  into ans_37
      put ans_37 / 10 into ans_37

      if ans_37 - int( ans_37) > 0 then

      QuizDlg8 "The tip of dragonfly's head is located at __.__ cm", ans_37
      else
           QuizDlg4 "The tip of dragonfly's head is located at __cm", ans_37
      end if

 end if
 if selectedpoint = 2 then
      put rdm37   into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then

QuizDlg8 "The tip of dragonfly's tail is located at __.__cm", ans_37
else
QuizDlg4 "The tip of dragonfly's tail is located at __cm", ans_37

end if
 end if
 if selectedpoint = 3  then
      put (278 + rdm37 * 4 -30) / 4 - rdm37 into ans_37

            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The length of the dragonfly is __.__cm", ans_37
else
QuizDlg4 "The length of the dragonfly is __cm", ans_37

end if
 end if

end if

if selectedworm = 2 then
auntcome
 put random(3) into selectedpoint
 if selectedpoint = 1 then
      put (86 + rdm37 * 4 -30) / 4 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the ant's foreleg is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the ant's foreleg is located at __cm", ans_37

end if
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the ant's hind leg is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the ant's hind leg is located at __cm", ans_37

end if
 end if
 if selectedpoint = 3  then
      put (86 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The length of the ant is __.__cm", ans_37
else
QuizDlg4 "The length of the ant is __cm", ans_37

end if
 end if
end if

if selectedworm = 3 then
spidercome
 put random(3) into selectedpoint
 if selectedpoint = 1 then
      put (98 + rdm37 * 4 -30) / 4 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the spider's foreleg is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the spider's foreleg is located at __cm", ans_37

end if
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the spider's hind leg is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the spider's hind leg is located at __cm", ans_37

end if
 end if
 if selectedpoint = 3  then
      put (98 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The length of the spider is __.__cm", ans_37
else
QuizDlg4 "The length of the spider is __cm", ans_37

end if
 end if
end if

if selectedworm = 4 then
kwgatacome
 put random(3) into selectedpoint
 if selectedpoint = 1 then
      put (170 + rdm37 * 4 -30) / 4 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the stag beetle's jaw is located at ___.__cm", ans_37
else
QuizDlg4 "The tip of the stag beetle's jaw is located at __cm", ans_37

end if
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the stag beetle' hind leg is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the stag beetle' hind leg is located at __cm", ans_37

end if
 end if
 if selectedpoint = 3  then
      put (170 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The length of the stag beetle is __.__cm", ans_37
else
QuizDlg4 "The length of the stag beetle is __cm", ans_37

end if
 end if
end if

if selectedworm = 5 then
mimizucome
 put random(3) into selectedpoint
 if selectedpoint = 1 then
      put (266 + rdm37 * 4 -30) / 4 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the earthworm's forehead is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the earthworm's forehead is located at __cm", ans_37

end if
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the earthworm's tail is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the earthworm's tail is located at __cm", ans_37

end if
 end if
 if selectedpoint = 3  then
      put (266 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The length of the earthworm is __.__cm", ans_37
else
QuizDlg4 "The length of the earthworm is __cm", ans_37

end if
 end if
end if

if selectedworm = 6 then
 kmkiricome
 put random(3) into selectedpoint
 if selectedpoint = 1 then
      put (294 + rdm37 * 4 -30) / 4 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the mantis's foreleg is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the mantis's foreleg is located at __cm", ans_37

end if
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The tip of the mantis's wing is located at __.__cm", ans_37
else
QuizDlg4 "The tip of the mantis's wing is located at __cm", ans_37

end if
 end if
 if selectedpoint = 3  then
      put (294 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
            put ans_37 / 10 into ans_37
      if ans_37 - int( ans_37) > 0 then
QuizDlg8 "The length of the mantis is __.__cm", ans_37
else
QuizDlg4 "The length of the mantis is __cm", ans_37

end if
 end if
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
           else
              play jawharp
              showwitch_surprised
           end if
       else
           play good
           show_frog_good
      end if



   resetcard37
End howtomeasure123






On tonbocome
set the loc of btn tonbo to -300, 0
show btn tonbo
play bee
repeat with xxx = 1 to 20
 set the loc of btn tonbo to -300 + 22 * xxx, 12 * xxx
 wait 3 ticks
end repeat
 put random(20) into rdm37
 set the loc of btn tonbo to 157 + rdm37 * 4,251
lock screen
show btn measure1
show btn measure2
set the loc of btn measure1 to 30 + rdm37 * 4,255
set the loc of btn measure2 to 278 + rdm37 * 4,255
unlock screen
End tonbocome

On auntcome
hide btn aunt
lock screen
set the loc of btn aunt to 380, 431
set bitmap of btn aunt to aunt2
show btn aunt
unlock screen
play chirps
wait 5 ticks
set the loc of btn aunt to 250, 334
wait 15 ticks
set the loc of btn aunt to 156, 280
wait 5 ticks
set the loc of btn aunt to 18, 257
wait 10 ticks
set bitmap of btn aunt to aunt
 put random(30) into rdm37
 set the loc of btn aunt to 62 + rdm37 * 4,200
lock screen
show btn measure1
show btn measure2
set the loc of btn measure1 to 30 + rdm37 * 4,255
set the loc of btn measure2 to 86 + rdm37 * 4,255
unlock screen
End auntcome


On spidercome
set the loc of btn spiderv1 to 292, 419
show btn spiderv1
play flicker
repeat with xxx = 1 to 20
 put xxx mod 4 into xxxnum
if xxxnum = 0 then
 set bitmap of btn spiderv1  to spiderv1
end if
if xxxnum = 1 then
     set bitmap of btn spiderv1  to spiderv2
end if
 if xxxnum = 2 then
     set bitmap of btn spiderv1  to spiderv3
end if
 if xxxnum = 3 then
     set bitmap of btn spiderv1  to spiderv2
end if


 set the loc of btn spiderv1 to 292 - 12 * xxx, 419 - 11 * xxx
 wait 5 ticks
end repeat

set bitmap of btn spiderv1 to spiderh1
 put random(20) into rdm37

set the loc of btn spiderv1 to 65 + rdm37 * 4,200

repeat 2 times
set bitmap of btn spiderv1 to spiderh2
wait 10 ticks
set bitmap of btn spiderv1 to spiderh3
wait 10 ticks
set bitmap of btn spiderv1 to spiderh2
wait 10 ticks
set bitmap of btn spiderv1 to spiderh1
wait 10 ticks
end repeat

lock screen
show btn measure1
show btn measure2
set the loc of btn measure1 to 30 + rdm37 * 4 ,255
set the loc of btn measure2 to 98 + rdm37 * 4 ,255
unlock screen
End spidercome


On kwgatacome
lock screen
set the loc of btn kwgata1 to 298,413
set bitmap of btn kwagata1 to kwagatav1
show btn kwgata1
unlock screen
play flicker
repeat with xxx = 1 to 20
 put xxx mod 2 into xxxnum
if xxxnum = 0 then
 set bitmap of btn kwgata1  to kwgatav2
end if
if xxxnum = 1 then
     set bitmap of btn kwgata1  to kwgatav1
end if


 set the loc of btn kwgata1 to 298 - 10 * xxx, 413 - 9 * xxx
 wait 5 ticks
end repeat

put random(20) into rdm37
set the loc of btn kwgata1 to 102 + rdm37 * 4 , 219
repeat 2 times
set bitmap of btn kwgata1  to kwgata2
wait 5 ticks
set bitmap of btn kwgata1  to kwgata1
wait 5 ticks
end repeat

lock screen
show btn measure1
show btn measure2
set the loc of btn measure1 to 30 + rdm37 * 4 ,255
set the loc of btn measure2 to 170 + rdm37 * 4 ,255
unlock screen
End kwgatacome

On mimizucome
set the loc of btn mimizu1 to -30, 400
show btn mimizu1
play bombom
repeat with xxx = 1 to 10
 put xxx mod 2 into xxxnum
if xxxnum = 0 then
 set bitmap of btn mimizu1  to mimizu2
end if
if xxxnum = 1 then
     set bitmap of btn mimizu1  to mimizu1
end if


 set the loc of btn mimizu1 to -30 + 18 * xxx, 400 - 21 * xxx
 wait 15 ticks
end repeat

put random(20) into rdm37

set the loc of btn mimizu1 to 156 + rdm37 * 4, 183

 set bitmap of btn mimizu1  to mimizu2

lock screen
show btn measure1
show btn measure2
set the loc of btn measure1 to 30 + rdm37 * 4,255
set the loc of btn measure2 to 266 + rdm37 * 4,255
unlock screen
End mimizucome



On kmkiricome
set the loc of btn kmkiri1 to -300, 219
show btn kmkiri1
play chirps
repeat with xxx = 1 to 10
 put xxx mod 2 into xxxnum
if xxxnum = 0 then
 set bitmap of btn kmkiri1  to kmkiri2
end if
if xxxnum = 1 then
     set bitmap of btn kmkiri1  to kmkiri1
end if


 set the loc of btn kmkiri1 to -300 + 47 * xxx, 219
 wait 20 ticks
end repeat

put random(10) into rdm37
set the loc of btn kmkiri1 to 178 + rdm37 * 4,219

 set bitmap of btn kmkiri1  to kmkiri1

lock screen
show btn measure1
show btn measure2
set the loc of btn measure1 to 30 + rdm37 * 4,255
set the loc of btn measure2 to 294 + rdm37 * 4,255
unlock screen
End kmkiricome

On resetcard37
repeat with xxx = 1 to 16
hide btn %xxx%
end repeat
end resetcard37




---------------- end card37 ----------
