;-----------------------------------------------------
;Friend List
;-----------------------------------------------------

alias FriendList { dialog -m FriendList FriendList }
dialog FriendList {
  title "FriendList By DaNGeR_Boy"
  size -1 -1 105 155
  option dbu
  list 1,3 5 99 100, hsbar vsbar
  check ,2,5 105 10 10
  check ,3,5 118 10 10
  text "Op Friends" ,4,15 107 40 10
  text "Voice Friends" ,5,15 120 40 10
  button "Remove Friend" ,6,55 110 45 12
  button "Close/OK" ,7, 33 133 40 17,ok

}
on *:dialog:FriendList:*:*:{
  if ($devent == init) { 
    if (%friend.op) { did -c $dname 2 }
    if (%friend.voice) { did -c $dname 3 }
    var %x = 1 | while $ulist(*,friend,%x) { did -a $dname 1 $v1 | inc %x } 
  }
  if ($devent == sclick) {
    if ($did == 2) {
      if ($did($dname,2).state) { set %friend.op on }
      else { unset %friend.op }
    }
    if ($did == 3) {
      if ($did($dname,3).state) { set %friend.voice on }
      else { unset %friend.voice }
    }
    if ($did == 6) {
      if ($did($dname,1).sel) {
        .ruser friend $did($dname,1).seltext
        did -d $dname 1 $did($dname,1).sel
      }
    }
  }
}

on friend:join:#:{
  if ($chan != #idlerpg) {
    .timer 1 1 msg #  Friend List: $nick $+ .
    if (%friend.op) && ($me isop #) && ($chan != #HelpDesk) && ($chan != #Help)  { timer 1 5 mode # +o $nick }
    if (%friend.voice) && ($me isop #) && ($chan != #HelpDesk) && ($chan != #Help)  { timer 1 5 mode # +v $nick }
  }
}

menu nicklist {
  -
    Frined List  
  .add friend: auser friend $$1  
  .remove friend: ruser friend $$1 

  }