Script bot Remote (OriginalRemote)

alias -l shift.nick { return Client001 Client002 Client003 Client004 Client005 Client006 Client007 Client008 Client009 Client010 Client011 Client012 Client013 Client014 Client015 Client016 Client017 Client018 Client019 Client020 Client021 Client022 CClient023 Client024 Client025 }
alias -l shift.iden { return Starnetwork01 Starnetwork02 Starnetwork03 Starnetwork04 Starnetwork05 Starnetwork06 Starnetwork07 Starnetwork08 Starnetwork09 Starnetwork10 Starnetwork11 Starnetwork12 Starnetwork13 Starnetwork14 Starnetwork15 Starnetwork16 Starnetwork17 Starnetwork18 Starnetwork19 Starnetwork20 Starnetwork21 Starnetwork22 Starnetwork23 Starnetwork24 Starnetwork25 }
alias -l shift.serv { return irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id irc.big.net.id }
alias -l shift.port { return 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 6667 }
alias -l shift.pass { return ddx bignet1 bignet2 bignet3 bignet4 bignet5 bignet6 bignet7 bignet8 bignet9 bignet10 bignet11 bignet12 bignet13 bignet14 bignet15 bignet16 bignet17 bignet18 bignet19 bignet20 bignet21 bignet22 bignet23 bignet24 }
on *:exit:{
  hfree -w enemy.*
  unsetall
}
on *:sockopen:*:{
  if ($findtok($shift.nick,$sockname,32)) {
    set %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ] $sockname
    if ($sockerr > 0) {
      sockclose $sockname
      unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
      return
    }
    echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) connected: $sockname
    sockwrite -nt $sockname $1- nick $sockname
    sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :-
    sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
  }
}
on *:sockclose:*:{
  if ($findtok($shift.nick,$sockname,32)) {
    unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
    echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) disconnected
    var %shift.l = $findtok($shift.nick,$sockname,32)
    .timershift $+ %shift.l 1 $calc(%shift.l * 5) sockopen $gettok($shift.nick,%shift.l,32) $gettok($shift.serv,%shift.l,32) $gettok($shift.port,%shift.l,32)
    if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
    while (%shift.d <= $numtok($shift.nick,32)) {
      if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
      if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
        sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
        set %shift.d $calc(%shift.d + 1)
        break
      }
      inc %shift.d
    }
  }
}
on *:sockread:*:{
  if ($findtok($shift.nick,$sockname,32)) {
    if ($sockerr > 0) {
      sockclose $sockname
      unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
      return
    }
    :next
    sockread -f %shift.i
    if ($sockbr == 0) { return }
    tokenize 32 %shift.i
    if (($2 == mode) && ($3 == $shift.chan)) {
      if (+o isin $4) {
        if (($5 == $sockname) || ($6 == $sockname) || ($7 == $sockname) || ($8 == $sockname)) {
          if ($me ison $shift.chan) {
            unset %shift.s
            var %shift.j = $nick($shift.chan,0)
            while %shift.j {
              if ($hfind(enemy.nick,$nick($shift.chan,%shift.j),0,W)) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%shift.j) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
              dec %shift.j
            }
          }
          else {
            sockwrite -nt $sockname kick $shift.chan %s :Z
            unset %shift.s
          }
        }
      }
    }
    elseif (($2 == join) && ($shift.chan isin $3)) {
      if ($hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W)) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me)) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :ZZZZZZZZzzzzzzzzZZZZZZZZZZZzzzzzzzzzZZZZZZZZZZ }
      }   
      elseif ($hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W)) {
        if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
        sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) : 15,14*** 5,5 $+ $chr(32) $+ 0,1 P r 4e 0ma N shift 5,5 $+ $chr(32) $+ 15,14***
      }
    }
    elseif (($2 == kick) && ($3 == $shift.chan)) {
      if (($4 == $sockname) || ($4 == $me)) {
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && ($me !ison $shift.chan)) { set %shift.s $gettok($mid($1,2,$len($1)),1,33) }
        if (($gettok($mid($1,2,$len($1)),1,33) != $sockname) && ($gettok($mid($1,2,$len($1)),1,33) != $me) && (!$hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W))) { hadd -m enemy.nick $gettok($mid($1,2,$len($1)),1,33) }
        if (($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($sockname,5),2,$len($address($sockname,5))),2,$asc(@))) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) != $gettok($mid($address($me,5),2,$len($address($me,5))),2,$asc(@))) && (!$hfind(enemy.host,$gettok($mid($1,2,$len($1)),2,$asc(@)),0,W))) { hadd -m enemy.host $gettok($mid($1,2,$len($1)),2,$asc(@)) }
        if ($4 == $sockname) {
          if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
          while (%shift.d <= $numtok($shift.nick,32)) {
            if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
            if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
              sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
              set %shift.d $calc(%shift.d + 1)
              break
            }
            inc %shift.d
          }
        }
        elseif ($4 == $me) { sockwrite -nt $sockname kick $shift.chan $gettok($mid($1,2,$len($1)),1,33) :zoro }
      }
    }
    elseif (($2 == quit) && ($gettok($mid($1,2,$len($1)),1,33) == $sockname)) {
      sockclose $sockname
      unset %shift.m [ $+ [ $findtok($shift.nick,$sockname,32) ] ]
      var %shift.k = $findtok($shift.nick,$sockname,32)
      .timershift $+ %shift.k 1 $calc(%shift.k * 5) sockopen $gettok($shift.nick,%shift.k,32) $gettok($shift.serv,%shift.k,32) $gettok($shift.port,%shift.k,32)
      if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
      while (%shift.d <= $numtok($shift.nick,32)) {
        if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
        if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
          set %shift.d $calc(%shift.d + 1)
          break
        }
        inc %
      }
    }
    elseif ($2 == 001) {
      sockwrite -nt $sockname join %shift.base
      if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
      while (%shift.d <= $numtok($shift.nick,32)) {
        if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
        if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
          set %shift.d $calc(%shift.d + 1)
          break
        }
        inc %
      }
    }
    elseif ($2 == 451) {
      sockwrite -nt $sockname $1- nick $sockname
      sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :-
      sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
    }
    elseif ($2 == 474) {
      if ($sock($gettok($shift.nick,%shift.d,32))) { sockwrite -nt $gettok($shift.nick,%shift.d,32) part $shift.chan }
      while (%shift.d <= $numtok($shift.nick,32)) {
        if (%shift.d == $numtok($shift.nick,32)) { set %shift.d 0 }
        if ($sock($gettok($shift.nick,$calc(%shift.d + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%shift.d + 1),32) join $shift.chan
          set %shift.d $calc(%shift.d + 1)
          break
        }
        inc %
      }
    }
    elseif (($1 == ping) && ($2)) { sockwrite -nt $sockname pong $2- }
    goto next
  }
}
on *:input:*: {
  if ($1 == .start) {
    .clear -s
    var %shift.a = 1
    while (%shift.a <= $numtok($shift.nick,32)) {
      if (!$sock($gettok($shift.nick,%shift.a,32))) { .timershift $+ %shift.a 1 $calc(%shift.a * 5) sockopen $gettok($shift.nick,%shift.a,32) $gettok($shift.serv,%shift.a,32) $gettok($shift.port,%shift.a,32) }
      inc %shift.a
    }
  }
  if ($1 == .quit) {
    .clear -s
    var %shift.b = 1
    while (%shift.b <= $numtok($shift.nick,32)) {
      if ($sock($gettok($shift.nick,%shift.b,32))) {
        sockclose $gettok($shift.nick,%shift.b,32)
        echo -s $chr(35) $+ %shift.b disconnected
      }
      inc %shift.b
    }
    .timershift* off
    unset %shift.d %shift.m*
  }
  if ($1 == .base) { echo -s $chr(35) %shift.base #$2 | set %shift.base #$2 }
  if ($1 == .chan) { set %shift.chan #$2 }
  if ($1 == .join) {
    var %shift.c = 1
    while (%shift.c <= $numtok($shift.nick,32)) {
      if ($sock($gettok($shift.nick,%shift.c,32))) {
        sockwrite -nt $gettok($shift.nick,%shift.c,32) join %shift.chan
        set %shift.d %shift.c
        break
      }
      inc %shift.c
    }
  }
  if ($1 == .part) {
    sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
    unset %shift.d
  }
  if ($1 == .muach) {
    .timer 5 1 sockwrite -nt * privmsg $2 : a , 4,1MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH
    .timer 5 1 sockwrite -nt * notice $2 : a , 8,1MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH MùâçH
  }
  if ($1 == .salto) {
    .timer 5 1 sockwrite -nt * join %shift.chan
    .timer 5 1 sockwrite -nt * part %shift.chan : 1,1 4A 14stagfìRuLLah 4H 14alladim..    4A 14llohu.. 4A 14khbar... 4A 14llohu.. 4A 14khbar.. 4A 14llohu.. 4A 14khbar...!!!
  }
}