| View previous topic :: View next topic |
| Author |
Message |
CoCooner
Voice
Joined: 09 Feb 2009
Posts: 3
|
 Posted: Sat Feb 14, 2009 9:34 pm Post subject: Relay Botnet Script |
 |
|
Hello
I'd like a relay script where I can set it only reacts to certain words and the whole still has a botnet to another irc network posts
I have already searched archives but unfortunately not found the script to respond to certain words could
msl i have this but i want it in tcl 
| Code: | on *:TEXT:Hello:#Channel1:{
if ($nick == AnyNick) && ($network == Network1) {
var %a = 1
while ($scon(%a)) {
if ($scon(%a).network == Network2) {
scon %a msg #Channel2 $1-
}
inc %a
}
}
}
|
it would be nice if I get such a small script could write because I myself can no TCL
ever thank in advance |
|
| Back to top |
|
 |
Madalin
Master
Joined: 24 Jun 2005
Posts: 310
Location: Constanta, Romania
|
| Posted: Fri Feb 01, 2013 5:44 pm Post subject: |
|
|
This i really didnt tested and im not sure about the proc matched:proc variable [join [lrange $arg 1 end]] if its good
If i messed something sorry, if someone will eventually test this and the script will give errors just let me know and i will fix it as quickly as i can.
The code looks horrible i know  yet i wrote it here and didnt had time to design everything.
| Code: |
bind PUBM - "#channel *" match:pubm
bind BOT - matched matched:proc
set temp(match) [list "something" "are whe there?"] ;# words/phrases you want to match
set temp(network) "quakenet" ;# network from where you want the bot to match the words/phrases
set temp(bot) "leafbot" ;# botnet nick of the eggdrop who will send the relayed message
set temp(relaychan) "#channel2" ;# channel on which the relayed message will be displayed
proc match:pubm {nick uhost hand chan arg} {
global temp
if {$nick == $::botnick} { return }
if {$::network == "$temp(network)"} {
foreach n $temp(match) {
if {[string match -nocase "*$n*" $arg]} {
putbot BOT "matched $arg"
}
}
}
}
proc matched:proc {from key arg} {
global temp
putserv "PRIVMSG $temp(chanrelay) :[join [lrange $arg 1 end]]"
}
|
_________________
https://github.com/MadaliNTCL - To chat with me: https://tawk.to/MadaliNTCL |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
