//りまいんだ
!母艦設計=「母艦の可視はオフ」
現在ポインタとは整数=0
前回タイムとは文字列=「」
現在日付とは文字列=「」
メッセージとは配列
メッセージセットとは配列
メッセージセット[0]=0
設定ファイルとは文字列=「time.txt」

母艦のタイトルは"りまいんだ"
母艦を中央移動
母艦をタスクトレイ入れる
母艦の終了可能は0

時間制御とはタイマー
時間制御の値は5000//msec

時間制御の時満ちた時は〜
	今の「:」を「」に置換で時間比較

母艦のタスクトレイクリックした時は
	「{母艦のタイトル}を終了しますか？」と二択
	もしそれがはいならば
		終了処理
	
母艦の閉じた時は
	終了処理

母艦のタスクトレイ右クリックした時は
	メッセ候補=メッセージでメモ記入
	もしメッセ候補が空でなければ
		メッセージ=メッセ候補
		メッセ初期化
		
設定ファイルが存在するか
もしそれが1ならば
	メッセージに設定ファイルを開く
	メッセ初期化
違えば
	メッセージ=「0,リマインダ：タイムデータ{~}」

時間制御の開始

●MessageBox(h,t,c,u) =DLL("user32.dll", "int MessageBoxA(
		HWND hWnd, // handle of owner window
		LPCTSTR lpText, // address of text in message box
		LPCTSTR lpCaption, // address of title of message box  
		UINT uType  // style of message box
	)")#"
	
●時間比較(tで)
	t=LEFT(t,4)
	もし(t!=前回タイム)ならば
		前回タイム=t
		n=(今日の「/」を「」に置換)&(tを4でゼロ埋め)
		//シャウト
		もし(n==メッセージ[現在ポインタ][0])ならば
			メッセージセットを反復
				メッセ=それ
				もしメッセが空でなければ
					MessageBox((母艦のハンドル),「{メッセ}」,「{母艦のタイトル}」,$40040)。
			メッセージ抽出
			

●ポインタ設定
	n=(今日の「/」を「」に置換)&((LEFT((今の「:」を「」に置換),4))を4でゼロ埋め)
	メッセージを反復
		もし((それ[0])<=n)ならば
			現在ポインタ=回数-1

●メッセージ抽出
	メッセージセット=「」
	t=メッセージ[現在ポインタ+1][0]
	メッセージセット=「{メッセージ[現在ポインタ+1][1]}」
	
	現在ポインタ=現在ポインタ+1
	もし((メッセージ[現在ポインタ+1][0])==t)ならば
		メッセージセット=「{メッセージセット}{~}{メッセージ[現在ポインタ+1][1]}」
		現在ポインタ=現在ポインタ+1

●メッセ初期化
	メッセージを配列数値ソート
	ポインタ設定
	メッセージ抽出
	
●終了処理
	メッセージを設定ファイルに保存
	母艦の終了可能は1
	終わる