/**
    use_catapult

    OnUsed: Fire a catapult burst

    J.D. Robertson, 2002
*/
#include "i_battle"
void main()
{
    if (!GetLocalInt(OBJECT_SELF, "Loading"))
    {
        FireCatapult();

        // Delay the next firing. Rapid fire catapults are a lot of fun (an
        // insane amount of fun actually, take these lines out and try it)
        // but not too realistic
        SetLocalInt(OBJECT_SELF, "Loading", TRUE);
        DelayCommand(5.0, SetLocalInt(OBJECT_SELF, "Loading", FALSE));
    }
}