on *:load: {
  echo -a -----( $+ $rainbowtext(Welcome To PuNkTuReD's Text Effects) $+ )-----
}
 
on 1:INPUT:*: { 
  ;----------Start Special Text
  if (%special == ON) {
    if ( / isin $1 ) || ( ! isin $1 ) {  }
    else {
      set %specialtext $strip($$1-)
      :start
      ;ALT + #
      ;a = 134 = å
      ;b = 225 = ß
      ;c = 0199 = Ç
      ;d = 0208 = Ð
      ;e = 137 = ë 
      ;i = 140 = î
      ;n = 164 = ñ
      ;o = 0216 = Ø
      ;s = 0167 = §
      ;u = 230 = µ
      ;y = 0165 = ¥
      ;unavailable letters f g h j k l m p q r t v w x z
      if (a isin $($+(%,specialtext),2)) && (%checkeda == $null) { set %specialtext $replace($($+(%,specialtext),2),a,$rainbowtext(å)) | set -u2 %checkeda 1 | goto start }
      if (b isin $($+(%,specialtext),2)) && (%checkedb == $null) { set %specialtext $replace($($+(%,specialtext),2),b,$rainbowtext(ß)) | set -u2 %checkedb 1 | goto start }
      if (c isin $($+(%,specialtext),2)) && (%checkedc == $null) { set %specialtext $replace($($+(%,specialtext),2),c,$rainbowtext(Ç)) | set -u2 %checkedc 1 | goto start }
      if (d isin $($+(%,specialtext),2)) && (%checkedd == $null) { set %specialtext $replace($($+(%,specialtext),2),d,$rainbowtext(Ð)) | set -u2 %checkedd 1 | goto start }
      if (e isin $($+(%,specialtext),2)) && (%checkede == $null) { set %specialtext $replace($($+(%,specialtext),2),e,$rainbowtext(ë)) | set -u2 %checkede 1 | goto start }
      if (i isin $($+(%,specialtext),2)) && (%checkedi == $null) { set %specialtext $replace($($+(%,specialtext),2),i,$rainbowtext(î)) | set -u2 %checkedi 1 | goto start }
      if (n isin $($+(%,specialtext),2)) && (%checkedn == $null) { set %specialtext $replace($($+(%,specialtext),2),n,$rainbowtext(ñ)) | set -u2 %checkedn 1 | goto start }
      if (o isin $($+(%,specialtext),2)) && (%checkedo == $null) { set %specialtext $replace($($+(%,specialtext),2),o,$rainbowtext(Ø)) | set -u2 %checkedo 1 | goto start }
      if (s isin $($+(%,specialtext),2)) && (%checkeds == $null) { set %specialtext $replace($($+(%,specialtext),2),s,$rainbowtext(§)) | set -u2 %checkeds 1 | goto start }
      if (u isin $($+(%,specialtext),2)) && (%checkedu == $null) { set %specialtext $replace($($+(%,specialtext),2),u,$rainbowtext(µ)) | set -u2 %checkedu 1 | goto start }
      if (y isin $($+(%,specialtext),2)) && (%checkedy == $null) { set %specialtext $replace($($+(%,specialtext),2),y,$rainbowtext(¥)) | set -u2 %checkedy 1 | goto start }
      ;--
      else {
        say $strip(%specialtext)
        unset %specialtext
        halt
      }
    }
  }
  ;----------End Special Text
  ;----------S.A.S.S Text
  if (%script == on) {
    if ( / isin $1 ) || ( ! isin $1 ) {  }
    else {
      say 4.:7 $+ $strip($1-) $+ 4:.:|12 $+ S4.12A4.12S4.12S4|:.
      halt 
    }
  }
  ;----------End S.A.S.S Text
  ;----------ColorText
  if (%colortext == ON) {
    if ( / isin $1 ) || ( ! isin $1 ) {  }
    else {
      say 4.: $+ %inputcolor $+ $strip($1-) $+ 4:.
      halt 
    }
  }
  ;----------End ColorText
  ;----------RainbowText
  if (%rainbowtext == ON) {
    if ( / isin $1 ) || ( ! isin $1 ) {  }
    else {
      say $rainbowtext($$1-) 
      halt
    }
  }
  ;----------End RainbowText
}
menu menubar,channel,nicklist {
†TextEffects
.ScriptText
..On:set %script ON
..Off:set %script OFF
.TextColor
..0.White:set %inputcolor 0
..1.Black:set %inputcolor 1
..2.Blue:set %inputcolor 2
..3.Green:set %inputcolor 3
..4.LightRed:set %inputcolor 4
..5.Brown:set %inputcolor 5
..6.Purple:set %inputcolor 6
..7.Orange:set %inputcolor 7
..8.Yellow:set %inputcolor 8
..9.LightGreen:set %inputcolor 9
..10.Cyan:set %inputcolor 10
..11.LightCyan:set %inputcolor 11
..12.LightBlue:set %inputcolor 12
..13.Pink:set %inputcolor 13
..14.Grey:set %inputcolor 14
..15.LightGrey:set %inputcolor 15
..On:set %colortext ON
..Off:set %colortext OFF
.RainbowText
..On:set %rainbowtext ON 
..Off:set %rainbowtext OFF
.SpecialText
..On:set %special ON
..Off:set %special OFF
.-
AdvertiseTextEffects:say $rainbowtext(These are available in the forum of www.punktured.eexweb.com)
}
alias rainbowtext { 
  var %a = 1, %b = $len($$1), %rainbowtext, %r.color = 2 
  while %a <= %b { 
    %rainbowtext = %rainbowtext $+ $iif($len(%r.color) = $chr(49),$+($chr(3),$chr(48),%r.color,$iif($asc($mid($$1,%a,1)) = 32,$chr(160),$mid($$1,%a,1))),$+($chr(3),%r.color,$iif($asc($mid($$1,%a,1)) = 32,$chr(160),$mid($$1,%a,1)))) 
    inc %r.color 
    if %r.color > 15 {      %r.color = 2    } 
    inc %a 
  } 
  $iif($isid,return,echo -a) %rainbowtext 
}
 

Commenting Options