Autor Tema: Nick Completación en 3 colores  (Leído 1320 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Rubi

  • Visitante
Nick Completación en 3 colores
« en: Junio 05, 2017, 05:22:35 pm »
Buen día, me gustaría que me ayuden con este aliase para un nick completación en 3 colores. lo que busco es que al mencionar un nick salga asi: Ej. Hola Constantino cómo vas ?.
Código: [Seleccionar]
;--------- Letra col

col_activar set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),col(<t>))
col {
var %txt1 $+($chr(3),13)
var %txt2 $+($chr(3),12)
var %txt3 $+($chr(3),13)
var %mi frase $null, %i 1, %txt $chr(2), %n, %n2, %n3
while ($gettok($1-,%i,32) != $null) {
var %palabra = $v1
if ($len(%palabra) = 1) { %palabra = $+(%txt1,%palabra) | goto L }
%n = $int($calc($len(%palabra) / 3)) | %n2 = $calc($len(%palabra) - %n) | %n3 = $calc($len(%palabra) - $calc(%n + %n2))
%palabra = $+(%txt1,$mid(%palabra,14 $+ $left($1,1),%txt2,$mid(%palabra, $+ 04  $+ $mid($1-,2,-1) $calc(%n +1),$calc(%n2 - %n)),%txt3,$right(%palabra, $+ 14  $+  $right($1-,1)  ))
:L
%txt = %txt $+ %palabra
inc %i
}
return %txt
}


El aliase se activa con el siguiente comando /col_activar.
Quien pueda ayudarme de antemano muchas gracias :D

Desconectado Quetzalcoatl

  • Novato
  • *
  • Mensajes: 13
  • Karma: +2/-0
Re:Nick Completación en 3 colores
« Respuesta #1 en: Junio 05, 2017, 09:30:08 pm »
Saludos RUBI.

Agregue una S al final del activador, espero te sirva y te suguiero que te registres en el el foro para que cuando se te responda un post, se te notifique vía correo.



Código: [Seleccionar]
col_activars set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),col tri(<t>))
col tri { ; Primer y ultima palabra coloreada, y el centro de la palabra(mas amplio), tambien :P
  var %txt1 $+($chr(3),13)
  var %txt2 $+($chr(3),12)
  var %txt3 $+($chr(3),13)
  var %i 1, %txt $chr(2)
  while ($gettok($1-,%i,32) != $null) {
    var %palabra = $lower($v1) | if ($len(%palabra) < 3) { %palabra = $+(%txt1,%palabra) | goto L }
    ;>>>>>>>>>>>>>>>>>>>> Preguntas dudas con >> Quetzalcoatl red Chatzona canal #scripting  <<<<<<<<<<<<<<
    %palabra = $+(%txt1,$upper($left(%palabra,1)),%txt2,$mid(%palabra,2,-1),%txt3,$right(%palabra,1))
    :L | %txt = %txt $+ %palabra | inc %i
  }
  return %txt
}

Ya sabes cualquier duda contactame via irc, o dejame un memo por hay.
;>>>>>>>>>>>>>>>>>>>> Preguntas dudas con >> Quetzalcoatl red Chatzona canal #scripting  <<<<<<<<<<<<<<

Rubi

  • Visitante
Re:Nick Completación en 3 colores
« Respuesta #2 en: Junio 06, 2017, 09:43:03 pm »
Quetzalcoatl  Eres genial, muchas gracias por ayudarme,  funciona perfecto el aliase :D

Desconectado Purpura

  • Novato
  • *
  • Mensajes: 16
  • Karma: +0/-0
Re:Nick Completación en 3 colores
« Respuesta #3 en: Junio 08, 2017, 02:55:39 am »
Saludos RUBI.

Agregue una S al final del activador, espero te sirva y te suguiero que te registres en el el foro para que cuando se te responda un post, se te notifique vía correo.



Código: [Seleccionar]
col_activars set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),col tri(<t>))
col tri { ; Primer y ultima palabra coloreada, y el centro de la palabra(mas amplio), tambien :P
  var %txt1 $+($chr(3),13)
  var %txt2 $+($chr(3),12)
  var %txt3 $+($chr(3),13)
  var %i 1, %txt $chr(2)
  while ($gettok($1-,%i,32) != $null) {
    var %palabra = $lower($v1) | if ($len(%palabra) < 3) { %palabra = $+(%txt1,%palabra) | goto L }
    ;>>>>>>>>>>>>>>>>>>>> Preguntas dudas con >> Quetzalcoatl red Chatzona canal #scripting  <<<<<<<<<<<<<<
    %palabra = $+(%txt1,$upper($left(%palabra,1)),%txt2,$mid(%palabra,2,-1),%txt3,$right(%palabra,1))
    :L | %txt = %txt $+ %palabra | inc %i
  }
  return %txt
}

Ya sabes cualquier duda contactame via irc, o dejame un memo por hay.
;>>>>>>>>>>>>>>>>>>>> Preguntas dudas con >> Quetzalcoatl red Chatzona canal #scripting  <<<<<<<<<<<<<<



 A mí no me funcionó, me podrías explicar cómo se hace? por favor!

Desconectado Quetzalcoatl

  • Novato
  • *
  • Mensajes: 13
  • Karma: +2/-0
Re:Nick Completación en 3 colores
« Respuesta #4 en: Junio 08, 2017, 06:44:24 pm »
Hola Purpura.
Abres aliases en el mirc y pegas el código de abajo, después colocas en cualquier ventana /col_activars y das enter.
Código: [Seleccionar]
col_activars set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),coltri(<t>))
coltri { ; Primer y ultima palabra coloreada, y el centro de la palabra(mas amplio), también :P
  var %txt1 $+($chr(3),13)
  var %txt2 $+($chr(3),12)
  var %txt3 $+($chr(3),13)
  var %i 1, %txt $chr(2)
  while ($gettok($1-,%i,32) != $null) {
    var %palabra = $lower($v1) | if ($len(%palabra) < 3) { %palabra = $+(%txt1,%palabra) | goto L }
    ;>>>>>>>>>>>>>>>>>>>> Preguntas dudas con >> Quetzalcoatl red Chatzona canal #scripting  <<<<<<<<<<<<<<
    %palabra = $+(%txt1,$upper($left(%palabra,1)),%txt2,$mid(%palabra,2,-1),%txt3,$right(%palabra,1))
    :L | %txt = %txt $+ %palabra | inc %i
  }
  return %txt
}

PD: El código que puse tenia dos error de sintaxis(un espacio de más), referente al nombre del alias(col tri)

Desconectado Purpura

  • Novato
  • *
  • Mensajes: 16
  • Karma: +0/-0
Re:Nick Completación en 3 colores
« Respuesta #5 en: Junio 09, 2017, 08:26:38 am »
Hola Purpura.
Abres aliases en el mirc y pegas el código de abajo, después colocas en cualquier ventana /col_activars y das enter.
Código: [Seleccionar]
col_activars set %mod^ncomp $+($chr(15),$chr(8),$chr(15),$chr(8),coltri(<t>))
coltri { ; Primer y ultima palabra coloreada, y el centro de la palabra(mas amplio), también :P
  var %txt1 $+($chr(3),13)
  var %txt2 $+($chr(3),12)
  var %txt3 $+($chr(3),13)
  var %i 1, %txt $chr(2)
  while ($gettok($1-,%i,32) != $null) {
    var %palabra = $lower($v1) | if ($len(%palabra) < 3) { %palabra = $+(%txt1,%palabra) | goto L }
    ;>>>>>>>>>>>>>>>>>>>> Preguntas dudas con >> Quetzalcoatl red Chatzona canal #scripting  <<<<<<<<<<<<<<
    %palabra = $+(%txt1,$upper($left(%palabra,1)),%txt2,$mid(%palabra,2,-1),%txt3,$right(%palabra,1))
    :L | %txt = %txt $+ %palabra | inc %i
  }
  return %txt
}

PD: El código que puse tenia dos error de sintaxis(un espacio de más), referente al nombre del alias(col tri)

Muchas gracias por tu ayuda!

 

anything