repeat
　　a=書き込み内容 : 冷却--
　　if a=発作 : 冷却=20
　　if a!発作&(冷却<0) : 書き込む
loop