#author("2020-04-29T10:23:09+09:00","","")
#author("2020-04-29T10:28:02+09:00","","")
[[Ys TOOLs C]]

Ys Clock 0.1.0~
~
・始めに~
このTOOLは指定の時刻までの時間をカウントするTOOLです~
~
・作成の動機~
リアルタイムでラジオ番組を聞きたくて、作成しました~
タブレット使用が念頭なんですが　数字はキーボード入力だったり~
たまにしか入力しないからいいかなって~
~
・使い方~
記述予定~
~
・今後~
時刻と残り時間が一緒に変わると気持ち悪いので~
残り時間だけ止めたいですね~
~
・バグ~
明日ボタンを設定すると、次の日になっても明日のままですｗ~
~
・謝辞~
このTOOLでは魔王魂様のsound effectを使用しています。感謝です~
http://maoudamashii.jokersounds.com/~
~
sound effectのwavの著作権は魔王魂様に所属します~
~
作成：高畑ラボ(Y_repeat)~
~
・連絡先~
バグなどありましたらご報告ください~
また改造後再配布時配布URLを教えていただけると嬉しいです~
y.tack2010@gmail.com~
~
#code{{
mmload "se_maoudamashii_onepoint30.wav",1,0
title "Ys Clock"
//#include "mod_counttimer.hsp"
//	make_timer timer	// タイマーの準備。
;#define Lfont_input(%1,%2,%3) font "",%1:input %2,
;font "",25:input:font "",20

	flag_return=0
	flag_fin=0
	
	screen 0,520,280
	cls 1
	font "",20
	objmode 2
	f = 0
	t0 = 0	// 待ち時間(秒)
	pos 160,0
	mes "時刻"
	my_hour = gettime(4)
	my_min  = gettime(5)
	my_sec  = gettime(6)
	str_time_cur=strf("%02d",my_hour)+":"+strf("%02d",my_min)+":"+strf("%02d",my_sec)
	pos 160,30
	font "",40:input str_time_cur,160,40
	ID4str_time_cur=stat:font "",20
	pos 160,75
	objsize 120,40
	font "",30:button "re get",*l_re_get
	ID4re_get=stat:font "",20
	mes "残り時間"
	yotei_time_rest_tmp="00:00:00"
	font "",40:input yotei_time_rest_tmp,160,40
	ID4yotei_time_rest=stat:font "",20
	font "",30:button "check",*l_check
	ID4check=stat:font "",20
	
	pos 10,0
	var4sel_day=1
	objsize 120,50
	font "",30
	button "→今日",*l_sel_today
	ID4sel_today=stat:font "",20
	font "",30
	button "明日",*l_sel_tomorrow
	ID4sel_tomorrow=stat:font "",20
	pos 10,100
	mes "時間入力(時)"
	font "",30:input t0_b3,120,30
	ID4t0_b3=stat:font "",20
	mes "時間入力(分)"
	font "",30:input t0_b2,120,30
	ID4t0_b2=stat:font "",20
	mes "時間入力(秒)"
	font "",30:input t0_b,120,30
	ID4t0_b=stat:font "",20
	
	pos 350,0
	
	mes "予定時刻"
	yotei_time_cur_tmp="00:00:00"
	yotei_time_cur=strf("%02d",my_hour)+":"+strf("%02d",my_min)+":"+strf("%02d",my_sec)

	font "",40:input yotei_time_cur_tmp,160,40
	ID4yotei_time_cur=stat:font "",20
	objsize 120,40
	font "",30:button "time set",*l_time_set
	ID4re_get=stat:font "",20
	objsize 140,50
	font "",30:button "start time", *start_b:font "",20
	font "",30:button "stop time",*l_stop_b:font "",20
	hoge_b = 0
	mes "状況"
	bar_b="start"
	font "",30:input bar_b,160,35
	ID4bar_b=stat:font "",20
	stop
*l_check
	nokori_time=0
	my_hour = gettime(4)
	my_min  = gettime(5)
	my_sec  = gettime(6)
	cur_time_sec=0
	cur_time_sec+=my_sec
	cur_time_sec+=my_min*60
	cur_time_sec+=my_hour*60*60
	yotei_time_total_sec=0
	yotei_time_total_sec+=yotei_time_sec
	yotei_time_total_sec+=yotei_time_min*60
	yotei_time_total_sec+=yotei_time_hour*60*60
	if cur_time_sec > yotei_time_total_sec{
		bar_b="fin."
		objprm ID4bar_b,bar_b
		if flag_return==1:flag_fin=1:return
		stop
	}
	nokori_time_total_sec = yotei_time_total_sec - cur_time_sec
	nokori_time_sec = nokori_time_total_sec\60
	nokori_time_min = (nokori_time_total_sec\3600)/60
	nokori_time_hour = nokori_time_total_sec/3600
	yotei_time_rest_tmp=strf("%02d",nokori_time_hour)+":"+strf("%02d",nokori_time_min)+":"+strf("%02d",nokori_time_sec)
	objprm ID4yotei_time_rest,yotei_time_rest_tmp
	if flag_return==1:return
	stop
*l_re_get
	my_hour = gettime(4)
	my_min  = gettime(5)
	my_sec  = gettime(6)
	str_time_cur=strf("%02d",my_hour)+":"+strf("%02d",my_min)+":"+strf("%02d",my_sec)
	font "",30:objprm ID4str_time_cur,str_time_cur:font "",20
	if flag_return==1:return
	stop
*l_time_set
	yotei_time_sec=(t0_b)\60
	yotei_time_min=(t0_b2)\60+(t0_b)/60
	yotei_time_hour=t0_b3+(t0_b2)/60+(t0_b)/3600
	if var4sel_day==2:yotei_time_hour+=24
	yotei_time_cur=strf("%02d",yotei_time_hour)+":"+strf("%02d",yotei_time_min)+":"+strf("%02d",yotei_time_sec)
	objprm ID4yotei_time_cur,yotei_time_cur
	if flag_return==1:return
	stop
*start_b
	bar_b="start"
	objprm ID4bar_b,bar_b
	flag_return=1
	gosub *l_time_set
	while 1
	await 200
	flag_return=1
	gosub *l_re_get
	gosub *l_check
	flag_return=0
	if flag_fin==1{
		while 1
			mmplay 1
			await 3000
		wend
	}
	wend
	stop
*l4restart_b
	stop
*l_stop_b
	flag_fin=0
	mmstop
	bar_b="stop"
	objprm ID4bar_b,bar_b
	stop
*l_restart_b
	goto *l4restart_b
*l_sel_today
	var4sel_day=1
	objprm ID4sel_today,"→今日"
	objprm ID4sel_tomorrow,"明日"
	stop
*l_sel_tomorrow
	var4sel_day=2
	objprm ID4sel_today,"今日"
	objprm ID4sel_tomorrow,"→明日"
	stop
}}