code:
;------------------------------------
;長期予報に関する変数
;------------------------------------

;現在的長期天候傾向
;0=未設定 1=通常 2=エルニーニョ現象 3=ラニーニャ現象
#DIM SAVEDATA YEAR_WEATHER_CONTROL

;------------------------------------
;短期予報に関する変数
;------------------------------------

;現在的ターム数
#DIM SAVEDATA NOW_TERM

;現在的タームにおける寒気の強さ
#DIM SAVEDATA POWER_COLD_AIR

;現在的タームにおける暖気の強さ
#DIM SAVEDATA POWER_WARM_AIR

;現在梅雨である
;第1引数：0=梅雨である　1=梅雨末期である
#DIM SAVEDATA IS_RAINY_SEASON1, 2

;現在秋雨である
#DIM SAVEDATA IS_RAINY_SEASON2

;現在寒冷渦が発生している
#DIM SAVEDATA IS_COLD_LOW

;寒冷渦の勢力圏突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_TERRITORY_COLD_LOW, 3

;寒冷渦の勢力圏通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_TERRITORY_COLD_LOW, 3

;台風が発生している
;第1引数：0=発生している　1=勢力(1~5)　2=通過位置(1:可航半円 2:直撃 3:危険半円)　3=先駆降雨帯が発生している
#DIM SAVEDATA IS_TYPHOON, 4

;台風の勢力圏突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_TERRITORY_TYPHOON, 3

;台風の強風域突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_WIND_ZONE_TYPHOON, 3

;台風の暴風域突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_STORM_AREA_TYPHOON, 3

;台風の最接近時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_CLOSEST_TYPHOON, 3

;台風の目通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_EYE_TYPHOON, 3

;台風の暴風域通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_STORM_AREA_TYPHOON, 3

;台風の強風域通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_WIND_ZONE_TYPHOON, 3

;日本海低気圧が発生している
;1=日本海低気圧が発生している　2=二つ玉低気圧が発生している
#DIM SAVEDATA IS_SoJ_LOW

;日本海低気圧の勢力圏突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_TERRITORY_SoJ_LOW, 3

;日本海低気圧の最接近時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_CLOSEST_SoJ_LOW, 3

;疑似好天エリア通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_FAKE_FINE, 3

;日本海低気圧の通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_SoJ_LOW, 3

;南岸低気圧が発生している
#DIM SAVEDATA IS_SOUTHERN_LOW

;南岸低気圧の勢力圏突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_TERRITORY_SOUTHERN_LOW, 3

;南岸低気圧の通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_SOUTHERN_LOW, 3

;春・秋の温帯低気圧の勢力圏突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW, 3

;春・秋の温帯低気圧の温暖前線通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_WARM_FRONT, 3

;春・秋の温帯低気圧の寒冷前線通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_COLD_FRONT, 3

;春・秋の温帯低気圧の勢力圏通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_EXTRATROPICAL_LOW, 3

;線状降水帯が発生している
;第1引数：0=発生している　1=勢力(1~2)
#DIM SAVEDATA IS_LINER_RAINBAND, 2

;線状降水帯の勢力圏突入時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_ENTER_TERRITORY_LINER_RAINBAND, 3

;線状降水帯の通過時刻
;第1引数：0=季節　1=日期　2=時間
#DIM SAVEDATA TIME_PASSAGE_LINER_RAINBAND, 3

;------------------------------------
;1日予報に関する変数
;------------------------------------

;霧が発生するか
#DIM SAVEDATA CAN_STRATUS

;積雲/積乱雲は発生するか
;0：発達度合い　0=発生せず 1=積雲 2=雄大積雲 3=積乱雲(入道雲) 4=積乱雲(かなとこ雲) 5=積乱雲(スーパーセル)
;1：直撃するかどうか
;2：風の強さ
#DIM SAVEDATA CAN_CUMULUS, 3

;積雲/積乱雲の勢力圏突入時刻
#DIM SAVEDATA TIME_ENTER_TERRITORY_CUMULUS

;積雲/積乱雲の最接近時刻
#DIM SAVEDATA TIME_CLOSEST_CUMULUS

;積雲/積乱雲の勢力圏通過時刻
#DIM SAVEDATA TIME_PASSAGE_CUMULUS

;天子による天候操作で天候変更が禁止されている
#DIM SAVEDATA FORBIDDEN_CHANGE_WEATHER

;1日の大気安定度(小さいほど不安定)
;熱雷発生判定に使用
#DIM SAVEDATA ATMOSPHERIC_INSTABILITY

;------------------------------------
;農作物関係
;------------------------------------

;寒気による被害量
#DIM SAVEDATA AMOUNT_COLD_CROP_DAMAGE

;冷害が発生した
#DIM SAVEDATA IS_COLD_CROP_DAMAGE

;風害が発生した
#DIM SAVEDATA IS_STORM_CROP_DAMAGE

;水害が発生した
#DIM SAVEDATA IS_FLOOD_CROP_DAMAGE

;------------------------------------
;其他変数
;------------------------------------

;風速
;0=通常 1=強風 2=暴風
#DIM SAVEDATA WIND_VELOCITY

;現在的天候管理
#DIM SAVEDATA NOW_WEATHER_CONTROL

;連続降水Counter
#DIM SAVEDATA CONTINUOUS_RAINFALL

;連続降雪Counter
#DIM SAVEDATA CONTINUOUS_SNOWFALL

;積雪量
#DIM SAVEDATA SNOW_COVERAGE

;雪崩発生フラグ
;1=表層雪崩 2=全層雪崩
#DIM SAVEDATA POSSIBLITY_AVALANCHE

;天候システム上の時間帯管理
#DIM SAVEDATA WEATHER_TIMEZOME

;------------------------------------
;気温関係
;長野市の気温を参照,摂氏温度を10倍
;------------------------------------

#DIM CONST 気温_春_1T_0時 = 14
#DIM CONST 気温_春_1T_1時 = 10
#DIM CONST 気温_春_1T_2時 = 7
#DIM CONST 気温_春_1T_3時 = 4
#DIM CONST 気温_春_1T_4時 = 2
#DIM CONST 気温_春_1T_5時 = 0
#DIM CONST 気温_春_1T_6時 = -2
#DIM CONST 気温_春_1T_7時 = 0
#DIM CONST 気温_春_1T_8時 = 11
#DIM CONST 気温_春_1T_9時 = 25
#DIM CONST 気温_春_1T_10時 = 40
#DIM CONST 気温_春_1T_11時 = 53
#DIM CONST 気温_春_1T_12時 = 65
#DIM CONST 気温_春_1T_13時 = 73
#DIM CONST 気温_春_1T_14時 = 75
#DIM CONST 気温_春_1T_15時 = 74
#DIM CONST 気温_春_1T_16時 = 67
#DIM CONST 気温_春_1T_17時 = 56
#DIM CONST 気温_春_1T_18時 = 44
#DIM CONST 気温_春_1T_19時 = 36
#DIM CONST 気温_春_1T_20時 = 30
#DIM CONST 気温_春_1T_21時 = 25
#DIM CONST 気温_春_1T_22時 = 21
#DIM CONST 気温_春_1T_23時 = 18

#DIM CONST 気温_春_2T_0時 = 35
#DIM CONST 気温_春_2T_1時 = 30
#DIM CONST 気温_春_2T_2時 = 26
#DIM CONST 気温_春_2T_3時 = 24
#DIM CONST 気温_春_2T_4時 = 21
#DIM CONST 気温_春_2T_5時 = 18
#DIM CONST 気温_春_2T_6時 = 17
#DIM CONST 気温_春_2T_7時 = 23
#DIM CONST 気温_春_2T_8時 = 36
#DIM CONST 気温_春_2T_9時 = 50
#DIM CONST 気温_春_2T_10時 = 66
#DIM CONST 気温_春_2T_11時 = 80
#DIM CONST 気温_春_2T_12時 = 92
#DIM CONST 気温_春_2T_13時 = 100
#DIM CONST 気温_春_2T_14時 = 103
#DIM CONST 気温_春_2T_15時 = 100
#DIM CONST 気温_春_2T_16時 = 93
#DIM CONST 気温_春_2T_17時 = 82
#DIM CONST 気温_春_2T_18時 = 69
#DIM CONST 気温_春_2T_19時 = 61
#DIM CONST 気温_春_2T_20時 = 54
#DIM CONST 気温_春_2T_21時 = 48
#DIM CONST 気温_春_2T_22時 = 44
#DIM CONST 気温_春_2T_23時 = 39

#DIM CONST 気温_春_3T_0時 = 66
#DIM CONST 気温_春_3T_1時 = 60
#DIM CONST 気温_春_3T_2時 = 56
#DIM CONST 気温_春_3T_3時 = 52
#DIM CONST 気温_春_3T_4時 = 49
#DIM CONST 気温_春_3T_5時 = 46
#DIM CONST 気温_春_3T_6時 = 46
#DIM CONST 気温_春_3T_7時 = 56
#DIM CONST 気温_春_3T_8時 = 71
#DIM CONST 気温_春_3T_9時 = 88
#DIM CONST 気温_春_3T_10時 = 105
#DIM CONST 気温_春_3T_11時 = 121
#DIM CONST 気温_春_3T_12時 = 132
#DIM CONST 気温_春_3T_13時 = 139
#DIM CONST 気温_春_3T_14時 = 141
#DIM CONST 気温_春_3T_15時 = 137
#DIM CONST 気温_春_3T_16時 = 129
#DIM CONST 気温_春_3T_17時 = 118
#DIM CONST 気温_春_3T_18時 = 105
#DIM CONST 気温_春_3T_19時 = 95
#DIM CONST 気温_春_3T_20時 = 88
#DIM CONST 気温_春_3T_21時 = 81
#DIM CONST 気温_春_3T_22時 = 76
#DIM CONST 気温_春_3T_23時 = 71

#DIM CONST 気温_春_4T_0時 = 99
#DIM CONST 気温_春_4T_1時 = 93
#DIM CONST 気温_春_4T_2時 = 89
#DIM CONST 気温_春_4T_3時 = 85
#DIM CONST 気温_春_4T_4時 = 81
#DIM CONST 気温_春_4T_5時 = 78
#DIM CONST 気温_春_4T_6時 = 81
#DIM CONST 気温_春_4T_7時 = 93
#DIM CONST 気温_春_4T_8時 = 109
#DIM CONST 気温_春_4T_9時 = 126
#DIM CONST 気温_春_4T_10時 = 143
#DIM CONST 気温_春_4T_11時 = 158
#DIM CONST 気温_春_4T_12時 = 169
#DIM CONST 気温_春_4T_13時 = 175
#DIM CONST 気温_春_4T_14時 = 177
#DIM CONST 気温_春_4T_15時 = 173
#DIM CONST 気温_春_4T_16時 = 164
#DIM CONST 気温_春_4T_17時 = 153
#DIM CONST 気温_春_4T_18時 = 140
#DIM CONST 気温_春_4T_19時 = 129
#DIM CONST 気温_春_4T_20時 = 121
#DIM CONST 気温_春_4T_21時 = 114
#DIM CONST 気温_春_4T_22時 = 108
#DIM CONST 気温_春_4T_23時 = 104

#DIM CONST 気温_春_5T_0時 = 126
#DIM CONST 気温_春_5T_1時 = 121
#DIM CONST 気温_春_5T_2時 = 116
#DIM CONST 気温_春_5T_3時 = 112
#DIM CONST 気温_春_5T_4時 = 109
#DIM CONST 気温_春_5T_5時 = 106
#DIM CONST 気温_春_5T_6時 = 111
#DIM CONST 気温_春_5T_7時 = 123
#DIM CONST 気温_春_5T_8時 = 138
#DIM CONST 気温_春_5T_9時 = 156
#DIM CONST 気温_春_5T_10時 = 173
#DIM CONST 気温_春_5T_11時 = 188
#DIM CONST 気温_春_5T_12時 = 199
#DIM CONST 気温_春_5T_13時 = 206
#DIM CONST 気温_春_5T_14時 = 207
#DIM CONST 気温_春_5T_15時 = 203
#DIM CONST 気温_春_5T_16時 = 194
#DIM CONST 気温_春_5T_17時 = 183
#DIM CONST 気温_春_5T_18時 = 170
#DIM CONST 気温_春_5T_19時 = 158
#DIM CONST 気温_春_5T_20時 = 149
#DIM CONST 気温_春_5T_21時 = 141
#DIM CONST 気温_春_5T_22時 = 136
#DIM CONST 気温_春_5T_23時 = 131

#DIM CONST 気温_春_6T_0時 = 150
#DIM CONST 気温_春_6T_1時 = 144
#DIM CONST 気温_春_6T_2時 = 140
#DIM CONST 気温_春_6T_3時 = 135
#DIM CONST 気温_春_6T_4時 = 132
#DIM CONST 気温_春_6T_5時 = 130
#DIM CONST 気温_春_6T_6時 = 136
#DIM CONST 気温_春_6T_7時 = 147
#DIM CONST 気温_春_6T_8時 = 162
#DIM CONST 気温_春_6T_9時 = 179
#DIM CONST 気温_春_6T_10時 = 194
#DIM CONST 気温_春_6T_11時 = 209
#DIM CONST 気温_春_6T_12時 = 219
#DIM CONST 気温_春_6T_13時 = 225
#DIM CONST 気温_春_6T_14時 = 225
#DIM CONST 気温_春_6T_15時 = 221
#DIM CONST 気温_春_6T_16時 = 213
#DIM CONST 気温_春_6T_17時 = 203
#DIM CONST 気温_春_6T_18時 = 191
#DIM CONST 気温_春_6T_19時 = 180
#DIM CONST 気温_春_6T_20時 = 172
#DIM CONST 気温_春_6T_21時 = 164
#DIM CONST 気温_春_6T_22時 = 159
#DIM CONST 気温_春_6T_23時 = 154

#DIM CONST 気温_夏_1T_0時 = 172
#DIM CONST 気温_夏_1T_1時 = 167
#DIM CONST 気温_夏_1T_2時 = 164
#DIM CONST 気温_夏_1T_3時 = 160
#DIM CONST 気温_夏_1T_4時 = 157
#DIM CONST 気温_夏_1T_5時 = 156
#DIM CONST 気温_夏_1T_6時 = 161
#DIM CONST 気温_夏_1T_7時 = 171
#DIM CONST 気温_夏_1T_8時 = 185
#DIM CONST 気温_夏_1T_9時 = 200
#DIM CONST 気温_夏_1T_10時 = 214
#DIM CONST 気温_夏_1T_11時 = 226
#DIM CONST 気温_夏_1T_12時 = 236
#DIM CONST 気温_夏_1T_13時 = 241
#DIM CONST 気温_夏_1T_14時 = 241
#DIM CONST 気温_夏_1T_15時 = 236
#DIM CONST 気温_夏_1T_16時 = 228
#DIM CONST 気温_夏_1T_17時 = 219
#DIM CONST 気温_夏_1T_18時 = 208
#DIM CONST 気温_夏_1T_19時 = 198
#DIM CONST 気温_夏_1T_20時 = 191
#DIM CONST 気温_夏_1T_21時 = 184
#DIM CONST 気温_夏_1T_22時 = 179
#DIM CONST 気温_夏_1T_23時 = 176

#DIM CONST 気温_夏_2T_0時 = 194
#DIM CONST 気温_夏_2T_1時 = 190
#DIM CONST 気温_夏_2T_2時 = 187
#DIM CONST 気温_夏_2T_3時 = 185
#DIM CONST 気温_夏_2T_4時 = 182
#DIM CONST 気温_夏_2T_5時 = 181
#DIM CONST 気温_夏_2T_6時 = 185
#DIM CONST 気温_夏_2T_7時 = 193
#DIM CONST 気温_夏_2T_8時 = 205
#DIM CONST 気温_夏_2T_9時 = 217
#DIM CONST 気温_夏_2T_10時 = 230
#DIM CONST 気温_夏_2T_11時 = 240
#DIM CONST 気温_夏_2T_12時 = 249
#DIM CONST 気温_夏_2T_13時 = 253
#DIM CONST 気温_夏_2T_14時 = 253
#DIM CONST 気温_夏_2T_15時 = 249
#DIM CONST 気温_夏_2T_16時 = 242
#DIM CONST 気温_夏_2T_17時 = 234
#DIM CONST 気温_夏_2T_18時 = 225
#DIM CONST 気温_夏_2T_19時 = 217
#DIM CONST 気温_夏_2T_20時 = 210
#DIM CONST 気温_夏_2T_21時 = 205
#DIM CONST 気温_夏_2T_22時 = 200
#DIM CONST 気温_夏_2T_23時 = 197

#DIM CONST 気温_夏_3T_0時 = 214
#DIM CONST 気温_夏_3T_1時 = 210
#DIM CONST 気温_夏_3T_2時 = 208
#DIM CONST 気温_夏_3T_3時 = 206
#DIM CONST 気温_夏_3T_4時 = 204
#DIM CONST 気温_夏_3T_5時 = 203
#DIM CONST 気温_夏_3T_6時 = 206
#DIM CONST 気温_夏_3T_7時 = 213
#DIM CONST 気温_夏_3T_8時 = 224
#DIM CONST 気温_夏_3T_9時 = 236
#DIM CONST 気温_夏_3T_10時 = 248
#DIM CONST 気温_夏_3T_11時 = 259
#DIM CONST 気温_夏_3T_12時 = 267
#DIM CONST 気温_夏_3T_13時 = 272
#DIM CONST 気温_夏_3T_14時 = 272
#DIM CONST 気温_夏_3T_15時 = 269
#DIM CONST 気温_夏_3T_16時 = 262
#DIM CONST 気温_夏_3T_17時 = 253
#DIM CONST 気温_夏_3T_18時 = 244
#DIM CONST 気温_夏_3T_19時 = 236
#DIM CONST 気温_夏_3T_20時 = 229
#DIM CONST 気温_夏_3T_21時 = 224
#DIM CONST 気温_夏_3T_22時 = 220
#DIM CONST 気温_夏_3T_23時 = 216

#DIM CONST 気温_夏_4T_0時 = 231
#DIM CONST 気温_夏_4T_1時 = 227
#DIM CONST 気温_夏_4T_2時 = 224
#DIM CONST 気温_夏_4T_3時 = 222
#DIM CONST 気温_夏_4T_4時 = 220
#DIM CONST 気温_夏_4T_5時 = 217
#DIM CONST 気温_夏_4T_6時 = 221
#DIM CONST 気温_夏_4T_7時 = 229
#DIM CONST 気温_夏_4T_8時 = 241
#DIM CONST 気温_夏_4T_9時 = 254
#DIM CONST 気温_夏_4T_10時 = 267
#DIM CONST 気温_夏_4T_11時 = 279
#DIM CONST 気温_夏_4T_12時 = 288
#DIM CONST 気温_夏_4T_13時 = 294
#DIM CONST 気温_夏_4T_14時 = 295
#DIM CONST 気温_夏_4T_15時 = 291
#DIM CONST 気温_夏_4T_16時 = 282
#DIM CONST 気温_夏_4T_17時 = 273
#DIM CONST 気温_夏_4T_18時 = 263
#DIM CONST 気温_夏_4T_19時 = 254
#DIM CONST 気温_夏_4T_20時 = 247
#DIM CONST 気温_夏_4T_21時 = 241
#DIM CONST 気温_夏_4T_22時 = 236
#DIM CONST 気温_夏_4T_23時 = 233

#DIM CONST 気温_夏_5T_0時 = 238
#DIM CONST 気温_夏_5T_1時 = 235
#DIM CONST 気温_夏_5T_2時 = 233
#DIM CONST 気温_夏_5T_3時 = 230
#DIM CONST 気温_夏_5T_4時 = 227
#DIM CONST 気温_夏_5T_5時 = 225
#DIM CONST 気温_夏_5T_6時 = 228
#DIM CONST 気温_夏_5T_7時 = 237
#DIM CONST 気温_夏_5T_8時 = 249
#DIM CONST 気温_夏_5T_9時 = 263
#DIM CONST 気温_夏_5T_10時 = 277
#DIM CONST 気温_夏_5T_11時 = 289
#DIM CONST 気温_夏_5T_12時 = 298
#DIM CONST 気温_夏_5T_13時 = 304
#DIM CONST 気温_夏_5T_14時 = 305
#DIM CONST 気温_夏_5T_15時 = 300
#DIM CONST 気温_夏_5T_16時 = 291
#DIM CONST 気温_夏_5T_17時 = 281
#DIM CONST 気温_夏_5T_18時 = 269
#DIM CONST 気温_夏_5T_19時 = 260
#DIM CONST 気温_夏_5T_20時 = 253
#DIM CONST 気温_夏_5T_21時 = 248
#DIM CONST 気温_夏_5T_22時 = 244
#DIM CONST 気温_夏_5T_23時 = 241

#DIM CONST 気温_夏_6T_0時 = 228
#DIM CONST 気温_夏_6T_1時 = 226
#DIM CONST 気温_夏_6T_2時 = 223
#DIM CONST 気温_夏_6T_3時 = 221
#DIM CONST 気温_夏_6T_4時 = 218
#DIM CONST 気温_夏_6T_5時 = 216
#DIM CONST 気温_夏_6T_6時 = 217
#DIM CONST 気温_夏_6T_7時 = 226
#DIM CONST 気温_夏_6T_8時 = 237
#DIM CONST 気温_夏_6T_9時 = 251
#DIM CONST 気温_夏_6T_10時 = 265
#DIM CONST 気温_夏_6T_11時 = 275
#DIM CONST 気温_夏_6T_12時 = 284
#DIM CONST 気温_夏_6T_13時 = 290
#DIM CONST 気温_夏_6T_14時 = 291
#DIM CONST 気温_夏_6T_15時 = 286
#DIM CONST 気温_夏_6T_16時 = 277
#DIM CONST 気温_夏_6T_17時 = 266
#DIM CONST 気温_夏_6T_18時 = 265
#DIM CONST 気温_夏_6T_19時 = 247
#DIM CONST 気温_夏_6T_20時 = 242
#DIM CONST 気温_夏_6T_21時 = 237
#DIM CONST 気温_夏_6T_22時 = 233
#DIM CONST 気温_夏_6T_23時 = 230

#DIM CONST 気温_秋_1T_0時 = 208
#DIM CONST 気温_秋_1T_1時 = 207
#DIM CONST 気温_秋_1T_2時 = 205
#DIM CONST 気温_秋_1T_3時 = 202
#DIM CONST 気温_秋_1T_4時 = 200
#DIM CONST 気温_秋_1T_5時 = 197
#DIM CONST 気温_秋_1T_6時 = 197
#DIM CONST 気温_秋_1T_7時 = 204
#DIM CONST 気温_秋_1T_8時 = 216
#DIM CONST 気温_秋_1T_9時 = 230
#DIM CONST 気温_秋_1T_10時 = 242
#DIM CONST 気温_秋_1T_11時 = 253
#DIM CONST 気温_秋_1T_12時 = 261
#DIM CONST 気温_秋_1T_13時 = 266
#DIM CONST 気温_秋_1T_14時 = 266
#DIM CONST 気温_秋_1T_15時 = 263
#DIM CONST 気温_秋_1T_16時 = 254
#DIM CONST 気温_秋_1T_17時 = 243
#DIM CONST 気温_秋_1T_18時 = 233
#DIM CONST 気温_秋_1T_19時 = 226
#DIM CONST 気温_秋_1T_20時 = 221
#DIM CONST 気温_秋_1T_21時 = 217
#DIM CONST 気温_秋_1T_22時 = 213
#DIM CONST 気温_秋_1T_23時 = 211

#DIM CONST 気温_秋_2T_0時 = 176
#DIM CONST 気温_秋_2T_1時 = 175
#DIM CONST 気温_秋_2T_2時 = 172
#DIM CONST 気温_秋_2T_3時 = 170
#DIM CONST 気温_秋_2T_4時 = 167
#DIM CONST 気温_秋_2T_5時 = 165
#DIM CONST 気温_秋_2T_6時 = 164
#DIM CONST 気温_秋_2T_7時 = 170
#DIM CONST 気温_秋_2T_8時 = 181
#DIM CONST 気温_秋_2T_9時 = 194
#DIM CONST 気温_秋_2T_10時 = 207
#DIM CONST 気温_秋_2T_11時 = 217
#DIM CONST 気温_秋_2T_12時 = 225
#DIM CONST 気温_秋_2T_13時 = 230
#DIM CONST 気温_秋_2T_14時 = 231
#DIM CONST 気温_秋_2T_15時 = 227
#DIM CONST 気温_秋_2T_16時 = 220
#DIM CONST 気温_秋_2T_17時 = 209
#DIM CONST 気温_秋_2T_18時 = 200
#DIM CONST 気温_秋_2T_19時 = 194
#DIM CONST 気温_秋_2T_20時 = 189
#DIM CONST 気温_秋_2T_21時 = 185
#DIM CONST 気温_秋_2T_22時 = 181
#DIM CONST 気温_秋_2T_23時 = 178

#DIM CONST 気温_秋_3T_0時 = 145
#DIM CONST 気温_秋_3T_1時 = 145
#DIM CONST 気温_秋_3T_2時 = 142
#DIM CONST 気温_秋_3T_3時 = 139
#DIM CONST 気温_秋_3T_4時 = 136
#DIM CONST 気温_秋_3T_5時 = 134
#DIM CONST 気温_秋_3T_6時 = 132
#DIM CONST 気温_秋_3T_7時 = 138
#DIM CONST 気温_秋_3T_8時 = 149
#DIM CONST 気温_秋_3T_9時 = 163
#DIM CONST 気温_秋_3T_10時 = 176
#DIM CONST 気温_秋_3T_11時 = 188
#DIM CONST 気温_秋_3T_12時 = 197
#DIM CONST 気温_秋_3T_13時 = 202
#DIM CONST 気温_秋_3T_14時 = 203
#DIM CONST 気温_秋_3T_15時 = 198
#DIM CONST 気温_秋_3T_16時 = 189
#DIM CONST 気温_秋_3T_17時 = 178
#DIM CONST 気温_秋_3T_18時 = 170
#DIM CONST 気温_秋_3T_19時 = 164
#DIM CONST 気温_秋_3T_20時 = 158
#DIM CONST 気温_秋_3T_21時 = 154
#DIM CONST 気温_秋_3T_22時 = 151
#DIM CONST 気温_秋_3T_23時 = 148

#DIM CONST 気温_秋_4T_0時 = 109
#DIM CONST 気温_秋_4T_1時 = 108
#DIM CONST 気温_秋_4T_2時 = 105
#DIM CONST 気温_秋_4T_3時 = 102
#DIM CONST 気温_秋_4T_4時 = 99
#DIM CONST 気温_秋_4T_5時 = 97
#DIM CONST 気温_秋_4T_6時 = 95
#DIM CONST 気温_秋_4T_7時 = 99
#DIM CONST 気温_秋_4T_8時 = 110
#DIM CONST 気温_秋_4T_9時 = 124
#DIM CONST 気温_秋_4T_10時 = 139
#DIM CONST 気温_秋_4T_11時 = 152
#DIM CONST 気温_秋_4T_12時 = 162
#DIM CONST 気温_秋_4T_13時 = 169
#DIM CONST 気温_秋_4T_14時 = 171
#DIM CONST 気温_秋_4T_15時 = 167
#DIM CONST 気温_秋_4T_16時 = 157
#DIM CONST 気温_秋_4T_17時 = 144
#DIM CONST 気温_秋_4T_18時 = 136
#DIM CONST 気温_秋_4T_19時 = 129
#DIM CONST 気温_秋_4T_20時 = 123
#DIM CONST 気温_秋_4T_21時 = 120
#DIM CONST 気温_秋_4T_22時 = 116
#DIM CONST 気温_秋_4T_23時 = 112

#DIM CONST 気温_秋_5T_0時 = 76
#DIM CONST 気温_秋_5T_1時 = 75
#DIM CONST 気温_秋_5T_2時 = 71
#DIM CONST 気温_秋_5T_3時 = 68
#DIM CONST 気温_秋_5T_4時 = 66
#DIM CONST 気温_秋_5T_5時 = 63
#DIM CONST 気温_秋_5T_6時 = 61
#DIM CONST 気温_秋_5T_7時 = 63
#DIM CONST 気温_秋_5T_8時 = 74
#DIM CONST 気温_秋_5T_9時 = 88
#DIM CONST 気温_秋_5T_10時 = 103
#DIM CONST 気温_秋_5T_11時 = 117
#DIM CONST 気温_秋_5T_12時 = 128
#DIM CONST 気温_秋_5T_13時 = 136
#DIM CONST 気温_秋_5T_14時 = 139
#DIM CONST 気温_秋_5T_15時 = 136
#DIM CONST 気温_秋_5T_16時 = 126
#DIM CONST 気温_秋_5T_17時 = 113
#DIM CONST 気温_秋_5T_18時 = 105
#DIM CONST 気温_秋_5T_19時 = 97
#DIM CONST 気温_秋_5T_20時 = 92
#DIM CONST 気温_秋_5T_21時 = 88
#DIM CONST 気温_秋_5T_22時 = 84
#DIM CONST 気温_秋_5T_23時 = 80

#DIM CONST 気温_秋_6T_0時 = 49
#DIM CONST 気温_秋_6T_1時 = 47
#DIM CONST 気温_秋_6T_2時 = 44
#DIM CONST 気温_秋_6T_3時 = 41
#DIM CONST 気温_秋_6T_4時 = 39
#DIM CONST 気温_秋_6T_5時 = 37
#DIM CONST 気温_秋_6T_6時 = 35
#DIM CONST 気温_秋_6T_7時 = 35
#DIM CONST 気温_秋_6T_8時 = 43
#DIM CONST 気温_秋_6T_9時 = 57
#DIM CONST 気温_秋_6T_10時 = 71
#DIM CONST 気温_秋_6T_11時 = 85
#DIM CONST 気温_秋_6T_12時 = 95
#DIM CONST 気温_秋_6T_13時 = 103
#DIM CONST 気温_秋_6T_14時 = 106
#DIM CONST 気温_秋_6T_15時 = 104
#DIM CONST 気温_秋_6T_16時 = 95
#DIM CONST 気温_秋_6T_17時 = 83
#DIM CONST 気温_秋_6T_18時 = 76
#DIM CONST 気温_秋_6T_19時 = 69
#DIM CONST 気温_秋_6T_20時 = 64
#DIM CONST 気温_秋_6T_21時 = 60
#DIM CONST 気温_秋_6T_22時 = 56
#DIM CONST 気温_秋_6T_23時 = 52

#DIM CONST 気温_冬_1T_0時 = 23
#DIM CONST 気温_冬_1T_1時 = 21
#DIM CONST 気温_冬_1T_2時 = 19
#DIM CONST 気温_冬_1T_3時 = 16
#DIM CONST 気温_冬_1T_4時 = 15
#DIM CONST 気温_冬_1T_5時 = 13
#DIM CONST 気温_冬_1T_6時 = 11
#DIM CONST 気温_冬_1T_7時 = 10
#DIM CONST 気温_冬_1T_8時 = 17
#DIM CONST 気温_冬_1T_9時 = 28
#DIM CONST 気温_冬_1T_10時 = 41
#DIM CONST 気温_冬_1T_11時 = 54
#DIM CONST 気温_冬_1T_12時 = 63
#DIM CONST 気温_冬_1T_13時 = 71
#DIM CONST 気温_冬_1T_14時 = 74
#DIM CONST 気温_冬_1T_15時 = 71
#DIM CONST 気温_冬_1T_16時 = 63
#DIM CONST 気温_冬_1T_17時 = 53
#DIM CONST 気温_冬_1T_18時 = 46
#DIM CONST 気温_冬_1T_19時 = 40
#DIM CONST 気温_冬_1T_20時 = 36
#DIM CONST 気温_冬_1T_21時 = 32
#DIM CONST 気温_冬_1T_22時 = 29
#DIM CONST 気温_冬_1T_23時 = 25

#DIM CONST 気温_冬_2T_0時 = 0
#DIM CONST 気温_冬_2T_1時 = -2
#DIM CONST 気温_冬_2T_2時 = -4
#DIM CONST 気温_冬_2T_3時 = -6
#DIM CONST 気温_冬_2T_4時 = -8
#DIM CONST 気温_冬_2T_5時 = -11
#DIM CONST 気温_冬_2T_6時 = -12
#DIM CONST 気温_冬_2T_7時 = -13
#DIM CONST 気温_冬_2T_8時 = -8
#DIM CONST 気温_冬_2T_9時 = 2
#DIM CONST 気温_冬_2T_10時 = 14
#DIM CONST 気温_冬_2T_11時 = 25
#DIM CONST 気温_冬_2T_12時 = 34
#DIM CONST 気温_冬_2T_13時 = 42
#DIM CONST 気温_冬_2T_14時 = 45
#DIM CONST 気温_冬_2T_15時 = 44
#DIM CONST 気温_冬_2T_16時 = 38
#DIM CONST 気温_冬_2T_17時 = 27
#DIM CONST 気温_冬_2T_18時 = 21
#DIM CONST 気温_冬_2T_19時 = 16
#DIM CONST 気温_冬_2T_20時 = 12
#DIM CONST 気温_冬_2T_21時 = 9
#DIM CONST 気温_冬_2T_22時 = 6
#DIM CONST 気温_冬_2T_23時 = 2

#DIM CONST 気温_冬_3T_0時 = -13
#DIM CONST 気温_冬_3T_1時 = -15
#DIM CONST 気温_冬_3T_2時 = -17
#DIM CONST 気温_冬_3T_3時 = -19
#DIM CONST 気温_冬_3T_4時 = -21
#DIM CONST 気温_冬_3T_5時 = -23
#DIM CONST 気温_冬_3T_6時 = -24
#DIM CONST 気温_冬_3T_7時 = -26
#DIM CONST 気温_冬_3T_8時 = -22
#DIM CONST 気温_冬_3T_9時 = -12
#DIM CONST 気温_冬_3T_10時 = 0
#DIM CONST 気温_冬_3T_11時 = 10
#DIM CONST 気温_冬_3T_12時 = 19
#DIM CONST 気温_冬_3T_13時 = 26
#DIM CONST 気温_冬_3T_14時 = 30
#DIM CONST 気温_冬_3T_15時 = 29
#DIM CONST 気温_冬_3T_16時 = 24
#DIM CONST 気温_冬_3T_17時 = 14
#DIM CONST 気温_冬_3T_18時 = 8
#DIM CONST 気温_冬_3T_19時 = 3
#DIM CONST 気温_冬_3T_20時 = -1
#DIM CONST 気温_冬_3T_21時 = -4
#DIM CONST 気温_冬_3T_22時 = -7
#DIM CONST 気温_冬_3T_23時 = -10

#DIM CONST 気温_冬_4T_0時 = -17
#DIM CONST 気温_冬_4T_1時 = -20
#DIM CONST 気温_冬_4T_2時 = -22
#DIM CONST 気温_冬_4T_3時 = -24
#DIM CONST 気温_冬_4T_4時 = -27
#DIM CONST 気温_冬_4T_5時 = -29
#DIM CONST 気温_冬_4T_6時 = -31
#DIM CONST 気温_冬_4T_7時 = -31
#DIM CONST 気温_冬_4T_8時 = -26
#DIM CONST 気温_冬_4T_9時 = -16
#DIM CONST 気温_冬_4T_10時 = -4
#DIM CONST 気温_冬_4T_11時 = 7
#DIM CONST 気温_冬_4T_12時 = 16
#DIM CONST 気温_冬_4T_13時 = 23
#DIM CONST 気温_冬_4T_14時 = 27
#DIM CONST 気温_冬_4T_15時 = 26
#DIM CONST 気温_冬_4T_16時 = 21
#DIM CONST 気温_冬_4T_17時 = 12
#DIM CONST 気温_冬_4T_18時 = 5
#DIM CONST 気温_冬_4T_19時 = 0
#DIM CONST 気温_冬_4T_20時 = -5
#DIM CONST 気温_冬_4T_21時 = -8
#DIM CONST 気温_冬_4T_22時 = -11
#DIM CONST 気温_冬_4T_23時 = -14

#DIM CONST 気温_冬_5T_0時 = -15
#DIM CONST 気温_冬_5T_1時 = -18
#DIM CONST 気温_冬_5T_2時 = -21
#DIM CONST 気温_冬_5T_3時 = -23
#DIM CONST 気温_冬_5T_4時 = -26
#DIM CONST 気温_冬_5T_5時 = -28
#DIM CONST 気温_冬_5T_6時 = -30
#DIM CONST 気温_冬_5T_7時 = -31
#DIM CONST 気温_冬_5T_8時 = -24
#DIM CONST 気温_冬_5T_9時 = -12
#DIM CONST 気温_冬_5T_10時 = 0
#DIM CONST 気温_冬_5T_11時 = 12
#DIM CONST 気温_冬_5T_12時 = 22
#DIM CONST 気温_冬_5T_13時 = 30
#DIM CONST 気温_冬_5T_14時 = 33
#DIM CONST 気温_冬_5T_15時 = 32
#DIM CONST 気温_冬_5T_16時 = 27
#DIM CONST 気温_冬_5T_17時 = 18
#DIM CONST 気温_冬_5T_18時 = 9
#DIM CONST 気温_冬_5T_19時 = 4
#DIM CONST 気温_冬_5T_20時 = -1
#DIM CONST 気温_冬_5T_21時 = -5
#DIM CONST 気温_冬_5T_22時 = -9
#DIM CONST 気温_冬_5T_23時 = -12

#DIM CONST 気温_冬_6T_0時 = -2
#DIM CONST 気温_冬_6T_1時 = -6
#DIM CONST 気温_冬_6T_2時 = -9
#DIM CONST 気温_冬_6T_3時 = -11
#DIM CONST 気温_冬_6T_4時 = -14
#DIM CONST 気温_冬_6T_5時 = -16
#DIM CONST 気温_冬_6T_6時 = -18
#DIM CONST 気温_冬_6T_7時 = -17
#DIM CONST 気温_冬_6T_8時 = -8
#DIM CONST 気温_冬_6T_9時 = 5
#DIM CONST 気温_冬_6T_10時 = 18
#DIM CONST 気温_冬_6T_11時 = 31
#DIM CONST 気温_冬_6T_12時 = 41
#DIM CONST 気温_冬_6T_13時 = 49
#DIM CONST 気温_冬_6T_14時 = 53
#DIM CONST 気温_冬_6T_15時 = 51
#DIM CONST 気温_冬_6T_16時 = 46
#DIM CONST 気温_冬_6T_17時 = 35
#DIM CONST 気温_冬_6T_18時 = 25
#DIM CONST 気温_冬_6T_19時 = 18
#DIM CONST 気温_冬_6T_20時 = 13
#DIM CONST 気温_冬_6T_21時 = 9
#DIM CONST 気温_冬_6T_22時 = 5
#DIM CONST 気温_冬_6T_23時 = 1

;------------------------------------
;色（気象関係）
;------------------------------------

#DIM CONST C_気象_注意報 = 0xf2e700
#DIM CONST C_気象_警報 = 0xff2800
#DIM CONST C_気象_土砂災害警戒情報 = 0xaa00aa
#DIM CONST C_気象_特別警報 = 0x0c000c

#DIM CONST C_気温_酷寒 = 0x002080
#DIM CONST C_気温_冬 = 0x0041ff
#DIM CONST C_気温_寒 = 0x0096ff
#DIM CONST C_気温_冷 = 0xb9ebff
#DIM CONST C_気温_涼 = 0xfffff0
#DIM CONST C_気温_温 = 0xffff96
#DIM CONST C_気温_暖 = 0xfaf500
#DIM CONST C_気温_夏 = 0xfa9900
#DIM CONST C_気温_真夏 = 0xff2800
#DIM CONST C_気温_猛暑 = 0xb40068


code:
;-------------------------------------------------
;日期が第〇タームか取得
;-------------------------------------------------
@GET_TERM(ARG)
#FUNCTION

SIF !ARG
	ARG = DAY:3

SIF ARG == 31
	ARG = 30

RETURNF ((ARG - 1) / 5) + 1

;-------------------------------------------------
;当該時刻の指定分後の季節・日期・時刻を取得
;RESULT:0=季節　RESULT:1=日期　RESULT:2=時刻
;注意 指定分は1年を超えないこと
;-------------------------------------------------
@CALCULATE_ADD_TIME(季節, 日期, 時刻, 指定分)
#DIM 季節
#DIM 日期
#DIM 時刻
#DIM 指定分
#DIM 取得季節
#DIM 取得日期
#DIM 取得時刻

取得季節 = 0
取得日期 = 0
取得時刻 = 0

取得時刻 = 時刻 + 指定分
IF 取得時刻 >= 1440
	LOCAL:0 = 取得時刻
	取得時刻 %= 1440
	取得日期 += LOCAL:0 / 1440
ENDIF

取得日期 += 日期
IF 取得日期 >= 32
	LOCAL:1 = 取得日期
	取得日期 %= 32
	取得季節 += LOCAL:1 / 32
	取得日期 += LOCAL:1 / 32
ENDIF

取得季節 += 季節
IF 取得季節 >= 5
	取得季節 = 1
ENDIF

RETURN 取得季節, 取得日期, 取得時刻

;-------------------------------------------------
;当該タームの指定ターム後の季節・タームを取得
;RESULT:0=季節　RESULT:1=ターム
;注意 指定タームは1年を超えないこと
;-------------------------------------------------
@CALCULATE_ADD_TERM(季節, ターム, 指定ターム)
#DIM 季節
#DIM ターム
#DIM 指定ターム
#DIM 取得季節
#DIM 取得ターム

取得季節 = 0
取得ターム = 0

取得ターム = ターム + 指定ターム
IF 取得ターム >= 7
	LOCAL = 取得ターム
	取得ターム %= 7
	取得季節 += LOCAL / 7
	取得ターム += LOCAL / 7
ENDIF

取得季節 += 季節
IF 取得季節 >= 5
	取得季節 = 1
ENDIF

RETURN 取得季節, 取得ターム

;-------------------------------------------------
;長期予報
;-------------------------------------------------
@WEATHER_FORECAST_1YEAR

;(天候パッチ)エルニーニョ現象の翌年はラニーニャ現象、ラニーニャ現象の翌年・翌々年は通常、其他は25％でエルニーニョ現象
SELECTCASE YEAR_WEATHER_CONTROL
	CASE 4
		YEAR_WEATHER_CONTROL = 1
	CASE 3
		YEAR_WEATHER_CONTROL = 4
	CASE 2
		YEAR_WEATHER_CONTROL = 3
	CASE RAND:4 == 0
		YEAR_WEATHER_CONTROL = 2
	CASEELSE
		YEAR_WEATHER_CONTROL = 1
ENDSELECT

;-------------------------------------------------
;短期予報
;-------------------------------------------------
@WEATHER_FORECAST_1TERM
#DIM 位置倍率
#DIM 予想経過時間
#DIM 日本海低気圧発生判定
#DIM 南岸低気圧発生判定

;(天候パッチ)長期天候傾向が未設定の時は長期予報を行う
SIF YEAR_WEATHER_CONTROL <= 0
	CALL WEATHER_FORECAST_1YEAR

;タームをまたいだ場合に処理を続行
SIF NOW_TERM == GET_TERM()
	RETURN

;現在的ターム数を設定
NOW_TERM = GET_TERM()

;梅雨・秋雨入り判定
IF DAY:2 == 1 && NOW_TERM == 6
	IS_RAINY_SEASON1:0 = 1
	PRINTL ぐずついた空模様だ…
	PRINTW 梅雨入りしたようだ
	CALL ASK_DIARY("梅雨入りした")
ELSEIF DAY:2 == 3 && NOW_TERM == 1
	IS_RAINY_SEASON2 = 1
ENDIF

;現在的タームにおける寒気・暖気の強さを設定
SELECTCASE YEAR_WEATHER_CONTROL
	CASE 3
		SELECTCASE DAY:2
			CASE 2
				POWER_COLD_AIR = MIN(RAND:5 + 2, 5)
				POWER_WARM_AIR = MIN(RAND:5 + 2, 5)
			CASE 4
				POWER_COLD_AIR = MIN(RAND:5 + 2, 5)
				POWER_WARM_AIR = RAND:5 + 1
			CASEELSE
				POWER_COLD_AIR = RAND:5 + 1
				POWER_WARM_AIR = MIN(RAND:5 + 2, 5)
		ENDSELECT
	CASE 2
		SELECTCASE DAY:2
			CASE 4
				POWER_COLD_AIR = MAX(RAND:5, 1)
				POWER_WARM_AIR = MIN(RAND:5 + 2, 5)
			CASEELSE
				POWER_COLD_AIR = RAND:5 + 1
				POWER_WARM_AIR = MAX(RAND:5, 1)
		ENDSELECT
	CASEELSE
		POWER_COLD_AIR = RAND:5 + 1
		POWER_WARM_AIR = RAND:5 + 1
ENDSELECT

;寒気・暖気による作物への影響
IF FLAG:地主 > 0
	IF (POWER_WARM_AIR == 3 || POWER_WARM_AIR == 4) && (DAY:2 == 1 || DAY:2 == 3)
		FLAG:田地工作的成果 += 10
	ELSEIF POWER_COLD_AIR == 5 && DAY:2 == 1
		FLAG:田地工作的成果 = MAX(0, FLAG:田地工作的成果 - 10)
		AMOUNT_COLD_CROP_DAMAGE += 10
	ENDIF
ENDIF

;連続降水Counter20以上で水害発生の可能性、作物に壊滅的な被害
IF CONTINUOUS_RAINFALL >= 20 && RAND:(MAX(1, (40 - CONTINUOUS_RAINFALL) / 5)) == 0
	IS_FLOOD_CROP_DAMAGE = 1
	FLAG:田地工作的成果 = 0
ENDIF

;梅雨・秋雨明け判定
IF IS_RAINY_SEASON1:0 == 1 && POWER_WARM_AIR >= 3 && IS_RAINY_SEASON1:1 != 1
	IS_RAINY_SEASON1:1 = 1
	;梅雨末期の線状降水帯発生判定
	IF POWER_WARM_AIR == 5 && RAND:5 == 0 && IS_LINER_RAINBAND:0 == 0
		CALL CALCULATE_ADD_TIME(DAY:2, DAY:3, TIME:0, RAND:4200)
		CALL GENERATE_LINER_RAINBAND(RESULT:0, RESULT:1, RESULT:2)
	ENDIF
ELSEIF IS_RAINY_SEASON1:0 == 1 && (DAY:2 == 3 && NOW_TERM == 1)
	IS_RAINY_SEASON1:0 = 0
	IS_RAINY_SEASON1:1 = 0
	PRINTL いつの間にか夏の蒸し暑さは去っていった
	PRINTW 結局梅雨は明けなかったようだ
	CALL ASK_DIARY("夏が来なかった")
ELSEIF IS_RAINY_SEASON1:1 == 1
	IS_RAINY_SEASON1:0 = 0
	IS_RAINY_SEASON1:1 = 0
	PRINTL 爽やかな夏模様だ！
	PRINTW 梅雨明けしたようだ
	CALL ASK_DIARY("梅雨が明けた")
ELSEIF DAY:2 == 3 && NOW_TERM == 2
	IS_RAINY_SEASON2 = 0
ENDIF

;梅雨による作物への影響
IF FLAG:地主 > 0
	IF DAY:2 == 2 && (NOW_TERM == 1 || NOW_TERM == 2) && IS_RAINY_SEASON1:0 == 1
		FLAG:田地工作的成果 += 20
	ELSEIF DAY:2 == 2 && NOW_TERM == 4 && IS_RAINY_SEASON1:0 == 1
		FLAG:田地工作的成果 = MAX(0, FLAG:田地工作的成果 - 20)
	ELSEIF DAY:2 == 2 && NOW_TERM == 5 && IS_RAINY_SEASON1:0 == 1
		FLAG:田地工作的成果 = MAX(0, FLAG:田地工作的成果 - 40)
		IS_COLD_CROP_DAMAGE ++
	ELSEIF DAY:2 == 2 && NOW_TERM == 6 && IS_RAINY_SEASON1:0 == 1
		FLAG:田地工作的成果 = MAX(0, FLAG:田地工作的成果 - 80)
		IS_COLD_CROP_DAMAGE ++
	ENDIF
ENDIF

;梅雨・秋雨時以外に寒冷渦の発生判定
IF !IS_RAINY_SEASON1:0 && !IS_RAINY_SEASON2 && POWER_COLD_AIR == 5
	IS_COLD_LOW = 1
	;寒冷渦の勢力圏突入時刻
	TIME_ENTER_TERRITORY_COLD_LOW:0 = DAY:2
	TIME_ENTER_TERRITORY_COLD_LOW:1 = DAY:3 + RAND:2
	TIME_ENTER_TERRITORY_COLD_LOW:2 = RAND:1440

	;寒冷渦の勢力圏通過時刻
	CALL CALCULATE_ADD_TIME((TIME_ENTER_TERRITORY_COLD_LOW:0), (TIME_ENTER_TERRITORY_COLD_LOW:1), (TIME_ENTER_TERRITORY_COLD_LOW:2), 2880)
	TIME_PASSAGE_TERRITORY_COLD_LOW:0 = RESULT:0
	TIME_PASSAGE_TERRITORY_COLD_LOW:1 = RESULT:1
	TIME_PASSAGE_TERRITORY_COLD_LOW:2 = RESULT:2
ELSE
	IS_COLD_LOW = 0
	TIME_ENTER_TERRITORY_COLD_LOW:0 = 0
	TIME_ENTER_TERRITORY_COLD_LOW:1 = 0
	TIME_ENTER_TERRITORY_COLD_LOW:2 = 0
ENDIF

;日本海低気圧の消滅判定
IF IS_SoJ_LOW >= 1
	IS_SoJ_LOW = 0
	TIME_ENTER_TERRITORY_SoJ_LOW:0 = 0
	TIME_ENTER_TERRITORY_SoJ_LOW:1 = 0
	TIME_ENTER_TERRITORY_SoJ_LOW:2 = 0

	TIME_CLOSEST_SoJ_LOW:0 = 0
	TIME_CLOSEST_SoJ_LOW:1 = 0
	TIME_CLOSEST_SoJ_LOW:2 = 0

	TIME_PASSAGE_FAKE_FINE:0 = 0
	TIME_PASSAGE_FAKE_FINE:1 = 0
	TIME_PASSAGE_FAKE_FINE:2 = 0

	TIME_PASSAGE_SoJ_LOW:0 = 0
	TIME_PASSAGE_SoJ_LOW:1 = 0
	TIME_PASSAGE_SoJ_LOW:2 = 0
ENDIF

;南岸低気圧の消滅判定
IF IS_SOUTHERN_LOW == 1
	IS_SOUTHERN_LOW = 0
	TIME_ENTER_TERRITORY_SOUTHERN_LOW:0 = 0
	TIME_ENTER_TERRITORY_SOUTHERN_LOW:1 = 0
	TIME_ENTER_TERRITORY_SOUTHERN_LOW:2 = 0

	TIME_PASSAGE_SOUTHERN_LOW:0 = 0
	TIME_PASSAGE_SOUTHERN_LOW:1 = 0
	TIME_PASSAGE_SOUTHERN_LOW:2 = 0
ENDIF

;台風の消滅判定
IF (DAY:2 == 1 || (DAY:2 == 3 && NOW_TERM >= 4) || DAY:2 == 4 || TIME_PASSAGE_WIND_ZONE_TYPHOON:0 < DAY:2 || GET_LOCATION_LOW() == "台風一過") && IS_TYPHOON:0 == 1
	IS_TYPHOON:0 = 0
	IS_TYPHOON:1 = 0
	IS_TYPHOON:2 = 0
	IS_TYPHOON:3 = 0

	TIME_ENTER_TERRITORY_TYPHOON:0 = 0
	TIME_ENTER_TERRITORY_TYPHOON:1 = 0
	TIME_ENTER_TERRITORY_TYPHOON:2 = 0

	TIME_ENTER_WIND_ZONE_TYPHOON:0 = 0
	TIME_ENTER_WIND_ZONE_TYPHOON:1 = 0
	TIME_ENTER_WIND_ZONE_TYPHOON:2 = 0

	TIME_CLOSEST_TYPHOON:0 = 0
	TIME_CLOSEST_TYPHOON:1 = 0
	TIME_CLOSEST_TYPHOON:2 = 0

	TIME_PASSAGE_EYE_TYPHOON:0 = 0
	TIME_PASSAGE_EYE_TYPHOON:1 = 0
	TIME_PASSAGE_EYE_TYPHOON:2 = 0

	TIME_PASSAGE_WIND_ZONE_TYPHOON:0 = 0
	TIME_PASSAGE_WIND_ZONE_TYPHOON:1 = 0
	TIME_PASSAGE_WIND_ZONE_TYPHOON:2 = 0

	TIME_ENTER_STORM_AREA_TYPHOON:0 = 0
	TIME_ENTER_STORM_AREA_TYPHOON:1 = 0
	TIME_ENTER_STORM_AREA_TYPHOON:2 = 0

	TIME_PASSAGE_STORM_AREA_TYPHOON:0 = 0
	TIME_PASSAGE_STORM_AREA_TYPHOON:1 = 0
	TIME_PASSAGE_STORM_AREA_TYPHOON:2 = 0

ENDIF

;線状降水帯の消滅判定
IF (TIME_PASSAGE_LINER_RAINBAND:0 < DAY:2 || GET_LOCATION_LINER_RAINBAND() == "線状降水帯通過") && IS_LINER_RAINBAND:0 >= 1
	IS_LINER_RAINBAND:0 = 0
	IS_LINER_RAINBAND:1 = 0

	TIME_ENTER_TERRITORY_LINER_RAINBAND:0 = 0
	TIME_ENTER_TERRITORY_LINER_RAINBAND:1 = 0
	TIME_ENTER_TERRITORY_LINER_RAINBAND:2 = 0

	TIME_PASSAGE_LINER_RAINBAND:0 = 0
	TIME_PASSAGE_LINER_RAINBAND:1 = 0
	TIME_PASSAGE_LINER_RAINBAND:2 = 0

ENDIF

;台風と寒冷渦が同時に存在するとき迷走台風になる
IF IS_TYPHOON:0 && IS_COLD_LOW
	;台風の強風域通過時刻を延長する
	CALL CALCULATE_ADD_TIME((TIME_PASSAGE_WIND_ZONE_TYPHOON:0), (TIME_PASSAGE_WIND_ZONE_TYPHOON:1), (TIME_PASSAGE_WIND_ZONE_TYPHOON:2), (720 + RAND:360))
	TIME_PASSAGE_WIND_ZONE_TYPHOON:0 = RESULT:0
	TIME_PASSAGE_WIND_ZONE_TYPHOON:1 = RESULT:1
	TIME_PASSAGE_WIND_ZONE_TYPHOON:2 = RESULT:2

	;台風の暴風域通過時刻を延長する
	IF IS_TYPHOON:1 >= 3
		CALL CALCULATE_ADD_TIME((TIME_PASSAGE_STORM_AREA_TYPHOON:0), (TIME_PASSAGE_STORM_AREA_TYPHOON:1), (TIME_PASSAGE_STORM_AREA_TYPHOON:2), (720 + RAND:360))
		TIME_PASSAGE_STORM_AREA_TYPHOON:0 = RESULT:0
		TIME_PASSAGE_STORM_AREA_TYPHOON:1 = RESULT:1
		TIME_PASSAGE_STORM_AREA_TYPHOON:2 = RESULT:2
	ENDIF
ENDIF

;夏・秋第1・2ターム時に台風の発生判定
IF (DAY:2 == 2 || (DAY:2 == 3 && NOW_TERM <= 2)) && POWER_WARM_AIR == 5 && !IS_TYPHOON:0
	IS_TYPHOON:0 = 1
	IS_TYPHOON:1 = RAND:5 + 1
	IS_TYPHOON:2 = RAND:3 + 1

	;20%の確率で先駆降雨帯発生
	SIF RAND:5 == 0
		IS_TYPHOON:3 = 1

	SELECTCASE IS_TYPHOON:2
		CASE 1
			位置倍率 = 7
		CASE 2
			位置倍率 = 10
		CASE 3
			位置倍率 = 9
	ENDSELECT

	;台風の勢力圏突入時刻を算定
	CALL CALCULATE_ADD_TERM(DAY:2, NOW_TERM, 1)
	TIME_ENTER_TERRITORY_TYPHOON:0 = RESULT:0
	TIME_ENTER_TERRITORY_TYPHOON:1 = ((RESULT:1 - 1) * 5) + 1
	TIME_ENTER_TERRITORY_TYPHOON:2 = RAND:1440

	;台風の強風域突入時刻を算定
	CALL CALCULATE_ADD_TIME((TIME_ENTER_TERRITORY_TYPHOON:0), (TIME_ENTER_TERRITORY_TYPHOON:1), (TIME_ENTER_TERRITORY_TYPHOON:2), 2880)
	TIME_ENTER_WIND_ZONE_TYPHOON:0 = RESULT:0
	TIME_ENTER_WIND_ZONE_TYPHOON:1 = RESULT:1
	TIME_ENTER_WIND_ZONE_TYPHOON:2 = RESULT:2

	;勢力3以上だと暴風域を備える
	IF IS_TYPHOON:1 >= 3
		;台風の暴風域突入時刻
		CALL CALCULATE_ADD_TIME((TIME_ENTER_WIND_ZONE_TYPHOON:0), (TIME_ENTER_WIND_ZONE_TYPHOON:1), (TIME_ENTER_WIND_ZONE_TYPHOON:2), (360 * 位置倍率 / 10))
		TIME_ENTER_STORM_AREA_TYPHOON:0 = RESULT:0
		TIME_ENTER_STORM_AREA_TYPHOON:1 = RESULT:1
		TIME_ENTER_STORM_AREA_TYPHOON:2 = RESULT:2

		;台風の暴風域通過時刻
		CALL CALCULATE_ADD_TIME((TIME_ENTER_WIND_ZONE_TYPHOON:0), (TIME_ENTER_WIND_ZONE_TYPHOON:1), (TIME_ENTER_WIND_ZONE_TYPHOON:2), (1080 * 位置倍率 / 10))
		TIME_PASSAGE_STORM_AREA_TYPHOON:0 = RESULT:0
		TIME_PASSAGE_STORM_AREA_TYPHOON:1 = RESULT:1
		TIME_PASSAGE_STORM_AREA_TYPHOON:2 = RESULT:2
	ENDIF

	;台風の最接近時刻を算定
	CALL CALCULATE_ADD_TIME((TIME_ENTER_WIND_ZONE_TYPHOON:0), (TIME_ENTER_WIND_ZONE_TYPHOON:1), (TIME_ENTER_WIND_ZONE_TYPHOON:2), (720 * 位置倍率 / 10))
	TIME_CLOSEST_TYPHOON:0 = RESULT:0
	TIME_CLOSEST_TYPHOON:1 = RESULT:1
	TIME_CLOSEST_TYPHOON:2 = RESULT:2

	;台風の目通過時刻を算定
	CALL CALCULATE_ADD_TIME((TIME_CLOSEST_TYPHOON:0), (TIME_CLOSEST_TYPHOON:1), (TIME_CLOSEST_TYPHOON:2), (10 * IS_TYPHOON:1))
	TIME_PASSAGE_EYE_TYPHOON:0 = RESULT:0
	TIME_PASSAGE_EYE_TYPHOON:1 = RESULT:1
	TIME_PASSAGE_EYE_TYPHOON:2 = RESULT:2

	;台風の強風域通過時刻を算定
	CALL CALCULATE_ADD_TIME((TIME_ENTER_WIND_ZONE_TYPHOON:0), (TIME_ENTER_WIND_ZONE_TYPHOON:1), (TIME_ENTER_WIND_ZONE_TYPHOON:2), (1420 * 位置倍率 / 10))
	TIME_PASSAGE_WIND_ZONE_TYPHOON:0 = RESULT:0
	TIME_PASSAGE_WIND_ZONE_TYPHOON:1 = RESULT:1
	TIME_PASSAGE_WIND_ZONE_TYPHOON:2 = RESULT:2

	;先駆降雨帯発生時・秋雨時の線状降水帯発生判定
	IF (IS_TYPHOON:3 == 1 || (TIME_ENTER_TERRITORY_TYPHOON:0 == 3 && TIME_ENTER_TERRITORY_TYPHOON:1 <= 5)) && POWER_WARM_AIR == 5 && RAND:4 == 0 && IS_LINER_RAINBAND:0 == 0
		CALL GENERATE_LINER_RAINBAND(TIME_ENTER_TERRITORY_TYPHOON:0, TIME_ENTER_TERRITORY_TYPHOON:1, TIME_ENTER_TERRITORY_TYPHOON:2)
	ENDIF

ENDIF

;夏季に寒冷渦発生時の線状降水帯発生判定
IF IS_COLD_LOW && POWER_WARM_AIR == 5 && RAND:4 && IS_LINER_RAINBAND:0 == 0
	CALL CALCULATE_ADD_TIME(DAY:2, DAY:3, TIME:0, RAND:4200)
	CALL GENERATE_LINER_RAINBAND(RESULT:0, RESULT:1, RESULT:2)
ENDIF

;冬に温帯低気圧の発生判定
IF DAY:2 == 4 && !IS_COLD_LOW
	日本海低気圧発生判定 = RAND:5
	南岸低気圧発生判定 = RAND:5

	;二つ玉低気圧発生
	IF !日本海低気圧発生判定 && !南岸低気圧発生判定
		IS_SoJ_LOW = 2
		;日本海低気圧の勢力圏突入時刻
		TIME_ENTER_TERRITORY_SoJ_LOW:0 = DAY:2
		TIME_ENTER_TERRITORY_SoJ_LOW:1 = DAY:3 + RAND:3
		TIME_ENTER_TERRITORY_SoJ_LOW:2 = RAND:1440

		;日本海低気圧の最接近時刻
		CALL CALCULATE_ADD_TIME((TIME_ENTER_TERRITORY_SoJ_LOW:0), (TIME_ENTER_TERRITORY_SoJ_LOW:1), (TIME_ENTER_TERRITORY_SoJ_LOW:2), 720)
		TIME_CLOSEST_SoJ_LOW:0 = RESULT:0
		TIME_CLOSEST_SoJ_LOW:1 = RESULT:1
		TIME_CLOSEST_SoJ_LOW:2 = RESULT:2

		;疑似好天エリア通過時刻
		CALL CALCULATE_ADD_TIME((TIME_CLOSEST_SoJ_LOW:0), (TIME_CLOSEST_SoJ_LOW:1), (TIME_CLOSEST_SoJ_LOW:2), (30 * (RAND:6 + 1)))
		TIME_PASSAGE_FAKE_FINE:0 = RESULT:0
		TIME_PASSAGE_FAKE_FINE:1 = RESULT:1
		TIME_PASSAGE_FAKE_FINE:2 = RESULT:2

		;日本海低気圧の通過時刻
		CALL CALCULATE_ADD_TIME((TIME_CLOSEST_SoJ_LOW:0), (TIME_CLOSEST_SoJ_LOW:1), (TIME_CLOSEST_SoJ_LOW:2), 1080)
		TIME_PASSAGE_SoJ_LOW:0 = RESULT:0
		TIME_PASSAGE_SoJ_LOW:1 = RESULT:1
		TIME_PASSAGE_SoJ_LOW:2 = RESULT:2

	;日本海低気圧発生
	ELSEIF !日本海低気圧発生判定
		IS_SoJ_LOW = 1
		;日本海低気圧の勢力圏突入時刻
		TIME_ENTER_TERRITORY_SoJ_LOW:0 = DAY:2
		TIME_ENTER_TERRITORY_SoJ_LOW:1 = DAY:3 + RAND:3
		TIME_ENTER_TERRITORY_SoJ_LOW:2 = RAND:1440

		;日本海低気圧の最接近時刻
		CALL CALCULATE_ADD_TIME((TIME_ENTER_TERRITORY_SoJ_LOW:0), (TIME_ENTER_TERRITORY_SoJ_LOW:1), (TIME_ENTER_TERRITORY_SoJ_LOW:2), 720)
		TIME_CLOSEST_SoJ_LOW:0 = RESULT:0
		TIME_CLOSEST_SoJ_LOW:1 = RESULT:1
		TIME_CLOSEST_SoJ_LOW:2 = RESULT:2

		;日本海低気圧の通過時刻
		CALL CALCULATE_ADD_TIME((TIME_CLOSEST_SoJ_LOW:0), (TIME_CLOSEST_SoJ_LOW:1), (TIME_CLOSEST_SoJ_LOW:2), 1080)
		TIME_PASSAGE_SoJ_LOW:0 = RESULT:0
		TIME_PASSAGE_SoJ_LOW:1 = RESULT:1
		TIME_PASSAGE_SoJ_LOW:2 = RESULT:2

	;南岸低気圧発生
	ELSEIF !南岸低気圧発生判定
		IS_SOUTHERN_LOW = 1
		;南岸低気圧の勢力圏突入時刻
		TIME_ENTER_TERRITORY_SOUTHERN_LOW:0 = DAY:2
		TIME_ENTER_TERRITORY_SOUTHERN_LOW:1 = DAY:3 + RAND:3
		TIME_ENTER_TERRITORY_SOUTHERN_LOW:2 = RAND:1440

		;南岸低気圧の通過時刻
		CALL CALCULATE_ADD_TIME((TIME_ENTER_TERRITORY_SOUTHERN_LOW:0), (TIME_ENTER_TERRITORY_SOUTHERN_LOW:1), (TIME_ENTER_TERRITORY_SOUTHERN_LOW:2), 1440)
		TIME_PASSAGE_SOUTHERN_LOW:0 = RESULT:0
		TIME_PASSAGE_SOUTHERN_LOW:1 = RESULT:1
		TIME_PASSAGE_SOUTHERN_LOW:2 = RESULT:2
	ENDIF
ENDIF

;春・秋に温暖低気圧の発生判定
IF (DAY:2 == 1 || DAY:2 == 3) && !IS_COLD_LOW && !IS_RAINY_SEASON1:0 && !IS_RAINY_SEASON2
	;春・秋の温帯低気圧の勢力圏突入時刻
	TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0 = DAY:2
	TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:1 = DAY:3 + 1 + RAND:2
	TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:2 = RAND:1440

	;春・秋の温帯低気圧の温暖前線通過時刻
	CALL CALCULATE_ADD_TIME((TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0), (TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:1), (TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:2), 1440)
	TIME_PASSAGE_WARM_FRONT:0 = RESULT:0
	TIME_PASSAGE_WARM_FRONT:1 = RESULT:1
	TIME_PASSAGE_WARM_FRONT:2 = RESULT:2

	;春・秋の温帯低気圧の寒冷前線時刻
	CALL CALCULATE_ADD_TIME((TIME_PASSAGE_WARM_FRONT:0), (TIME_PASSAGE_WARM_FRONT:1), (TIME_PASSAGE_WARM_FRONT:2), 720)
	TIME_PASSAGE_COLD_FRONT:0 = RESULT:0
	TIME_PASSAGE_COLD_FRONT:1 = RESULT:1
	TIME_PASSAGE_COLD_FRONT:2 = RESULT:2

	;春・秋の温帯低気圧の勢力圏通過時刻
	CALL CALCULATE_ADD_TIME((TIME_PASSAGE_COLD_FRONT:0), (TIME_PASSAGE_COLD_FRONT:1), (TIME_PASSAGE_COLD_FRONT:2), 180)
	TIME_PASSAGE_EXTRATROPICAL_LOW:0 = RESULT:0
	TIME_PASSAGE_EXTRATROPICAL_LOW:1 = RESULT:1
	TIME_PASSAGE_EXTRATROPICAL_LOW:2 = RESULT:2
;温帯低気圧の消滅判定
ELSE
	TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0 = 0
	TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:1 = 0
	TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:2 = 0

	TIME_PASSAGE_WARM_FRONT:0 = 0
	TIME_PASSAGE_WARM_FRONT:1 = 0
	TIME_PASSAGE_WARM_FRONT:2 = 0

	TIME_PASSAGE_COLD_FRONT:0 = 0
	TIME_PASSAGE_COLD_FRONT:1 = 0
	TIME_PASSAGE_COLD_FRONT:2 = 0

	TIME_PASSAGE_EXTRATROPICAL_LOW:0 = 0
	TIME_PASSAGE_EXTRATROPICAL_LOW:1 = 0
	TIME_PASSAGE_EXTRATROPICAL_LOW:2 = 0
ENDIF
;-------------------------------------------------
;1日予報
;-------------------------------------------------
@WEATHER_FORECAST_1DAY

;(天候パッチ)長期天候傾向が未設定の時は長期予報を行う
SIF YEAR_WEATHER_CONTROL <= 0
	CALL WEATHER_FORECAST_1YEAR

;天候変更禁止を解除する
FORBIDDEN_CHANGE_WEATHER = 0

;霧発生フラグをリセット
CAN_STRATUS = 0

;(天候パッチ)1日の大気安定度をリセット
ATMOSPHERIC_INSTABILITY = 0

;積雲/積乱雲の発生判定をリセット
CAN_CUMULUS:0 = 0
CAN_CUMULUS:1 = 0
CAN_CUMULUS:2 = 0
TIME_ENTER_TERRITORY_CUMULUS = 0
TIME_CLOSEST_CUMULUS = 0

;霧の発生判定
SIF !IS_COLD_LOW && !IS_TYPHOON:0 && !IS_SoJ_LOW && !IS_SOUTHERN_LOW && !RAND:10
	CAN_STRATUS = 1

;(天候パッチ)1日の大気安定度を設定
ATMOSPHERIC_INSTABILITY = RAND:(8 - POWER_WARM_AIR) + (7 - POWER_WARM_AIR - POWER_COLD_AIR)
SIF DAY:2 == 2 && (IS_COLD_LOW || GET_LOCATION_LOW() == "台風勢力圏")
	ATMOSPHERIC_INSTABILITY -= 6

;(天候パッチ)天候安定度が低い場合には線状降水帯が発生する可能性あり
;(天气补丁)在天气稳定较低的情况下，可能会出现线状降水
IF ATMOSPHERIC_INSTABILITY <= -2 && IS_LINER_RAINBAND:0 == 0 && RAND:(13+ATMOSPHERIC_INSTABILITY) == 0 && DAY:2 != 4
	CALL GENERATE_LINER_RAINBAND(DAY:2, DAY:3, RAND:1320)
ENDIF
;積雲/積乱雲の発生判定
IF DAY:2 == 2 && POWER_WARM_AIR >= 2 && !IS_COLD_LOW && (GET_LOCATION_LOW() == "台風遠方" || GET_LOCATION_LOW() == "台風一過" || GET_LOCATION_LOW() == "低気圧未発生")
	SELECTCASE ATMOSPHERIC_INSTABILITY
		CASE IS >= 4
			CAN_CUMULUS:0 = 1
		CASE IS >= 0
			CAN_CUMULUS:0 = 2
		CASEELSE
			CAN_CUMULUS:0 = 3
	ENDSELECT
	SIF !RAND:4
		CAN_CUMULUS:1 = 1
ELSEIF DAY:2 == 2 && (IS_COLD_LOW || GET_LOCATION_LOW() == "台風勢力圏")
	SELECTCASE ATMOSPHERIC_INSTABILITY
		CASE IS >= 0
			CAN_CUMULUS:0 = 2
			SIF !RAND:4
				CAN_CUMULUS:1 = 1
		CASE IS >= -3
			CAN_CUMULUS:0 = 3
			SIF !RAND:2
				CAN_CUMULUS:1 = 1
		CASE IS >= -6
			CAN_CUMULUS:0 = 4
			SIF !RAND:2
				CAN_CUMULUS:1 = 1
		CASE IS >= -8
			CAN_CUMULUS:0 = 4
			CAN_CUMULUS:1 = 1
		CASEELSE
			CAN_CUMULUS:0 = 5
			CAN_CUMULUS:1 = 1
	ENDSELECT
;積雲/積乱雲の発生判定をリセット
ELSE
	CAN_CUMULUS:0 = 0
	CAN_CUMULUS:1 = 0
	CAN_CUMULUS:2 = 0
	TIME_ENTER_TERRITORY_CUMULUS = 0
	TIME_CLOSEST_CUMULUS = 0
ENDIF

IF CAN_CUMULUS:1 == 1
	;積雲/積乱雲の勢力圏突入時刻
	TIME_ENTER_TERRITORY_CUMULUS = 840 + RAND:120

	;積雲/積乱雲の最接近時刻
	TIME_CLOSEST_CUMULUS = TIME_ENTER_TERRITORY_CUMULUS + 30 + RAND:15

	;積雲/積乱雲の勢力圏通過時刻
	SELECTCASE CAN_CUMULUS:0
		CASE IS <= 3
			TIME_PASSAGE_CUMULUS = TIME_CLOSEST_CUMULUS + 60 + RAND:15
		CASE 4
			TIME_PASSAGE_CUMULUS = TIME_CLOSEST_CUMULUS + 90  + (RAND:2 * 60) + RAND:30
		CASE 5
			TIME_PASSAGE_CUMULUS = TIME_CLOSEST_CUMULUS + 120  + (RAND:3 * 60) + RAND:30
	ENDSELECT
ENDIF

;かなとこ雲とスーパーセルの場合風の強さ判定
IF CAN_CUMULUS:0 == 4 && CAN_CUMULUS:1 == 1
	IF RAND:(40 + ATMOSPHERIC_INSTABILITY) == 0
		CAN_CUMULUS:2 = 2
	ELSE
		CAN_CUMULUS:2 = 1
	ENDIF
ELSEIF CAN_CUMULUS:0 == 5 && CAN_CUMULUS:1 == 1
	IF RAND:5 == 0
		CAN_CUMULUS:2 = 2
	ELSE
		CAN_CUMULUS:2 = 1
	ENDIF
ENDIF

;-------------------------------------------------
;低気圧の位置判定
;-------------------------------------------------
@GET_LOCATION_LOW
#FUNCTIONS

;台風
IF IS_TYPHOON:0
	;台風の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_TYPHOON:0 > DAY:2
		RETURNF "台風遠方"
	ELSEIF TIME_ENTER_TERRITORY_TYPHOON:0 == DAY:2 && TIME_ENTER_TERRITORY_TYPHOON:1 > DAY:3
		RETURNF "台風遠方"
	ELSEIF TIME_ENTER_TERRITORY_TYPHOON:0 == DAY:2 && TIME_ENTER_TERRITORY_TYPHOON:1 == DAY:3 && TIME_ENTER_TERRITORY_TYPHOON:2 > TIME:0
		RETURNF "台風遠方"
	;台風の強風域突入時刻以前
	ELSEIF TIME_ENTER_WIND_ZONE_TYPHOON:0 > DAY:2
		RETURNF "台風勢力圏"
	ELSEIF TIME_ENTER_WIND_ZONE_TYPHOON:0 == DAY:2 && TIME_ENTER_WIND_ZONE_TYPHOON:1 > DAY:3
		RETURNF "台風勢力圏"
	ELSEIF TIME_ENTER_WIND_ZONE_TYPHOON:0 == DAY:2 && TIME_ENTER_WIND_ZONE_TYPHOON:1 == DAY:3 && TIME_ENTER_WIND_ZONE_TYPHOON:2 > TIME:0
		RETURNF "台風勢力圏"
	;台風に暴風域があり台風の暴風域突入時刻以前
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_ENTER_STORM_AREA_TYPHOON:0 > DAY:2
		RETURNF "台風接近強風域"
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_ENTER_STORM_AREA_TYPHOON:0 == DAY:2 && TIME_ENTER_STORM_AREA_TYPHOON:1 > DAY:3
		RETURNF "台風接近強風域"
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_ENTER_STORM_AREA_TYPHOON:0 == DAY:2 && TIME_ENTER_STORM_AREA_TYPHOON:1 == DAY:3 && TIME_ENTER_STORM_AREA_TYPHOON:2 > TIME:0
		RETURNF "台風接近強風域"
	;台風に暴風域がなく台風の最接近時刻以前
	ELSEIF IS_TYPHOON:1 < 3 && TIME_CLOSEST_TYPHOON:0 > DAY:2
		RETURNF "台風接近強風域"
	ELSEIF IS_TYPHOON:1 < 3 && TIME_CLOSEST_TYPHOON:0 == DAY:2 && TIME_CLOSEST_TYPHOON:1 > DAY:3
		RETURNF "台風接近強風域"
	ELSEIF IS_TYPHOON:1 < 3 && TIME_CLOSEST_TYPHOON:0 == DAY:2 && TIME_CLOSEST_TYPHOON:1 == DAY:3 && TIME_CLOSEST_TYPHOON:2 > TIME:0
		RETURNF "台風接近強風域"
	;台風に暴風域があり台風の最接近時刻以前
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_CLOSEST_TYPHOON:0 > DAY:2
		RETURNF "台風接近暴風域"
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_CLOSEST_TYPHOON:0 == DAY:2 && TIME_CLOSEST_TYPHOON:1 > DAY:3
		RETURNF "台風接近暴風域"
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_CLOSEST_TYPHOON:0 == DAY:2 && TIME_CLOSEST_TYPHOON:1 == DAY:3 && TIME_CLOSEST_TYPHOON:2 > TIME:0
		RETURNF "台風接近暴風域"
	;台風の目通過時刻以前
	ELSEIF TIME_PASSAGE_EYE_TYPHOON:0 > DAY:2
		RETURNF "台風最接近"
	ELSEIF TIME_PASSAGE_EYE_TYPHOON:0 == DAY:2 && TIME_PASSAGE_EYE_TYPHOON:1 > DAY:3
		RETURNF "台風最接近"
	ELSEIF TIME_PASSAGE_EYE_TYPHOON:0 == DAY:2 && TIME_PASSAGE_EYE_TYPHOON:1 == DAY:3 && TIME_PASSAGE_EYE_TYPHOON:2 > TIME:0
		RETURNF "台風最接近"
	;台風に暴風域があり暴風域通過時刻以前
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_PASSAGE_STORM_AREA_TYPHOON:0 > DAY:2
		RETURNF "台風通過暴風域"
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_PASSAGE_STORM_AREA_TYPHOON:0 == DAY:2 && TIME_PASSAGE_STORM_AREA_TYPHOON:1 > DAY:3
		RETURNF "台風通過暴風域"
	ELSEIF IS_TYPHOON:1 >= 3 && TIME_PASSAGE_STORM_AREA_TYPHOON:0 == DAY:2 && TIME_PASSAGE_STORM_AREA_TYPHOON:1 == DAY:3 && TIME_PASSAGE_STORM_AREA_TYPHOON:2 > TIME:0
		RETURNF "台風通過暴風域"
	;台風の強風域通過時刻以前
	ELSEIF TIME_PASSAGE_WIND_ZONE_TYPHOON:0 > DAY:2
		RETURNF "台風通過強風域"
	ELSEIF TIME_PASSAGE_WIND_ZONE_TYPHOON:0 == DAY:2 && TIME_PASSAGE_WIND_ZONE_TYPHOON:1 > DAY:3
		RETURNF "台風通過強風域"
	ELSEIF TIME_PASSAGE_WIND_ZONE_TYPHOON:0 == DAY:2 && TIME_PASSAGE_WIND_ZONE_TYPHOON:1 == DAY:3 && TIME_PASSAGE_WIND_ZONE_TYPHOON:2 > TIME:0
		RETURNF "台風通過強風域"
	ELSE
		RETURNF "台風一過"
	ENDIF
;寒冷渦
ELSEIF IS_COLD_LOW
	;寒冷渦の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_COLD_LOW:0 > DAY:2
		RETURNF "寒冷渦遠方"
	ELSEIF TIME_ENTER_TERRITORY_COLD_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_COLD_LOW:1 > DAY:3
		RETURNF "寒冷渦遠方"
	ELSEIF TIME_ENTER_TERRITORY_COLD_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_COLD_LOW:2 > TIME:0
		RETURNF "寒冷渦遠方"
	;寒冷渦の勢力圏通過時刻以前
	ELSEIF TIME_PASSAGE_TERRITORY_COLD_LOW:0 > DAY:2
		RETURNF "寒冷渦接近"
	ELSEIF TIME_PASSAGE_TERRITORY_COLD_LOW:0 == DAY:2 && TIME_PASSAGE_TERRITORY_COLD_LOW:1 > DAY:3
		RETURNF "寒冷渦接近"
	ELSEIF TIME_PASSAGE_TERRITORY_COLD_LOW:0 == DAY:2 && TIME_PASSAGE_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_PASSAGE_TERRITORY_COLD_LOW:2 > TIME:0
		RETURNF "寒冷渦接近"
	ELSE
		RETURNF "寒冷渦通過"
	ENDIF
;二つ玉低気圧
ELSEIF IS_SoJ_LOW == 2
	;二つ玉低気圧の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_SoJ_LOW:0 > DAY:2
		RETURNF "二つ玉低気圧遠方"
	ELSEIF TIME_ENTER_TERRITORY_SoJ_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_SoJ_LOW:1 > DAY:3
		RETURNF "二つ玉低気圧遠方"
	ELSEIF TIME_ENTER_TERRITORY_SoJ_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_SoJ_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_SoJ_LOW:2 > TIME:0
		RETURNF "二つ玉低気圧遠方"
	;二つ玉低気圧の最接近時刻以前
	ELSEIF TIME_CLOSEST_SoJ_LOW:0 > DAY:2
		RETURNF "二つ玉低気圧接近"
	ELSEIF TIME_CLOSEST_SoJ_LOW:0 == DAY:2 && TIME_CLOSEST_SoJ_LOW:1 > DAY:3
		RETURNF "二つ玉低気圧接近"
	ELSEIF TIME_CLOSEST_SoJ_LOW:0 == DAY:2 && TIME_CLOSEST_SoJ_LOW:1 == DAY:3 && TIME_CLOSEST_SoJ_LOW:2 > TIME:0
		RETURNF "二つ玉低気圧接近"
	;疑似好天エリア通過時刻以前
	ELSEIF TIME_PASSAGE_FAKE_FINE:0 > DAY:2
		RETURNF "疑似好天"
	ELSEIF TIME_PASSAGE_FAKE_FINE:0 == DAY:2 && TIME_PASSAGE_FAKE_FINE:1 > DAY:3
		RETURNF "疑似好天"
	ELSEIF TIME_PASSAGE_FAKE_FINE:0 == DAY:2 && TIME_PASSAGE_FAKE_FINE:1 == DAY:3 && TIME_PASSAGE_FAKE_FINE:2 > TIME:0
		RETURNF "疑似好天"
	;二つ玉低気圧の通過時刻以前
	ELSEIF TIME_PASSAGE_SoJ_LOW:0 > DAY:2
		RETURNF "二つ玉低気圧通過中"
	ELSEIF TIME_PASSAGE_SoJ_LOW:0 == DAY:2 && TIME_PASSAGE_SoJ_LOW:1 > DAY:3
		RETURNF "二つ玉低気圧通過中"
	ELSEIF TIME_PASSAGE_SoJ_LOW:0 == DAY:2 && TIME_PASSAGE_SoJ_LOW:1 == DAY:3 && TIME_PASSAGE_SoJ_LOW:2 > TIME:0
		RETURNF "二つ玉低気圧通過中"
	ELSE
		RETURNF "二つ玉低気圧通過"
	ENDIF
;日本海低気圧
ELSEIF IS_SoJ_LOW == 1
	;日本海低気圧の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_SoJ_LOW:0 > DAY:2
		RETURNF "日本海低気圧遠方"
	ELSEIF TIME_ENTER_TERRITORY_SoJ_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_SoJ_LOW:1 > DAY:3
		RETURNF "日本海低気圧遠方"
	ELSEIF TIME_ENTER_TERRITORY_SoJ_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_SoJ_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_SoJ_LOW:2 > TIME:0
		RETURNF "日本海低気圧遠方"
	;日本海低気圧の最接近時刻以前
	ELSEIF TIME_CLOSEST_SoJ_LOW:0 > DAY:2
		RETURNF "日本海低気圧接近"
	ELSEIF TIME_CLOSEST_SoJ_LOW:0 == DAY:2 && TIME_CLOSEST_SoJ_LOW:1 > DAY:3
		RETURNF "日本海低気圧接近"
	ELSEIF TIME_CLOSEST_SoJ_LOW:0 == DAY:2 && TIME_CLOSEST_SoJ_LOW:1 == DAY:3 && TIME_CLOSEST_SoJ_LOW:2 > TIME:0
		RETURNF "日本海低気圧接近"
	;日本海低気圧の通過時刻以前
	ELSEIF TIME_PASSAGE_SoJ_LOW:0 > DAY:2
		RETURNF "日本海低気圧通過中"
	ELSEIF TIME_PASSAGE_SoJ_LOW:0 == DAY:2 && TIME_PASSAGE_SoJ_LOW:1 > DAY:3
		RETURNF "日本海低気圧通過中"
	ELSEIF TIME_PASSAGE_SoJ_LOW:0 == DAY:2 && TIME_PASSAGE_SoJ_LOW:1 == DAY:3 && TIME_PASSAGE_SoJ_LOW:2 > TIME:0
		RETURNF "日本海低気圧通過中"
	ELSE
		RETURNF "日本海低気圧通過"
	ENDIF
;南岸低気圧
ELSEIF IS_SOUTHERN_LOW
	;南岸低気圧の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_SOUTHERN_LOW:0 > DAY:2
		RETURNF "南岸低気圧遠方"
	ELSEIF TIME_ENTER_TERRITORY_SOUTHERN_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_SOUTHERN_LOW:1 > DAY:3
		RETURNF "南岸低気圧遠方"
	ELSEIF TIME_ENTER_TERRITORY_SOUTHERN_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_SOUTHERN_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_SOUTHERN_LOW:2 > TIME:0
		RETURNF "南岸低気圧遠方"
	;南岸低気圧の通過時刻以前
	ELSEIF TIME_PASSAGE_SOUTHERN_LOW:0 > DAY:2
		RETURNF "南岸低気圧接近"
	ELSEIF TIME_PASSAGE_SOUTHERN_LOW:0 == DAY:2 && TIME_PASSAGE_SOUTHERN_LOW:1 > DAY:3
		RETURNF "南岸低気圧接近"
	ELSEIF TIME_PASSAGE_SOUTHERN_LOW:0 == DAY:2 && TIME_PASSAGE_SOUTHERN_LOW:1 == DAY:3 && TIME_PASSAGE_SOUTHERN_LOW:2 > TIME:0
		RETURNF "南岸低気圧接近"
	ELSE
		RETURNF "南岸低気圧通過"
	ENDIF
;春・秋の温帯低気圧
ELSEIF (DAY:2 == 1 || DAY:2 == 3) && !IS_RAINY_SEASON1 && !IS_RAINY_SEASON2
	;温暖前線の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0 > DAY:2
		RETURNF "温暖前線遠方"
	ELSEIF TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:1 > DAY:3
		RETURNF "温暖前線遠方"
	ELSEIF TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:0 == DAY:2 && TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_EXTRATROPICAL_LOW:2 > TIME:0
		RETURNF "温暖前線遠方"
	;温暖前線通過時刻以前
	ELSEIF TIME_PASSAGE_WARM_FRONT:0 > DAY:2
		RETURNF "温暖前線接近"
	ELSEIF TIME_PASSAGE_WARM_FRONT:0 == DAY:2 && TIME_PASSAGE_WARM_FRONT:1 > DAY:3
		RETURNF "温暖前線接近"
	ELSEIF TIME_PASSAGE_WARM_FRONT:0 == DAY:2 && TIME_PASSAGE_WARM_FRONT:1 == DAY:3 && TIME_PASSAGE_WARM_FRONT:2 > TIME:0
		RETURNF "温暖前線接近"
	;寒冷前線通過時刻以前
	ELSEIF TIME_PASSAGE_COLD_FRONT:0 > DAY:2
		RETURNF "暖域"
	ELSEIF TIME_PASSAGE_COLD_FRONT:0 == DAY:2 && TIME_PASSAGE_COLD_FRONT:1 > DAY:3
		RETURNF "暖域"
	ELSEIF TIME_PASSAGE_COLD_FRONT:0 == DAY:2 && TIME_PASSAGE_COLD_FRONT:1 == DAY:3 && TIME_PASSAGE_COLD_FRONT:2 > TIME:0
		RETURNF "暖域"
	;温帯低気圧の勢力圏通過時刻以前
	ELSEIF TIME_PASSAGE_EXTRATROPICAL_LOW:0 > DAY:2
		RETURNF "寒冷前線通過"
	ELSEIF TIME_PASSAGE_EXTRATROPICAL_LOW:0 == DAY:2 && TIME_PASSAGE_EXTRATROPICAL_LOW:1 > DAY:3
		RETURNF "寒冷前線通過"
	ELSEIF TIME_PASSAGE_EXTRATROPICAL_LOW:0 == DAY:2 && TIME_PASSAGE_EXTRATROPICAL_LOW:1 == DAY:3 && TIME_PASSAGE_EXTRATROPICAL_LOW:2 > TIME:0
		RETURNF "寒冷前線通過"
	ELSE
		RETURNF "温帯低気圧通過"
	ENDIF
ENDIF

RETURNF "低気圧未発生"

;-------------------------------------------------
;積雲/積乱雲の位置判定
;-------------------------------------------------
@GET_LOCATION_CUMULUS
#FUNCTIONS

IF CAN_CUMULUS:0 && CAN_CUMULUS:1
	IF TIME_ENTER_TERRITORY_CUMULUS > TIME:0
		RETURNF "積乱雲視認"
	ELSEIF TIME_CLOSEST_CUMULUS > TIME:0
		RETURNF "積乱雲接近"
	ELSEIF TIME_PASSAGE_CUMULUS > TIME:0
		RETURNF "積乱雲直下"
	ELSE
		RETURNF "積乱雲通過"
	ENDIF
ELSEIF CAN_CUMULUS:0
	RETURNF "積乱雲遠方"
ENDIF

RETURNF "積乱雲未発生"

;-------------------------------------------------
;台風の襲来判定
;-------------------------------------------------
@GET_LOCATION_AREA_TYPHOON
#FUNCTION
#DIMS 低気圧位置

低気圧位置 = %GET_LOCATION_LOW()%

SIF 低気圧位置 == "台風接近強風域" || 低気圧位置 == "台風接近暴風域" || 低気圧位置 == "台風最接近" || 低気圧位置 == "台風通過暴風域" || 低気圧位置 == "台風通過強風域"
	RETURNF 1

RETURNF 0

;-------------------------------------------------
;線状降水帯の発生処理
;-------------------------------------------------
@GENERATE_LINER_RAINBAND(発生季節 = -1, 発生日時 = -1, 発生時間 = 0)
#DIM 発生季節
#DIM 発生日時
#DIM 発生時間
#DIM 継続時間
#DIM 到達時間

SIF 発生季節 == -1
	発生季節 = DAY:2
SIF 発生日時 == -1
	発生日時 = DAY:3

;線状降水帯の勢力決定
IS_LINER_RAINBAND:0 = 1
IF RAND:5 == 0
	IS_LINER_RAINBAND:1 = 2
	継続時間 = 420 +  RAND:300
ELSE
	IS_LINER_RAINBAND:1 = 1
	継続時間 = 180 + RAND:180
ENDIF

;線状降水帯の勢力圏突入時刻
到達時間 = RAND:60
CALL CALCULATE_ADD_TIME(発生季節, 発生日時, 発生時間, 到達時間)
TIME_ENTER_TERRITORY_LINER_RAINBAND:0 = RESULT:0
TIME_ENTER_TERRITORY_LINER_RAINBAND:1 = RESULT:1
TIME_ENTER_TERRITORY_LINER_RAINBAND:2 = RESULT:2

;線状降水帯の通過時刻
CALL CALCULATE_ADD_TIME(発生季節, 発生日時, 発生時間, 到達時間 + 継続時間)
TIME_PASSAGE_LINER_RAINBAND:0 = RESULT:0
TIME_PASSAGE_LINER_RAINBAND:1 = RESULT:1
TIME_PASSAGE_LINER_RAINBAND:2 = RESULT:2

;-------------------------------------------------
;線状降水帯の襲来判定
;-------------------------------------------------
@GET_LOCATION_LINER_RAINBAND
#FUNCTIONS
IF IS_LINER_RAINBAND:0 >= 1
	;線状降水帯の勢力圏突入時刻以前
	IF TIME_ENTER_TERRITORY_LINER_RAINBAND:0 > DAY:2
		RETURNF "線状降水帯遠方"
	ELSEIF TIME_ENTER_TERRITORY_LINER_RAINBAND:0 == DAY:2 && TIME_ENTER_TERRITORY_LINER_RAINBAND:1 > DAY:3
		RETURNF "線状降水帯遠方"
	ELSEIF TIME_ENTER_TERRITORY_LINER_RAINBAND:0 == DAY:2 && TIME_ENTER_TERRITORY_LINER_RAINBAND:1 == DAY:3 && TIME_ENTER_TERRITORY_LINER_RAINBAND:2 > TIME:0
		RETURNF "線状降水帯遠方"
	;線状降水帯の通過時刻以前
	ELSEIF TIME_PASSAGE_LINER_RAINBAND:0 > DAY:2
		RETURNF "線状降水帯勢力圏"
	ELSEIF TIME_PASSAGE_LINER_RAINBAND:0 == DAY:2 && TIME_PASSAGE_LINER_RAINBAND:1 > DAY:3
		RETURNF "線状降水帯勢力圏"
	ELSEIF TIME_PASSAGE_LINER_RAINBAND:0 == DAY:2 && TIME_PASSAGE_LINER_RAINBAND:1 == DAY:3 && TIME_PASSAGE_LINER_RAINBAND:2 > TIME:0
		RETURNF "線状降水帯勢力圏"
	ELSE
		RETURNF "線状降水帯通過"
	ENDIF
ELSE
	RETURNF "線状降水帯未発生"
ENDIF

;-------------------------------------------------
;外の世界で発令されている気象警報・注意報を取得
;-------------------------------------------------
;大雨
@GET_WEATHER_WARNING_HEAVY_RAIN
#FUNCTIONS
#DIMS 低気圧位置
#DIMS 線状降水帯位置
#DIMS 積乱雲位置

低気圧位置 = %GET_LOCATION_LOW()%
線状降水帯位置 = %GET_LOCATION_LINER_RAINBAND()%
積乱雲位置 = %GET_LOCATION_CUMULUS()%

IF CONTINUOUS_RAINFALL >= 15
	RETURNF "大雨特別警報"
ELSEIF 線状降水帯位置 == "線状降水帯勢力圏" && IS_LINER_RAINBAND:1 == 2
	RETURNF "大雨特別警報"
ELSEIF IS_TYPHOON:1 >= 5 && IS_TYPHOON:2 == 3 && POWER_WARM_AIR >= 5 && GET_LOCATION_AREA_TYPHOON() == 1
	RETURNF "大雨特別警報"
ELSEIF CONTINUOUS_RAINFALL >= 10
	RETURNF "大雨警報(土砂災害警戒情報)"
ELSEIF 線状降水帯位置 == "線状降水帯勢力圏"
	RETURNF "大雨警報(土砂災害警戒情報)"
ELSEIF 線状降水帯位置 == "線状降水帯遠方" && IS_LINER_RAINBAND:1 == 2 && TIME_ENTER_TERRITORY_LINER_RAINBAND:1 == DAY:3 && TIME_ENTER_TERRITORY_LINER_RAINBAND:2 <= TIME:0 + 180
	RETURNF "大雨警報(土砂災害警戒情報)"
ELSEIF (GET_LOCATION_AREA_TYPHOON() == 1 || 低気圧位置 == "台風勢力圏") && IS_TYPHOON:3 == 1
	RETURNF "大雨警報"
ELSEIF GET_LOCATION_AREA_TYPHOON() == 1
	RETURNF "大雨警報"
ELSEIF CAN_CUMULUS:0 == 5 && (積乱雲位置 == "積乱雲視認" || 積乱雲位置 == "積乱雲接近" || 積乱雲位置 == "積乱雲直下")
	RETURNF "大雨警報"
ELSEIF CAN_CUMULUS:0 == 4 && (積乱雲位置 == "積乱雲接近" || 積乱雲位置 == "積乱雲直下")
	RETURNF "大雨警報"
ELSEIF CONTINUOUS_RAINFALL >= 5
	RETURNF "大雨警報"
ELSEIF 線状降水帯位置 == "線状降水帯遠方" && IS_LINER_RAINBAND:1 == 2 && TIME_ENTER_TERRITORY_LINER_RAINBAND:1 == DAY:3
	RETURNF "大雨警報"
ELSEIF TIME:5 == 14
	RETURNF "大雨警報"
ELSEIF 線状降水帯位置 == "線状降水帯遠方" && TIME_ENTER_TERRITORY_LINER_RAINBAND:1 == DAY:3 && TIME_ENTER_TERRITORY_LINER_RAINBAND:2 <= TIME:0 + 180
	RETURNF "大雨注意報"
ELSEIF GET_LOCATION_AREA_TYPHOON() == 1 || 低気圧位置 == "台風勢力圏"
	RETURNF "大雨注意報"
ELSEIF 低気圧位置 == "寒冷渦接近" && DAY:2 != 4 && POWER_WARM_AIR != 1
	RETURNF "大雨注意報"
ELSEIF CONTINUOUS_RAINFALL >= 1
	RETURNF "大雨注意報"
ELSEIF CAN_CUMULUS:0 == 5 && 積乱雲位置 == "積乱雲遠方"
	RETURNF "大雨注意報"
ELSEIF CAN_CUMULUS:0 == 4 && (積乱雲位置 == "積乱雲視認" || (積乱雲位置 == "積乱雲遠方" && TIME:0 >= 720))
	RETURNF "大雨注意報"
ELSEIF CAN_CUMULUS:0 == 3 && (積乱雲位置 == "積乱雲接近" || 積乱雲位置 == "積乱雲直下")
	RETURNF "大雨注意報"
ELSEIF TIME:5 == 5
	RETURNF "大雨注意報"
ELSE
	RETURNF "大雨注意報未発令"
ENDIF

;大雪
@GET_WEATHER_WARNING_HEAVY_SNOWFALL
#FUNCTIONS
#DIMS 低気圧位置

低気圧位置 = %GET_LOCATION_LOW()%
IF CONTINUOUS_SNOWFALL >= 30
	RETURNF "大雪特別警報"
ELSEIF 低気圧位置 == "二つ玉低気圧接近" || 低気圧位置 == "疑似好天" || 低気圧位置 == "二つ玉低気圧通過中"
	RETURNF "大雪警報"
ELSEIF 低気圧位置 == "日本海低気圧通過中"
	RETURNF "大雪警報"
ELSEIF 低気圧位置 == "寒冷渦接近" && (DAY:2 == 4 || POWER_WARM_AIR == 1) && DAY:2 != 3
	RETURNF "大雪警報"
ELSEIF CONTINUOUS_SNOWFALL >= 15
	RETURNF "大雪警報"
ELSEIF 低気圧位置 == "日本海低気圧接近"
	RETURNF "大雪注意報"
ELSEIF 低気圧位置 == "南岸低気圧接近"
	RETURNF "大雪注意報"
ELSEIF 低気圧位置 == "寒冷渦遠方" && DAY:2 == 4
	RETURNF "大雪注意報"
ELSEIF CONTINUOUS_SNOWFALL >= 5
	RETURNF "大雪注意報"
ELSE
	RETURNF "大雪注意報未発令"
ENDIF

;暴風・暴風雪
@GET_WEATHER_WARNING_STORM
#FUNCTIONS
#DIMS 低気圧位置

低気圧位置 = %GET_LOCATION_LOW()%
IF (低気圧位置 == "疑似好天" || 低気圧位置 == "二つ玉低気圧通過中") && POWER_COLD_AIR >= 4 && POWER_WARM_AIR >= 5
	RETURNF "暴風雪特別警報"
ELSEIF WIND_VELOCITY >= 3 && TIME:5 >= 8 && TIME:5 <= 12
	RETURNF "暴風雪特別警報"
ELSEIF IS_TYPHOON:1 >= 5 && POWER_COLD_AIR == 1 && POWER_WARM_AIR >= 5 && GET_LOCATION_AREA_TYPHOON() == 1
	RETURNF "暴風特別警報"
ELSEIF WIND_VELOCITY >= 3
	RETURNF "暴風特別警報"
ELSEIF 低気圧位置 == "疑似好天" || 低気圧位置 == "二つ玉低気圧通過中"
	RETURNF "暴風雪警報"
ELSEIF 低気圧位置 == "日本海低気圧通過中" && POWER_COLD_AIR >= 4
	RETURNF "暴風雪警報"
ELSEIF (低気圧位置 == "寒冷渦接近" || (低気圧位置 == "寒冷渦遠方" && (TIME_ENTER_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_COLD_LOW:2 <= TIME:0 + 180))) && (DAY:2 == 4 || POWER_WARM_AIR == 1) && DAY:2 != 3
	RETURNF "暴風雪警報"
ELSEIF WIND_VELOCITY >= 2 && TIME:5 >= 8 && TIME:5 <= 12
	RETURNF "暴風雪警報"
ELSEIF GET_LOCATION_AREA_TYPHOON() == 1 && IS_TYPHOON:1 >= 3
	RETURNF "暴風警報"
ELSEIF 低気圧位置 == "寒冷渦接近" || (低気圧位置 == "寒冷渦遠方" && (TIME_ENTER_TERRITORY_COLD_LOW:1 == DAY:3 && TIME_ENTER_TERRITORY_COLD_LOW:2 <= TIME:0 + 180))
	RETURNF "暴風警報"
ELSEIF WIND_VELOCITY >= 2
	RETURNF "暴風警報"
ELSEIF 低気圧位置 == "二つ玉低気圧接近"
	RETURNF "風雪注意報"
ELSEIF 低気圧位置 == "日本海低気圧接近" && POWER_COLD_AIR >= 4
	RETURNF "風雪注意報"
ELSEIF WIND_VELOCITY >= 1 && TIME:5 >= 8 && TIME:5 <= 12
	RETURNF "風雪注意報"
ELSEIF GET_LOCATION_AREA_TYPHOON() == 1
	RETURNF "強風注意報"
ELSEIF (低気圧位置 == "温暖前線接近" || 低気圧位置 == "暖域") && (POWER_WARM_AIR >= 4 || (DAY:2 == 1 && NOW_TERM == 1))
	RETURNF "強風注意報"
ELSEIF WIND_VELOCITY >= 1
	RETURNF "強風注意報"
ELSE
	RETURNF "強風注意報未発令"
ENDIF

;雷・竜巻
@GET_WEATHER_WARNING_LIGHTNING
#FUNCTIONS
#DIMS 低気圧位置
#DIMS 線状降水帯位置
#DIMS 積乱雲位置

低気圧位置 = %GET_LOCATION_LOW()%
線状降水帯位置 = %GET_LOCATION_LINER_RAINBAND()%
積乱雲位置 = %GET_LOCATION_CUMULUS()%

IF CAN_CUMULUS:2 == 2 && (積乱雲位置 == "積乱雲接近" || 積乱雲位置 == "積乱雲直下")
	RETURNF "雷注意報(竜巻注意情報)"
ELSEIF GET_HEAT_THUNDERSTORM() == 1 && GET_FRONTAL_THUNDERSTORM() == 1 && ATMOSPHERIC_INSTABILITY <= -2
	RETURNF "雷注意報(竜巻注意情報)"
ELSEIF DAY:2 == 2 && (IS_COLD_LOW || 低気圧位置 == "台風勢力圏")
	RETURNF "雷注意報"
ELSEIF CAN_CUMULUS:0 == 3 && (積乱雲位置 == "積乱雲接近" || 積乱雲位置 == "積乱雲直下")
	RETURNF "雷注意報"
ELSEIF 線状降水帯位置 == "線状降水帯勢力圏"
	RETURNF "雷注意報"
ELSEIF (DAY:2 == 1 || DAY:2 == 3) && (低気圧位置 == "寒冷前線通過" || 低気圧位置 == "暖域") && POWER_WARM_AIR >= 3 && POWER_COLD_AIR >= 4
	RETURNF "雷注意報"
ELSEIF GET_HEAT_THUNDERSTORM() == 1
	RETURNF "雷注意報"
ELSEIF GET_FRONTAL_THUNDERSTORM() == 1
	RETURNF "雷注意報"
ELSE
	RETURNF "雷注意報未発令"
ENDIF

;低温
@GET_WEATHER_WARNING_COLD
#FUNCTIONS

IF POWER_COLD_AIR == 5 && DAY:2 == 1
	RETURNF "低温注意報"
ELSEIF IS_COLD_CROP_DAMAGE >= 2
	RETURNF "低温注意報"
ELSE
	RETURNF "低温注意報未発令"
ENDIF

;なだれ
@GET_WEATHER_WARNING_AVALANCHE
#FUNCTIONS
#DIMS 暴風情報

暴風情報 = %GET_WEATHER_WARNING_STORM()%

IF POSSIBLITY_AVALANCHE >= 1
	RETURNF "なだれ注意報"
ELSEIF DAY:2 == 1 && NOW_TERM <= 2 && SNOW_COVERAGE + CONTINUOUS_SNOWFALL >= 7
	RETURNF "なだれ注意報"
ELSEIF SNOW_COVERAGE + CONTINUOUS_SNOWFALL >= 10
	RETURNF "なだれ注意報"
ELSEIF SNOW_COVERAGE >= 15 && CONTINUOUS_SNOWFALL >= 6
	RETURNF "なだれ注意報"
ELSEIF SNOW_COVERAGE >= 5 && CONTINUOUS_SNOWFALL >= 5 && 暴風情報 != "強風注意報未発令"
	RETURNF "なだれ注意報"
ELSE
	RETURNF "なだれ注意報未発令"
ENDIF

;早期注意情報（警報級の可能性）
@GET_WEATHER_ADVISORY_probability_subsequent_WARNING
#FUNCTIONS
#DIMS 低気圧位置
#DIMS 線状降水帯位置
#DIMS 積乱雲位置

低気圧位置 = %GET_LOCATION_LOW()%
線状降水帯位置 = %GET_LOCATION_LINER_RAINBAND()%
積乱雲位置 = %GET_LOCATION_CUMULUS()%

IF (線状降水帯位置 == "線状降水帯遠方" || 線状降水帯位置 == "線状降水帯勢力圏") && TIME_ENTER_TERRITORY_LINER_RAINBAND:1 <= DAY:3 +1
	RETURNF "警報級の可能性［高］"
ELSEIF IS_LINER_RAINBAND:1
	RETURNF "警報級の可能性［中］"
ELSEIF 低気圧位置 == "台風遠方" && IS_TYPHOON:3 == 1 && TIME_ENTER_TERRITORY_TYPHOON:0 == DAY:2 && TIME_ENTER_TERRITORY_TYPHOON:1 <= DAY:3 + 2
	RETURNF "警報級の可能性［高］"
ELSEIF 低気圧位置 == "台風遠方" && TIME_ENTER_TERRITORY_TYPHOON:0 == DAY:2 && TIME_ENTER_TERRITORY_TYPHOON:1 <= DAY:3 + 1
	RETURNF "警報級の可能性［中］"
ELSEIF GET_LOCATION_AREA_TYPHOON() == 1 || 低気圧位置 == "台風勢力圏"
	RETURNF "警報級の可能性［高］"
ELSEIF GET_HEAT_THUNDERSTORM() && GET_FRONTAL_THUNDERSTORM()
	RETURNF "警報級の可能性［高］"
ELSEIF IS_COLD_LOW
	RETURNF "警報級の可能性［中］"
ELSEIF CONTINUOUS_RAINFALL >= 3
	RETURNF "警報級の可能性［中］"
ELSEIF (IS_SoJ_LOW == 2 && TIME_ENTER_TERRITORY_SoJ_LOW:1 <= DAY:3 + 1) && 低気圧位置 != "二つ玉低気圧通過" && 低気圧位置 != "日本海低気圧通過"
	RETURNF "警報級の可能性［高］"
ELSEIF IS_SoJ_LOW && 低気圧位置 != "二つ玉低気圧通過" && 低気圧位置 != "日本海低気圧通過"
	RETURNF "警報級の可能性［中］"
ELSE
	RETURNF "早期注意情報未発表"
ENDIF

;-------------------------------------------------
;熱雷発生フラグ判定
;-------------------------------------------------
@GET_HEAT_THUNDERSTORM
#FUNCTION
#DIMS 積乱雲位置
#DIMS 線状降水帯位置
#DIMS 低気圧位置

低気圧位置 = %GET_LOCATION_LOW()%
線状降水帯位置 = %GET_LOCATION_LINER_RAINBAND()%
積乱雲位置 = %GET_LOCATION_CUMULUS()%

IF 線状降水帯位置 == "線状降水帯勢力圏"
	RETURNF 1
ELSEIF 積乱雲位置 == "積乱雲直下"
	IF CAN_CUMULUS:0 == 3 && ATMOSPHERIC_INSTABILITY <= -3
		RETURNF 1
	ELSEIF CAN_CUMULUS:0 >= 4
		RETURNF 1
	ELSE
		RETURNF 0
	ENDIF
ELSEIF 積乱雲位置 == "積乱雲接近"
	IF CAN_CUMULUS:0 == 4 && ATMOSPHERIC_INSTABILITY <= -7
		RETURNF 1
	ELSEIF CAN_CUMULUS:0 >= 5
		RETURNF 1
	ELSE
		RETURNF 0
	ENDIF
ELSEIF IS_TYPHOON:3 == 1 && 低気圧位置 == "台風勢力圏" && ATMOSPHERIC_INSTABILITY <= -1
	RETURNF 1
ELSEIF (IS_RAINY_SEASON1:0 == 1 || IS_RAINY_SEASON2 == 1) && POWER_WARM_AIR >= 4 && ATMOSPHERIC_INSTABILITY <= 0
	RETURNF 1
ELSEIF (DAY:2 == 1 || DAY:2 == 3) && (低気圧位置 == "温暖前線接近" || 低気圧位置 == "寒冷前線通過" || 低気圧位置 == "寒冷渦接近") && POWER_WARM_AIR >= 5 && ATMOSPHERIC_INSTABILITY <= -1
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;-------------------------------------------------
;界雷発生フラグ判定
;-------------------------------------------------
@GET_FRONTAL_THUNDERSTORM
#FUNCTION
#DIMS 低気圧位置

低気圧位置 = %GET_LOCATION_LOW()%

IF (DAY:2 == 1 || DAY:2 == 3) && (低気圧位置 == "寒冷前線通過" || 低気圧位置 == "寒冷渦接近") && POWER_WARM_AIR >= 3 && POWER_COLD_AIR >= 4
	RETURNF 1
ELSEIF IS_RAINY_SEASON1:1 == 1
	RETURNF 1
ELSEIF IS_RAINY_SEASON1:0 == 1 && POWER_COLD_AIR >= 4
	RETURNF 1
ELSEIF (低気圧位置 == "二つ玉低気圧接近" || 低気圧位置 == "二つ玉低気圧通過中") && POWER_WARM_AIR >= 3 && POWER_COLD_AIR >= 3
	RETURNF 1
ELSEIF (低気圧位置 == "日本海低気圧接近" || 低気圧位置 == "日本海低気圧通過中") && POWER_WARM_AIR >= 3 && POWER_COLD_AIR >= 3
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;-------------------------------------------------
;天候が雷であるか
;-------------------------------------------------
@GET_WEATHER_THUNDERSTORM
#FUNCTION

IF (GET_HEAT_THUNDERSTORM() == 1 || GET_FRONTAL_THUNDERSTORM() == 1) && TIME:5 != 1 && (FLAG:異常気象 == 0 || FLAG:異常気象 == 9 || FLAG:異常気象 == 10) && !FORBIDDEN_CHANGE_WEATHER
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

;-------------------------------------------------
;天候システム上の時間帯に応じた名前を返す
;-------------------------------------------------
@GET_NAME_WEATHER_TIMEZOME(ARG = -1)
#FUNCTIONS

SIF ARG == -1
	ARG = TIME

SELECTCASE ARG
	;AM0~3
	CASE 0 TO 179
		RETURNF "未明"
	;AM3~6
	CASE 180 TO 359
		RETURNF "明け方"
	;AM6~9
	CASE 360 TO 539
		RETURNF "朝"
	;AM9~12
	CASE 540 TO 719
		RETURNF "昼前"
	;PM0~3
	CASE 720 TO 899
		RETURNF "昼過ぎ"
	;PM3~6
	CASE 900 TO 1079
		RETURNF "夕方"
	;PM6~9
	CASE 1080 TO 1259
		RETURNF "夜のはじめ頃"
	;PM9~12
	CASE IS >= 1260
		RETURNF "夜遅く"
	CASEELSE
		RETURNF "時間帯エラー"
ENDSELECT

;-------------------------------------------------
;台風接近時・猛吹雪時にFLAG:異常気象を設定する
;-------------------------------------------------
@SET_ABNORMAL_WEATHER

IF GET_LOCATION_AREA_TYPHOON() == 1
	FLAG:異常気象 = 9
ELSEIF TIME:5 >= 8 && TIME:5 <= 13 && GET_HEAT_THUNDERSTORM() == 0 && GET_FRONTAL_THUNDERSTORM() == 0 && WIND_VELOCITY >= 2
	FLAG:異常気象 = 10
ELSE
	FLAG:異常気象 = 0
ENDIF

;-------------------------------------------------
;時刻・天候に応じて背景色を変更
;2022/11/23改造
;	・設定すべき背景色と現在背景色を比較し、同じ色なら変更を飛ばす処理(@SET_MAP_WEATHER_BGCOLOR_NEW)
;	・背景色変更処理の前にREDRAW 1をセットし、関数終了後に戻す処理
;	・USE_NEWに0をセットすることで旧処理に戻せる
;2023/01/01改変
;	・旧関数の互換処理を削除、描画制御と背景色比較処理のみに変更
;-------------------------------------------------
@SET_MAP_WEATHER_BGCOLOR
#DIM CURRED		;CURRENT REDRAW。CURRENTREDRAWを保存
#DIM NEXTCOLOR
#DIMS 低気圧位置
#DIMS 積乱雲位置

SIF FLAG:時間停止 || !FLAG:背景色推移
	RETURN
CURRED = CURRENTREDRAW()
REDRAW 0

低気圧位置 = %GET_LOCATION_LOW()%
積乱雲位置 = %GET_LOCATION_CUMULUS()%
SELECTCASE TIME:0
	;AM4~6　早朝
	CASE 240 TO 359
		SELECTCASE TIME:5
			CASE 6, 7, 11
				NEXTCOLOR = C_MAP_霧_夜
			CASE 8, 9, 10, 12
				NEXTCOLOR = C_MAP_雪_夜
			CASEELSE
				NEXTCOLOR = C_MAP_晴天_早朝
		ENDSELECT

	;AM6~8　正午前
	CASE 360 TO 479
		SELECTCASE TIME:5
			CASE IS <= 3
				IF 低気圧位置 == "台風勢力圏"
					NEXTCOLOR = C_MAP_夕焼け_台風
				ELSEIF (低気圧位置 == "寒冷渦接近" && DAY:2 != 2) || (IS_COLD_LOW && DAY:2 == 2) || 低気圧位置 == "二つ玉低気圧接近" || 低気圧位置 == "日本海低気圧接近" || 低気圧位置 == "南岸低気圧接近" || 低気圧位置 == "温暖前線接近"
					NEXTCOLOR = C_MAP_夕焼け_低気圧
				ELSE
					NEXTCOLOR = C_MAP_晴天_朝
				ENDIF
			CASE 6, 7, 11
				NEXTCOLOR = C_MAP_霧_昼
			CASE 4, 5, 13, 14, 15
				NEXTCOLOR = C_MAP_雨_昼
			CASE 8, 9, 10, 12
				NEXTCOLOR = C_MAP_雪_昼
			CASEELSE
				NEXTCOLOR = C_MAP_晴天_朝
		ENDSELECT

	;AM8~12　正午前
	CASE 480 TO 719
		SELECTCASE TIME:5
			CASE 0, 1, 2
				NEXTCOLOR = C_MAP_晴天_朝
			CASE 3
				NEXTCOLOR = C_MAP_陰天_昼
			CASE 6, 7, 11
				NEXTCOLOR = C_MAP_霧_昼
			CASE 4, 5, 13, 14, 15
				NEXTCOLOR = C_MAP_雨_昼
			CASE 8, 9, 10, 12
				NEXTCOLOR = C_MAP_雪_昼
			CASEELSE
				NEXTCOLOR = C_MAP_晴天_朝
		ENDSELECT

	;PM12~6　昼
	CASE 720 TO 1079
		SELECTCASE 積乱雲位置
			CASE "積乱雲接近", "積乱雲直下"
				SELECTCASE CAN_CUMULUS:0
				CASE 3, 4, 5
					NEXTCOLOR = C_MAP_積乱雲_昼
				CASEELSE
					NEXTCOLOR = C_MAP_陰天_昼
				ENDSELECT
			CASEELSE
				SELECTCASE TIME:5
					CASE 0, 1
						NEXTCOLOR = C_MAP_晴天_昼
					CASE 2
						NEXTCOLOR = C_MAP_多雲_昼
					CASE 3
						NEXTCOLOR = C_MAP_陰天_昼
					CASE 6, 7, 11
						NEXTCOLOR = C_MAP_霧_昼
					CASE 4, 5, 13, 14, 15
						NEXTCOLOR = C_MAP_雨_昼
					CASE 8, 9, 10, 12
						NEXTCOLOR = C_MAP_雪_昼
					CASEELSE
						NEXTCOLOR = C_MAP_晴天_昼
				ENDSELECT
		ENDSELECT

	;PM6~8　夕
	CASE 1080 TO 1199
		SELECTCASE TIME:5
			CASE IS <= 3
				IF 低気圧位置 == "台風勢力圏"
					NEXTCOLOR = C_MAP_夕焼け_台風
				ELSEIF 低気圧位置 == "寒冷渦接近" || IS_COLD_LOW || 低気圧位置 == "二つ玉低気圧接近" || 低気圧位置 == "日本海低気圧接近" || 低気圧位置 == "南岸低気圧接近" || 低気圧位置 == "温暖前線接近"
					NEXTCOLOR = C_MAP_夕焼け_低気圧
				ELSE
					NEXTCOLOR = C_MAP_夕焼け_通常
				ENDIF
			CASE 6, 7, 11
				NEXTCOLOR = C_MAP_霧_昼
			CASE 4, 5, 13, 14, 15
				NEXTCOLOR = C_MAP_雨_昼
			CASE 8, 9, 10, 12
				NEXTCOLOR = C_MAP_雪_昼
			CASEELSE
				NEXTCOLOR = C_MAP_夕焼け_通常
		ENDSELECT

	;PM8~AM4　夜・深夜
	CASE 0 TO 239, IS >= 1200
		SELECTCASE TIME:5
			CASE 0, 1, 2
				NEXTCOLOR = C_MAP_晴天_夜
			CASE 6, 7, 11
				NEXTCOLOR = C_MAP_霧_夜
			CASE 3, 4, 5, 13, 14, 15
				NEXTCOLOR = C_MAP_陰天_夜
			CASE 8, 9, 10, 12
				NEXTCOLOR = C_MAP_雪_夜
			CASEELSE
				NEXTCOLOR = C_MAP_晴天_夜
		ENDSELECT
ENDSELECT

SIF NEXTCOLOR != GETBGCOLOR()
	SETBGCOLOR NEXTCOLOR
REDRAW CURRED

;-------------------------------------------------
;現在の気温
;基礎気温に天候傾向・寒気・暖気・場所に応じた補正を加えて現在の気温を算定する
;-------------------------------------------------
@GET_現在気温
#FUNCTION
#DIM 基礎気温
#DIM HOUR
#DIM 現在マップ
#DIM 現在お出かけマップ
#DIM 高度補正
#DIM 気流補正
#DIM 建造物補正
#DIM 日射補正
#DIM 現在場所
#DIM 補正温度

HOUR = TIME:0 / 60

;現在の基礎気温を取得
SELECTCASE DAY:2
	CASE 1
		SELECTCASE NOW_TERM
			CASE 1
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_春_1T_0時
					CASE 1
						基礎気温 = 気温_春_1T_1時
					CASE 2
						基礎気温 = 気温_春_1T_2時
					CASE 3
						基礎気温 = 気温_春_1T_3時
					CASE 4
						基礎気温 = 気温_春_1T_4時
					CASE 5
						基礎気温 = 気温_春_1T_5時
					CASE 6
						基礎気温 = 気温_春_1T_6時
					CASE 7
						基礎気温 = 気温_春_1T_7時
					CASE 8
						基礎気温 = 気温_春_1T_8時
					CASE 9
						基礎気温 = 気温_春_1T_9時
					CASE 10
						基礎気温 = 気温_春_1T_10時
					CASE 11
						基礎気温 = 気温_春_1T_11時
					CASE 12
						基礎気温 = 気温_春_1T_12時
					CASE 13
						基礎気温 = 気温_春_1T_13時
					CASE 14
						基礎気温 = 気温_春_1T_14時
					CASE 15
						基礎気温 = 気温_春_1T_15時
					CASE 16
						基礎気温 = 気温_春_1T_16時
					CASE 17
						基礎気温 = 気温_春_1T_17時
					CASE 18
						基礎気温 = 気温_春_1T_18時
					CASE 19
						基礎気温 = 気温_春_1T_19時
					CASE 20
						基礎気温 = 気温_春_1T_20時
					CASE 21
						基礎気温 = 気温_春_1T_21時
					CASE 22
						基礎気温 = 気温_春_1T_22時
					CASE 23
						基礎気温 = 気温_春_1T_23時
				ENDSELECT
			CASE 2
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_春_2T_0時
					CASE 1
						基礎気温 = 気温_春_2T_1時
					CASE 2
						基礎気温 = 気温_春_2T_2時
					CASE 3
						基礎気温 = 気温_春_2T_3時
					CASE 4
						基礎気温 = 気温_春_2T_4時
					CASE 5
						基礎気温 = 気温_春_2T_5時
					CASE 6
						基礎気温 = 気温_春_2T_6時
					CASE 7
						基礎気温 = 気温_春_2T_7時
					CASE 8
						基礎気温 = 気温_春_2T_8時
					CASE 9
						基礎気温 = 気温_春_2T_9時
					CASE 10
						基礎気温 = 気温_春_2T_10時
					CASE 11
						基礎気温 = 気温_春_2T_11時
					CASE 12
						基礎気温 = 気温_春_2T_12時
					CASE 13
						基礎気温 = 気温_春_2T_13時
					CASE 14
						基礎気温 = 気温_春_2T_14時
					CASE 15
						基礎気温 = 気温_春_2T_15時
					CASE 16
						基礎気温 = 気温_春_2T_16時
					CASE 17
						基礎気温 = 気温_春_2T_17時
					CASE 18
						基礎気温 = 気温_春_2T_18時
					CASE 19
						基礎気温 = 気温_春_2T_19時
					CASE 20
						基礎気温 = 気温_春_2T_20時
					CASE 21
						基礎気温 = 気温_春_2T_21時
					CASE 22
						基礎気温 = 気温_春_2T_22時
					CASE 23
						基礎気温 = 気温_春_2T_23時
				ENDSELECT
			CASE 3
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_春_3T_0時
					CASE 1
						基礎気温 = 気温_春_3T_1時
					CASE 2
						基礎気温 = 気温_春_3T_2時
					CASE 3
						基礎気温 = 気温_春_3T_3時
					CASE 4
						基礎気温 = 気温_春_3T_4時
					CASE 5
						基礎気温 = 気温_春_3T_5時
					CASE 6
						基礎気温 = 気温_春_3T_6時
					CASE 7
						基礎気温 = 気温_春_3T_7時
					CASE 8
						基礎気温 = 気温_春_3T_8時
					CASE 9
						基礎気温 = 気温_春_3T_9時
					CASE 10
						基礎気温 = 気温_春_3T_10時
					CASE 11
						基礎気温 = 気温_春_3T_11時
					CASE 12
						基礎気温 = 気温_春_3T_12時
					CASE 13
						基礎気温 = 気温_春_3T_13時
					CASE 14
						基礎気温 = 気温_春_3T_14時
					CASE 15
						基礎気温 = 気温_春_3T_15時
					CASE 16
						基礎気温 = 気温_春_3T_16時
					CASE 17
						基礎気温 = 気温_春_3T_17時
					CASE 18
						基礎気温 = 気温_春_3T_18時
					CASE 19
						基礎気温 = 気温_春_3T_19時
					CASE 20
						基礎気温 = 気温_春_3T_20時
					CASE 21
						基礎気温 = 気温_春_3T_21時
					CASE 22
						基礎気温 = 気温_春_3T_22時
					CASE 23
						基礎気温 = 気温_春_3T_23時
				ENDSELECT
			CASE 4
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_春_4T_0時
					CASE 1
						基礎気温 = 気温_春_4T_1時
					CASE 2
						基礎気温 = 気温_春_4T_2時
					CASE 3
						基礎気温 = 気温_春_4T_3時
					CASE 4
						基礎気温 = 気温_春_4T_4時
					CASE 5
						基礎気温 = 気温_春_4T_5時
					CASE 6
						基礎気温 = 気温_春_4T_6時
					CASE 7
						基礎気温 = 気温_春_4T_7時
					CASE 8
						基礎気温 = 気温_春_4T_8時
					CASE 9
						基礎気温 = 気温_春_4T_9時
					CASE 10
						基礎気温 = 気温_春_4T_10時
					CASE 11
						基礎気温 = 気温_春_4T_11時
					CASE 12
						基礎気温 = 気温_春_4T_12時
					CASE 13
						基礎気温 = 気温_春_4T_13時
					CASE 14
						基礎気温 = 気温_春_4T_14時
					CASE 15
						基礎気温 = 気温_春_4T_15時
					CASE 16
						基礎気温 = 気温_春_4T_16時
					CASE 17
						基礎気温 = 気温_春_4T_17時
					CASE 18
						基礎気温 = 気温_春_4T_18時
					CASE 19
						基礎気温 = 気温_春_4T_19時
					CASE 20
						基礎気温 = 気温_春_4T_20時
					CASE 21
						基礎気温 = 気温_春_4T_21時
					CASE 22
						基礎気温 = 気温_春_4T_22時
					CASE 23
						基礎気温 = 気温_春_4T_23時
				ENDSELECT
			CASE 5
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_春_5T_0時
					CASE 1
						基礎気温 = 気温_春_5T_1時
					CASE 2
						基礎気温 = 気温_春_5T_2時
					CASE 3
						基礎気温 = 気温_春_5T_3時
					CASE 4
						基礎気温 = 気温_春_5T_4時
					CASE 5
						基礎気温 = 気温_春_5T_5時
					CASE 6
						基礎気温 = 気温_春_5T_6時
					CASE 7
						基礎気温 = 気温_春_5T_7時
					CASE 8
						基礎気温 = 気温_春_5T_8時
					CASE 9
						基礎気温 = 気温_春_5T_9時
					CASE 10
						基礎気温 = 気温_春_5T_10時
					CASE 11
						基礎気温 = 気温_春_5T_11時
					CASE 12
						基礎気温 = 気温_春_5T_12時
					CASE 13
						基礎気温 = 気温_春_5T_13時
					CASE 14
						基礎気温 = 気温_春_5T_14時
					CASE 15
						基礎気温 = 気温_春_5T_15時
					CASE 16
						基礎気温 = 気温_春_5T_16時
					CASE 17
						基礎気温 = 気温_春_5T_17時
					CASE 18
						基礎気温 = 気温_春_5T_18時
					CASE 19
						基礎気温 = 気温_春_5T_19時
					CASE 20
						基礎気温 = 気温_春_5T_20時
					CASE 21
						基礎気温 = 気温_春_5T_21時
					CASE 22
						基礎気温 = 気温_春_5T_22時
					CASE 23
						基礎気温 = 気温_春_5T_23時
				ENDSELECT
			CASE 6
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_春_6T_0時
					CASE 1
						基礎気温 = 気温_春_6T_1時
					CASE 2
						基礎気温 = 気温_春_6T_2時
					CASE 3
						基礎気温 = 気温_春_6T_3時
					CASE 4
						基礎気温 = 気温_春_6T_4時
					CASE 5
						基礎気温 = 気温_春_6T_5時
					CASE 6
						基礎気温 = 気温_春_6T_6時
					CASE 7
						基礎気温 = 気温_春_6T_7時
					CASE 8
						基礎気温 = 気温_春_6T_8時
					CASE 9
						基礎気温 = 気温_春_6T_9時
					CASE 10
						基礎気温 = 気温_春_6T_10時
					CASE 11
						基礎気温 = 気温_春_6T_11時
					CASE 12
						基礎気温 = 気温_春_6T_12時
					CASE 13
						基礎気温 = 気温_春_6T_13時
					CASE 14
						基礎気温 = 気温_春_6T_14時
					CASE 15
						基礎気温 = 気温_春_6T_15時
					CASE 16
						基礎気温 = 気温_春_6T_16時
					CASE 17
						基礎気温 = 気温_春_6T_17時
					CASE 18
						基礎気温 = 気温_春_6T_18時
					CASE 19
						基礎気温 = 気温_春_6T_19時
					CASE 20
						基礎気温 = 気温_春_6T_20時
					CASE 21
						基礎気温 = 気温_春_6T_21時
					CASE 22
						基礎気温 = 気温_春_6T_22時
					CASE 23
						基礎気温 = 気温_春_6T_23時
				ENDSELECT
		ENDSELECT
	CASE 2
		SELECTCASE NOW_TERM
			CASE 1
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_夏_1T_0時
					CASE 1
						基礎気温 = 気温_夏_1T_1時
					CASE 2
						基礎気温 = 気温_夏_1T_2時
					CASE 3
						基礎気温 = 気温_夏_1T_3時
					CASE 4
						基礎気温 = 気温_夏_1T_4時
					CASE 5
						基礎気温 = 気温_夏_1T_5時
					CASE 6
						基礎気温 = 気温_夏_1T_6時
					CASE 7
						基礎気温 = 気温_夏_1T_7時
					CASE 8
						基礎気温 = 気温_夏_1T_8時
					CASE 9
						基礎気温 = 気温_夏_1T_9時
					CASE 10
						基礎気温 = 気温_夏_1T_10時
					CASE 11
						基礎気温 = 気温_夏_1T_11時
					CASE 12
						基礎気温 = 気温_夏_1T_12時
					CASE 13
						基礎気温 = 気温_夏_1T_13時
					CASE 14
						基礎気温 = 気温_夏_1T_14時
					CASE 15
						基礎気温 = 気温_夏_1T_15時
					CASE 16
						基礎気温 = 気温_夏_1T_16時
					CASE 17
						基礎気温 = 気温_夏_1T_17時
					CASE 18
						基礎気温 = 気温_夏_1T_18時
					CASE 19
						基礎気温 = 気温_夏_1T_19時
					CASE 20
						基礎気温 = 気温_夏_1T_20時
					CASE 21
						基礎気温 = 気温_夏_1T_21時
					CASE 22
						基礎気温 = 気温_夏_1T_22時
					CASE 23
						基礎気温 = 気温_夏_1T_23時
				ENDSELECT
			CASE 2
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_夏_2T_0時
					CASE 1
						基礎気温 = 気温_夏_2T_1時
					CASE 2
						基礎気温 = 気温_夏_2T_2時
					CASE 3
						基礎気温 = 気温_夏_2T_3時
					CASE 4
						基礎気温 = 気温_夏_2T_4時
					CASE 5
						基礎気温 = 気温_夏_2T_5時
					CASE 6
						基礎気温 = 気温_夏_2T_6時
					CASE 7
						基礎気温 = 気温_夏_2T_7時
					CASE 8
						基礎気温 = 気温_夏_2T_8時
					CASE 9
						基礎気温 = 気温_夏_2T_9時
					CASE 10
						基礎気温 = 気温_夏_2T_10時
					CASE 11
						基礎気温 = 気温_夏_2T_11時
					CASE 12
						基礎気温 = 気温_夏_2T_12時
					CASE 13
						基礎気温 = 気温_夏_2T_13時
					CASE 14
						基礎気温 = 気温_夏_2T_14時
					CASE 15
						基礎気温 = 気温_夏_2T_15時
					CASE 16
						基礎気温 = 気温_夏_2T_16時
					CASE 17
						基礎気温 = 気温_夏_2T_17時
					CASE 18
						基礎気温 = 気温_夏_2T_18時
					CASE 19
						基礎気温 = 気温_夏_2T_19時
					CASE 20
						基礎気温 = 気温_夏_2T_20時
					CASE 21
						基礎気温 = 気温_夏_2T_21時
					CASE 22
						基礎気温 = 気温_夏_2T_22時
					CASE 23
						基礎気温 = 気温_夏_2T_23時
				ENDSELECT
			CASE 3
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_夏_3T_0時
					CASE 1
						基礎気温 = 気温_夏_3T_1時
					CASE 2
						基礎気温 = 気温_夏_3T_2時
					CASE 3
						基礎気温 = 気温_夏_3T_3時
					CASE 4
						基礎気温 = 気温_夏_3T_4時
					CASE 5
						基礎気温 = 気温_夏_3T_5時
					CASE 6
						基礎気温 = 気温_夏_3T_6時
					CASE 7
						基礎気温 = 気温_夏_3T_7時
					CASE 8
						基礎気温 = 気温_夏_3T_8時
					CASE 9
						基礎気温 = 気温_夏_3T_9時
					CASE 10
						基礎気温 = 気温_夏_3T_10時
					CASE 11
						基礎気温 = 気温_夏_3T_11時
					CASE 12
						基礎気温 = 気温_夏_3T_12時
					CASE 13
						基礎気温 = 気温_夏_3T_13時
					CASE 14
						基礎気温 = 気温_夏_3T_14時
					CASE 15
						基礎気温 = 気温_夏_3T_15時
					CASE 16
						基礎気温 = 気温_夏_3T_16時
					CASE 17
						基礎気温 = 気温_夏_3T_17時
					CASE 18
						基礎気温 = 気温_夏_3T_18時
					CASE 19
						基礎気温 = 気温_夏_3T_19時
					CASE 20
						基礎気温 = 気温_夏_3T_20時
					CASE 21
						基礎気温 = 気温_夏_3T_21時
					CASE 22
						基礎気温 = 気温_夏_3T_22時
					CASE 23
						基礎気温 = 気温_夏_3T_23時
				ENDSELECT
			CASE 4
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_夏_4T_0時
					CASE 1
						基礎気温 = 気温_夏_4T_1時
					CASE 2
						基礎気温 = 気温_夏_4T_2時
					CASE 3
						基礎気温 = 気温_夏_4T_3時
					CASE 4
						基礎気温 = 気温_夏_4T_4時
					CASE 5
						基礎気温 = 気温_夏_4T_5時
					CASE 6
						基礎気温 = 気温_夏_4T_6時
					CASE 7
						基礎気温 = 気温_夏_4T_7時
					CASE 8
						基礎気温 = 気温_夏_4T_8時
					CASE 9
						基礎気温 = 気温_夏_4T_9時
					CASE 10
						基礎気温 = 気温_夏_4T_10時
					CASE 11
						基礎気温 = 気温_夏_4T_11時
					CASE 12
						基礎気温 = 気温_夏_4T_12時
					CASE 13
						基礎気温 = 気温_夏_4T_13時
					CASE 14
						基礎気温 = 気温_夏_4T_14時
					CASE 15
						基礎気温 = 気温_夏_4T_15時
					CASE 16
						基礎気温 = 気温_夏_4T_16時
					CASE 17
						基礎気温 = 気温_夏_4T_17時
					CASE 18
						基礎気温 = 気温_夏_4T_18時
					CASE 19
						基礎気温 = 気温_夏_4T_19時
					CASE 20
						基礎気温 = 気温_夏_4T_20時
					CASE 21
						基礎気温 = 気温_夏_4T_21時
					CASE 22
						基礎気温 = 気温_夏_4T_22時
					CASE 23
						基礎気温 = 気温_夏_4T_23時
				ENDSELECT
			CASE 5
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_夏_5T_0時
					CASE 1
						基礎気温 = 気温_夏_5T_1時
					CASE 2
						基礎気温 = 気温_夏_5T_2時
					CASE 3
						基礎気温 = 気温_夏_5T_3時
					CASE 4
						基礎気温 = 気温_夏_5T_4時
					CASE 5
						基礎気温 = 気温_夏_5T_5時
					CASE 6
						基礎気温 = 気温_夏_5T_6時
					CASE 7
						基礎気温 = 気温_夏_5T_7時
					CASE 8
						基礎気温 = 気温_夏_5T_8時
					CASE 9
						基礎気温 = 気温_夏_5T_9時
					CASE 10
						基礎気温 = 気温_夏_5T_10時
					CASE 11
						基礎気温 = 気温_夏_5T_11時
					CASE 12
						基礎気温 = 気温_夏_5T_12時
					CASE 13
						基礎気温 = 気温_夏_5T_13時
					CASE 14
						基礎気温 = 気温_夏_5T_14時
					CASE 15
						基礎気温 = 気温_夏_5T_15時
					CASE 16
						基礎気温 = 気温_夏_5T_16時
					CASE 17
						基礎気温 = 気温_夏_5T_17時
					CASE 18
						基礎気温 = 気温_夏_5T_18時
					CASE 19
						基礎気温 = 気温_夏_5T_19時
					CASE 20
						基礎気温 = 気温_夏_5T_20時
					CASE 21
						基礎気温 = 気温_夏_5T_21時
					CASE 22
						基礎気温 = 気温_夏_5T_22時
					CASE 23
						基礎気温 = 気温_夏_5T_23時
				ENDSELECT
			CASE 6
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_夏_6T_0時
					CASE 1
						基礎気温 = 気温_夏_6T_1時
					CASE 2
						基礎気温 = 気温_夏_6T_2時
					CASE 3
						基礎気温 = 気温_夏_6T_3時
					CASE 4
						基礎気温 = 気温_夏_6T_4時
					CASE 5
						基礎気温 = 気温_夏_6T_5時
					CASE 6
						基礎気温 = 気温_夏_6T_6時
					CASE 7
						基礎気温 = 気温_夏_6T_7時
					CASE 8
						基礎気温 = 気温_夏_6T_8時
					CASE 9
						基礎気温 = 気温_夏_6T_9時
					CASE 10
						基礎気温 = 気温_夏_6T_10時
					CASE 11
						基礎気温 = 気温_夏_6T_11時
					CASE 12
						基礎気温 = 気温_夏_6T_12時
					CASE 13
						基礎気温 = 気温_夏_6T_13時
					CASE 14
						基礎気温 = 気温_夏_6T_14時
					CASE 15
						基礎気温 = 気温_夏_6T_15時
					CASE 16
						基礎気温 = 気温_夏_6T_16時
					CASE 17
						基礎気温 = 気温_夏_6T_17時
					CASE 18
						基礎気温 = 気温_夏_6T_18時
					CASE 19
						基礎気温 = 気温_夏_6T_19時
					CASE 20
						基礎気温 = 気温_夏_6T_20時
					CASE 21
						基礎気温 = 気温_夏_6T_21時
					CASE 22
						基礎気温 = 気温_夏_6T_22時
					CASE 23
						基礎気温 = 気温_夏_6T_23時
				ENDSELECT
		ENDSELECT
	CASE 3
		SELECTCASE NOW_TERM
			CASE 1
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_秋_1T_0時
					CASE 1
						基礎気温 = 気温_秋_1T_1時
					CASE 2
						基礎気温 = 気温_秋_1T_2時
					CASE 3
						基礎気温 = 気温_秋_1T_3時
					CASE 4
						基礎気温 = 気温_秋_1T_4時
					CASE 5
						基礎気温 = 気温_秋_1T_5時
					CASE 6
						基礎気温 = 気温_秋_1T_6時
					CASE 7
						基礎気温 = 気温_秋_1T_7時
					CASE 8
						基礎気温 = 気温_秋_1T_8時
					CASE 9
						基礎気温 = 気温_秋_1T_9時
					CASE 10
						基礎気温 = 気温_秋_1T_10時
					CASE 11
						基礎気温 = 気温_秋_1T_11時
					CASE 12
						基礎気温 = 気温_秋_1T_12時
					CASE 13
						基礎気温 = 気温_秋_1T_13時
					CASE 14
						基礎気温 = 気温_秋_1T_14時
					CASE 15
						基礎気温 = 気温_秋_1T_15時
					CASE 16
						基礎気温 = 気温_秋_1T_16時
					CASE 17
						基礎気温 = 気温_秋_1T_17時
					CASE 18
						基礎気温 = 気温_秋_1T_18時
					CASE 19
						基礎気温 = 気温_秋_1T_19時
					CASE 20
						基礎気温 = 気温_秋_1T_20時
					CASE 21
						基礎気温 = 気温_秋_1T_21時
					CASE 22
						基礎気温 = 気温_秋_1T_22時
					CASE 23
						基礎気温 = 気温_秋_1T_23時
				ENDSELECT
			CASE 2
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_秋_2T_0時
					CASE 1
						基礎気温 = 気温_秋_2T_1時
					CASE 2
						基礎気温 = 気温_秋_2T_2時
					CASE 3
						基礎気温 = 気温_秋_2T_3時
					CASE 4
						基礎気温 = 気温_秋_2T_4時
					CASE 5
						基礎気温 = 気温_秋_2T_5時
					CASE 6
						基礎気温 = 気温_秋_2T_6時
					CASE 7
						基礎気温 = 気温_秋_2T_7時
					CASE 8
						基礎気温 = 気温_秋_2T_8時
					CASE 9
						基礎気温 = 気温_秋_2T_9時
					CASE 10
						基礎気温 = 気温_秋_2T_10時
					CASE 11
						基礎気温 = 気温_秋_2T_11時
					CASE 12
						基礎気温 = 気温_秋_2T_12時
					CASE 13
						基礎気温 = 気温_秋_2T_13時
					CASE 14
						基礎気温 = 気温_秋_2T_14時
					CASE 15
						基礎気温 = 気温_秋_2T_15時
					CASE 16
						基礎気温 = 気温_秋_2T_16時
					CASE 17
						基礎気温 = 気温_秋_2T_17時
					CASE 18
						基礎気温 = 気温_秋_2T_18時
					CASE 19
						基礎気温 = 気温_秋_2T_19時
					CASE 20
						基礎気温 = 気温_秋_2T_20時
					CASE 21
						基礎気温 = 気温_秋_2T_21時
					CASE 22
						基礎気温 = 気温_秋_2T_22時
					CASE 23
						基礎気温 = 気温_秋_2T_23時
				ENDSELECT
			CASE 3
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_秋_3T_0時
					CASE 1
						基礎気温 = 気温_秋_3T_1時
					CASE 2
						基礎気温 = 気温_秋_3T_2時
					CASE 3
						基礎気温 = 気温_秋_3T_3時
					CASE 4
						基礎気温 = 気温_秋_3T_4時
					CASE 5
						基礎気温 = 気温_秋_3T_5時
					CASE 6
						基礎気温 = 気温_秋_3T_6時
					CASE 7
						基礎気温 = 気温_秋_3T_7時
					CASE 8
						基礎気温 = 気温_秋_3T_8時
					CASE 9
						基礎気温 = 気温_秋_3T_9時
					CASE 10
						基礎気温 = 気温_秋_3T_10時
					CASE 11
						基礎気温 = 気温_秋_3T_11時
					CASE 12
						基礎気温 = 気温_秋_3T_12時
					CASE 13
						基礎気温 = 気温_秋_3T_13時
					CASE 14
						基礎気温 = 気温_秋_3T_14時
					CASE 15
						基礎気温 = 気温_秋_3T_15時
					CASE 16
						基礎気温 = 気温_秋_3T_16時
					CASE 17
						基礎気温 = 気温_秋_3T_17時
					CASE 18
						基礎気温 = 気温_秋_3T_18時
					CASE 19
						基礎気温 = 気温_秋_3T_19時
					CASE 20
						基礎気温 = 気温_秋_3T_20時
					CASE 21
						基礎気温 = 気温_秋_3T_21時
					CASE 22
						基礎気温 = 気温_秋_3T_22時
					CASE 23
						基礎気温 = 気温_秋_3T_23時
				ENDSELECT
			CASE 4
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_秋_4T_0時
					CASE 1
						基礎気温 = 気温_秋_4T_1時
					CASE 2
						基礎気温 = 気温_秋_4T_2時
					CASE 3
						基礎気温 = 気温_秋_4T_3時
					CASE 4
						基礎気温 = 気温_秋_4T_4時
					CASE 5
						基礎気温 = 気温_秋_4T_5時
					CASE 6
						基礎気温 = 気温_秋_4T_6時
					CASE 7
						基礎気温 = 気温_秋_4T_7時
					CASE 8
						基礎気温 = 気温_秋_4T_8時
					CASE 9
						基礎気温 = 気温_秋_4T_9時
					CASE 10
						基礎気温 = 気温_秋_4T_10時
					CASE 11
						基礎気温 = 気温_秋_4T_11時
					CASE 12
						基礎気温 = 気温_秋_4T_12時
					CASE 13
						基礎気温 = 気温_秋_4T_13時
					CASE 14
						基礎気温 = 気温_秋_4T_14時
					CASE 15
						基礎気温 = 気温_秋_4T_15時
					CASE 16
						基礎気温 = 気温_秋_4T_16時
					CASE 17
						基礎気温 = 気温_秋_4T_17時
					CASE 18
						基礎気温 = 気温_秋_4T_18時
					CASE 19
						基礎気温 = 気温_秋_4T_19時
					CASE 20
						基礎気温 = 気温_秋_4T_20時
					CASE 21
						基礎気温 = 気温_秋_4T_21時
					CASE 22
						基礎気温 = 気温_秋_4T_22時
					CASE 23
						基礎気温 = 気温_秋_4T_23時
				ENDSELECT
			CASE 5
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_秋_5T_0時
					CASE 1
						基礎気温 = 気温_秋_5T_1時
					CASE 2
						基礎気温 = 気温_秋_5T_2時
					CASE 3
						基礎気温 = 気温_秋_5T_3時
					CASE 4
						基礎気温 = 気温_秋_5T_4時
					CASE 5
						基礎気温 = 気温_秋_5T_5時
					CASE 6
						基礎気温 = 気温_秋_5T_6時
					CASE 7
						基礎気温 = 気温_秋_5T_7時
					CASE 8
						基礎気温 = 気温_秋_5T_8時
					CASE 9
						基礎気温 = 気温_秋_5T_9時
					CASE 10
						基礎気温 = 気温_秋_5T_10時
					CASE 11
						基礎気温 = 気温_秋_5T_11時
					CASE 12
						基礎気温 = 気温_秋_5T_12時
					CASE 13
						基礎気温 = 気温_秋_5T_13時
					CASE 14
						基礎気温 = 気温_秋_5T_14時
					CASE 15
						基礎気温 = 気温_秋_5T_15時
					CASE 16
						基礎気温 = 気温_秋_5T_16時
					CASE 17
						基礎気温 = 気温_秋_5T_17時
					CASE 18
						基礎気温 = 気温_秋_5T_18時
					CASE 19
						基礎気温 = 気温_秋_5T_19時
					CASE 20
						基礎気温 = 気温_秋_5T_20時
					CASE 21
						基礎気温 = 気温_秋_5T_21時
					CASE 22
						基礎気温 = 気温_秋_5T_22時
					CASE 23
						基礎気温 = 気温_秋_5T_23時
				ENDSELECT
			CASE 6
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_秋_6T_0時
					CASE 1
						基礎気温 = 気温_秋_6T_1時
					CASE 2
						基礎気温 = 気温_秋_6T_2時
					CASE 3
						基礎気温 = 気温_秋_6T_3時
					CASE 4
						基礎気温 = 気温_秋_6T_4時
					CASE 5
						基礎気温 = 気温_秋_6T_5時
					CASE 6
						基礎気温 = 気温_秋_6T_6時
					CASE 7
						基礎気温 = 気温_秋_6T_7時
					CASE 8
						基礎気温 = 気温_秋_6T_8時
					CASE 9
						基礎気温 = 気温_秋_6T_9時
					CASE 10
						基礎気温 = 気温_秋_6T_10時
					CASE 11
						基礎気温 = 気温_秋_6T_11時
					CASE 12
						基礎気温 = 気温_秋_6T_12時
					CASE 13
						基礎気温 = 気温_秋_6T_13時
					CASE 14
						基礎気温 = 気温_秋_6T_14時
					CASE 15
						基礎気温 = 気温_秋_6T_15時
					CASE 16
						基礎気温 = 気温_秋_6T_16時
					CASE 17
						基礎気温 = 気温_秋_6T_17時
					CASE 18
						基礎気温 = 気温_秋_6T_18時
					CASE 19
						基礎気温 = 気温_秋_6T_19時
					CASE 20
						基礎気温 = 気温_秋_6T_20時
					CASE 21
						基礎気温 = 気温_秋_6T_21時
					CASE 22
						基礎気温 = 気温_秋_6T_22時
					CASE 23
						基礎気温 = 気温_秋_6T_23時
				ENDSELECT
		ENDSELECT
	CASE 4
		SELECTCASE NOW_TERM
			CASE 1
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_冬_1T_0時
					CASE 1
						基礎気温 = 気温_冬_1T_1時
					CASE 2
						基礎気温 = 気温_冬_1T_2時
					CASE 3
						基礎気温 = 気温_冬_1T_3時
					CASE 4
						基礎気温 = 気温_冬_1T_4時
					CASE 5
						基礎気温 = 気温_冬_1T_5時
					CASE 6
						基礎気温 = 気温_冬_1T_6時
					CASE 7
						基礎気温 = 気温_冬_1T_7時
					CASE 8
						基礎気温 = 気温_冬_1T_8時
					CASE 9
						基礎気温 = 気温_冬_1T_9時
					CASE 10
						基礎気温 = 気温_冬_1T_10時
					CASE 11
						基礎気温 = 気温_冬_1T_11時
					CASE 12
						基礎気温 = 気温_冬_1T_12時
					CASE 13
						基礎気温 = 気温_冬_1T_13時
					CASE 14
						基礎気温 = 気温_冬_1T_14時
					CASE 15
						基礎気温 = 気温_冬_1T_15時
					CASE 16
						基礎気温 = 気温_冬_1T_16時
					CASE 17
						基礎気温 = 気温_冬_1T_17時
					CASE 18
						基礎気温 = 気温_冬_1T_18時
					CASE 19
						基礎気温 = 気温_冬_1T_19時
					CASE 20
						基礎気温 = 気温_冬_1T_20時
					CASE 21
						基礎気温 = 気温_冬_1T_21時
					CASE 22
						基礎気温 = 気温_冬_1T_22時
					CASE 23
						基礎気温 = 気温_冬_1T_23時
				ENDSELECT
			CASE 2
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_冬_2T_0時
					CASE 1
						基礎気温 = 気温_冬_2T_1時
					CASE 2
						基礎気温 = 気温_冬_2T_2時
					CASE 3
						基礎気温 = 気温_冬_2T_3時
					CASE 4
						基礎気温 = 気温_冬_2T_4時
					CASE 5
						基礎気温 = 気温_冬_2T_5時
					CASE 6
						基礎気温 = 気温_冬_2T_6時
					CASE 7
						基礎気温 = 気温_冬_2T_7時
					CASE 8
						基礎気温 = 気温_冬_2T_8時
					CASE 9
						基礎気温 = 気温_冬_2T_9時
					CASE 10
						基礎気温 = 気温_冬_2T_10時
					CASE 11
						基礎気温 = 気温_冬_2T_11時
					CASE 12
						基礎気温 = 気温_冬_2T_12時
					CASE 13
						基礎気温 = 気温_冬_2T_13時
					CASE 14
						基礎気温 = 気温_冬_2T_14時
					CASE 15
						基礎気温 = 気温_冬_2T_15時
					CASE 16
						基礎気温 = 気温_冬_2T_16時
					CASE 17
						基礎気温 = 気温_冬_2T_17時
					CASE 18
						基礎気温 = 気温_冬_2T_18時
					CASE 19
						基礎気温 = 気温_冬_2T_19時
					CASE 20
						基礎気温 = 気温_冬_2T_20時
					CASE 21
						基礎気温 = 気温_冬_2T_21時
					CASE 22
						基礎気温 = 気温_冬_2T_22時
					CASE 23
						基礎気温 = 気温_冬_2T_23時
				ENDSELECT
			CASE 3
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_冬_3T_0時
					CASE 1
						基礎気温 = 気温_冬_3T_1時
					CASE 2
						基礎気温 = 気温_冬_3T_2時
					CASE 3
						基礎気温 = 気温_冬_3T_3時
					CASE 4
						基礎気温 = 気温_冬_3T_4時
					CASE 5
						基礎気温 = 気温_冬_3T_5時
					CASE 6
						基礎気温 = 気温_冬_3T_6時
					CASE 7
						基礎気温 = 気温_冬_3T_7時
					CASE 8
						基礎気温 = 気温_冬_3T_8時
					CASE 9
						基礎気温 = 気温_冬_3T_9時
					CASE 10
						基礎気温 = 気温_冬_3T_10時
					CASE 11
						基礎気温 = 気温_冬_3T_11時
					CASE 12
						基礎気温 = 気温_冬_3T_12時
					CASE 13
						基礎気温 = 気温_冬_3T_13時
					CASE 14
						基礎気温 = 気温_冬_3T_14時
					CASE 15
						基礎気温 = 気温_冬_3T_15時
					CASE 16
						基礎気温 = 気温_冬_3T_16時
					CASE 17
						基礎気温 = 気温_冬_3T_17時
					CASE 18
						基礎気温 = 気温_冬_3T_18時
					CASE 19
						基礎気温 = 気温_冬_3T_19時
					CASE 20
						基礎気温 = 気温_冬_3T_20時
					CASE 21
						基礎気温 = 気温_冬_3T_21時
					CASE 22
						基礎気温 = 気温_冬_3T_22時
					CASE 23
						基礎気温 = 気温_冬_3T_23時
				ENDSELECT
			CASE 4
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_冬_4T_0時
					CASE 1
						基礎気温 = 気温_冬_4T_1時
					CASE 2
						基礎気温 = 気温_冬_4T_2時
					CASE 3
						基礎気温 = 気温_冬_4T_3時
					CASE 4
						基礎気温 = 気温_冬_4T_4時
					CASE 5
						基礎気温 = 気温_冬_4T_5時
					CASE 6
						基礎気温 = 気温_冬_4T_6時
					CASE 7
						基礎気温 = 気温_冬_4T_7時
					CASE 8
						基礎気温 = 気温_冬_4T_8時
					CASE 9
						基礎気温 = 気温_冬_4T_9時
					CASE 10
						基礎気温 = 気温_冬_4T_10時
					CASE 11
						基礎気温 = 気温_冬_4T_11時
					CASE 12
						基礎気温 = 気温_冬_4T_12時
					CASE 13
						基礎気温 = 気温_冬_4T_13時
					CASE 14
						基礎気温 = 気温_冬_4T_14時
					CASE 15
						基礎気温 = 気温_冬_4T_15時
					CASE 16
						基礎気温 = 気温_冬_4T_16時
					CASE 17
						基礎気温 = 気温_冬_4T_17時
					CASE 18
						基礎気温 = 気温_冬_4T_18時
					CASE 19
						基礎気温 = 気温_冬_4T_19時
					CASE 20
						基礎気温 = 気温_冬_4T_20時
					CASE 21
						基礎気温 = 気温_冬_4T_21時
					CASE 22
						基礎気温 = 気温_冬_4T_22時
					CASE 23
						基礎気温 = 気温_冬_4T_23時
				ENDSELECT
			CASE 5
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_冬_5T_0時
					CASE 1
						基礎気温 = 気温_冬_5T_1時
					CASE 2
						基礎気温 = 気温_冬_5T_2時
					CASE 3
						基礎気温 = 気温_冬_5T_3時
					CASE 4
						基礎気温 = 気温_冬_5T_4時
					CASE 5
						基礎気温 = 気温_冬_5T_5時
					CASE 6
						基礎気温 = 気温_冬_5T_6時
					CASE 7
						基礎気温 = 気温_冬_5T_7時
					CASE 8
						基礎気温 = 気温_冬_5T_8時
					CASE 9
						基礎気温 = 気温_冬_5T_9時
					CASE 10
						基礎気温 = 気温_冬_5T_10時
					CASE 11
						基礎気温 = 気温_冬_5T_11時
					CASE 12
						基礎気温 = 気温_冬_5T_12時
					CASE 13
						基礎気温 = 気温_冬_5T_13時
					CASE 14
						基礎気温 = 気温_冬_5T_14時
					CASE 15
						基礎気温 = 気温_冬_5T_15時
					CASE 16
						基礎気温 = 気温_冬_5T_16時
					CASE 17
						基礎気温 = 気温_冬_5T_17時
					CASE 18
						基礎気温 = 気温_冬_5T_18時
					CASE 19
						基礎気温 = 気温_冬_5T_19時
					CASE 20
						基礎気温 = 気温_冬_5T_20時
					CASE 21
						基礎気温 = 気温_冬_5T_21時
					CASE 22
						基礎気温 = 気温_冬_5T_22時
					CASE 23
						基礎気温 = 気温_冬_5T_23時
				ENDSELECT
			CASE 6
				SELECTCASE HOUR
					CASE 0
						基礎気温 = 気温_冬_6T_0時
					CASE 1
						基礎気温 = 気温_冬_6T_1時
					CASE 2
						基礎気温 = 気温_冬_6T_2時
					CASE 3
						基礎気温 = 気温_冬_6T_3時
					CASE 4
						基礎気温 = 気温_冬_6T_4時
					CASE 5
						基礎気温 = 気温_冬_6T_5時
					CASE 6
						基礎気温 = 気温_冬_6T_6時
					CASE 7
						基礎気温 = 気温_冬_6T_7時
					CASE 8
						基礎気温 = 気温_冬_6T_8時
					CASE 9
						基礎気温 = 気温_冬_6T_9時
					CASE 10
						基礎気温 = 気温_冬_6T_10時
					CASE 11
						基礎気温 = 気温_冬_6T_11時
					CASE 12
						基礎気温 = 気温_冬_6T_12時
					CASE 13
						基礎気温 = 気温_冬_6T_13時
					CASE 14
						基礎気温 = 気温_冬_6T_14時
					CASE 15
						基礎気温 = 気温_冬_6T_15時
					CASE 16
						基礎気温 = 気温_冬_6T_16時
					CASE 17
						基礎気温 = 気温_冬_6T_17時
					CASE 18
						基礎気温 = 気温_冬_6T_18時
					CASE 19
						基礎気温 = 気温_冬_6T_19時
					CASE 20
						基礎気温 = 気温_冬_6T_20時
					CASE 21
						基礎気温 = 気温_冬_6T_21時
					CASE 22
						基礎気温 = 気温_冬_6T_22時
					CASE 23
						基礎気温 = 気温_冬_6T_23時
				ENDSELECT
		ENDSELECT
ENDSELECT

;天候傾向によって寒気・暖気による補正方法が変化する
SELECTCASE NOW_WEATHER_CONTROL
	;1 春・秋の天気(基本)
	CASE 1
		気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2
	;2 春・秋の天気(温暖前線接近時)
	CASE 2
		気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2
	;3 春・秋の天気(暖域時)
	CASE 3
		気流補正 = POWER_WARM_AIR * 2
	;4 春・秋の天気(寒冷前線通過時)
	CASE 4
		気流補正 = (0 - POWER_COLD_AIR) * 2
	;5 春・秋の天気(寒冷渦接近時)
	CASE 5
		気流補正 = (0 - POWER_COLD_AIR) * 2
	;6 夏の天気(基本)
	CASE 6
		気流補正 = (POWER_WARM_AIR - 3) * 3
	;7 夏の天気(夕立接近時)
	CASE 7
		SELECTCASE CAN_CUMULUS:0
			CASE 1,2,3
				気流補正 = (POWER_WARM_AIR - 3) * 3 - (POWER_COLD_AIR / 2)
			CASE 4,5
				気流補正 = 0 - POWER_COLD_AIR
		ENDSELECT
	;8 夏の天気(夕立通過後)
	CASE 8
		SELECTCASE CAN_CUMULUS:0
			CASE 1,2,3
				気流補正 = (POWER_WARM_AIR - 3) * 3 - POWER_COLD_AIR
			CASE 4,5
				気流補正 = (0 - POWER_COLD_AIR) * 2
		ENDSELECT
	;9 冬の天気(基本)
	CASE 9
		気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2
	;10 冬の天気(日本海低気圧接近時)
	CASE 10
		気流補正 = POWER_WARM_AIR * 2
	;11 冬の天気(日本海低気圧通過時)
	CASE 11
		気流補正 = (0 - POWER_COLD_AIR) * 2
	;12 冬の天気(南岸低気圧接近時)
	CASE 12
		気流補正 = (0 - POWER_COLD_AIR) * 2
	;13 冬の天気(寒冷渦接近時)
	CASE 13
		気流補正 = (0 - POWER_COLD_AIR) * 2
	;14 梅雨・秋雨の天気(基本)
	CASE 14
		IF POWER_WARM_AIR >= POWER_COLD_AIR
			気流補正 = POWER_WARM_AIR
		ELSE
			気流補正 = 0 - POWER_COLD_AIR
		ENDIF
	;15 梅雨・秋雨(梅雨末期・秋雨+台風接近)・先駆降雨帯発生時の天気
	CASE 15
		気流補正 = POWER_WARM_AIR * 2
	;16 台風接近時の天気(強風域)
	CASE 16
		SELECTCASE DAY:2
			CASE 2
				気流補正 = (POWER_WARM_AIR - 3) * 3 + IS_TYPHOON:1
			CASEELSE
				気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2 + IS_TYPHOON:1
		ENDSELECT
	;21 台風接近時の天気(暴風域・最接近)
	CASE 21
		SELECTCASE DAY:2
			CASE 2
				気流補正 = (POWER_WARM_AIR - 3) * 3 + IS_TYPHOON:1
			CASEELSE
				気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2 + IS_TYPHOON:1
		ENDSELECT
	;17 台風接近時の天気(台風の目)
	CASE 17
		SELECTCASE DAY:2
			CASE 2
				気流補正 = (POWER_WARM_AIR - 3) * 3 + IS_TYPHOON:1
			CASEELSE
				気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2 + IS_TYPHOON:1
		ENDSELECT
	;18 霧の天気
	CASE 18
		SELECTCASE DAY:2
			CASE 2
				気流補正 = (POWER_WARM_AIR - 3) * 3
			CASEELSE
				気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2
		ENDSELECT
	;19 疑似好天
	CASE 19
		気流補正 = (0 - POWER_COLD_AIR) * 15 / 10
	;20 集中豪雨時の天気
	CASE 20
		気流補正 = (POWER_WARM_AIR - POWER_COLD_AIR) * 2
ENDSELECT

現在マップ = GET_MAPID(CFLAG:MASTER:現在位置)
高度補正 = 0
現在お出かけマップ = GET_MAP_REPLACEMENT(CFLAG:MASTER:現在位置)

;マップごとに高度による気温低下の補正値を決定
SELECTCASE 現在マップ
	CASE 0
		高度補正 = 0

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 1
		高度補正 = 3

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 2
		高度補正 = 0

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 3
		高度補正 = 0

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 4
		高度補正 = 0

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 5
		高度補正 = 0

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 6
		高度補正 = 10

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 7
		高度補正 = 6

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
	CASE 8
		IF (MAIN_MAP == 現在マップ && 現在お出かけマップ == 天界) || (MAIN_MAP != 現在マップ && CFLAG:MASTER:現在位置 == 天界)
			高度補正 = 20

			補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
		ELSE
			高度補正 = 12

			補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
		ENDIF
	;灼熱地獄跡は40℃,その他地底は20℃
	CASE 9
		IF (MAIN_MAP == 現在マップ && 現在お出かけマップ == 灼熱地獄跡) || (MAIN_MAP != 現在マップ && CFLAG:MASTER:現在位置 == 灼熱地獄跡)
			補正温度 = 400
		ELSE
			補正温度 = 200
		ENDIF
	CASE 10
		高度補正 = 0

		補正温度 = 基礎気温 + 気流補正 * 10 - 高度補正 * 10
ENDSELECT

;屋内では20℃に近づくように気温が上下する
;屋外では日射がある場合、気温上昇
日射補正 = 0
IF OUTROOF(CFLAG:MASTER:現在位置)
	SELECTCASE TIME:5
		CASE 0,1
			SELECTCASE TIME:0
				CASE 360 TO 599, 960 TO 1079
					日射補正 += 15
				CASE 600 TO 959
					日射補正 += 20
			ENDSELECT

			SELECTCASE DAY:2
				CASE 1,3
					日射補正 += 10
				CASE 2
					日射補正 += 15
				CASE 4
					日射補正 += 10
			ENDSELECT
		CASE 2
			日射補正 += 5
	ENDSELECT
	補正温度 += 日射補正
ELSE
	SELECTCASE 補正温度
		CASE IS <= 250
			建造物補正 = 50

			補正温度 = MIN(200, 補正温度 + 建造物補正)
		CASEELSE
			建造物補正 = -40

			補正温度 = MAX(250, 補正温度 + 建造物補正)
	ENDSELECT
ENDIF

;チルノがいると気温低下
IF CFLAG:MASTER:現在位置 == CFLAG:14:現在位置
	補正温度 -= 100
ENDIF

;風呂では30℃に近づくように気温が上昇する
IF BATHCHECK(CFLAG:MASTER:現在位置) && 補正温度 < 300
	建造物補正 = 100

	補正温度 = MIN(300, 補正温度 + 建造物補正)
ENDIF

;炬燵では25℃に近づくように気温が上昇する
;炬燵は気温10℃未満で出す
IF 炬燵のある場所(CFLAG:MASTER:現在位置) && 補正温度 < 100
	建造物補正 = 100

	補正温度 = MIN(250, 補正温度 + 建造物補正)
ENDIF

RETURNF 補正温度

;-------------------------------------------------
;現在の体感気温
;現在の気温に天気・風力・場所に応じた補正を加えて現在の体感気温を算定する
;-------------------------------------------------
@GET_体感気温
#FUNCTION
#DIM 現在の気温
#DIM 体感気温
#DIM 降水フラグ

現在の気温 = GET_現在気温()
降水フラグ = 0

IF !OUTROOF(CFLAG:MASTER:現在位置)
	RETURNF 現在の気温
ENDIF

体感気温 = 現在の気温

RETURNF 体感気温

repo_name: akadiya/eratw

path: ERB/天候予測システム.ERB

license: unknown