Forums Active Threads Past Month

on *:text:#:{
  if (!$read(BOTCOMMAND_CHAN.txt,nwt,$chan)) { return }
  var %host $ial($nick).host 
  if ($read(userbot.txt,ntw,%host) && $nick ison #userbots) || ($read(botadmin.txt,ntw,%host) && $nick ison #botadmins) {
  tokenize 32 ($1-)
  if ($1 == ~command1) || ($1 == .command1) || ($1 == .command1) || ($1 == command1) {
  ....... (do command 1).......
  if ($1 == ~command2) || ($1 == .command2) || ($1 == .command2) || ($1 == command2) {
  ....... (do command 2).......
  if ($1 == ~command 3) || ( $1 == .command 3) || ($1 == !command 3) || ($1 == command3) {
  ........ (do command 3)......
  .....
  .....
    }
  }
}

on *:TEXT:*:#:{
  if (!$read($file_bcc,ntw,$chan)) { return }
  if (!$on_access($ial($nick).host)) { return }
  if (!$on_chan(#userbot,#botadmin)) { return }
  ;----------------------------------------
  if (command1 isin $1 && $is_pref($1,!.~)) {
    echo -a 30test:38 $chan $nick - do $1
  }
  if (command2 isin $1 && $is_pref($1,!.~)) {
    echo -a 30test:38 $chan $nick - do $1
  }
  if (command3 isin $1 && $is_pref($1,!.~)) {
    echo -a 30test:38 $chan $nick - do $1
  }
}

alias -l file_bcc { return $scriptdir\botcomchan.txt }
alias -l file_user { return $scriptdir\userbot.txt }
alias -l file_admin { return $scriptdir\botadmin.txt }
alias -l on_access { if ($read($file_user,ntw,$1)) || ($read($file_admin,ntw,$1)) return $true }
alias -l on_chan { var %i 1 | while (%i <= $0) { if ($nick ison $eval($+($,%i),2)) return $true | inc %i } }
alias -l is_pref { if ($1) || ($left($1,1) isin $2) return $true }

;#####################################################################
;#   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 
  }
}