Perty mIRC
Posted by Coag
Thursday, September 22, 2005
Description: A fancy, good looking display script for mIRC.
alias ev {
.msg $active [^B][[^B]Eval[^B]][^B] $($1-,1) == $iif($($1-,2),$($1-,2),$null) [^B][[^B]lavE[^B]][^B]
echo -m $active [^K]10([^O][^K]15 $+ $asctime(hh:nn:ss) $+ [^K]10)[^K] [^K]10 -- [^K]15Eval:[^K] $($1-,1) == $iif($($1-,2),$($1-,2),$null)
}
on ^*:TEXT:*:#:{
if ($me isin $1-) {
echo -ml $chan [^K]4([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]4)[^K] [^K]4( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]4)[^K]4 $1-
haltdef
}
else {
echo -m $chan [^K]10([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]10)[^K] [^K]10( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]10)[^K] $1-
haltdef
}
}
on *:INPUT:#:{
if (/* !iswm $1) {
.msg $active $1-
echo -m $chan [^K]10([^O][^K]15 $+ $asctime(hh:nn:ss) $+ [^K]10)[^K] [^K]10( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]15 $+ $nick $+ [^K]10)[^K] $1-
haltdef
}
else return
}
on ^*:TEXT:*:?:{
if ($me isin $1-) {
echo -lm $nick [^K]4([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]4)[^K] [^K]4( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]4)[^K]4 $1-
haltdef
}
else {
echo -m $nick [^K]11([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]11)[^K] [^K]11( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]11)[^K] $1-
haltdef
}
}
on *:INPUT:?:{
if (/* !iswm $1) {
.msg $active $1-
echo -m $active [^K]11([^O][^K]15 $+ $asctime(hh:nn:ss) $+ [^K]11)[^K] [^K]11( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]15 $+ $nick $+ [^K]11)[^K] $1-
haltdef
}
else return
}
alias ev {
.msg $active [^B][[^B]Eval[^B]][^B] $($1-,1) == $iif($($1-,2),$($1-,2),$null) [^B][[^B]lavE[^B]][^B]
echo -m $active [^K]10([^O][^K]15 $+ $asctime(hh:nn:ss) $+ [^K]10)[^K] [^K]10 -- [^K]15Eval:[^K] $($1-,1) == $iif($($1-,2),$($1-,2),$null)
}
on ^*:TEXT:*:#:{
if ($me isin $1-) {
echo -ml $chan [^K]4([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]4)[^K] [^K]4( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]4)[^K]4 $1-
haltdef
}
else {
echo -m $chan [^K]10([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]10)[^K] [^K]10( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]10)[^K] $1-
haltdef
}
}
on *:INPUT:#:{
if (/* !iswm $1) {
.msg $active $1-
echo -m $chan [^K]10([^O][^K]15 $+ $asctime(hh:nn:ss) $+ [^K]10)[^K] [^K]10( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]15 $+ $nick $+ [^K]10)[^K] $1-
haltdef
}
else return
}
on ^*:TEXT:*:?:{
if ($me isin $1-) {
echo -lm $nick [^K]4([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]4)[^K] [^K]4( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]4)[^K]4 $1-
haltdef
}
else {
echo -m $nick [^K]11([^O][^K]14 $+ $asctime(hh:nn:ss) $+ [^K]11)[^K] [^K]11( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]14 $+ $nick $+ [^K]11)[^K] $1-
haltdef
}
}
on *:INPUT:?:{
if (/* !iswm $1) {
.msg $active $1-
echo -m $active [^K]11([^O][^K]15 $+ $asctime(hh:nn:ss) $+ [^K]11)[^K] [^K]11( $+ $iif($left($nick($chan,$nick).pnick,1) !isalpha,[^K]3 $+ $left($nick($chan,$nick).pnick,1),$eval($null,2)) $+ [^K]15 $+ $nick $+ [^K]11)[^K] $1-
haltdef
}
else return
}