You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
126 lines
2.5 KiB
126 lines
2.5 KiB
#
|
|
#
|
|
&print("*** Loading advance follow...");
|
|
|
|
@K_VAL_COL = (0,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
|
|
|
|
print "*** Using colours:";
|
|
foreach (@K_VAL_COL) {
|
|
print "~$_ $_";
|
|
}
|
|
print "\n";
|
|
|
|
%K_FOLLOW = ();
|
|
|
|
$KADV_ON = 1;
|
|
|
|
sub sum_nick {
|
|
my $n = shift;
|
|
my $sum = 0;
|
|
|
|
$n =~ s/^(.*)[-_|].*$/$1/;
|
|
|
|
foreach (split(//, $n)) {
|
|
$sum += ord;
|
|
}
|
|
return $sum;
|
|
|
|
}
|
|
|
|
sub hook_ksircadvfollow {
|
|
if($_[0] =~ /<~n(\w+)~c>/){
|
|
my $n = $1;
|
|
return if $n eq $nick;
|
|
if(!defined($K_FOLLOW{$n})){
|
|
$K_FOLLOW{$n} = $K_VAL_COL [ &sum_nick($n) % $#K_VAL_COL];
|
|
}
|
|
my $c = $K_FOLLOW{$n};
|
|
$_[0] =~ s/<~n\w+~c>/<~$c$n~c>/;
|
|
}
|
|
elsif ($_[0] =~ /~\* (\w+) \w+/) {
|
|
my $n = $1;
|
|
return if $n eq $nick;
|
|
if(!defined($K_FOLLOW{$n})){
|
|
$K_FOLLOW{$n} = $K_VAL_COL [ &sum_nick($n) % $#K_VAL_COL];
|
|
}
|
|
my $c = $K_FOLLOW{$n};
|
|
$_[0] =~ s/\* \w+ (\w+)/\* ~$c$n~c $1/;
|
|
}
|
|
}
|
|
addhook("print", "ksircadvfollow");
|
|
|
|
$K_ADV_LENGTH = 0;
|
|
|
|
sub kadv_save {
|
|
&kadv_load();
|
|
return if($K_ADV_LENGTH == (scalar %K_FOLLOW));
|
|
|
|
open(SAVE, ">$ENV{HOME}/.adv_follow") || return;
|
|
my $n, $v;
|
|
while(($n, $v) = each %K_FOLLOW){
|
|
print SAVE "$n\t$v\n";
|
|
}
|
|
close SAVE;
|
|
$K_ADV_LENGTH = scalar %K_FOLLOW;
|
|
}
|
|
|
|
sub kadv_load {
|
|
open(SAVE, "<$ENV{HOME}/.adv_follow") || return;
|
|
while(<SAVE>){
|
|
chomp;
|
|
my ($n, $v) = split(/\t/, $_);
|
|
if(!defined($K_FOLLOW{$n})){
|
|
$K_FOLLOW{$n} = $v;
|
|
}
|
|
|
|
}
|
|
close SAVE;
|
|
}
|
|
|
|
&kadv_load();
|
|
sub kadv_timer_save {
|
|
&timer(300, "&kadv_timer_save()", 324325);
|
|
&kadv_save();
|
|
}
|
|
&timer(300, "&kadv_timer_save()", 324325);
|
|
|
|
|
|
sub cmd_afflush {
|
|
%K_FOLLOW = ();
|
|
}
|
|
|
|
addhelp("afflush", "Usaage: afflush\nDelete all coloured nicks");
|
|
addcmd("afflush");
|
|
|
|
|
|
sub cmd_afnick {
|
|
&getarg;
|
|
my $n = $newarg;
|
|
&getarg;
|
|
if($newarg){
|
|
$K_FOLLOW{$n} = $newarg;
|
|
}
|
|
else {
|
|
$K_FOLLOW{$n} = $K_VAL_COL [int (rand scalar (@K_VAL_COL))];
|
|
}
|
|
}
|
|
|
|
addhelp("afnick", "Usage: afnick nick <col>\nResets the colour for nick. If col is specefied it is set to col. Random otherwise.");
|
|
addcmd("afnick");
|
|
|
|
sub cmd_afoff {
|
|
remhook("print", "ksircadvfollow");
|
|
}
|
|
addhelp("afoff", "Usage: afoff\nTurn off advance follow");
|
|
addcmd("afoff");
|
|
|
|
sub cmd_afon {
|
|
addhook("print", "ksircadvfollow");
|
|
}
|
|
addhelp("afon", "Usage: afon\nTurn on advange follow");
|
|
addcmd("afon");
|
|
|
|
print "*** Advance follow Loaded\n";
|
|
print "*** New commands: /afflush /afnick /afoff /afon\n";
|
|
|