greet.tcl for eggdrop

# Greet.tcl by: Cyberpunkz
# Keep it simple greet with colours

proc commandchar {} {
    return "!"
}

bind join * * onjoin
bind join * * onjoin2



proc onjoin {nick host hand chan} {
    global botnick
    if {$botnick == $nick} {
    } else {
        if {[validuser $nick] == 1} {
            if {[passwdok "$hand" ""] == "1"} {
                putlog "$nick ($hand) Does Not Have A Password Set.  /msg $nick."
                putserv "privmsg \0031$nick :You Don't Have A Password Set On Me.  Please One Set One Now By Typing: /msg $botnick pass <PASSWORD>\003"
            }
        }
        putserv "privmsg $chan :\0034«--($nick)--»\003 \0031This Channel is \0034mostly\003 \0031for\003 \0034BSD\003 \0031only, but GNU/Linux and other UNIX type systems are ok to discuss.\003 \0032Thank you & happy chatting! \003"
    }
}

proc onjoin2 {nick host hand chan} {
    global botnick
    if {$botnick == $nick} {
    } else {
        if {[validuser $nick] == 1} {
            if {[passwdok "$hand" ""] == "1"} {
                putlog "$nick ($hand) Does Not Have A Password Set.  /msg $nick."
                putserv "privmsg \0031$nick :You Don't Have A Password Set On Me.  Please One Set One Now By Typing: /msg $botnick pass <PASSWORD>\003"
            }
        }
        putserv "privmsg $chan :\0036--» Welcome \0032$nick\002 \0036to\003 \0032$chan\002\0036, if you have any questions please /msg an operator.\002 \0039This is a\003 \0032Free\003\0034BSD\002 \0039community!"
    }
}
##################################################################################################
putlog "CyberpunkZ greet.tcl script Loaded!"
##################################################################################################