; HennesScript <NW> Notify list |Notify list|Notify list with another layout than mIRC's default notify list.
;

; Recognition identifiers begin
alias hsnw_notifylist.ssf return Notify list
alias hsnw__Notify_list return hsnw_notifylist.ssf
alias menu_Notify_list return 1
; end

alias runNL Xdialog -m DLGnl DLGnl
dialog DLGnl {
  title "Notify list"
  size -1 -1 96 181
  option dbu
  list 1, 0 1 96 171, size
  menu "Users", 2
  item "Add...", 3, 2
  item "Remove", 4, 2
  menu "Options", 5
  item "Query", 7, 5
  item "Refresh", 10, 5
  item break, 8, 5
  item "Use memoserv", 9, 5
  button "1", 6,1 1 1 1, ok hide
}

on *:DIALOG:DLGnl:init:*: {
  mdx MarkDialog $dname | mdx SetControlMDX 1 TreeView hasbuttons hottrack > $mircdirdata\mdx\views.mdx | did -i $dname 1 1 iconsize normal small 
  did -i $dname 1 1 seticon normal 0, $+ $mircdirdata\mdx\nl_online.ico 
  did -i $dname 1 1 seticon normal 0, $+ $mircdirdata\mdx\nl_offline.ico 
  did -i $dname 1 1 seticon normal 0, $+ $mircdirdata\mdx\nl_none.ico 
  did -i $dname 1 1 seticon normal 0, $+ $mircdirdata\mdx\nl_memo.ico 
  did -i $dname 1 1 cb root 2 2
  if (!$notify(1)) { DLGmsg Notify list|Your notify list is empty, click Users->Add.. to add people | halt }
  did -i DLGnl 1 1 cb root 2
  if ($server)  did -a DLGnl 1 +b 1 1 0 0 0 $me (online)	This is your own nick name (online)
  else did -a DLGnl 1 +b 2 2 0 0 0 $me (offline)	This is your own nick name (offline)
  did -i DLGnl 1 1 cb root 3
  did -a DLGnl 1 +b 4 4 0 0 0 Messages ( $+ %cache.memo_messages $+ )	Message inbox (memoserv)
  did -i DLGnl 1 1 cb root 4
  did -a DLGnl 1 +b 3 3 0 0 0 Online	Users who are currently on IRC 
  did -i DLGnl 1 1 cb root 5
  did -a DLGnl 1 +b 3 3 0 0 0 Offline	Users who are currently on not IRC
  load_nl 1
  did -i DLGnl 1 1 branch expandall | did -i $dname 1 1 sort
  .timerNL 0 30 { notify_update }
  if (%cache.memo_serv) did -c $dname 9
}
on *:DIALOG:DLGnl:menu:10: notify_update
on *:DIALOG:DLGnl:menu:9: if (%cache.memo_serv) { did -u $dname 9 | set %cache.memo_serv 0 } | else { did -c $dname 9 | set %cache.memo_serv 1 }
on *:DIALOG:DLGnl:menu:3: .notify $$?="Enter nickname to add" | clear_nl 
on *:DIALOG:DLGnl:menu:4: did -i $dname 1 1 page event | if ($gettok($did($dname,1,1),3,32) < 4) halt | did -i $dname 1 1 cb root $gettok($did($dname,1,1),3,32) | .notify -r $gettok($gettok($did($dname,1,$gettok($did($dname,1,1),4,32)),7,32),1,9) | .timerX -m 1 100 clear_nl
on *:DIALOG:DLGnl:menu:7: did -i $dname 1 1 page event | did -i $dname 1 1 cb root $gettok($did($dname,1,1),3,32) | if (!$gettok($gettok($did($dname,1,$gettok($did($dname,1,1),4,32)),7,32),1,9)) { DLGmsg Error|Select nickname, then click query | halt } | query $gettok($gettok($did($dname,1,$gettok($did($dname,1,1),4,32)),7,32),1,9)
alias load_nl {
  if (!$1) { did -i DLGnl 1 1 cb root | did -i DLGnl 1 1 replaceitem 3 +b 4 4 0 0 0 Messages ( $+ %cache.memo_messages $+ )	Message inbox (memoserv) }
  did -i DLGnl 1 1 cb root 4
  var %i = 1 | while ($notify(%i)) { did -i DLGnl 1 1 cb root 4 $calc(%i + 1) | if ($notify(%i).ison) did -a DLGnl 1 1 1 0 0 0 $notify(%i) $+ $chr(9) $+ This user is currently on IRC | inc %i  }
  did -i DLGnl 1 1 branch expandall 
  did -i DLGnl 1 1 cb root 5
  var %i = 1 | while ($notify(%i)) { did -i DLGnl 1 1 cb root 5 $calc(%i + 1) | if (!$notify(%i).ison) did -a DLGnl 1 2 2 $notify(%i) $+ $chr(9) $+ This user is currently not on IRC | inc %i }
  did -i DLGnl 1 1 branch expandall 
}
alias notify_update if ($dialog(DLGnl)) { memoserv_check | clear_nl } | else .timerNL off
alias clear_nl {
  var %x =  $did(DLGnl,1).lines
  did -i DLGnl 1 1 cb root 5 | var %i = 1 | while (%i != %x) { did -d DLGnl 1 2 | inc %i }
  did -i DLGnl 1 1 cb root 4 | var %i = 1 | while (%i != %x) { did -d DLGnl 1 2 | inc %i }
  load_nl
  .timerX -m 1 200 { did -i DLGnl 1 1 sort }
}

alias memoserv_check {
  if (!%cache.memo_serv) return
  set %cache.memoing 1
  memoserv list
}