;=========================
;Nick-xD Completion v1.0
;        By Ss
;=========================


on *:input:#:{ 
 if (/* !iswm  $1) { 
  var %NCc = 1
  while ($gettok($1-,%NCc,32)) { 
   if ($gettok($1-,%NCc,32) ison #) { set %NC %NC [- $+ $gettok($1-,%NCc,32) -] }
   else { 
    if ($gettok($1-,%NCc,32) != xd) { set %NC %NC $gettok($1-,%NCc,32) }
    else { set %NC %NC xDDDD }
   }
   inc %Ncc
  }
  msg # %NC
  unset %NC
  halt
 }
}

;¿Facil?. Veamoslo pasa a paso.
; --> while ($gettok($1-,%NCc,32)) [ mientras halla palabras "sin escanear" ejecutamos el bucle ]
; --> if ($gettok($1-,%NCc,32) ison #) [ si la palabra(nick) esta en el canal, se setea la variable con su contenido mas la "palabra/nick" con los adornos ]
; --> else [ en caso de que la palabra no este en el canal ]
; -->  if ($gettok($1-,%NCc,32) != xd) [ Si la palabra no es xd, se setea la variable con su contenido y la palabra sin completar ]
; --> else [ se setea la variable con su contenido y un xd "modificado" ]
; --> msg # %NC [ enviamos al canal la cadena modificada ]

  

		_-_-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_-
		_-            \\  ||  //                 _-
		_-             [- Ss -]                  _-
		_-            //  ||  \\                 _-
		_-     http://Sscript.infdj.com          _-
		-_-_-_-_-_-_-_-_-_-_-_-_-_--_-_-_-_-_-_-_-_