ON *:SOCKOPEN:p:{
  if ($sockerr > 0) { echo -s 0Bot fallada la conexión | halt }
  s nick $cnf(nk)
  s User $cnf(user)
}
ON *:SOCKREAD:p:{
  sockread %debug
  echo -s %debug
  if ($d(1) == PING) { s PONG $d(2) }
  if ($d(2) == 422) { s oper $cnf(oper) | s join #clones | s privmsg #clones :Bot Anti-CLonES Conectado creado por:12 edute =D | .timermsg 0 160 sockwrite -nt p PRIVMSG #clones :Venga operadores sigan con vuestro trabajo que iebais rato sin g-linear =) 12Un saludo }
  if ($d(3) == #clones) {
    if (*joined* iswm $d(1-)) && (*has* iswm $d(1-)) { s privmsg $d(canal) :G-line12 $d(5) Motivo:3 Inyección de clones en la red. | s gline $d(5) :ProxyS Motivo:3 Inyección de clones en la red. }
    if ($d(4) == G) { s gline - $+ $d(5) | s privmsg $d(canal) :G-line *4DELETE* :12 $d(5) }
  }
}
alias s {
  sockwrite -nt $sockname $1-
}
alias d {
  if ($1 == nick) { return $remove($gettok(%debug,1,33),$chr(58)) | halt }
  if ($1 == canal) { return $remove($gettok(%debug,3,32),$chr(58)) | halt }
  return $remove($gettok(%debug,$1,32),$chr(58))
}
alias cnf {
  return $readini(conf.ini,conf,$1)
}