///////// お仕事 Choiceworks { "\0\s[5]何すればいい?\n\n[half]/ \![*]\q[%(MENUITEM('名前を覚え直す')),ChoiceUsernameEntry]\n/ \![*]\q[%(MENUITEM('誕生日を覚える')),ChoiceBirthdayEntry]\n/ \![*]\q[%(MENUITEM('住んでいる場所の設定')),ChoicePlaceEntry]\n/ \![*]\q[%(MENUITEM('システム情報')),ChoiceSystemInformation]\n/ \![*]\q[%(MENUITEM('ごみ箱の片付け')),ChoiceGarbagecan]\n/ \![*]\q[%(MENUITEM('タイマー')),ChoiceTimer]\n/ \![*]\q[%(MENUITEM('自由移動の設定')),Free_movement]\n/ \![*]\q[%(MENUITEM('なんでもない')),ChoiceCancel]\e" } //---- 名前を覚える ----------------------------------------------------------- ChoiceUsernameEntry { "\0\s[30]覚えなおし?\![open,inputbox,OnInputUsername,-1]\e" } //---- システム情報 ----------------------------------------------------------- ChoiceSystemInformation { os_name = FUNCTIONEX("ccpuid.dll","os.name") os_version = FUNCTIONEX("ccpuid.dll","os.version") cpu_name = FUNCTIONEX("ccpuid.dll","cpu.name") cpu_clockex = FUNCTIONEX("ccpuid.dll","cpu.clockex") "/ \0\s[0]/ OSの名称は%os_nameです。\n/ OSバージョンは%os_versionです。\n/ 物理メモリの使用量は%memoryload%です。\n/ 空き物理メモリ量は%memoryavailphys KBです。\n/ CPUは%cpu_nameです。\n/ 動作クロックは%cpu_clockexMHzです。\e" } //---- ごみ箱を空にする ----------------------------------------------------------- ChoiceGarbagecan { "\0\t\s[5]ゴミ捨て、いってきまーす。\w9\w9\s[-1]\b[-1]\![raise,OnGarbagecanEmpty]\_w[2500]\c\s[31]ただいまー\e" } //ごみ箱を空 OnGarbagecanEmpty { _gomi = FUNCTIONEX("gomi.dll", "-f") } //画面ぐらぐら OnEffect0 { FUNCTIONEX("effect.dll", 3, 600, 30, 100) } //画面2分割 OnEffect1 { FUNCTIONEX("effect.dll", 1, 600, 30, 30, 100) } //---- 自由移動 --------------------------------------------------------- Free_movement { "\0\s[0]どうします?\n\n[half]/ \![*]\q[%(MENUITEM('自由に動いて')),Free_movement_On]\n/ \![*]\q[%(MENUITEM('一番下にいて')),Free_movement_Off]\e" } Free_movement_On { movement = 1 "\0\s[6]はい、了解。%(movement_status)\e" } Free_movement_Off { movement = 0 "\0\s[6]はい、了解。%(movement_status)\e" } // 起動時用 movement_status { if basewarename != 'embryo' { if movement { '\_q\1\![set,alignmenttodesktop,free]\0\![set,alignmenttodesktop,free]\_q' } else { '\_q\1\![set,alignmenttodesktop,bottom]\0\![set,alignmenttodesktop,bottom]\_q' } } else { '' } } ChoicePlaceEntry { '\0\h\s[5]住んでいる場所をえらんでね。\w9\w9\u\s[11]月齢計算などに使います。\h\n\n[half]\_q' -- '\q[北海道,OnChoicePlaceEntryExec,北海道,142|49|26,43|28|11] ' -- '\q[青森,OnChoicePlaceEntryExec,青森,140|49|42,40|46|59] ' -- '\q[岩手,OnChoicePlaceEntryExec,岩手,141|21|32,39|35|39] ' -- '\q[宮城,OnChoicePlaceEntryExec,宮城,140|55|29,38|26|55] ' -- '\q[秋田,OnChoicePlaceEntryExec,秋田,140|24|19,39|45|01] ' -- '\q[山形,OnChoicePlaceEntryExec,山形,140|05|58,38|26|58] ' -- '\q[福島,OnChoicePlaceEntryExec,福島,140|13|19,37|22|55] ' -- '\n' -- '\q[茨城,OnChoicePlaceEntryExec,茨城,140|18|55,36|18|34] ' -- '\q[栃木,OnChoicePlaceEntryExec,栃木,139|48|57,36|41|32] ' -- '\q[群馬,OnChoicePlaceEntryExec,群馬,138|58|56,36|30|25] ' -- '\q[埼玉,OnChoicePlaceEntryExec,埼玉,139|20|40,35|59|59] ' -- '\q[千葉,OnChoicePlaceEntryExec,千葉,140|12|02,35|30|58] ' -- '\q[東京,OnChoicePlaceEntryExec,東京,139|35|44,35|01|18] ' -- '\q[神奈川,OnChoicePlaceEntryExec,神奈川,139|20|14,35|25|03] ' -- '\n' -- '\q[新潟,OnChoicePlaceEntryExec,新潟,138|54|50,37|31|19] ' -- '\q[富山,OnChoicePlaceEntryExec,富山,137|15|54,36|38|21] ' -- '\q[石川,OnChoicePlaceEntryExec,石川,136|46|06,36|46|08] ' -- '\q[福井,OnChoicePlaceEntryExec,福井,136|13|28,35|50|59] ' -- '\q[山梨,OnChoicePlaceEntryExec,山梨,138|36|31,35|36|56] ' -- '\q[長野,OnChoicePlaceEntryExec,長野,138|02|27,36|07|59] ' -- '\q[岐阜,OnChoicePlaceEntryExec,岐阜,137|03|07,35|46|50] ' -- '\q[静岡,OnChoicePlaceEntryExec,静岡,138|19|37,35|01|13] ' -- '\q[愛知,OnChoicePlaceEntryExec,愛知,137|12|43,35|02|16] ' -- '\n' -- '\q[三重,OnChoicePlaceEntryExec,三重,136|22|43,34|31|01] ' -- '\q[滋賀,OnChoicePlaceEntryExec,滋賀,136|08|07,35|13|07] ' -- '\q[京都,OnChoicePlaceEntryExec,京都,135|26|35,35|15|19] ' -- '\q[大阪,OnChoicePlaceEntryExec,大阪,135|30|30,34|37|34] ' -- '\q[兵庫,OnChoicePlaceEntryExec,兵庫,134|49|33,35|02|25] ' -- '\q[奈良,OnChoicePlaceEntryExec,奈良,135|52|07,34|19|08] ' -- '\q[和歌山,OnChoicePlaceEntryExec,和歌山,135|30|38,33|54|46] ' -- '\n' -- '\q[鳥取,OnChoicePlaceEntryExec,鳥取,133|50|56,35|21|49] ' -- '\q[島根,OnChoicePlaceEntryExec,島根,132|33|25,35|04|34] ' -- '\q[岡山,OnChoicePlaceEntryExec,岡山,133|48|45,34|54|15] ' -- '\q[広島,OnChoicePlaceEntryExec,広島,132|47|06,34|36|25] ' -- '\q[山口,OnChoicePlaceEntryExec,山口,131|34|21,34|12|07] ' -- '\n' -- '\q[徳島,OnChoicePlaceEntryExec,徳島,134|14|25,33|55|17] ' -- '\q[香川,OnChoicePlaceEntryExec,香川,133|59|38,34|14|47] ' -- '\q[愛媛,OnChoicePlaceEntryExec,愛媛,132|51|12,33|37|31] ' -- '\q[高知,OnChoicePlaceEntryExec,高知,133|21|51,33|25|28] ' -- '\n' -- '\q[福岡,OnChoicePlaceEntryExec,福岡,130|39|57,33|31|33] ' -- '\q[佐賀,OnChoicePlaceEntryExec,佐賀,130|06|53,33|17|19] ' -- '\q[長崎,OnChoicePlaceEntryExec,長崎,129|36|43,33|13|51] ' -- '\q[熊本,OnChoicePlaceEntryExec,熊本,130|45|15,32|37|06] ' -- '\q[大分,OnChoicePlaceEntryExec,大分,131|25|54,33|12|09] ' -- '\q[宮崎,OnChoicePlaceEntryExec,宮崎,131|17|53,32|11|39] ' -- '\q[鹿児島,OnChoicePlaceEntryExec,鹿児島,130|25|19,31|00|59] ' -- '\q[沖縄,OnChoicePlaceEntryExec,沖縄,126|38|17,25|46|31] ' } 六十進変換 { _arr = SPLIT(_argv[0],'|') _result = TOREAL(0) _result += TOREAL(_arr[0]) _result += (TOREAL(_arr[1]) / 60.0) _result += (TOREAL(_arr[2]) / 3600.0) _result } OnChoicePlaceEntryExec { 月齢_都道府県名 = reference0 月齢_経度 = 六十進変換(reference1) 月齢_緯度 = 六十進変換(reference2) _tmp = 月出没時刻設定 "\u\s[10]\h\s[5]%(月齢_都道府県名)だね〜。\w9\n覚えたよ。" } 月出没時刻設定 { // 起動時と日付が変わったときと都道府県が設定されたときに実行する。 if 月齢_都道府県名 { _lon = 月齢_経度; // 経度 _lat = 月齢_緯度; // 緯度 _alt = 0.0; // 標高 _result = FUNCTIONEX("koyomi.dll", "day", _lon, _lat, _alt, year, month, day) 月齢_月の出時間 = TOINT(valueex15) 月齢_月の出分 = TOINT(valueex16) 月齢_月の入り時間 = TOINT(valueex18) 月齢_月の入り分 = TOINT(valueex19) return } return } // 月の状態を表す名前があれば返す。 鬱陶しいThe_state_of_the_moon { _ma = TOREAL(_argv[0]) // 月齢 _mp = TOREAL(_argv[1]) // 月相もどき _result = '' if 360.0 -6.0 < _mp || _mp < 6.0 // 新月前後の月齢ほどアテにならないものはないので月相もどきで計算 { _result += '新月' } elseif 1.0 -0.5 <= _ma && _ma < 1.0 +0.5 { _result += '二日月' } elseif 2.0 -0.5 <= _ma && _ma < 2.0 +0.5 { _result += '三日月' } elseif 7.5 -0.5 <= _ma && _ma < 7.5 +0.5 { _result += '上弦の月' } elseif 9.0 -0.5 <= _ma && _ma < 9.0 +0.5 { _result += '十日夜(とうかんや)' } elseif 12.0 -0.5 <= _ma && _ma < 12.0 +0.5 { _result += '十三夜月' } elseif 13.0 -0.5 <= _ma && _ma < 13.0 +0.5 { _result += '小望月' } elseif 14.0 -0.5 <= _ma && _ma < 14.0 +0.5 { _result += '満月' } elseif 15.0 -0.5 <= _ma && _ma < 15.0 +0.5 { _result += '十六夜(いざよい)' } elseif 16.0 -0.5 <= _ma && _ma < 16.0 +0.5 { _result += '立待月(たちまちづき)' } elseif 17.0 -0.5 <= _ma && _ma < 17.0 +0.5 { _result += '居待月(いまちづき)' } elseif 18.0 -0.5 <= _ma && _ma < 18.0 +0.5 { _result += '寝待月(ねまちづき)' } elseif 19.0 -0.5 <= _ma && _ma < 19.0 +0.5 { _result += '更待月(ふけまちづき)' } elseif 22.5 -0.5 <= _ma && _ma < 22.5 +0.5 { _result += '下弦の月' } elseif 25.0 -0.5 <= _ma && _ma < 25.0 +0.5 { _result += '二十六日月' } elseif 27.0 -0.5 <= _ma && _ma < 27.0 +0.5 { _result += 'つごもり' } _result }