On *:Connect:{.who }
raw 352 :*:{
  if ($gettok($6,1,91) == %friend1) { .msg $me %friend1 is on $2 }
  if ($gettok($6,1,91) == %friend2) { .msg $me %friend2 is on $2 }
  if ($gettok($6,1,91) == %friend3) { .msg $me %friend3 is on $2 }
  if ($gettok($6,1,91) == %friend4) { .msg $me %friend4 is on $2 }
  if ($gettok($6,1,91) == %friend5) { .msg $me %friend5 is on $2 }
  if ($gettok($6,1,91) == %friend6) { .msg $me %friend6 is on $2 }
}
Menu Menubar,Nicklist,Channel {
  Venom friendSystem
  .VenomfriendSys: dialog $iif($dialog(friend.System),-v,-md friend.System) friend.System
}
Dialog friend.System {
  Title "friendSystem"
  Size -1 -1 80 70
  Option dbu
  edit "set pass", 1, 0 0 37 10, autohs
  button "Set friend1 ", 3, 0 12 37 15, flat
  button "Set friend2 ", 4, 42 12 37 15, flat
  button "Set friend3 ", 5, 0 29 37 15, flat
  button "Set friend4 ", 6, 42 29 37 15, flat
  button "Set friend5 ", 7, 0 48 37 15, flat
  button "Set friend6 ", 8, 42 48 37 15, flat

}
on *:dialog:friend.system:sclick:3: {
  if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  else { set %friend1 $did(1).text }
}
on *:dialog:friend.system:sclick:4: {
  if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  else { set %friend2 $did(1).text }
}
on *:dialog:friend.system:sclick:5: {
  if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  else { set %friend3 $did(1).text }
}
on *:dialog:friend.system:sclick:6: {
  if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  else { set %friend4 $did(1).text }
}
on *:dialog:friend.system:sclick:7: {
  if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  else { set %friend5 $did(1).text }
}
on *:dialog:friend.system:sclick:8: {
  if (!$did(1).text) { noop $input(Please enter text in box,udho,Error!) }
  else { set %friend6 $did(1).text }
}