press alt + p and paste this Snippet to menubar

-
Change/Chose
.Nicks
..Add a Nick: {
  if ( %nick1 == $null ) { set %nick1 1. $$?="Enter A Nick" | goto end }
  if ( %nick2 == $null ) { set %nick2 2. $$?="Enter A Nick" | goto end }
  if ( %nick3 == $null ) { set %nick3 3. $$?="Enter A Nick" | goto end }
  if ( %nick4 == $null ) { set %nick4 4. $$?="Enter A Nick" | goto end }
  if ( %nick5 == $null ) { set %nick5 5. $$?="Enter A Nick" | goto end }
  if ( %nick6 == $null ) { set %nick6 6. $$?="Enter A Nick" | goto end }
  if ( %nick7 == $null ) { set %nick7 7. $$?="Enter A Nick" | goto end }
  if ( %nick8 == $null ) { set %nick8 8. $$?="Enter A Nick" | goto end }
  if ( %nick9 == $null ) { set %nick9 9. $$?="Enter A Nick" | goto end }
  else { echo Too many nicks in your nick list | halt }
  :end
  echo $! has been added to your nick list 
}
.Change Nick
..%nick1:/nick $remove(%nick1,1. )
..%nick2:/nick $remove(%nick2,2. )
..%nick3:/nick $remove(%nick3,3. )
..%nick4:/nick $remove(%nick4,4. )
..%nick5:/nick $remove(%nick5,5. )
..%nick6:/nick $remove(%nick6,6. )
..%nick7:/nick $remove(%nick7,7. )
..%nick8:/nick $remove(%nick8,8. )
..%nick9:/nick $remove(%nick9,9. )
.Del a Nick
..%nick1:/unset %nick1
..%nick2:/unset %nick2
..%nick3:/unset %nick3
..%nick4:/unset %nick4
..%nick5:/unset %nick5
..%nick6:/unset %nick6
..%nick7:/unset %nick7
..%nick8:/unset %nick8
..%nick9:/unset %nick9
.-
.Channels
..Add a Chan: {
  if ( %chan1 == $null ) { set %chan1 1. #$$?="Enter A Channel" | goto end }
  if ( %chan2 == $null ) { set %chan2 2. #$$?="Enter A Channel" | goto end }
  if ( %chan3 == $null ) { set %chan3 3. #$$?="Enter A Channel" | goto end }
  if ( %chan4 == $null ) { set %chan4 4. #$$?="Enter A Channel" | goto end }
  if ( %chan5 == $null ) { set %chan5 5. #$$?="Enter A Channel" | goto end }
  if ( %chan6 == $null ) { set %chan6 6. #$$?="Enter A Channel" | goto end }
  if ( %chan7 == $null ) { set %chan7 7. #$$?="Enter A Channel" | goto end }
  if ( %chan8 == $null ) { set %chan8 8. #$$?="Enter A Channel" | goto end }
  if ( %chan9 == $null ) { set %chan9 9. #$$?="Enter A Channel" | goto end }
  if ( %chan10 == $null ) { set %chan10 10. #$$?="Enter A Channel" | goto end }
  else { echo Too many channels in your channel list | halt }
  :end
  echo $! has been added to your channel list
}
.Join a Channel
..%chan1:/join $remove(%chan1,1. )
..%chan2:/join $remove(%chan2,2. )
..%chan3:/join $remove(%chan3,3. )
..%chan4:/join $remove(%chan4,4. )
..%chan5:/join $remove(%chan5,5. )
..%chan6:/join $remove(%chan6,6. )
..%chan7:/join $remove(%chan7,7. )
..%chan8:/join $remove(%chan8,8. )
..%chan9:/join $remove(%chan9,9. )
..%chan10:/join $remove(%chan10,10. )
.Del a Chan
..%chan1:/unset %chan1
..%chan2:/unset %chan2
..%chan3:/unset %chan3
..%chan4:/unset %chan4
..%chan5:/unset %chan5
..%chan6:/unset %chan6
..%chan7:/unset %chan7
..%chan8:/unset %chan8
..%chan9:/unset %chan9
..%chan10:/unset %chan10
-