/*
alias ninja {
  unset %x
  unset %y
  opensock
  %s = sockwrite -n
  if (!$window(@ninja)) {
    window -eak0 @ninja

  }
}
alias conn { sockclose ninja* | ninja | set %reconnect off }
alias opensock {
  inc %x
  if (%x <= 9) {
    sockopen ninja $+ %x irc.calmdowngeek.com 6667
    if (%x > 9) { unset %x }

  }

}

alias register {
  %s ninja* PRIVMSG NickServ :register testlol fore@blah.com
}
alias nsident {
  %s $sockname PRIVMSG NickServ :identify testlol
}
on *:SOCKOPEN:ninja*: {
  inc %y
  if (%y <= 9) {
    %s $sockname NICK $read(names.txt,%y)
    %s $sockname USER $read(names.txt,%y) $read(names.txt,%y) $read(names.txt,%y) $read(names.txt,%y)
    %s $sockname PASS aIvHemUId185s&6
  }
  if (%reconnect != on) {
    .timeropen 9 5 opensock
  }
  if (%y > 9) { unset %y }

}


on *:SOCKREAD:ninja*: {
  sockread %ninja | tokenize 32 %ninja
  if ($1 == PING) { %s $sockname PONG $2- | haltdef }
  if ($2 == NOTICE) && ($7-9 == registered and protected.) { $nsident($sockname) }
  if ($2 == NOTICE) && ($4-6 == :Your vhost of) { %s $sockname JOIN #Calmdown }
  if ($4 == $chr(40) $+ Throttled:) { sockclose $sockname }
  if ($2 == PRIVMSG) {
    if ($regex($4, /(ACTION)/)) { echo @ninja 13 $+ $gettok($gettok($1,1,58),1,33) $gettok($5-,1,58) }
    if ($3 == #Calmdown) && ($2 == PRIVMSG) {
      if (%chance > 95) && (!%insultflood) {
        set -u45 %insultflood on
        inc %insulted
        %rand = $rand(1,9)
        %insult = $read(insults.txt,%insulted)
        if (%insulted >= $lines(insults.txt)) {
          %insulted = 0
          %s ninja $+ %rand PRIVMSG $3 : $+ %insult $+ , $gettok($gettok($1,1,58),1,33) $+ .
        }
        else {
          %s ninja $+ %rand PRIVMSG $3 : $+ %insult $+ , $gettok($gettok($1,1,58),1,33) $+ .
        }

      }
      if ($gettok($4,1,58) == !addinsult) && ($gettok($gettok($1,1,58),1,33) == Ezrie) { write insults.txt $gettok($4,1,58) | notice $nick "04 $+ $gettok($4,1,58) $+ " was added to insults.txt }
      if ($gettok($4,1,58) == !insult) && (!%insultflood) {
        if ($5) {
          set -u15 %insultflood on
          %rand = $rand(1,9)
          %insult = $read(insults.txt)
          %s ninja $+ %rand PRIVMSG $3 : $+ %insult $+ , $5 $+ .

        }
        else {
          if (!$5) && (!%insultflood) {
            set -u15 %insultflood on
            %rand = $rand(1,9)
            %insult = $read(insults.txt)
            %s ninja $+ %rand PRIVMSG $3 : $+ %insult $+ .

          }
        }
      }
    }
    else {
      echo @ninja 12 $+ $gettok($gettok($1,1,58),1,33) $+ 08:15 $gettok($4-,1,58)
    }
  }
  if ($2 == QUIT) {
    echo @ninja 12 $+ $gettok($gettok($1,1,58),1,33) quits $+ 08:07 $gettok($3-,1,58)
    var %i = 1
    while (%i <= 9) {
      if ($gettok($gettok($1,1,58),1,33) == $read(names.txt,%i)) {
        %y = $calc(%i - 1)
        sockclose ninja $+ %i
        .timerconnect $+ %i 1 2 sockopen ninja $+ %i irc.calmdowngeek.com 6667
        inc %i
      }
      else {
        inc %i
      }

    }
  }
  if ($2 == JOIN) { echo @ninja 12 $+ $gettok($gettok($1,1,58),1,33) joined $+ 8:04 $remove($3,$chr(58)) | haltdef }
  if ($2 == PART) { echo @ninja 12 $+ $gettok($gettok($1,1,58),1,33) parts $+ 8:04 $3- $gettok($4-,1,58) | haltdef }
  if ($2 == MODE) { echo @ninja 12 $+ $gettok($gettok($1,1,58),1,33) set mode 08 $+ $4 $+ 12 $5 }
  if ($2 == TOPIC) { echo @ninja 12 $+ $gettok($gettok($1,1,58),1,33) changed the topic to $+ 08:09 $gettok($4-,1,58) }
  if ($2 == NOTICE) { echo @ninja 08Notice:12 $gettok($gettok($1,1,58),1,33) $+ : 06 $+ $gettok($4-,1,58) }
  if ($2 == KICK) { echo @ninja $gettok($1,33,1) kicked $4 $+. Reason: $gettok($5-,1,58) | check_channel | %kchan = $3 }
  else { echo @ninja $sockname $1 11 $gettok($1,33,1) 2 $2 3 $3 4 $4 5 $5 6 $6 7 $7 8 $8 9 $9- }

}
alias check_channel {
  var %k = 1
  while (%k <= $lines(names.txt)) {
    if ($read(names.txt,%k) ison %kchan) {
      inc %k
    }
    else {
      %s ninja $+ %k JOIN %kchan
      inc %k
    }
  }
}
on *:SOCKCLOSE:ninja*: {
  echo @fore $sockname closed.
  set -u5 %reconect on
  %y = $calc($right($sockname,1) - 1)
  sockopen $sockname irc.calmdowngeek.com 6667
  echo @fore ninja $+ %x opened.
}

alias chat {
  if (!$1) {
    echo -a Please insert which socket you are speaking from.
    echo -a socket 1 is Xzempt
    echo -a socket 2 is katano
    echo -a socket 3 is ariya
    echo -a socket 4 is jade
    echo -a socket 5 is star
    echo -a socket 6 is willow
    echo -a socket 7 is amanda
    echo -a socket 8 is kiyoura
    echo -a socket 9 is jess

  }
  else {
    %s ninja $+ $1 PRIVMSG #calmdown : $+ $2-
  }
}
on *:TEXT:*:*: {
  if ($1 == !reconn) && ($chan == #opers) {
    conn
  }
  if (!%chance) && ($chaan == #calmdown) {
    %chance = $rand(1,100)
  }
  else {
    %chance = $rand(1,100)
  }
}

on *:CONNECT: {
  if ($network == CalmDownGeek) {
    %reconnect = on
    %x = 1
    unset %y
    unset %socks
    while (%x <= $lines(names.txt)) {
      if ($sock(ninja $+ %x)) {
        %socks = $instok(%socks, ninja $+ %x,$calc($numtok(%socks,46) +1), 46)
        inc %x
      }
      else {
        sockclose ninja $+ %x
        %y = $calc(%x -1 )
        sockopen ninja $+ %x irc.calmdowngeek.com 6667
        inc %x
      }
    }
  }
}
alias testadd {
  %x = 1
  while (%x <= $lines(names.txt)) {
    if ($sock(ninja $+ %x)) {
      %socks = $instok(%socks, ninja $+ %x,$calc($numtok(%socks,46) +1), 46)
      inc %x
    }
    else { inc %x }
  }
}
*/