Add channel to to this script

[FmX]

Hello, can someone told me how to make this script to work on channels that i want:

Code: Select all

bind ctcr - VERSION version:reply 
bind join - * check:version 

proc check:version {nick uhost hand chan} { if {$nick eq $::botnick} {return}
 global cversion 
 set cversion([string tolower $nick]) 1 
 putserv "PRIVMSG $nick :\001VERSION\001" 
 utimer 15 [list no:version:reply $nick $uhost $chan] 
} 

proc version:reply {nick uhost hand dest kw arg} { 
 global cversion 
 if {[info exists cversion([string tolower $nick])]} { 
  unset cversion([string tolower $nick]) 
 } 
} 

proc no:version:reply {nick uhost chan} { 
 global cversion 
 if {[info exists cversion([string tolower $nick])] && [onchan $nick $chan]} { 
  putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]" 
  putserv "KICK $chan $nick :No CTCP version reply" 
  unset cversion([string tolower $nick]) 
  } 
} 

Thanks

[CrazyCat]

If you want to use it on only one channel, just modify the bind join:

Code: Select all

bind join - "#yourchan *" check:version

If you want to use it on several channels, the better way is to add a channel setting and check if it's enabled or not for the joined channel:

Code: Select all

setudef flag vcheck
bind join - * check:version 

proc check:version {nick uhost hand chan} {
   global cversion
   if {$nick eq $::botnick} {return}
   if {![channel get $chan vcheck]} { return }
   set cversion([string tolower $nick]) 1
   putserv "PRIVMSG $nick :\001VERSION\001"
   utimer 15 [list no:version:reply $nick $uhost $chan]
}

[FmX]

Ok, cool thanks. But if i want to run on specific channels, here to add?
bind join - "#yourchan #test2 *" check:version

[simo]

or/and you could use it with public command to enable/disable in channel

Syntax: !version on/off

Code: Select all

bind PUB n !version Pub:Version:Checker
 
setudef flag vcheck

proc Pub:Version:Checker {nick uhost hand chan arg} {

  switch -nocase -- [lindex [split $arg] 0] {
    on {
      if {[channel get $chan vcheck]} {
        putserv "NOTICE $nick :Version-Checker is already enabled on $chan."
      } else { 
        channel set $chan +vcheck
        putserv "NOTICE $nick :Version-Checker is now enabled on $chan."
}
    }
    off {
      if {![channel get $chan vcheck]} {
        putserv "NOTICE $nick :Version-Checker is already disabled on $chan."
      } else {
        channel set $chan -vcheck
        putserv "NOTICE $nick :Version-Checker is now disabled on $chan."
     }
    }    
  }
}



bind join - * check:version
bind ctcr - VERSION version:reply

proc check:version {nick uhost hand chan} {
   global cversion
   if {$nick eq $::botnick} {return}
   if {![channel get $chan vcheck]} { return }
   set cversion([string tolower $nick]) 1
   putserv "PRIVMSG $nick :\001VERSION\001"
   utimer 15 [list no:version:reply $nick $uhost $chan]
}


proc version:reply {nick uhost hand dest kw arg} {
 global cversion
 if {[info exists cversion([string tolower $nick])]} {
  unset cversion([string tolower $nick])
 }
}


proc no:version:reply {nick uhost chan} {
 global cversion
 if {[info exists cversion([string tolower $nick])] && [onchan $nick $chan]} {
  putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
  putserv "KICK $chan $nick :No CTCP version reply"
  unset cversion([string tolower $nick])
  }
}

[aslpls]

so this is the function of this script

Code: Select all

* Trivia (ux@Tri.via) has joined #aslpls
* aslbot sets mode: +b *!*@Tri.via
* Trivia was kicked by aslbot (No CTCP version reply)

I think it will kick all the users joining the channel

[simo]

so this is the function of this script

Code: Select all

* Trivia (ux@Tri.via) has joined #aslpls
* aslbot sets mode: +b *!*@Tri.via
* Trivia was kicked by aslbot (No CTCP version reply)

I think it will kick all the users joining the channel

meaning u tested it and thats what happened or you just think that happens without even testing it ?

[aslpls]

hey man simo, in this forum i am not posting a comment without testing it.

yes i've tried it. and it works.

just wondering, if a user (No CTCP version reply) .. it will kick/ban the user.

again, just wondering..

if you can explain it to me what's the point on this script to be used in this channel so that i ca n understand. i am not like you can create this kind of script and understand the flow.

[FmX]

Its against spam bots who join spam and leave.
They doesnt respond to version

[aslpls]

yes, i understand it is for spambot..


but my bot which is Trivia bot it is not a spam bot. and still
kick/ban my bot.

how the bot should decide if this bot is a spam bot or not?

[FmX]

It cant, kick ban everyone who doesnt reply to version