dialog chan_stat {
title Stats
size -1 -1 128 64
option dbu
box "User Stats", 16, 6 3 113 40
text "&Ops:", 4, 10 14 11 8
edit "", 1, 23 12 14 12, read
text "&Voiced:", 5, 42 14 18 8
edit "", 2, 62 12 14 12, read
text "&Regular:", 6, 80 14 20 8
edit "", 3, 102 12 14 12, read
text "Total Number of Users:", 29, 13 30 59 8
edit "", 30, 75 27 18 13, read
button "&Done", 20, 45 48 37 12, ok
}
on *:dialog:chan_stat:init:*:{
did -a $dname 30 $nick(%test.chan,0)
did -a $dname 1 $nick(%test.chan,0,o)
did -a $dname 2 $nick(%test.chan,0,v)
did -a $dname 3 $nick(%test.chan,0,r)
}
on *:OP:%test.chan:{
did -ra chan_stat 1 $nick(%test.chan,0,o)
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
}
on *:DEOP:%test.chan:{
did -ra chan_stat 1 $nick(%test.chan,0,o)
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
}
on *:voice:%test.chan:{
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
}
on *:devoice:%test.chan:{
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
}
on *:JOIN:%test.chan: {
if ($nick != $me) {
did -ra chan_stat 30 $nick(%test.chan,0)
did -ra chan_stat 3 $nick(%test.chan,0,r)
}
}
on *:PART:%test.chan:{
did -ra chan_stat 1 $nick(%test.chan,0,o)
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
did -ra chan_stat 30 $nick(%test.chan,0)
}
on *:KICK:%test.chan:{
did -ra chan_stat 1 $nick(%test.chan,0,o)
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
did -ra chan_stat 30 $nick(%test.chan,0)
}
on *:QUIT:{
did -ra chan_stat 1 $nick(%test.chan,0,o)
did -ra chan_stat 2 $nick(%test.chan,0,v)
did -ra chan_stat 3 $nick(%test.chan,0,r)
did -ra chan_stat 30 $nick(%test.chan,0)
}