バッテリー残量警告スクリプト

タスクバーにバッテリー残量を表示してくれませんので、警告を発するスクリプトを書いて、スタートスクリプトで起動しています。

#バッテリー残量が10%以下になったらメッセージボックスで知らせる
While(1)
　　　　Sleep(10000)
　　　　bat = BatteryPercentage()
　　　　
　　　　if (bat < 10)
　　　　　　　　Message("バッテリー残量が" & bat & "%になりました")
　　　　　　　　exit
　　　　EndIf
EndWhile

目安としてこの程度で交換しています。
こういうのが簡単に書けるんで、MortScriptは面白いです。