alias loadpsybnc.list {
  did -r server 34
  var %x = $hmatch(data,psybnclist*,0).item
  while (%x) {
    var %x1 = $gettok($hget(data,psybnclist $+ %x),1-3,32)
    did -a server 34 $+($gettok(%x1,1,32),$chr(41)) $+($gettok(%x1,2,32),$chr(58),$gettok(%x1,3,32))
    dec %x
  }
  did -b server 48,35,36
  did -r server 43,44,45,46,47
}
alias psybnc.add {
  if (%psybnc.edit.num) {
    hadd data psybnclist $+ %psybnc.edit.num %psybnc.edit.num $did(43).text $did(44).text $did(45).text $did(46).text $did(47).text
    did -r server 43,44,45,46,47
    did -b server 48
  }
  else {
    var %x = $calc($hmatch(data,psybnclist*,0).item +1)
    hadd data psybnclist $+ %x %x $did(43).text $did(44).text $did(45).text $did(46).text $did(47).text
    did -r server 43,44,45,46,47
    did -b server 48
  }
  unset %psybnc.edit.num
}
alias psybnc.del {
  var %x = $did(34, $did(34).sel)
  var %x1 = $left($gettok(%x,1,32),1)
  hdel data psybnclist $+ %x1
}

alias connect.psy {
  var %x = $did(34, $did(34).sel)
  var %x1 = $left($gettok(%x,1,32),1)
  var %x2 = $hget(data,psybnclist $+ %x1)
  .fullname .
  .emailaddr .
  .identd on $gettok(%x2,5,32)
  .nick $gettok(%x2,6,32)
  .server $+($gettok(%x2,2,32),$chr(58),$gettok(%x2,3,32)) $gettok(%x2,4,32)
}
alias psybnc.edit {
  var %x = $did(34, $did(34).sel)
  set %psybnc.edit.num $left($gettok(%x,1,32),1)
  var %x2 = $hget(data,psybnclist $+ %psybnc.edit.num)
  did -ra server 43 $gettok(%x2,2,32)
  did -ra server 44 $gettok(%x2,3,32)
  did -ra server 45 $gettok(%x2,4,32)
  did -ra server 46 $gettok(%x2,5,32)
  did -ra server 47 $gettok(%x2,6,32)
  did -e server 48
}