Socket Version For Birc.mine.nu:6667
HTE rekick..

*******************************************
*         HUMBLE TEAM EXCALIBUR           *
*        sEmuT^Ap| a.k.a Code-Q           *
*          Birc.mine.nu:6667              *
*                                         *
*******************************************
-
on *:start:{
  .nick HTE-watcher
  .anick Best-Warrior
  .fullname $HTElogo
  .emailaddr m_matsalleh $+ @yahoo.com
}
on *:sockopen:*: {
  if (!$sockerr) {
    var %ojef $sockname
    sockwrite -nt $sockname USER %ojef * * : Socket Under Program
    sockwrite -nt $sockname NICK %ojef
    .Birc_mine_nu
  }
}
alias iut { sockwrite -nt $1- }
alias jefcode { 
  goto $r(1,2)
  :1 | return HTE $+ $r(1,999)
  :2 | return jefbotZ $+ $r(1,999)
}
alias nicker { return $mid($1,2,$calc($pos($1,!,1) - 2 )) }
alias .sf2 { 
  if (!%sockopen) { sockopen %botjef %sibur %iutpt | .notify %botjef | .echo -a 7::: reconnecting }
  else { msg %chan 4process fail }
}
alias f2 {
  .set %botjef HTE-BOTS
  .set %sibur birc.mine.nu 
  .set %iutpt 7000 
  .set %chan #rekick
  .echo -a 7:::: Socket Bot COnfigured 
  halt
}
alias f3 { .sockclose * | .echo -a 9:::Bot Disconnected }
alias sf3 { .set %chan $?"Enter Your Fucking Channel War: #toyolx" }
alias Birc_mine_nu { if (!$window(@ReKick-Bots )) { window -ae-550 @ReKick-Bots  } }
on *:sockread:*:{
  if ($sockerr > 0) { return }
  var %temp | sockread %temp
  if ($sockbr == 0) { return }
  if (%temp == $null) %temp = -
  tokenize 32 %temp
  if ($2 == ERROR) { sockclose $sockname }
  if ($regex($1,^PING$)) { iut $sockname PONG $2 }
  if ($regex($2,^(432|433)$)) { iut $sockname NICK $sockname }
  if ($2 == 002) { .sockwrite -tn %botjef join %chan | if (%msh) raw_kicker $sockname }
  if ($2 == KICK) {
    var %j $nicker($1)
    if ($4 == $sockname) {
      %msh = $addtok(%msh,%j,44)
      .sockwrite -tn %botjef join %chan
      .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ $HTElogo 4KICK
    }
    else { .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ $HTElogo 4KICK ELSE | halt }
  }
  if ($2 == JOIN) {
    var %e $nicker($1)
    if ($me ison %chan) {
      if ($istok(%msh,%e,44)) && (%e != $sockname) {
        .sockwrite -tn $sockname kick %chan %msh : $+ $HTElogo 4JOIN
      }
    }
    else { .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ $HTElogo JOIN ELSE Sockread | halt }
  }
  if ($2 == MODE) {
    if (+o isin %chan) && ($5 == $sockname) {
      if (%msh) { 
        var %jef_mmg_hensem = $numtok(%msh,44)
        while jef_mmg_hensem {
          .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ $HTElogo 4mode
          .dec jef_mmg_hensem
        }
      }
    }
    else { sockwrite -tn $sockname kick %chan %msh : $+ $HTElogo 4mode else | halt }
  }
  if ($2 == 401) || ($2 == 331) { if (%msh) raw_kicker $sockname | halt }
  if ($2 == 221) || ($2 == 441) { if (%msh) raw_kicker $sockname | halt }
  if ($2 == 333) { if (%msh) raw_kicker $sockname | halt }
  if ($2 == 482) || ($2 == 332) { if (%msh) raw_kicker $sockname | if (%msh) raw_kicker $sockname | halt }
  if ($2 == 366) { if (%msh) raw_kicker $sockname | halt }
  if ($2 == 474) { .unset %msh | .timerjoins -m 1 48 .sockwrite -tn %botjef join %chan | .sockwrite -tn %botjef privmsg %chan ~waroff | halt }
  else { echo -ct $2 @ReKick-Bots $1- }
}
on *:unotify:{
  if ( $nick == %botjef ) { 
    .sockclose * 
    .sf2 
  }
}
on *:notify:{
  if ($me ison %chan) && ( $nick == %botjef ) {
    sockwrite -tn %botjef join %chan 
  }
  else { halt }
}
alias raw_kicker { .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ 7RAW KICKER $r(1,1000) | halt }
alias f4 { %msh = $addtok(%msh,$1,44) | echo 7 -a 9:: $1 IS MY OPPONENT!! }
alias HTElogo { return :7HUMBLE TEAM EXCALIBUR SOCKET VERSION $+ }
alias mykicks { .sockwrite -tn %botjef kick %chan %msh $HTElogo 1 | .sockwrite -tn %botjef kick %chan %msh $HTElogo 2 | halt }
on !*:kick:#:{
  var %j
  if (%msh != $sockname) && (# == %chan) {
    %msh = $addtok(%msh,%j,44)
    .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ 4Back Kick
  }
  else { if (%msh) .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ 4Back Kick else | halt }
}
on !*:join:#:{
  if (%msh ison %chan) {
    if (%msh != $sockname) && (# == %chan) {
      .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ 4Back Join Kick
    }
    else { if (%msh) .sockwrite -tn %botjef -q-q-q kick %chan %msh : $+ 4Back Join Kick else | halt }
  }
}
on *:text:*:*:{
  if ($nick == sEmuT^Ap|) || ($nick == PCuNLiMiTeD) {
    if (`kick == $1) { .sockwrite -tn %botjef kick %chan $2- : $+ 4Yang Menurut Perintah.. | halt }
    if (`clear == $1) { .unset %msh | .sockwrite -tn %botjef privmsg %chan 4Cleared.. | halt }
    if (`reset == $1) { .sockwrite -tn %botjef privmsg %chan ~waroff | halt }
    if (`config == $1) { .f2 | msg %chan : $+ 4Socket Configured... }
    if (`con == $1) { .sf2 | msg %chan : $+ 4Connecting.. }
  }
}