on $*:TEXT:/^[@!]botinfo/Si:#: {
  if ( *$* iswm $1- ) { ignore -u600 $nick | notice $nick You are not allowed to use ''$'' in ANY of my commands. 10 min ignore | timer 1 600 notice $nick You are no longer ignored, please dont do it again. Thnx | halt 
  }
  if ($hget(botinfo,$nick) >= 2) { notice $nick Do not flood commands. Ignored for 10 mins | /ignore -u600 $nick | timer 1 600 You have been unignored. please dont do that again. Thnx | halt
  } 
  set %way $iif($left($1,1) == @, msg $chan, notice $nick) 12[14Bot-Info12]14
  hinc -mu5 botinfo $nick 1
  var %a = 1
  while (%a <= $scon(0)) {
    scon %a
    inc %chans $chan(0) 
    inc %a   
  }
  scon -r 
  %way 14I have been online on this server for12 $uptime(server,1) 14And last Reboot was12 $uptime(system,1) 14ago.
  %way 14I am in12 %chans $+ / $+ $calc( $scon(0) * 30 ) 14Channels over12 $scon(0) 14networks. (Thinking Each network has limit of 30 channels.)
  %way 14I am using12 Windows $+ $os $+ 14, and current bot time is12 $time 14or12 $asctime(hh:nn:TT) $+ 14.
  %way 14Most channels I've ever been in:12 %mostchannelsever 14Record sat on:12 %mostchannelseverdate
  unset %way
  unset %chans
} 

on me:*:JOIN:#: {
  var %c = 1
  var %maxchan = 0
  while (%c <= $scon(0)) {
    scon %c
    inc %maxchan $chan(0) 
    inc %c   
  }
  scon -r 
  if (%maxchan > %mostchannelsever) {
    set %mostchannelsever %maxchan
    set %mostchannelseverdate $date
  }
  unset %maxchan
}