Forums Active Threads Past Year

;#####################################################################
;#   Name: Scan Joining Users (Beta dev 2)
;#   Author: Epic (epicnet@mail.ru, http://epicnet.ru)
;#   Idea: Robert
;#   Description: Scans for all blacklisted users who join channels, or when the bot reconnects to channels, it will scan all users on the channels.
;#   Note: You must create a file "globalkickdatabase.txt" in the mIRC root folder in this format for each line: [ID: 1234];*!*@Host;Reason kick
;#####################################################################

alias -l scanjoin_set {
  %sj_work = yes
  %sj_who_delay = 5000
  %sj_ban_time = 10800
  %sj_rem_nick = MyBotName
}
on *:JOIN:#:{
  if (!$read(SCANBLACKLISTONMEJOIN_CHAN.txt,ntw,$chan)) { return }
  scanjoin_set
  if (%sj_work == yes) {
    if ($nick == $me) {
      %scanjoin = on
      .timerSJWHOME $+ $chan -m 1 %sj_who_delay .who $chan
    }
  }
  else {
    var %ident $ial($nick).user
    var %host $ial($nick).host
    scanjoin $chan $nick %ident %host
  }
}

raw 352:*: if (%scanjoin == on) { scanjoin $2 $6 $3 $4 | haltdef }
raw 315:*: if (%scanjoin == on) { unset %scanjoin | haltdef }
alias -l scanjoin {
  if ($me !isop $1 && !$hget(scanjoin,stop)) {
    .echo -s For further actions, I need the rights of the channel operator:12 $1
    .hadd -mz scanjoin stop 30
    halt
  }
  var %chan $1
  var %nick $2
  var %ident $3
  var %host $4
  var %file = globalkickdatabase.txt
   if ($read(%file,ntw,$+(*,%ident,*))) {
    var %str $read(%file,$readn)
    if ($chr(35) == $left(%str,1)) goto next1
    tokenize 59 %str
    if ($+(*,%ident,*) iswm $2) {
      var %idban $1
      var %reason $3
      .ban $+(-u,%sj_ban_time) %chan $+($gettok($address(%nick,0),1,64),@*)
      .kick %chan %nick 04([Banned] (reason: %reason $+ ) %idban $+ )
      goto next2
    }
    : next1
  }
  if ($read(%file,ntw,$+(*,%host,*))) {
    var %str $read(%file,$readn)
    if ($chr(35) == $left(%str,1)) goto next2
    tokenize 59 %str
    if ($+(*,%host,*) iswm $2) {
      var %idban $1
      var %reason $3
      .ban $+(-u,%sj_ban_time) %chan $+(*!*@,$gettok($address(%nick,0),2,64))
      .kick %chan %nick 04([Banned] (reason: %reason $+ ) %idban $+ )
    }
    :next2 
  }
}

wraptest {
  var %test 2,11 test 
  echo -a %test
  echo -a $wrap(%test,Fixedsys,20,1000,p1t1w1,1)
}