1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
on *:OPEN:?:{
if ($comchan($nick,0) == 0) {
set %comchan N/A
}
else {
var %x = 1
while (%x <= $comchan($nick,0)) {
set %comchan $addtok(%comchan,$comchan($nick,%x),32)
inc %x
}
}
if ($readini(info/pm.ini,PM,$address($nick,5)) == $null) {
writeini info/pm.ini PM $address($nick,5) 1
}
else {
set %f $readini(info/pm.ini,PM,$address($nick,5))
inc %f
writeini info/pm.ini PM $address($nick,5) %f
unset %f
}
echo -lmt $nick 4[0Query with: $nick $+ 4]0 $chr(172) 4[0Address: $address($nick,5) $+ 4]0
echo -lmt $nick 4[0Messages with this user: $readini(info/pm.ini,PM,$address($nick,5)) $+ 4]0 $chr(172) 4[0Common Channels: %comchan $+ 4]0
unset %comchan
} |