;======================
;Risas de colores v1.0
;       By Ss
;======================

on *:input:*:{ 
 if (xd isin $1-) { say $replace($1-,xd,xDDDD) | halt }
}

;Sin problemas ¿no?
; --> if (xd isin $1-) [ si existe algun xd dentro de la cadena introducida ]
; --> say $replace($1-,xd,xDDDD) [ remplaza en la cadena dada ($1-) la palabra xd por xDDDD ]




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