On OpenCard
if game_on is not 1 then
play space
put 3 into ntx
naratoranimex
wait 1 seconds

play bokuwo
put 3 into ntx
naratoranimex
end if
putInt 27 into fld Hcm
putInt 18 into fld Vcm
set bitmap of btn box2718 to box2718
put 0 into boxcounter
put 27 into widthb
put 18 into length
ChangeBox
End Opencard




On ChangeBox
--play click_e
put  boxcounter + 1 into boxcounter

if  boxcounter > 8 then
  put 1 into boxcounter
  end if

if boxcounter = 1 then 
set bitmap of btn box2718 to box2718
putInt 27 into fld hcm
put 27 into widthb
putInt 18 into fld vcm
put 18 into length
end if


if boxcounter = 2 then 
set bitmap of btn box2718 to box1216
putInt 12 into fld hcm
put 12 into widthb
putInt 16 into fld vcm
put 16 into length
end if


if boxcounter = 3 then 
set bitmap of btn box2718 to box1512
putInt 15 into fld hcm
put 15 into widthb
putInt 12 into fld vcm
put 12 into length
end if


if boxcounter = 4 then 
set bitmap of btn box2718 to box1421
putInt 14 into fld hcm
put 14 into widthb
putInt 21 into fld vcm
put 21 into length
end if


if boxcounter = 5 then 
set bitmap of btn box2718 to box1015
putInt 10 into fld hcm
put 10 into widthb
putInt 15 into fld vcm
put 15 into length
end if


if boxcounter = 6 then 
set bitmap of btn box2718 to box1412
putInt 14 into fld hcm
put 14 into widthb
putInt 12 into fld vcm
put 12 into length
end if


if boxcounter = 7 then 
set bitmap of btn box2718 to box0806
putInt 8 into fld hcm
put 8 into widthb
putInt 6 into fld vcm
put 6 into length
end if


if boxcounter = 8 then 
set bitmap of btn box2718 to box0609
putInt 6 into fld hcm
put 6 into widthb
putInt 9 into fld vcm
put 9 into length
end if




lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt





End ChangeBox



-- btn No 26 - 146 for use 



On click_rec2020
play click_a3
if baton2020 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 put 0 into baton1010
 put 1 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if




put i + 1 into i
put 2 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec2020
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec2020



On click_rec3030
play click_a3
if baton3030 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 1 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if

put i + 1 into i
put 3 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec3030
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec3030


---------------


On click_rec4040
play click_a3
if baton4040 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 1 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if


put i + 1 into i
put 4 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec4040
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec4040


On click_rec5050
play click_a3
if baton5050 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 1 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if


put i + 1 into i
put 5 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec5050
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec5050


On click_rec6060
play click_a3
if baton6060 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 1 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if


put i + 1 into i
put 6 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec6060
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec6060



--------------------
On click_rec7070
play click_a3
if baton7070 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 1 into baton7070
 put 0 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if


put i + 1 into i
put 7 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec7070
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec7070


On click_rec8080
play click_a3
if baton8080 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 1 into baton8080
 put 0 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if


put i + 1 into i
put 8 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec8080
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec8080


On click_rec9090
play click_a3
if baton9090 is not 1 then
lock screen
 repeat with i = 26 to 147
 hide btn %i%
 end repeat
unlock screen
 
put 0 into baton1010
 put 0 into baton2020
 put 0 into baton3030
 put 0 into baton4040
 put 0 into baton5050
 put 0 into baton6060
 put 0 into baton7070
 put 0 into baton8080
 put 1 into baton9090
 put 25 into i
 put 0 into incrementx
 put 0 into incrementy
 put 0 into clickcnt
end if


put i + 1 into i
put 9 into n

put( widthb -( widthb MOD n))/n into num_row
put (length - (length MOD n))/n into num_line
put LocH of btn BOX2718 - (widthb*10/2) + n*10/2 into ox
put LocV of btn BOX2718 - (Length*10/2) + n*10/2 into oy

if clickcnt < num_row * num_line then
lock screen
set loc of btn %i% to ox + incrementx, oy + incrementy
set bitmap of btn %i% to rec9090
show btn %i%
unlock screen
put n*10 + incrementx into incrementx
if incrementx >= n * num_row * 10 then
put N*10 + incrementy into incrementy
put 0 into incrementx
end if 
put clickcnt + 1 into clickcnt
else
play uhoh2
end if


End click_rec9090

------------------------



On Game_SaidaiK
randomrectangle
if boxcounter= 1 then
 QuizDlg4 "The side of the biggest square that fills a 27x18 rect. is __cm", 9

      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 Game_SaidaiK
        else
         put  math_answer2 into x_ans
         if x_ans = 2 then
            put int(27*18 / 4) into x_number
            repeat x_number times
             click_rec2020
            end repeat
          end if
         if x_ans = 3 then
            put int(27*18 / 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if
         if x_ans = 4 then
            put int(27*18 / 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if

         if x_ans = 5 then
            put int(27*18 / 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(27*18 / 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(27*18 / 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(27*18 / 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if





              play jawharp
          showwitch_surprised
          end if
     
       else
            put int(27*18 / 81) into x_number
            repeat x_number times
             click_rec9090
            end repeat

           play good
           show_frog_good
    end if


end if
if boxcounter= 2 then
 QuizDlg4 "The side of the biggest square that fills a 12x16 rect. is ___cm", 4

      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 Game_SaidaiK
        else
         put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(12*16 / 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if
         if x_ans = 3 then
            put int(12*16 / 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if

         if x_ans = 5 then
            put int(12*16 / 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(12*16 / 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(12*16 / 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(12*16 / 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(12*16 / 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if



              play jawharp
          showwitch_surprised
        end if
       else
            put int(12*16 / 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat

           play good
           show_frog_good
    end if

end if
if boxcounter= 3 then
 QuizDlg4 "The side of the biggest square that fills a 15x12 rect. is __cm", 3

      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 Game_SaidaiK
        else

        put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(15*12/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if
         if x_ans = 4 then
            put int(15*12/ 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if


         if x_ans = 5 then
            put int(15*12/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(15*12/ 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(15*12/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(15*12/ 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(15*12/ 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if




              play jawharp
          showwitch_surprised
        end if
       else
            put int(15*12/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat

           play good
           show_frog_good
    end if

end if
if boxcounter= 4 then
 QuizDlg4 "The side of the biggest square that fills a 14x21 rect. is __cm", 7

      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 Game_SaidaiK
        else

       put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(14*21/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if

         if x_ans = 3 then
          put int(14*21/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if






         if x_ans = 4 then
            put int(14*21/ 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if


         if x_ans = 5 then
            put int(14*21/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(14*21/ 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(14*21/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(14*21/ 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(14*21/ 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if




              play jawharp
          showwitch_surprised
        end if
       else
            put int(14*21/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat

           play good
           show_frog_good
    end if

end if

if boxcounter= 5 then
 QuizDlg4 "The side of the biggest square that fills a 10x15 rect. is __cm", 5

      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 Game_SaidaiK
        else
      put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(14*21/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if

         if x_ans = 3 then
          put int(10*15/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if






         if x_ans = 4 then
            put int(10*15/ 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if


         if x_ans = 5 then
            put int(10*15/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(10*15/ 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(10*15/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(10*15/ 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(10*15/ 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if



              play jawharp
          showwitch_surprised
        end if
       else
           put int(10*15/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat

           play good
           show_frog_good
    end if

end if

if boxcounter= 6 then
 QuizDlg4 "The side of the biggest square that fills a 14x12 rect. is __cm", 2

      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 Game_SaidaiK
        else
      put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(14*12/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if

         if x_ans = 3 then
          put int(14*12/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if






         if x_ans = 4 then
            put int(14*12/ 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if


         if x_ans = 5 then
            put int(14*12/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(14*12/ 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(14*12/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(14*12/ 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(14*12/ 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if

              play jawharp
          showwitch_surprised
        end if
       else
         put int(14*12/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat

           play good
           show_frog_good
    end if

end if

if boxcounter= 7 then
 QuizDlg4 "The side of the biggest square that fills a 8x6 rect. is __cm", 2

      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 Game_SaidaiK
        else
      put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(8*6/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if

         if x_ans = 3 then
          put int(8*6/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if






         if x_ans = 4 then
            put int(8*6/ 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if


         if x_ans = 5 then
            put int(8*6/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(8*6/ 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(8*6/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(8*6/ 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(8*6/ 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if

              play jawharp
          showwitch_surprised
        end if
       else
         put int(8*6/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat

           play good
           show_frog_good
    end if

end if

if boxcounter= 8 then
 QuizDlg4 "The side of the biggest square that fills a 6x9 rect. is __cm", 3

      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 Game_SaidaiK
        else
      put  math_answer2 into x_ans
         if x_ans = 2 then
          put int(8*6/ 4) into x_number
            repeat x_number times
             click_rec2020
              end repeat
          end if

         if x_ans = 3 then
          put int(6*9/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat
          end if






         if x_ans = 4 then
            put int(6*9/ 16) into x_number
            repeat x_number times
             click_rec4040
              end repeat
          end if


         if x_ans = 5 then
            put int(6*9/ 25) into x_number
            repeat x_number times
             click_rec5050
              end repeat
          end if

         if x_ans = 6 then
            put int(6*9/ 36) into x_number
            repeat x_number times
             click_rec6060
              end repeat
          end if

         if x_ans = 7 then
            put int(6*9/ 49) into x_number
            repeat x_number times
             click_rec7070
               end repeat
         end if
         if x_ans = 8 then
            put int(6*9/ 64) into x_number
            repeat x_number times
             click_rec8080
              end repeat
          end if
         if x_ans = 9 then
            put int(6*9/ 81) into x_number
            repeat x_number times
             click_rec9090
              end repeat
          end if

              play jawharp
          showwitch_surprised
        end if
       else
         put int(6*9/ 9) into x_number
            repeat x_number times
             click_rec3030
              end repeat

           play good
           show_frog_good
    end if

end if








End Game_SaidaiK

On randomrectangle
put random(8) into i
repeat i times
changebox
end repeat
End  randomrectangle

on fill_rectangle
End fill_rectangle


On selectbtnno
end selectbtnno

