トーク頻度の設定
ssu必須

＃-----------------------
＃キー操作　その１
＃30秒間隔
＊upが押された
＄喋り間隔＝（calc,（erase,（喋り間隔）,秒）+30）秒
＞頻度決定

＊downが押された
＞頻度決定	（喋り間隔）==０秒
＄喋り間隔＝（calc,（erase,（喋り間隔）,秒）-30）秒
＞頻度決定

＊頻度決定
＄SAORI引数の計算	無効
＄仮	（calc_float,（erase,（喋り間隔）,秒）/60）
＄SAORI引数の計算	自動
：\_q（iflist、（喋り間隔）、
==０秒、トークなし、
==３０秒、30秒、
（erase,（仮）,.5）分
（if，（compare_tail,（仮）,.5）==１，30秒）
）



＃-----------------------
＃キー操作　その２
＃30秒の後、1分間隔

＊upが押された
＄仮	（erase,（喋り間隔）,秒）
＄喋り間隔＝（if、（仮）>=60、（calc,（仮）+60）、（calc,（仮）+30））秒
＞頻度決定

＊downが押された
＞頻度決定	（喋り間隔）==０秒
＄仮	（erase,（喋り間隔）,秒）
＄喋り間隔＝（if、（仮）>60、（calc,（仮）-60）、（calc,（仮）-30））秒
＞頻度決定

＊頻度決定
＄仮＝（erase,（喋り間隔）,秒）/60
：\_q（iflist、（喋り間隔）、
==０秒、トークなし、
==３０秒、30秒、
（仮）分
）