// ＩＭＷ版　スクリーンセーバー
// よくある時計です、時刻を表示します

// コンパイルして、拡張子を .exe → .scr に変更すれば
// スクリーンセーバーとして使えます


// キーが押されたりクリックされたら終了させる
KEYDOWN     { end ; }
LBUTTONDOWN { end ; }
RBUTTONDOWN { end ; }

// マウスが動いたら終了させる
MOUSEMOVE
{
	// ms_move の値が 10 までは終了させない
	// こうしないといきなり終了してしまう
	ms_move = ms_move + 1 ;
	if(ms_move > 10){ end ; }
}

INIT
{
	SetFont("ＭＳ ゴシック",2) ;


}
CREATE
{
	SetWinStyle(4) ;
	SetWinSize(SCR_X,SCR_Y) ;
	SetWinPos(0,0,0) ;
	SetWinColor(0) ;
	ms_move = 0 ;

	SetTimer(200) ; // タイマー時間の設定 0.2 秒
	h = 16 ; w = 16 ; // 文字サイズ
	px = SCR_X/2+SEC ; py = SCR_Y/2+MIN ; count = 0 ;
}



TIMER
{
	SetPal(7,count*8,count*8,count*8) ; // 色を設定

	Box(0,0,SCR_X,SCR_Y,0,0) ; // 全消去
	x = px ; y = py ;
	PrintData(x,y,0,w,h,7,0,HOUR) ; Print(x+w*2,y,0,w/2,h,7,"時") ; x = x + w * 4 ;
	PrintData(x,y,0,w,h,7,0,MIN) ; Print(x+w*2,y,0,w/2,h,7,"分") ; x = x + w * 4 ;
	PrintData(x,y,0,w,h,7,0,SEC) ; Print(x+w*2,y,0,w/2,h,7,"秒です") ;

	count = count + 1 ;
	if(count > 20){
		px = rand(py)*(SCR_X-w*16)/100 ;
		//px = rand(SEC)*(SCR_X-w*16)/100 ;
		py = rand(px)*(SCR_Y-h)/100 ;
		count = 0 ;
	}
}