Something

ON *:JOIN:#:{ if if ($istok(%admin,$address($nick,2),32)) { msg $chan  10[7Bot Admin10] welcome botadmin 7 $nick 10 to 7 $chan
  }
  on *:TEXT:!addadmin*:#:{ 
    if ($address($nick,2) == *!*@lordier.users.swiftirc.net ) {
      set %admin $remtok(%admin,$address($2,2),1,32)      
      msg $chan 7 $2 10 is now an bot admin under host 7 $address($2,2)
    }
  }
  ON *:JOIN:#:{ if if ($istok(%admin,$address($nick,2),32)) { msg $chan  10[7Bot Admin10] welcome botadmin 7 $nick 10 to 7 $chan
    }
    on *:TEXT:@botstatus:#: {
      if ($istok(%admin,$nick,32)) {   msg $chan 10[' 7BOT-STATUS 10'] 10Im currently on7 $chan(0) $+ /30 10channels ;)
      }  
    }
  }
  on *:TEXT:!botstatus:#: {
    if ($istok(%admin,$nick,32))  {   notice $nick 10[' 7BOT-STATUS 10'] 10Im currently on7 $chan(0) $+ /30 10channels ;)
    }
  }
}
on *:TEXT:!deladmin*:#:{
  unset %admin $address($2,2) 
}
}