Autor Tema: union  (Leído 3460 veces)

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

~Draco.

  • Visitante
union
« en: Enero 03, 2011, 02:25:32 am »
hola tengo el siguiente script
 
Código: [Seleccionar]
on *:signal:MODOESCRITURA: {
  var %numpal3 = $numtok($1-,32) | var %pospal3 = 1
  :relee
  %frase^halt = on
  var %palabra3 =  $+ $left($gettok($1-,%pospal3,32),1) $+ 12 $+  $right($gettok($1-,%pospal3,32),-1) 
  var %frase3 = %frase3 %palabra3
  if ( %pospal3 == %numpal3 ) { msg $active %frase3 | return }
  inc %pospal3
  goto relee
}
}

y se vería algo así

y tengo otro codigo
Código: [Seleccionar]
alias texto1 {
  var %a 1, %t $replace($1-,$chr(32),$chr(9)), %b $len(%t), %c, %j
  while ( %a <= %b ) {
    %c =  $+ $mid(%t,%a,1)
    %j = $+(%j,$iif($r(1,2) == 1,$chr(2)),%c)
    inc %a
  }
  say $Replace(%j,$chr(9),$chr(32))
}

y se veria asi

ahora el problema es que quiero unirlos en un mismo signal y que se conserve la primera letra de cada palabra en otro color y lo demas como el otro script ojala me puedan ayudar

Eric

  • Visitante
Re: union
« Respuesta #1 en: Enero 18, 2011, 12:24:30 am »
Código: [Seleccionar]
if ( %pospal3 == %numpal3 ) { msg $active %frase3 | return }
Yo creo que si eso... le haces...

Código: [Seleccionar]
if ( %pospal3 == %numpal3 ) { msg $active $texto1(%frase3) | return }
Tiene o debe de funcionar, siempre y cuando en tu alias texto1 cambies.. esto:

Código: [Seleccionar]
say $Replace(%j,$chr(9),$chr(32))
por esto otro:

Código: [Seleccionar]
return $Replace(%j,$chr(9),$chr(32))

~Draco.

  • Visitante
Re: union
« Respuesta #2 en: Enero 19, 2011, 07:50:04 am »
ya hize lo que me dijiste pero me sale este problema


el codigo lo tengo asi, espero que me puedas ayudar gracias
Código: [Seleccionar]
on *:signal:MODOESCRITURA: {
  var %numpal3 = $numtok($1-,32) | var %pospal3 = 1
  %frase^halt = on
  var %palabra3 = $left($gettok($1-,%pospal3,32),1) $+ $right($gettok($1-,%pospal3,32),-1)  
  var %frase3 = %frase3 %palabra3
  if ( %pospal3 == %numpal3 ) { msg $active $texto1(%frase3) | return }
  inc %pospal3
}

alias texto1 {
  var %a 1, %t $replace($1-,$chr(32),$chr(9)), %b $len(%t), %c, %j
  while ( %a <= %b ) {
    %c = $mid(%t,%a,1)
    %j = $+(%j,$iif($r(1,2) == 1,$chr(2)),%c)
    inc %a
  }
  return $Replace(%j,$chr(9),$chr(32))
}

Red_Erik

  • Visitante
Re: union
« Respuesta #3 en: Enero 23, 2011, 06:16:01 pm »
Resulta complicado fusionar el primer evento con un alias. Da la casualidad de el código del "signal" que muestras "lo conozco bien", así que prefiero crear un nuevo evento que haga (creo) lo que pides. Sería algo así:

;==========================================
; FUSION (para ~Draco)
;==========================================

on *:signal:MODOESCRITURA: {

  var %numeropalabras = $numtok($1-,32)
  var %posicionpalabra = 1
  var %negrita = 
  var %azul = 12
  var %finazul = 
  var %finnegrita = 
  var %subrayado = 
  var %finsubrayado = 

  :relee

  %frase^halt = on
  var %iniciopalabra = $left($gettok($1-,%posicionpalabra,32),1)
  var %restopalabra = $right($gettok($1-,%posicionpalabra,32),-1)

  var %numeroletra = 1
  while ( %numeroletra <= $len(%restopalabra)  ) {
    var %leoletrapar = $mid(%restopalabra,%numeroletra,1)
    var %leoletraimpar = $mid(%restopalabra,$calc(%numeroletra + 1),1)
    var %restopalabrasubrayada = %restopalabrasubrayada $+ %subrayado $+ %leoletrapar $+ %finsubrayado $+ %leoletraimpar
    inc %numeroletra 2
  }

  var %palabra =  %negrita $+ %iniciopalabra $+ %finnegrita $+ %azul  $+ %restopalabrasubrayada $+ %finazul
  var %frase = %frase %palabra
  unset %restopalabrasubrayada
  if ( %posicionpalabra == %numeropalabras ) { msg $active %frase | return }
  inc %posicionpalabra
  goto relee

}


Como verás he utilizado nombres de variables bien claros para que se entienda el funcionamiento y poder hacer facilmente los cambios si estos fueran necesarios.

Espero que sea de tu agrado, aunque cada vez me quedo más sorprendido por las cosas que pedís. ¿De verdad que hay canales por el IRC donde os permiten escribir escribir así sin un ban?

Saludos.

~Draco.

  • Visitante
Re: union
« Respuesta #4 en: Enero 24, 2011, 05:31:25 am »
muchas gracias, ya funciona.

Con respecto a los adornos o fonts en el server donde estoy dejan usar libremente ese tipo de fonts

 

anything