
--------------  card 33 ---------
On opencard 33
  put 33 into presentcard
  put 0 into init33
    put 0 into clock33
	SetClock33

if game_on is not 1 then
  play imananji
   put 3 into ntx
   naratoranimex
   wait 1 seconds
   play bokuwo
   put 4 into ntx
   naratoranimex

end if
end opencard



On q_clock33
put random(720) into clock33
Setclock33
 if game_on is  1 and init33 = 0 then
  play imananji
   put 3 into ntx
   naratoranimex
 put 1 into init33
  end if

  QuizDlg18 "Qu hora es?   __ minuto(s) (pasados la(s)/falta(n) para la(s)) __", clock33
      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

End q_clock33







On SetClock33
	put clock33 mod 60 into fun
	set data of btn "PinLong" to fun * 6
	set data of btn "PinShort" to clock33 * 0.5
end SetClock33

On FunUp33
	repeat while mouse() is down
		put clock33 + 1 into clock33
		if clock33 >= 720 then
			put clock33 - 720 into clock33
		end if
		SetClock33
		wait 10 ticks
	end repeat
end FunUp33

On FunDown33
	repeat while mouse() is down
		put clock33 - 1 into clock33
		if clock33 < 0 then
			put clock33 + 720 into clock33
		end if
		SetClock33
		wait 10 ticks
	end repeat
end FunDown33

On JikanUp33
	repeat while mouse() is down
		put clock33 + 60 into clock33
		if clock33 >= 720 then
			put clock33 - 720 into clock33
		end if
		SetClock33
		wait 10 ticks
	end repeat
end JikanUp33

On JikanDown33
	repeat while mouse() is down
		put clock33 - 60 into clock33
		if clock33 < 0 then
			put clock33 + 720 into clock33
		end if
		SetClock33
		wait 10 ticks
	end repeat
end JikanDown33

-------------- end card 33 ---------
