bind pub - !ip2 snag:proc
bind pubm - *-->* snag:proc2
set snag(chan) "#urhq"
set snag(relay_chan) "#ajax"
set snag(trig) ".ip2"
proc snag:proc {nick host hand chan text} {
global snag
set chan "$snag(chan)"
set text [lrange $text 0 end]
putserv "PRIVMSG $chan : $snag(trig) $text"
}
proc snag:proc2 {nick host hand chan text} {
global snag
set text [lrange $text 0 end]
set chan "$snag(relay_chan)"
putserv "PRIVMSG $chan : $text"
}
putlog "snag script by poppabear loaded"
### KEEP THE CREDITS WHERE THE CREDITS DUE :) ###