egghelp/eggheads community

Greet script for selected users

2006-03-07T17:27:55-04:00

Thanks cache! I modified the script a bit and it's working well.

Code:

set guestnicks [list "*Guest*"] bind join - * greet:gnickproc greet:gnick {nick uhost hand chan {nn ""}} { global guestnicksif {$nn == ""} { set nn $nick } if {![isbotnick $nick]} {   foreach guestnick $guestnicks {    if {[string match -nocase  $guestnick $nn]} {     # wait a bit first, then send greeting    after 30000    putserv "PRIVMSG $chan :Hi $nick!"    break    }   }  } }

Statistics: Posted by quantum0726 — Tue Mar 07, 2006 5:27 pm

Greet script for selected users

2006-03-05T23:41:22-04:00

Maybe alter this script

Code:

set badnicks [list "*Guest*"] bind join - * ban:bnick bind nick - * ban:bnick proc ban:bnick {nick uhost hand chan {nn ""}} { global badnicks set bbanmask "*$nick*!*@*" if {$nn == ""} { set nn $nick } if {![isbotnick $nick]} {   foreach badnick $badnicks {    if {[string match -nocase  $badnick $nn]} {     putserv "MODE $chan +b $bbanmask"     putserv "KICK $chan $nick :Guest Nicks not allowed."     break    }   }  } }

Statistics: Posted by cache — Sun Mar 05, 2006 11:41 pm

Greet script for selected users

2006-03-05T04:25:43-04:00

Hi, I'm not sure if this is something that can be set directly in eggdrop or if it requires a sep. script (so feel free to move this to another forum if appropriate).

I'm looking for a way to have my bot greet only users with nicks following a certain pattern, e.g. Guest*. I found a greet script, but it looks like it'll greet every user:

Code:

set welc(msg) "hi %nick, welcome!" set welc(chan) "#channel" set welc(type) "1" bind join - #channel* givewelcome proc givewelcome {nick uhost hand chan} { global welc set welctxt $welc(msg) regsub -all "%nick" $welctxt "$nick" welctxt regsub -all "%chan" $welctxt "$chan" welctxt switch $welc(type) { 1 { puthelp "NOTICE $nick :$welctxt" } 2 { puthelp "PRIVMSG $nick :$welctxt" } } } putlog "Channel Greeting - Generated by http://www.egginfo.org - Frostbyte"

Can I modify this script or can you recommend any script to do this. I'm guessing just a if clause for $nick would work, but I don't know how to use wildcards/regex in tcl.

Thanks much!

Statistics: Posted by quantum0726 — Sun Mar 05, 2006 4:25 am