On OpenCard
wait 1 ticks
hide btn opeboard
Lock Screen

if game_on is not 1  then
-------------------
put 0 into grade_level
if grade_level = 2 then
   set bitmap of btn b_red1 to b_red2
end if
if grade_level = 0 then
   set bitmap of btn b_green1 to b_green2
end if
if grade_level = 1 then
   set bitmap of btn b_yell1 to b_yell2
end if


end if

Unlock Screen

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


If InitialCard6 is not 6 then
ss033setFirst
put 6 into InitialCard6

ss033Moveinitial
else
ss033setnormal
end if




if thefirsttime = 0 then
put 1 into thefirsttime
put 3 into ntx
play begin1
if mouseclick() then
  play muon
click at btn b_green1
  exit opencard
end if
naratoranimexx
wait 1 seconds
if mouseclick() then
  play muon
click at btn b_green1
  exit opencard
end if

put 5 into ntx

play begin2
if mouseclick() then
  play muon
click at btn b_green1
  exit opencard
end if

naratoranimexx
if mouseclick() then
  play muon
click at btn b_green1
exit opencard
end if
wait 100 ticks
if mouseclick() then
  play muon
click at btn b_green1
  exit opencard
end if


put 3 into ntx

play begin3
naratoranimexx
if mouseclick() then
  play muon
click at btn b_green1
  exit opencard
end if
wait 2 seconds
if mouseclick() then
  play muon
click at btn b_green1
  exit opencard
end if
wait 100 ticks
   put 9999 into firsttimehello

end if
click at btn b_green1
exit opencard
end OpenCard


On naratoranimexx
show btn narator1
repeat ntx times
set bitmap of btn narator1 to narator2
wait 1 ticks
if mouseclick() then
  play muon
  exit naratoranimexx
end if
set bitmap of btn narator1 to narator1
wait 1 ticks
set bitmap of btn narator1 to narator2
wait 1 ticks
set bitmap of btn narator1 to narator3
wait 1 ticks
end repeat

End naratoranimexx




On naratoranimex
show btn narator1
repeat ntx times
set bitmap of btn narator1 to narator2
wait 1 ticks
if mouseclick() then
  play muon
  exit naratoranimex
end if
set bitmap of btn narator1 to narator1
wait 5 ticks
set bitmap of btn narator1 to narator2
wait 5 ticks
set bitmap of btn narator1 to narator3
wait 5 ticks
end repeat

End naratoranimex



