some text effects from v1.1
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
}