- Stile Testo -

[chain]

- Stile Testo -

 

By: ^Sakurambo^

 

Come caricare l'Addon:

1 - Estrarre il file .zip nella cartella principale di MIRc

2 - /load -rs Stiletesto.mrc

 

Per segnalare eventuali bugs : cdefrg@libero.it

 

^_^ .............Buon divertimento................ ^_^

 

 

>on *:INPUT:*:{ if ( $left($1-,1) != / ) { /msg $active $midt($1-) | halt } } on *:start:{ set %Style normal } on *:load:{ set %Style normal  linesep  echo 4 -s   echo 4 -s [ Stile-Testo ] By ©  ®   echo 7 -s Per usare l'Addon vedi menù " Commands "   echo 13 -s " http://Kaesar83.altervista.org "  linesep} on *:NOTICE:*:#:{  echo -a $3-}alias midt {  $iif( %Style == normal,return $1-)  $iif( %Style == numbers,return $replace($1-,a,4,o,0,i,1,e,3) )  $iif( %Style == underlined,return $stk($1-) )  $iif( %Style == boldunderlined,return $stk($1-) )  $iif( %Style == UnderlinedPrimaLettera,return $stk($1-) )  $iif( %Style == BoldPrimaLettera,return $stk($1-) )  $iif( %Style == boldunderlinedPrimaLettera,return $stk($1-) )  $iif( %Style == Colorecasuale,return $stk($1-) )  $iif( %Style == contrario,return $stk($1-) )  $iif( %Style == munderlined,return $stk($1-) )  return $cmid($1-)}alias stk {  var %Stok = 1   tokenize 32 $1-  while ( $ [ $+ [ %Stok ] ] ) {    if ( %Style == underlined ) { var %Toktext = $instok(%Toktext, $+ $ [ $+ [ %Stok ] ] $+ ,$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == boldunderlined ) { var %Toktext = $instok(%Toktext, $+ $ [ $+ [ %Stok ] ] $+ ,$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == UnderlinedPrimaLettera ) { var %Toktext = $instok(%Toktext, $+ $left($ [ $+ [ %Stok ] ],1) $+  $+ $right($ [ $+ [ %Stok ] ],-1),$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == BoldPrimaLettera ) { var %Toktext = $instok(%Toktext, $+ $left($ [ $+ [ %Stok ] ],1) $+  $+ $right($ [ $+ [ %Stok ] ],-1),$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == boldunderlinedPrimaLettera ) { var %Toktext = $instok(%Toktext, $+ $left($ [ $+ [ %Stok ] ],1) $+  $+ $right($ [ $+ [ %Stok ] ],-1),$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == Colorecasuale ) { var %Toktext = $instok(%Toktext,$_($ [ $+ [ %Stok ] ]),$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == contrario ) { var %Toktext = $instok(%Toktext,$contr($ [ $+ [ %Stok ] ]),$calc($numtok(%Toktext,32) + 1),32) }    if ( %Style == munderlined ) { var %Toktext = $instok(%Toktext, $+ $cmid($ [ $+ [ %Stok ] ]) $+ ,$calc($numtok(%Toktext,32) + 1),32) }    inc %Stok  }  return %Toktext}alias cmid {  var %i = 1  while ( $mid($1,%i,1) != $null ) {    if (  $mid($1,%i,1) == $chr(32) ) { var %testo = %testo $+ $chr(32) $+ $stile($mid($1,$calc( %i + 1 ),1)) | inc %i 2 }    else { var %testo = %testo $+ $stile($mid($1,%i,1)) | inc %i }  }  return %testo}alias stile {  if ( %Style == maiuscolo || %Style == munderlined ) { var %txt = $_2($1) }  if ( %Style == colorato ) {     if ( $1 isnum ) { var %txt =  $_n($1) }    else { var %txt = $_($1) }  }  if ( %Style == colorato2 ) {     if ( $1 isnum ) { var %txt = $_n($1) }    else { var %txt = $_($_2($1)) }  }  if ( %Style == grenon ) { var %txt = $_5($1) }  if ( %Style == grenoncol ) {     if ( $1 isnum ) { var %txt = $_n($_5($1)) }    else { var %txt = $_($_5($1)) }  }  if ( %Style == grenoncolm ) {     if ( $1 isnum ) { var %txt = $_n($_5($_2($1))) }    else { var %txt = $_($_5($_2($1))) }  }  return %txt}alias _n return  $+ $rand(3,13) $+  $+ $1alias _2 return $iif($rand(0,9) >= 4,$upper($1),$lower($1))alias _5 return $iif($rand(0,9) >= 4, $+ $1 $+ ,$1)alias _ return  $+ $rand(2,15) $+ $1 $+ Menu menubar {  -  .Stile Testo  ..$iif(%~Style == normal,$style(2)) Normale:{ set %Style normal }  ..$iif(%~Style == contrario,$style(2)) Contrario:{ set %Style contrario }  ..$iif(%~Style == numbers,$style(2)) Numeri:{ set %Style numbers }  ..$iif(%~Style == maiuscolo,$style(2)) Maiuscolo:{ set %Style maiuscolo }  ..$iif(%~Style == underlined,$style(2)) Sottolineato:{ set %Style underlined }  ..$iif(%~Style == munderlined,$style(2)) M.Sottolineato:{ set %Style munderlined }  ..$iif(%~Style == boldunderlined,$style(2)) G.Sottolineato:{ set %Style boldunderlined }  ..$iif(%~Style == grenon,$style(2)) G.Alternato:{ set %Style grenon  }  ..$iif(%~Style == grenoncol,$style(2)) G.AlternatoCol.:{ set %Style grenoncol }  ..$iif(%~Style == grenoncolm,$style(2)) G.M.AlternatoCol.:{ set %Style grenoncolm }  ..$iif(%~Style == Colorecasuale,$style(2)) Colorato:{ set %Style Colorecasuale }  ..$iif(%~Style == colorato,$style(2)) Colorato 2:{ set %Style colorato  }  ..$iif(%~Style == colorato2,$style(2)) Colorato 3:{ set %Style colorato2 }  ..$iif(%~Style == UnderlinedPrimaLettera,$style(2)) Prima sott.:{ set %Style UnderlinedPrimaLettera }  ..$iif(%~Style == BoldPrimaLettera,$style(2)) Prima gr.:{ set %Style BoldPrimaLettera }  ..$iif(%~Style == boldunderlinedPrimaLettera,$style(2)) Prima gr.sott.:{ set %Style boldunderlinedPrimaLettera }  -}