Solo Personal :D

::::::::::::::::::::::::::::
:::::: Coded By eNkIL ::::::
::::::::::::::::::::::::::::
::: Cambiale si sabes =) :::
::::::::::::::::::::::::::::

alias channel { 
  echo -a 4»Recuperando info de $chan
  .channel
  halt
}
alias hop { 
  echo -a 4»Reentrando a4: $chan
  .hop 
  halt
}
on ^1:JOIN:#:{
  if ($nick == $me) { echo $chan $time.xd 14-4[15 Canal: $chan 4]14-| halt }
  if ($nick != $me) { echo $chan $time.xd $info. 9Entra15 $nick $info $replace($address,@,4@15,.,4.15)  | halt }
}
on ^1:invite:#: {
  echo -a $time.xd $info. $nick 14T15e i0n15vi14to a4:15 $chan
  halt
}

on ^*:NICK:{
  var %i = 0 | while (%i < $comchan($newnick,0)) { inc %i | echo $comchan($newnick,%i) $time.xd $info. Nick: $nick 4/15 $+($newnick,.) $info $replace($address,@,4@15,.,4.15)
    haltdef
  }
}
on ^*:topic:*: {
  if ($nick = $me) { echo $Chan $time.xd $info 14Ca15mb0ias15te el14 topic4:15 $1- 
    halt
  } 
  else { 
    echo $chan $time.xd $info 14T15o0p15i14c4:15 $nick 14Ca15mb0ia 15to14pic4:15 $1-  
    halt     
  } 
}

on ^*:notice:*:?:{  
  if ($istok($nick Bs,$nick,32)) {
    haltdef 
    echo -a $time.xd $info. Notice 15[ $+ $nick $+ 0: $1- $+ 15]
  }
}

on ^1:PART:#:{
  if ($nick != $me) { 
    if ($1- == $null) { echo $chan $time.xd $info. 7Sale15 $nick $info $replace($address,@,4@15,.,4.15) | halt }
    if ($1- != $null) { echo $chan $time.xd $info. 7Sale15 $nick $info $replace($address,@,4@15,.,4.15) $+ ( $+ $1- $+ )  | halt }
  }
}
on ^1:KICK:#:{
  if ($knick != $me) { echo $chan $time.xd $info. 15Kick4:15 $knick $info Fue P15ate0a15do 14por15 $nick ( $+ $1- $+ )  | haltdef }
  if ($knick == $me) { 
    if ($chan($chan) != $null) { 
      echo $chan $time.xd 15Kick4:15 $nick 4-14 Te S15a0co 15d14e15  $+ # $+  ( $+ $1- $+ )
      echo $chan $time.xd 14Re15en0tr15an14do a4»14(4 # 14) 
    }
    echo -s $time.xd $info. 15Kick4:15 $nick 4-14 Te S15a0co 15d14e15  $+ # $+  ( $+ $1- $+ ) | haltdef
  }
}
on ^*:QUIT:{
  var %pt.stat = $replace($nick($chan,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
  var %rga = $remove(%pt.stat,$nick)
  var %p = 0 | while (%p < $comchan($nick,0)) { inc %p | echo $comchan($nick,%p) $time.xd $info. 4Quit:15 %rga $+ $remove($nick,$mid($1,1, $+ $pos($1,~,2))) $info $replace($address,@,4@15,.,4.15) 7»15 $iif($1- == $null || $1 == quit:,No Hubo Razon.,$1-) 
    haltdef
  }  
}
on ^1:SNOTICE:*:{ echo -s $info. $Server 14»15 $2- | halt }
on ^1:RAWMODE:#:{ 
  var %pt.stat = $replace($nick($chan,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
  var %rga = $remove(%pt.stat,$nick)
  echo $chan $time.xd $info. 15Modos4:15 %rga $+ $nick Pone4:15 $1 $2- 
  halt 
}
on 1:input:*: {
  if ($server == $null) { echo -a No Estas Conectado al Servidor | halt }
  if ($active == Status Window) && ($left($1, 1) != /) { echo -s $ime.xd $info. No estas en NINGUN CANAL :)   }
  if ($left($1,1) == /) { $1- | halt }
  if ($nick == $me) {
    var %pt.stat = $replace($nick($active,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
    var %rga = $remove(%pt.stat,$nick)
    .msg $chan $1- 
    echo $chan $time.xd %rga 14‹ $me › $$1- | halt
    haltdef
  }
}
on ^*:text:*:#: {
  if ($me isin $strip($1-)) {
    var %qtip $tip(highlight,Te Nombraron en $chan,» $nick $+ : $1 $2 $3 $+ ... ) | flash -w ...
    var %pt.stat = $replace($nick($chan,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
    var %rga = $remove(%pt.stat,$nick)
    echo $chan $time.xd %rga 15»‹ $nick › $$1- | halt
    /window -g2 $chan | haltdef
  }
  if ($me !isin $strip($1-)) {
    var %pt.stat = $replace($nick($chan,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
    var %rga = $remove(%pt.stat,$nick)
    echo $chan $time.xd %rga 15‹ $nick › $$1- | halt
  }
}
on 1:INPUT:?: { 
  if ($left($1,1) == /) { return | HALT }
  .echo -a $time.xd 14‹ $me › $$1-
  haltdef
  .msg $active $1-
}
on ^*:action:*:?: { 
  echo -m $query($nick) 7,1•15 $nick $$1-
  haltdef
}

on ^*:TEXT:*:?: { 
  echo -m $query($nick) $time.xd ‹ $nick › $$1-
  haltdef
}
on ^*:ACTION:*:#:{
  if ($me !isin $strip($1-)) {
    var %pt.stat = $replace($nick($chan,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
    var %rga = $remove(%pt.stat,$nick)
    echo $chan $time.xd 7,1•15 %rga $+ $nick $+ : $1- 
    halt
  }
  if ($me isin $strip($1-)) {
    var %qtip $tip(highlight,Te Nombraron en $chan,» $nick $+ : $1 $2 $3 $+ ... ) | flash -w ...
    var %pt.stat = $replace($nick($chan,$nick).pnick,@,7@,+,9+,%,8%,!,!,~,5~,&,4&)
    var %rga = $remove(%pt.stat,$nick)
    echo $chan $time.xd 7,1»•15 %rga $+ $nick $+ : $1- 
    halt
  }
}
;;;;;;;;;;;;;;;
;raw *:*: echo -a $numeric $1-
;;;;;;;;;;;;;;;
raw 8:*: { 
  echo -s $time.xd $info. Modos de Servidor $5
  halt
}
raw 301:*: {
  echo -ai36 $th2(5) Away?7| SI: ( $+ $3- $+ )  
  halt
}
raw 305:*: { 
  echo -s $time.xd $info. AWAY Desactivado. Para activar nuevamente el AWAY escribe: /away (razon)
  halt
}
raw 306:*: { 
  echo -s $time.xd $info. AWAY Activado :), para desactivar escribe: /away
  halt
}
raw 307:*: {
  echo -a $th2(10) Registrado7| Si. 
  halt
}
raw 310:*: {
  echo -a $th2(9) Ayuda IRC7| Si.
  halt
}
raw 311:*: {
  echo -a $th2(10) ----------7:----------
  echo -a $th2(6) 4Whois 7- $2 
  echo -a $th2(6) Nombre7| $6-
  echo -a $th2(5) Ident7| $3 
  echo -a $th2(12) Direccion HM7| *!*@ $+ $4
  if ($ial($address($2,2),0) > 1) {
    unset %clones.*
    :start
    inc %clones.num
    if ($ial($address($2,2),%clones.num).nick == $2) { goto start }
    if ($ial($address($2,2),%clones.num) != $null) {
      %clones.nick = %clones.nick $ial($address($2,2),%clones.num).nick
      goto start
    }
    echo -a $th2(6) Clones7| %clones.nick
  }
  halt
}
raw 330:*: {
  echo -a $th2(4) User7| $3
  halt
}
raw 338:*: {
  echo -a $th2(12) Direccion IP7| $3
  halt
}
raw 378:*: {
  echo -ai36 $th2(8) Hostmask7| $6
  echo -ai36 $th2(2) IP7| $7
  halt
}
raw 379:*: {
  echo -ai36 $th2(5) Modos7| $6-
  halt
}
raw 312:*: {
  echo -a $th2(8) Servidor7| $3 
  echo -ai36 $th2(11) Descripcion7| $4- 
  halt
}
raw 381:*: { 
  echo -s $time.xd $info. $1 Ya eres $6- [IRCop]
  halt
}
raw 313:*: {
  echo -a $th2(5) Rango7| $5-9 
  halt
}
raw 319:*: {
  echo -a $th2(7) Canales7| $replace($3-,~,5~,&,4&,@,7@,%,8%,+,9+) 
  halt
}
raw 320:*: {
  echo -a $th2(14) Tecnico de RED7| Si.
  halt
}

raw 324:*:echo $2 $time.xd 4»Modos4: $3- | echo $2 $time.xd 14-4[15 Fin 4]14-
raw 332:*:echo $2 $time.xd 4»15Topic4:15 $3- | halt
raw 333:*:echo $2 $time.xd 4»15Puesto por4:15  $+ $3 $+  | echo $2 $time.xd 4»Fecha4: 14[15 $+ $gettok($asctime($4),1-3,32) $+ / $+ $gettok($asctime($4),4,32) $+ 14] | halt
raw 366:*:echo $2 $time.xd 4»15Usuarios4:15 0Op:15 $nick($2,0,o) $+ ( $+ $round($calc($nick($2,0,o) / $nick($2,0) * 100),0) $+  % $+ ) 0Voice:15 $nick($2,0,v,o) $+ ( $+ $round($calc($nick($2,0,v) / $nick($2,0) * 100),0) $+  % $+ ) 0Regulares:15 $nick($2,0,r) $+ ( $+ $round($calc($nick($2,0,r) / $nick($2,0) * 100),0) $+  % $+ ) $+ 14 [0Total: $nick($2,0) $+ 14] | halt 

raw 317:*: {
  echo -a $th2(9) Conectado7| $replace($asctime($4,dddd mm/dd/yyyy hh:nntt),Sunday,Domingo,Monday,Lunes,Tuesday,Martes,Wednesday,Miercoles,Thursday,Jueves,Friday,Viernes,Saturday,Sabado)
  echo -a $th2(8) Inactivo7| $duration($3)
  echo -a $th2(8) En linea7| $duration($calc($ctime - $4))
  halt
}
raw 335:*: { 
  echo -a $th2(3) Bot7| Yes. 
  halt
}
raw 318:*: { 
  echo -a $th2(6) 4Whois 7- Fin
  echo -a $th2(10) ----------7:---------- 
  halt
}
raw 404:*: { 
  echo -a $time.xd $info. $1 Necesitas $6 para poder escribir.
  halt
}
raw 470:*: { 
  echo -a $time.xd $info. $3 esta lleno, moviendo nick a $17
  halt
}
raw 474:*: { 
  echo -a $time.xd $info. No puedes entrar a $2 Estas Baneado $6 
  halt
}
raw 482:*: { 
  echo -a $time.xd $info. $1 No Eres Operador 
  halt
}
raw 671:*: {
  echo -a $th2(3) SSL7| Si.
  halt
}

alias th2 return $str($chr(160),$calc(16 - $1))

on *:TEXT:!vhost *:#vHost: {
  if (www isin $2-) { .msg #vHost 12 $+ $chr(91) $+  $nick 12 $+ $chr(93) $+  Tu vHost Contiene Dominios NO Esta Permitido. | return 0 }
  chghost $nick $2 | .msg #vHost 12 $+ $chr(91) $+  $nick 12 $+ $chr(93) $+  Tu vHost Se Cambio Satisfactoriamente a $chr(91) $2 $chr(93) - Haz un whois para VER!!
}