# oper.irc [2008-12-23]
# camo@danknug.org
# thanks to phos...

# config
$oper-user = "user";                    # username to oper with
$oper-pass = "password";                # password to oper with
$oper-server = "irc.server.com";        # server to oper on
$oper-modes = "fbn";                    # modes to set on oper (optional)

# begin script
on connect
{
        if ($server eq $oper-server)
        {
                wait ($event eq "376" && "*o*" !iswm $mymode)
                {
                        call("/quote OPER $oper-user $oper-pass");
                        wait ($event eq "381" && $oper-modes)
                        {
                                call("/mode $me +$oper-modes");
                        }
                }
        }
}