File: autoquery

package info (click to toggle)
epic5 3.0.3-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 5,328 kB
  • sloc: ansic: 75,810; makefile: 648; ruby: 227; python: 215; sh: 78; perl: 13
file content (28 lines) | stat: -rw-r--r-- 714 bytes parent folder | download | duplicates (5)
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
if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };

addset autocreate_split_queries bool;
set autocreate_split_queries off;

alias _autoquery {
  @ :name = encode($servernum(),$tolower($0));
  if ((:num = winnum($name)) == -1) {
    if (getset(autocreate_split_queries) == [ON]) {
      window new server $servernum() query $0 name $name swap last;
     } else {
      window new_hide swap last server $servernum() query $0 name $name swap last;
    };
  } elif (querywin($0 $servernum()) == -1) {
    ^window $num server $servernum() query $0;
  };
};

on #-msg -29 "*" {
  _autoquery $0;
};

on #-encrypted_privmsg -29 "*" {
  if ([$0] == [$1]) {
    _autoquery $0;
  };
};
#weirdo'2k6