
On opencard  37
  put 37 into presentcard

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
      QuizDlg6 "La punta de la cabeza de la liblula est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
      QuizDlg6 "La punta de la cola de la liblula est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 3  then
      put (278 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
      QuizDlg6 "La liblula es __cm__mm de larga", ans_37
 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
      QuizDlg6 "Dnde est ubicada la punta de la pata delantera de la hormiga?", ans_37
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
      QuizDlg6 "La punta de la pata trasera de la hormiga est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 3  then
      put (86 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
      QuizDlg6 "La hormiga es __cm__mm de larga", ans_37
 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
      QuizDlg6 "La punta de la pata delantera de la araa est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
      QuizDlg6 "La punta de la pata trasera de la araa est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 3  then
      put (98 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
      QuizDlg6 "La araa es __cm__mm de larga", ans_37
 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
      QuizDlg6 "Dnde est ubicada la punta de la tenaza del escarabajo ciervo?", ans_37
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
      QuizDlg6 "Dnde est ubicada la punta de la pata trasera del escarabajo?", ans_37
 end if
 if selectedpoint = 3  then
      put (170 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
      QuizDlg6 "El escarabajo ciervo es __cm__mm de largo", ans_37
 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
      QuizDlg6 "La punta de la cabeza de la lombriz est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
      QuizDlg6 "La punta de la cola de la lombriz est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 3  then
      put (266 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
      QuizDlg6 "La lombriz es __cm__mm de larga", ans_37
 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
      QuizDlg6 "Dnde est ubicada la punta de la pata delantera de la mantis?", ans_37
 end if
 if selectedpoint = 2 then
      put rdm37 into ans_37
      QuizDlg6 "La punta del ala de la mantis est ubicada a __cm__mm", ans_37
 end if
 if selectedpoint = 3  then
      put (294 + rdm37 * 4 -30) / 4 - rdm37 into ans_37
      QuizDlg6 "La mantis es __cm__mm de larga", ans_37
 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 ----------



