alias c1 return %c1
alias c2 return %c2
alias rund {
%u.msg = ""
%length = $len($1-)
%letter = 0
:nextletter
inc %letter
if (%letter > %length) { unset %yesno %length %letter | return %u.msg }
%yesno = $rand(0,2)
if (%yesno = 1) {
if ($mid($1-,%letter,1) == $chr(32)) { %u.msg = %u.msg $+ $chr(32) | goto nextletter }
%u.msg = %u.msg $+ $+ $mid($1-,%letter,1) $+
goto nextletter
}
if (%yesno = 0 || %yesno == 2) {
if ($mid($1-,%letter,1) == $chr(32)) { %u.msg = %u.msg $+ $chr(32) | goto nextletter }
%u.msg = %u.msg $+ $mid($1-,%letter,1)
goto nextletter
}
}
alias rbold {
%u.msg = ""
%length = $len($1-)
%letter = 0
:nextletter
inc %letter
if (%letter > %length) { unset %yesno %length %letter | return %u.msg }
%yesno = $rand(0,2)
if (%yesno = 1) {
if ($mid($1-,%letter,1) == $chr(32)) { %u.msg = %u.msg $+ $chr(32) | goto nextletter }
%u.msg = %u.msg $+ $+ $mid($1-,%letter,1) $+
goto nextletter
}
if (%yesno = 0 || %yesno == 2) {
if ($mid($1-,%letter,1) == $chr(32)) { %u.msg = %u.msg $+ $chr(32) | goto nextletter }
%u.msg = %u.msg $+ $mid($1-,%letter,1)
goto nextletter
}
}
alias /nickc { /dialog -md nickcomp nickcomp }
dialog nickcomp {
title "Nick Comp. v1.5"
size -1 -1 258 205
box "Setup", 1, 5 5 250 200,
text "Nick Completer Style:", 2, 12 25 110 15,
combo 3, 115 20 130 110,drop
check "Random Bold", 5, 10 45 83 15,
check "Random Underline", 6, 95 45 110 15,
check "Color", 7, 205 45 50 15,
box "Setup", 8, 5 5 250 60,
text "Color 1" 9, 40 70 50 15,
list 10, 20 85 100 100,
text "Color 2", 11, 165 70 50 15,
list 12, 140 85 100 100,
box "Setup", 13, 5 5 250 170,
check "Nick Completer" 14, 10 185 90 15,
button "Apply", 4, 105 180 65 20,ok
button "Exit", 15, 180 180 65 20,cancel
}
on *:dialog:nickcomp:init:0:{
did -a $dname 3 « nickname »
did -a $dname 3 - nickname -
did -a $dname 3 ^ nickname -
did -a $dname 3 ( nickname )
did -a $dname 3 .: nickname :.
did -a $dname 3 @ nickname @
did -a $dname 3 «« nickname »»
did -a $dname 3 -= nickname =-
did -a $dname 3 ! nickname i
did -a $dname 10 White
did -a $dname 10 Black
did -a $dname 10 Navy Blue
did -a $dname 10 Green
did -a $dname 10 Red
did -a $dname 10 Dark Red
did -a $dname 10 Purple
did -a $dname 10 Orange
did -a $dname 10 Yellow
did -a $dname 10 Lime
did -a $dname 10 Teal
did -a $dname 10 Cyan
did -a $dname 10 Blue
did -a $dname 10 Pink
did -a $dname 10 Dark Grey
did -a $dname 10 Light Grey
did -a $dname 12 White
did -a $dname 12 Black
did -a $dname 12 Navy Blue
did -a $dname 12 Green
did -a $dname 12 Red
did -a $dname 12 Dark Red
did -a $dname 12 Purple
did -a $dname 12 Orange
did -a $dname 12 Yellow
did -a $dname 12 Lime
did -a $dname 12 Teal
did -a $dname 12 Cyan
did -a $dname 12 Blue
did -a $dname 12 Pink
did -a $dname 12 Dark Grey
did -a $dname 12 Light Grey
if (%randund == on) { did -c $dname 6 }
if (%randbold == on) { did -c $dname 5 }
if (%color == on) { did -c $dname 7 }
if (%color == off) { did -b $dname 10,12 }
if (%nickcomp == on) { did -c $dname 14 }
}
on *:dialog:nickcomp:sclick:*:{
if ($did == 3) {
set %nickstyle $did($dname,3).seltext
if (%nickstyle == « nickname ») { set %ncleft.style « | set %ncright.style » }
if (%nickstyle == - nickname -) { set %ncleft.style - | set %ncright.style - }
if (%nickstyle == «« nickname »») { set %ncleft.style «« | set %ncright.style »» }
if (%nickstyle == ^ nickname -) { set %ncleft.style ^ | set %ncright.style ^ }
if (%nickstyle == .: nickname :.) { set %ncleft.style .: | set %ncright.style :. }
if (%nickstyle == ! nickname ¡) { set %ncleft.style ! | set %ncright.style ¡ }
if (%nickstyle == @ nickname @) { set %ncleft.style @ | set %ncright.style @ }
if (%nickstyle == -= nickname =-) { set %ncleft.style -= | set %ncright.style =- }
}
if ($did == 6) {
if (%randund == on) { set %randund off | halt }
if (%randund == off) { set %randund on | halt }
}
if ($did == 5) {
if (%randbold == on) { set %randbold off | halt }
if (%randbold == off) { set %randbold on | halt }
}
if ($did == 7) {
if (%color == on) { set %color off | did -b $dname 12,10 | halt }
if (%color == off) { set %color on | did -e $dname 12,10 | halt }
}
if ($did == 14) {
if (%nickcomp == on) { set %nickcomp off | .disable #nickc | halt }
if (%nickcomp == off) { set %nickcomp on | .enable #nickc | halt }
}
if ($Did == 10) {
set %c1 $did($dname,10).seltext
if (%c1 == White) { set %c1 0 }
if (%c1 == Black) { set %c1 1 }
if (%c1 == Navy Blue) { set %c1 2 }
if (%c1 == Green) { set %c1 3 }
if (%c1 == Red) { set %c1 4 }
if (%c1 == Dark Red) { set %c1 5 }
if (%c1 == Purple) { set %c1 6 }
if (%c1 == Orange) { set %c1 7 }
if (%c1 == Yellow) { set %c1 8 }
if (%c1 == Lime) { set %c1 9 }
if (%c1 == Teal) { set %c1 10 }
if (%c1 == Cyan) { set %c1 11 }
if (%c1 == Blue) { set %c1 12 }
if (%c1 == Pink) { set %c1 13 }
if (%c1 == Dark Grey) { set %c1 14 }
if (%c1 == Light Grey) { set %c1 15 }
}
if ($Did == 12) {
set %c2 $did($dname,12).seltext
if (%c2 == White) { set %c2 0 }
if (%c2 == Black) { set %c2 1 }
if (%c2 == Navy Blue) { set %c2 2 }
if (%c2 == Green) { set %c2 3 }
if (%c2 == Red) { set %c2 4 }
if (%c2 == Dark Red) { set %c2 5 }
if (%c2 == Purple) { set %c2 6 }
if (%c2 == Orange) { set %c2 7 }
if (%c2 == Yellow) { set %c2 8 }
if (%c2 == Lime) { set %c2 9 }
if (%c2 == Teal) { set %c2 10 }
if (%c2 == Cyan) { set %c2 11 }
if (%c2 == Blue) { set %c2 12 }
if (%c2 == Pink) { set %c2 13 }
if (%c2 == Dark Grey) { set %c2 14 }
if (%c2 == Light Grey) { set %c2 15 }
}
}
#nickc on
on *:INPUT:*:{
if (($left($1,1) != /) && ($right($1,1) == :)) {
var %a = 1
while ($nick($chan,%a)) {
if ($replace($1,:,*) iswm $nick($chan,%a)) {
if (%randbold == on) && (%randund == on) && (%color == on) { msg $chan $c1 $+ %ncleft.style $+ $c2 $+ $rbold($rund($nick($chan,%a)))) $+ $c1 $+ %ncright.style $+ $2- }
if (%randbold == off) && (%randund == on) && (%color == on) { msg $chan $c1 $+ %ncleft.style $+ $c2 $+ $rund($nick($chan,%a)) $+ $c1 $+ %ncright.style $+ $2- }
if (%randbold == on) && (%randund == off) && (%color == off) { msg $chan %ncleft.style $+ $rbold($nick($chan,%a)) $+ %ncright.style $+ $2- }
if (%randbold == off) && (%randund == on) && (%color == off) { msg $chan %ncleft.style $+ $rund($nick($chan,%a)) $+ %ncright.style $+ $2- }
if (%randbold == on) && (%randund == off) && (%color == on) { msg $chan $c1 $+ %ncleft.style $+ $c2 $+ $rbold($nick($chan,%a)) $+ $c1 $+ %ncright.style $+ $2- }
if (%randbold == off) && (%randund == off) && (%color == on) { msg $chan $c1 $+ %ncleft.style $+ $c2 $+ $nick($chan,%a) $+ $c1 $+ %ncright.style $+ $2- }
if (%randbold == off) && (%randund == off) && (%color == off) { msg $chan %ncleft.style $+ $nick($chan,%a)) $+ %ncright.style $2- }
if (%randbold == on) && (%randund == on) && (%color == off) { msg $chan %ncleft.style $+ $rund($rbold($nick($chan,%a))) $+ %ncright.style $2- }
haltdef | return
}
inc %a
}
}
}
#nickc end
on *:load:{ set %randund off | set %randbold off | set %nickcomp off | set %color off | echo Thank You For Using Nick Completer v1.5. }
on *:unload:{ echo -a Nick Completer v1.5 Has Been Deleted! }
menu channel,menubar,query {
Nick Completer:/nickc
}