!info

[chain]

all this does is show number of both scripts and aliases loaded, lines of code, and file size of the bot in Bytes KB and MB.

 

on *:TEXT:!info:#:{

  set %w 1 | set %ww 1

  while (%w 

[chain]

>on *:TEXT:!info*:#: {   

 var %a = 1, %op, %hop, %voice, %reg 

 while (%a 
   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 
   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

 }

}