on *:TEXT:.say*:#:{ 
  if ($level($address($nick,2)) <= 400) {
    .notice $nick NO Access to this command 
  }
  if ($level($address($nick,2)) >= 400) {
  .msg $chan Message from  $+ $nick $+ - $2- }
}
on 500:TEXT:.amsg*:#:{ 
  if ($level($address($nick,2)) <= 450) {
    .notice $nick NO Access to this command 
  }
  if ($level($address($nick,2)) >= 450) {
  .amsg GlobalMessage from  $+ $nick $+ - $2- }
}
on *:TEXT:.access*:#:{   
  if ($2 == $null) { notice $nick you have $ulevel access to $me }
  if ($2 != $null) { notice $nick $2 has $level($address($2,2)) access to $me }
}
on 500:TEXT:.adduser*:*: { /auser $3 $address($2,2) | /notice $nick Added $2 with $3 Access. } }
on 500:TEXT:.deluser*:*: { /ruser $3 $address($2,2) | /notice $nick Removed $2 from userlist. }
on *:text:.chans:#:{ while ($comchan($me,$0)) tokenize 32 $1- $v1 | msg # I am in $2- }