1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
#
#
&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";
|
