ksirc/advfollow.pl

   1 #
   2 #
   3 &print("*** Loading advance follow...");
   4
   5 @K_VAL_COL = (0,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
   6
   7 print "*** Using colours:";
   8 foreach (@K_VAL_COL) {
   9     print "~$_ $_";
  10 }
  11 print "\n";
  12
  13 %K_FOLLOW = ();
  14
  15 $KADV_ON = 1;
  16
  17 sub sum_nick {
  18     my $n = shift;
  19     my $sum = 0;
  20
  21     $n =~ s/^(.*)[-_|].*$/$1/;
  22
  23     foreach (split(//, $n)) {
  24         $sum += ord;
  25     }
  26     return $sum;
  27
  28 }
  29
  30 sub hook_ksircadvfollow {
  31     if($_[0] =~ /<~n(\w+)~c>/){
  32         my $n = $1;
  33         return if $n eq $nick;
  34         if(!defined($K_FOLLOW{$n})){
  35             $K_FOLLOW{$n} = $K_VAL_COL [ &sum_nick($n) %  $#K_VAL_COL];
  36         }
  37         my $c = $K_FOLLOW{$n};
  38         $_[0] =~ s/<~n\w+~c>/<~$c$n~c>/;
  39     }
  40     elsif ($_[0] =~ /~\* (\w+) \w+/) {
  41         my $n = $1;
  42         return if $n eq $nick;
  43         if(!defined($K_FOLLOW{$n})){
  44             $K_FOLLOW{$n} = $K_VAL_COL [ &sum_nick($n) % $#K_VAL_COL];
  45         }
  46         my $c = $K_FOLLOW{$n};
  47         $_[0] =~ s/\* \w+ (\w+)/\* ~$c$n~c $1/;
  48     }
  49 }
  50 addhook("print", "ksircadvfollow");
  51
  52 $K_ADV_LENGTH = 0;
  53
  54 sub kadv_save {
  55     &kadv_load();
  56     return if($K_ADV_LENGTH == (scalar %K_FOLLOW));
  57
  58     open(SAVE, ">$ENV{HOME}/.adv_follow") || return;
  59     my $n, $v;
  60     while(($n, $v) = each %K_FOLLOW){
  61         print SAVE "$n\t$v\n";
  62     }
  63     close SAVE;
  64     $K_ADV_LENGTH = scalar %K_FOLLOW;
  65 }
  66
  67 sub kadv_load {
  68     open(SAVE, "<$ENV{HOME}/.adv_follow") || return;
  69     while(<SAVE>){
  70         chomp;
  71         my ($n, $v) = split(/\t/, $_);
  72         if(!defined($K_FOLLOW{$n})){
  73             $K_FOLLOW{$n} = $v;
  74         }
  75
  76     }
  77     close SAVE;
  78 }
  79
  80 &kadv_load();
  81 sub kadv_timer_save {
  82     &timer(300, "&kadv_timer_save()", 324325);
  83     &kadv_save();
  84 }
  85 &timer(300, "&kadv_timer_save()", 324325);
  86
  87
  88 sub cmd_afflush {
  89     %K_FOLLOW = ();
  90 }
  91
  92 addhelp("afflush", "Usaage: afflush\nDelete all coloured nicks");
  93 addcmd("afflush");
  94
  95
  96 sub cmd_afnick {
  97     &getarg;
  98     my $n = $newarg;
  99     &getarg;
 100     if($newarg){
 101         $K_FOLLOW{$n} = $newarg;
 102     }
 103     else {
 104         $K_FOLLOW{$n} = $K_VAL_COL [int (rand scalar (@K_VAL_COL))];
 105     }
 106 }
 107
 108 addhelp("afnick", "Usage: afnick nick <col>\nResets the colour for nick.  If col is specefied it is set to col.  Random otherwise.");
 109 addcmd("afnick");
 110
 111 sub cmd_afoff {
 112     remhook("print", "ksircadvfollow");
 113 }
 114 addhelp("afoff", "Usage: afoff\nTurn off advance follow");
 115 addcmd("afoff");
 116
 117 sub cmd_afon {
 118     addhook("print", "ksircadvfollow");
 119 }
 120 addhelp("afon", "Usage: afon\nTurn on advange follow");
 121 addcmd("afon");
 122
 123 print "*** Advance follow Loaded\n";
 124 print "*** New commands: /afflush /afnick /afoff /afon\n";
 125