
On OpenCard
If Game_on is not 1 then
  play divisors
    put 3 into ntx
   naratoranimex
wait 2 seconds
  play bokuwo
    put 5 into ntx
   naratoranimex
end if
put 0 into Gameflag
lock screen
repeat with i = 1 to 16

put 0 into Item i of checkarray
put 0 into Item i of fldarray
hide fld %i%

end repeat
unlock screen

put 25 into Item 1 of btnarray
put 24 into Item 2 of btnarray
put 15 into Item 3 of btnarray
put 18 into Item 4 of btnarray
put 12 into Item 5 of btnarray
put 26 into Item 6 of btnarray
put 19 into Item 7 of btnarray
put 14 into Item 8 of btnarray
put 16 into Item 9 of btnarray
put 20 into Item 10 of btnarray
put 13 into Item 11 of btnarray
put 23 into Item 12 of btnarray
put 21 into Item 13 of btnarray
put 17 into Item 14 of btnarray
put 22 into Item 15 of btnarray
put 27 into Item 16 of btnarray

practiceyakusu

End OpenCard


On GameStart
lock screen
repeat with i = 1 to 16

put 0 into Item i of checkarray
put 0 into Item i of fldarray
hide fld %i%

end repeat
unlock screen
if typeflag = 1 then
 GameStartyakusu
else
 GameStartKoyakusu
end if
End GameStart



On practicekoyakusu
put 2 into typeflag
lock screen
put random(30) into v_number1
putInt v_number1 into fld number1
put random(30) into v_number2
putInt v_number2 into fld number2
hide btn yakusu
hide btn up2
hide fld number0
show  btn koyakusu
show fld number1
show btn up3
show fld number2
show btn up4
unlock screen

End practicekoyakusu






On practiceyakusu
put 1 into typeflag
put random(30) into v_number0
putInt v_number0 into fld number0
lock screen
hide btn koyakusu
show  btn yakusu
show fld number0
hide fld number1
hide fld number2
show btn up2
hide btn up3
hide btn up4
unlock screen
End practiceyakusu



On yakusunumberup

put v_number0 + 1 into v_number0
if v_number0 > 30 then
    put 1 into v_number0
end if
putInt v_number0 into fld number0

end yakusunumberup

On Koyakusunumberup1

put v_number1 + 1 into v_number1
if v_number1 > 30 then
    put 1 into v_number1
end if
putInt v_number1 into fld number1

end Koyakusunumberup1


On Koyakusunumberup2

put v_number2 + 1 into v_number2
if v_number2 > 30 then
    put 1 into v_number2
end if
putInt v_number2 into fld number2

end Koyakusunumberup2






On GameStartkoyakusu
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          show btn %ii%
          show fld %i%
         end repeat
         unlock screen

putInt 0 into fld totalQ
putInt 0 into fld right_ans
put 0 into rightanswer
put 0 into mistake
put 1 into Gameflag

lock screen
repeat with i = 1 to 16
put random(40) into a_number
put a_number  into Item i of fldarray
put a_number  into Item i of here
end repeat
---------
put random(16) into n1
put random(16) into n2
put random(16) into n3
put random(16) into n4
put random(16) into n5
put random(16) into n6
put random(16) into n7
put random(16) into n8
if v_number1 > v_number2 then
put v_number2 into kkk
put 1 into kkkx
repeat v_number2 times
if v_number1 MOD kkk = 0 and v_number2 MOD KKK = 0 then
 put kkk into Item kkkx of here
 put kkkx + 1 into kkkx
end if
 put kkk -1 into kkk
end repeat
else
put v_number1 into kkk
put 1 into kkkx
repeat v_number1 times
if v_number2 MOD kkk = 0 and v_number1 MOD KKK = 0 then
 put kkk into Item kkkx of here
 put kkkx + 1 into kkkx
end if
 put kkk -1 into kkk
end repeat

end if      

put 1 into i
repeat kkkx times
 put random(16) into n1
 put Item i of here into Item n1 of fldarray
 put i + 1 into i
end repeat


repeat with i = 1 to 16
putInt Item i of fldarray into fld %i%
show fld %i%
put 0 into Item i of checkarray
end repeat





unlock screen

End GameStartkoyakusu



On GameStartyakusu
putInt 0 into fld totalQ
putInt 0 into fld right_ans
put 0 into rightanswer
put 0 into mistake
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          show btn %ii%
          show fld %i%
         end repeat
         unlock screen

put 1 into Gameflag
lock screen
repeat with i = 1 to 16
put random(40) into a_number
put a_number  into Item i of fldarray
put a_number  into Item i of here
end repeat

put v_number0 into kkk
put 1 into kkkx
repeat with i = 1 to kkk
if v_number0 MOD i = 0 then
 put  i into Item kkkx of here 
 put kkkx + 1 into kkkx
end if
end repeat
put 1 into i
repeat kkkx times
 put random(16) into n1
 put Item i of here into Item n1 of fldarray
 put i + 1 into i
end repeat

repeat with i = 1 to 16
putInt Item i of fldarray into fld %i%
show fld %i%
put 0 into Item i of checkarray
end repeat




unlock screen

End GameStartyakusu


On _CheckNumber
If typeflag = 1 then
    if (Item n of fldarray) <= v_number0 and v_number0  MOD (Item n of fldarray) = 0 then       
       play expok
       put rightanswer + 1  into rightanswer
        putInt rightanswer   into fld right_ans
       putInt rightanswer + mistake into fld TotalQ

       put Item n of btnarray into nnn
       hide btn %nnn%
       hide fld %n%
       put 1 into Item n of checkarray
       put 0 into wrong
       repeat with i = 1 to 16
       If (Item i of fldarray) <= v_number0 and ( v_number0  MOD Item i of fldarray= 0) and (Item i of checkarray is not 1) then
         put 1 into wrong
       end if
       end repeat

       if wrong = 0 and  rightanswer > mistake then
         
         play good
         put 2 into ntx
            naratoranimex
 
           lock screen
  
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          hide btn %ii%
          hide fld %i%
         end repeat
         unlock screen
     cosmomanMove
     wait 4 seconds



 put 0 into Gameflag
          
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          show btn %ii%
          hide fld %i%
         end repeat
         unlock screen


       end if

                if wrong = 0 and rightanswer <= mistake then
         
         play uhoh2
 
           lock screen
  
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          hide btn %ii%
          hide fld %i%
         end repeat
         unlock screen
     wait 4 seconds



 put 0 into Gameflag
          
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          show btn %ii%
          hide fld %i%
         end repeat
         unlock screen



       end if



    else
       play expNG
       put  mistake + 1 into mistake

    end if
    putInt rightanswer + mistake into fld TotalQ
  else
-------------
     


    if ( v_number1 MOD (Item n of fldarray)=0) and ( v_number2 MOD (Item n of fldarray)=0) and (Item n of fldarray) <=  v_number1 and (Item n of fldarray) <=  v_number2 then       
       play expok
       put rightanswer + 1  into rightanswer
       putInt rightanswer   into fld right_ans
       putInt rightanswer + mistake into fld TotalQ

       put Item n of btnarray into nnn
       hide btn %nnn%
       hide fld %n%
       put 1 into Item n of checkarray
       put 0 into wrong
       repeat with i = 1 to 16
       If  ( v_number1 MOD (Item i of fldarray)=0) and ( v_number2 MOD (Item i of fldarray)=0) and (Item i of fldarray) <=  v_number1 and (Item i of fldarray) <=  v_number2  and (Item i of checkarray is not 1) then
         put 1 into wrong
       end if
       end repeat

       if wrong = 0 and rightanswer > mistake then
         
         play good
           put  2 into ntx
            naratoranimex
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          hide btn %ii%
          hide fld %i%
         end repeat
         unlock screen
       CosMoManMove
       wait 4 seconds

 put 0 into Gameflag
          
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          show btn %ii%
          hide fld %i%
         end repeat
         unlock screen


       end if

        if wrong = 0 and rightanswer <= mistake then
         
         play uhoh2
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          hide btn %ii%
          hide fld %i%
         end repeat
         unlock screen
       wait 4 seconds

 put 0 into Gameflag
          
          lock screen
          repeat with i = 1 to 16
          put Item i of btnarray into ii
          show btn %ii%
          hide fld %i%
         end repeat
         unlock screen


       end if

        

    else
       play expNG
       put  mistake + 1 into mistake

    end if
    putInt rightanswer + mistake into fld TotalQ



  end if
    

End  _CheckNumber


on CheckNumber1
if Gameflag = 1 then
put 1 into n
_CheckNumber
end if
end  CheckNumber1

on CheckNumber2
if Gameflag = 1 then
put 2 into n
_CheckNumber
end if
end  CheckNumber2


on CheckNumber3
if Gameflag = 1 then
put 3 into n
_CheckNumber
end if
end  CheckNumber3


on CheckNumber4
if Gameflag = 1 then
put 4 into n
_CheckNumber
end if
end  CheckNumber4


on CheckNumber5
if Gameflag = 1 then
put 5 into n
_CheckNumber
end if
end  CheckNumber5


on CheckNumber6
if Gameflag = 1 then
put 6 into n
_CheckNumber
end if
end  CheckNumber6


on CheckNumber7
if Gameflag = 1 then
put 7 into n
_CheckNumber
end if
end  CheckNumber7


on CheckNumber8
if Gameflag = 1 then
put 8 into n
_CheckNumber
end if
end  CheckNumber8


on CheckNumber9
if Gameflag = 1 then
put 9 into n
_CheckNumber
end if
end  CheckNumber9


on CheckNumber10
if Gameflag = 1 then
put 10 into n
_CheckNumber
end if
end  CheckNumber10


on CheckNumber11
if Gameflag = 1 then
put 11 into n
_CheckNumber
end if
end  CheckNumber11


on CheckNumber12
if Gameflag = 1 then
put 12 into n
_CheckNumber
end if
end  CheckNumber12


on CheckNumber13
if Gameflag = 1 then
put 13 into n
_CheckNumber
end if
end  CheckNumber13


on CheckNumber14
if Gameflag = 1 then
put 14 into n
_CheckNumber
end if
end  CheckNumber14


on CheckNumber15
if Gameflag = 1 then
put 15 into n
_CheckNumber
end if
end  CheckNumber15


on CheckNumber16
if Gameflag = 1 then
put 16 into n
_CheckNumber
end if
end  CheckNumber16



-------------------
On CosMoManMove

Play accent
lock screen
set loc of btn cosmoman to 556, 461
show btn cosmoman
unlock screen
put 0 into RoundFlag
if Random(2) = 1 then
   put -20 into xx
 put 200 into yy
else
   put -100 into xx
   put 261 into yy
end if

put  (556 - xx) / 10 into n
put random(10) into l
 put random(4) into m
 put (461 - yy)/ n into intervaly

Repeat with i = 1 to n
if mouseclick() then
 exit repeat
end if
Lock Screen
if i = l  or i = l + 45 then
put 99 into Roundflag
set bitmap of btn Cosmoman to Cosmoman
  if m = 1 then
    set direction of btn Cosmoman to 0
  end if
  if m = 2 then
    set direction of btn Cosmoman to 0
  end if
  if m = 3 then
    set direction of btn Cosmoman to 0
  end if
  if m = 4 then
    set direction of btn Cosmoman to 0
  end if
End if

if  i = l + 35 or i = l + 60 then
set bitmap of btn Cosmoman to Cosmomn2
  if m = 1 then
    set direction of btn Cosmoman to 0
  end if
  if m = 2 then
    set direction of btn Cosmoman to 0
  end if
  if m = 3 then
    set direction of btn Cosmoman to 0
  end if
  if m = 4 then
    set direction of btn Cosmoman to 0
  end if
End if

if  i = l + 60 or i = l + 80 then
set bitmap of btn Cosmoman to Cosmoman
  if m = 1 then
    set direction of btn Cosmoman to 0
  end if
  if m = 2 then
    set direction of btn Cosmoman to 0
  end if
  if m = 3 then
    set direction of btn Cosmoman to 1
  end if
  if m = 4 then
    set direction of btn Cosmoman to 1
  end if
End if

 if  i = l + 85 or i = l + 100 then
set bitmap of btn Cosmoman to Cosmomn2
  if m = 1 then
    set direction of btn Cosmoman to 0
  end if
  if m = 2 then
    set direction of btn Cosmoman to 0
  end if
  if m = 3 then
    set direction of btn Cosmoman to 0
  end if
  if m = 4 then
    set direction of btn Cosmoman to 0
  end if
put 0 into Roundflag
End if
   
set loc of btn Cosmoman to 556 - 10 * i, 461 -  intervaly * i

UnLock Screen
end repeat



Lock Screen
set direction of btn Cosmoman to 0
set loc of btn Cosmoman to -300, 461
set loc of btn Cosmomn to 556, 461
hide btn cosmoman
Unlock Screen
 



End  CosMoManMove






