need script that ban user that rejoin chan on kick

Volume · Post by **Volume** » Sun Jun 22, 2003 3:02 pm

hello,
i need a anti rejoin script that bans a user for the time of 10 minutes.
the banmask must be: *!*@p5085306A.dip.t-dialin.net

in the tcl archive have i not found this script.

thank all for help.

BassezAss · Post by **BassezAss** » Sun Jun 22, 2003 3:32 pm

just put this when you telnet your bot

+ban <hostmask> [channel] [%<XdayXhoursXminutes>] [comment]

example: .+ban *yousuck*!*@* %1h30m change your nick please (yeah i know it's slennox one

)

Post by **caesar** » Sun Jun 22, 2003 3:54 pm

Anti rejoin after a kick or what?

Volume · Post by **Volume** » Sun Jun 22, 2003 4:42 pm

caesar wrote:Anti rejoin after a kick or what?

wenn a user get a kick and this user join this chan in 5 seconds he get channelban for 10 minutes

Post by **caesar** » Mon Jun 23, 2003 3:30 am

Code: Select all

bind kick - "*" arj:kick
bind join * * arj:join

proc arj:kick {nick uhost handle chan target reason} {
global arejn
  if {$target == $::botnick} {
    return
  } 
  set arejn($chan:[getchanhost $target $chan]) 1
  utimer 5 [list arj:reset $chan [getchanhost $target $chan]]
}

proc arj:join {nick uhost handle chan} {
  global arejn
  if {[info exists arejn($chan:$uhost)]} {
    set mask "*!*@[lindex [split $uhost @] 1]"
    newchanban $chan $mask $::botnick "rejoined after you got kicked, this definitly was smart.." 10
    array unset arejn $chan:$uhost
  }
}

proc arj:reset {chan uhost} {
  global arejn
  if {[info exists arejn($chan:$uhost)]} {
    array unset arejn $chan:$uhost
  }
}

Volume · Post by **Volume** » Mon Jun 23, 2003 2:12 pm

@caesar
thank you very much

works great