script Essentials {
    command j join
    command p part

    event IALHostGet GotHostname
}

menu status {
    Server stats = server_stats
    sep
    Join channel... = join_channel
    Change nickname... = change_nickname
}

menu query {
    Whois = query_whois
}

menu channel {
    Channel settings = chan_settings
    Test lag = test_lag
}

menu nicklist {
    Query = query
    Whois = whois
    sep
    Operator {
        Give op = give_op
        Take op = take_op
        Give voice = give_voice
        Take voice = take_voice
        sep
        Kick = kick
        Kick, ban = kickban
    }
    CTCP {
       Version = ctcp_version
       Time = ctcp_time
       Ping = ctcp_ping
    }
}

;$ Custom commands /j and /p:
function join(%c, %k) {
    if ($len(%k) > 0) {
        join #%c %k
    }
    else {
        join #%c
    }
}

function part(%c, %r) {
    if ($len(%c) == 0) {
        part $target
        return
    }

    if ($sstr(%c, 0, 1) != #) {
        part $target %c %r
        return
    }

    part %c %r
}

;$ Menu in status window:
function server_stats() {
    lusers
}

function join_channel() {
    var %c $input(Join a channel, Enter a channel name:)
    if ($button == Cancel) {
        return
    }
    if ($sstr(%c, 0, 1) != #) {
        join #%c
        return
    }
    join %c
    del %c
}

function change_nickname() {
    var %n $input(Change nickname, Enter a new nickname:)
    if ($button == Cancel) {
        return
    }
    nick %n
    del %n
}

;$ Menu in query window:
function query_whois(%n) {
    whois %n
}

;$ Menu in channel textbox
function chan_settings(%c) {
    chansettings
}

;$ Menu in channel listbox:
function query(...) {
    if (%1 == $NULL) {
        return
    }

    query %1
}

function whois(...) {
    if (%1 == $NULL) {
        return
    }

    whois %1
}

function give_op(...) {
    if (%1 == $NULL) {
        return
    }

    var %len $token(%0, 0, 32)
    if (%len == 0) {
        return
    }
    var %i 1
    while (%i <= %len) {
        var %letter $glue(%letter,o)
        var %nick $glue(%nick, $char(32), %+%i)
        inc %i
    }
    mode $target +%letter%%nick%

    del %letter
    del %nick
}

function take_op(...) {
    if (%1 == $NULL) {
        return
    }

    var %len $token(%0, 0, 32)
    if (%len == 0) {
        return
    }
    var %i 1
    while (%i <= %len) {
        var %letter $glue(%letter,o)
        var %nick $glue(%nick, $char(32), %+%i)
        inc %i
    }
    mode $target -%letter%%nick%

    del %letter
    del %nick
}

function give_voice(...) {
    if (%1 == $NULL) {
        return
    }

    var %len $token(%0, 0, 32)
        if (%len == 0) {
        return
    }
    var %i 1
    while (%i <= %len) {
        var %letter $glue(%letter,v)
        var %nick $glue(%nick, $char(32), %+%i)
        inc %i
    }
    mode $target +%letter%%nick%

    del %letter
    del %nick
}

function take_voice(...) {
    if (%1 == $NULL) {
        return
    }

    var %len $token(%0, 0, 32)
        if (%len == 0) {
        return
    }
    var %i 1
    while (%i <= %len) {
        var %letter $glue(%letter,v)
        var %nick $glue(%nick, $char(32), %+%i)
        inc %i
    }
    mode $target -%letter%%nick%

    del %letter
    del %nick
}

function kick(...) {
    if (%1 == $NULL) {
        return
    }

    var %reason $input(Kick reason, Enter a kick reason:)
    if ($button == Cancel) {
        return
    }

    kick %1 %reason
}

function kickban(...) {
    if (%1 == $NULL) {
        return
    }

    var %reason $input(Kick reason, Enter a kick reason:)
    if ($button == Cancel) {
        return
    }

    if ($IALHostMask(%1) == $NULL) {
        var %ban %1
        userhost %1
        return
    }

    mode $target +b $IALHostMask(%1)
    kick %1 %reason
}

;$ Utilities...
function GotHostname(%nickname, %hostmask) {
    if (%ban == %nickname) {
        mode $target +b %hostmask
        kick %nickname %reason
        del %ban %reason
    }
}
function test_lag() {
ping
}
;$ CTCP scripts
function ctcp_version(){
ctcp %nickname version
}
function ctcp_time(){
ctcp %nickname time
}
function ctcp_ping(){
ctcp %nickname ping
}