Code:

proc do_access {nick chan msbots1 host} {  # This proc MUST be kept as streamlined as possible  global home botnick bcast  if {![validchan $chan]} {    putquick "NOTICE $nick :\0034ERROR: \002$chan\002 is not a registered channel."    return 0  } elseif {$msbots1 == ""} {    putquick "NOTICE $nick :\0034ERROR: Please use: \002(/msg) $botnick access <#channel> <nick>\002"    return 0  } elseif {![onchan $msbots1 $chan]} {    putquick "NOTICE $nick :\0034ERROR: \002$msbots1\002 isn't in $chan"    return 0  }  if {[validuser $msbots1]} {    set hand2 $msbots1    set hand3 [nick2hand $hand2 $chan]  } elseif {[validuser [nick2hand $msbots1 $chan]]} {    set hand2 $msbots1    set hand3 [nick2hand $hand2 $chan]  } else {    putquick "NOTICE $nick :\0034ERROR: \002$msbots1\002 is not a valid user."    return 0  }  set access "N/A"  # Default global access to null string for use later on    set gaccess ""   if {[matchattr $hand3 |v $chan]} {    set access "Automatically Voiced"  } elseif {[matchattr $hand3 |a $chan]} {    set access "Automatic Operator"  } elseif {[matchattr $hand3 |o $chan]} {    set access "Channel Operator"  } elseif {[matchattr $hand3 |m $chan]} {    set access "Channel Co-Administrator"  } elseif {[matchattr $hand3 |n $chan]} {    set access "Channel Administrator"  } elseif {[matchattr $hand3 n]} {    set gaccess "Bot Administrator"  } elseif {[matchattr $hand3 m]} {    set gaccess "Botnet Co-Administrator"  } elseif {[matchattr $hand3 o]} {    set gaccess "Botnet Operator"  }  set rhosts [getuser $hand3 HOSTS]  set comment [getchaninfo $hand3 $chan]  putlog "!$nick ($host)! access $chan $hand3"  if {$bcast == "1"} {    putquick "PRIVMSG $home :$nick!$host requested to see access for $hand3 on $chan ..showing..."     }  putquick "NOTICE $nick :\002Nickname:\002 \00312$hand2"  putquick "NOTICE $nick :\002Handle:\002 \00312$hand3"  putquick "NOTICE $nick :\002Access in $chan:\002 \00312$access"  putquick "NOTICE $nick :\002Comment:\002 \00312$comment"  putquick "NOTICE $nick :\002Remote Hostnames:\002 \00312$rhosts"   if {[matchattr $hand3 D]} {    putquick "NOTICE $nick :\0033\002$hand2\002\0034 is a disabled user."    return 0    }  # Now display global permissions if anoy  if {$gaccess != ""} {    putquick "NOTICE $nick :\002Global Permissions:\002\00312 $gaccess"  }  return 0}

Code:

proc checkaccess {hand1 chan hand2} {  set hand1lev 0  set hand2lev 0        if {[matchattr $hand1 |a $chan]} {    set hand1lev 1  }  if {[matchattr $hand1 |v $chan]} {    set hand1lev 2  }   if {[matchattr $hand1 |o $chan]} {    set hand1lev 3  }     if {[matchattr $hand1 |m $chan]} {    set hand1lev 4  }  if {[matchattr $hand1 |n $chan]} {    set hand1lev 5  }  if {[matchattr $hand1 o]} {    set hand1lev 6  }  if {[matchattr $hand1 m]} {    set hand1lev 7  }  if {[matchattr $hand1 n]} {    set hand1lev 8  }  if {[matchattr $hand2 |a $chan]} {    set hand2lev 1  }       if {[matchattr $hand2 |v $chan]} {    set hand2lev 2  }  if {[matchattr $hand2 |o $chan]} {    set hand2lev 3  }  if {[matchattr $hand2 |m $chan]} {    set hand2lev 4  }  if {[matchattr $hand2 |n $chan]} {    set hand2lev 5  }  if {[matchattr $hand2 o]} {    set hand2lev 6  }  if {[matchattr $hand2 m]} {    set hand2lev 7  }  if {[matchattr $hand2 n]} {    set hand2lev 8  }  set result [expr $hand1lev - $hand2lev]  if {$result == -1 } { return 0 }  if {$result == -2 } { return 0 }  if {$result == -3 } { return 0 }  if {$result == -4 } { return 0 }  if {$result == -5 } { return 0 }  return $result}

Code:

proc msg:access {nick host handle arg} {  global botnick  # Argument = channel  set argument [lindex $arg 0]  if {[string match "#*" $argument]} {    if {[validchan $argument]} {      set chan $argument      set msbots1 [lindex $arg 1]    } else {      putquick "NOTICE $nick :\0034ERROR - This bot is not in $argument."      return 0    }  } else {    putquick "NOTICE $nick :\0034ERROR - You need to specify a channel."    return 0  }  do_access $nick $chan $msbots1 $host  return 0}