on *:TEXT:!info*:#: {
var %a = 1, %op, %hop, %voice, %reg
while (%a <= $chan(0)) {
inc $iif($me isop $chan(%a), $(%op,0), $iif($me ishop $chan(%a), $(%hop,0), $iif($me isvoice $chan(%a), $(%voice,0), $(%reg,0))))
inc %a
}
if ($2 == op) { //var %c 1,%ops | while ($comchan($me,%c)) { if ($me isop $v1) var %ops %ops $v2 | inc %c } | notice $nick [4INFO - OP5]: --- I am op in these %op channels: %ops }
if ($2 == hop) { //var %c 1,%hops | while ($comchan($me,%c)) { if ($me ishop $v1) var %hops %hops $v2 | inc %c } | notice $nick [4INFO - HOP5]: --- I am hop in these %hop channels: %hops }
if ($2 == voice) { //var %c 1,%voices | while ($comchan($me,%c)) { if ($me isvoice $v1) var %voices %voices $v2 | inc %c } | notice $nick [4INFO - VOICE5]: --- I am voice in these %voice channels: %voices }
if ($2 == ranks) { /notice $nick [4INFO - RANKS5]: --- I am 4Op5 in %op Channels, 7Hop5 in %hop Channels, 2Voice5 in %voice Channels, and I got no rank in %reg Channels | notice $nick 3Type "4!info op3" To see what channels I am op in - Type "4!info hop3" To see what channels I am hop in - Type "4!info voice3" To see what channels I am voice in }
if ($2 == $null) { /notice $nick ERROR: "4!info help5" for help }
if ($2 == channels) { /notice $nick [4INFO - Channels5]: Currently am I in $chan(N) channels, and I have been in $lines(invchans2.txt) different channels }
if ($2 == invite) { /notice $nick [4INFO - INVITE5]: I Have totaly been invited $iif(%invite, $v1, 0) times in $lines(invchans.txt) different channels. In This Channel I have been invited $iif(%invite2. [ $+ [ $chan ] ], $v1, 0) times }
if ($2 == other) { /notice $nick [4INFO - OTHER5]: I've been kicked $iif(%kick, $v1, 0) times, and I have been banned $iif(%ban, $v1, 0) times }
if ($2 == help) {
/notice $nick [4INFO - HELP5]: Type "4!info ranks5" To see my channel ranks
/notice $nick [4INFO - HELP5]: Type "4!info invite5" To see how many times I have been invited
/notice $nick [4INFO - HELP5]: Type "4!info channels5" To see how many channels I am in
/notice $nick [4INFO - HELP5]: Type "4!info other5" To see some other info
}
}
on *:INVITE:#:{ if ($isfile(invchans.txt)) { filter -fk invchans.txt $ $chan | if (!$filtered) { write invchans.txt $chan } } | else { write invchans.txt $chan }
inc %invite2. [ $+ [ $chan ] ]
inc %invite
}
on *:JOIN:#:{ if ($nick == $me) {
if ($isfile(invchans2.txt)) { filter -fk invchans2.txt $ $chan | if (!$filtered) { write invchans2.txt $chan } } | else { write invchans2.txt $chan }
}
}
on *:KICK:#:{
if ($knick == $me) {
inc %kick
}
}
on *:BAN:#:{
if ($bnick == $me) {
inc %ban
}
}
on *:TEXT:@info*:#: {
var %a = 1, %op, %hop, %voice, %reg
while (%a <= $chan(0)) {
inc $iif($me isop $chan(%a), $(%op,0), $iif($me ishop $chan(%a), $(%hop,0), $iif($me isvoice $chan(%a), $(%voice,0), $(%reg,0))))
inc %a
}
if ($2 == op) { //var %c 1,%ops | while ($comchan($me,%c)) { if ($me isop $v1) var %ops %ops $v2 | inc %c } | notice $nick [4INFO - OP5]: --- I am op in these %op channels: %ops }
if ($2 == hop) { //var %c 1,%hops | while ($comchan($me,%c)) { if ($me ishop $v1) var %hops %hops $v2 | inc %c } | notice $nick [4INFO - HOP5]: --- I am hop in these %hop channels: %hops }
if ($2 == voice) { //var %c 1,%voices | while ($comchan($me,%c)) { if ($me isvoice $v1) var %voices %voices $v2 | inc %c } | notice $nick [4INFO - VOICE5]: --- I am voice in these %voice channels: %voices }
if ($2 == ranks) { msg $chan [4INFO - RANKS5]: --- I am 4Op5 in %op Channels, 7Hop5 in %hop Channels, 2Voice5 in %voice Channels, and i got no rank in %reg Channels | notice $nick 3Type "4!info op3" To see what channels i am op in - Type "4!info hop3" To see what channels i am hop in - Type "4!info voice3" To see what channels i am voice in }
if ($2 == $null) { notice $nick ERROR: "4!info help5" for help }
if ($2 == channels) { msg $chan [4INFO - Channels5]: Currently am I in $chan(N) channels, and I have been in $lines(invchans2.txt) different channels }
if ($2 == invite) { msg $chan [4INFO - INVITE5]: I Have totaly been invited $iif(%invite, $v1, 0) times in $lines(invchans.txt) different channels. In This Channel i have been invited $iif(%invite2. [ $+ [ $chan ] ], $v1, 0) times }
if ($2 == other) { msg $chan [4INFO - OTHER5]: I've been kicked $iif(%kick, $v1, 0) times, and i have been banned $iif(%ban, $v1, 0) times }
if ($2 == help) {
/notice $nick [4INFO - HELP5]: Type "4!info ranks5" To see my channel ranks
/notice $nick [4INFO - HELP5]: Type "4!info invite5" To see how many times i have been invited
/notice $nick [4INFO - HELP5]: Type "4!info channels5" To see how many channels i am in
/notice $nick [4INFO - HELP5]: Type "4!info other5" To see some other info
}
}