IRC Messenger



dialog m {
  title "IRC Messenger v1.0"
  size -1 -1 99 202
  option dbu
  list 1, 0 2 99 96, sort size vsbar
  list 2, 0 97 99 88, sort size vsbar
  button "Add Notify", 3, 2 188 31 12
  button "Del Notify", 4, 64 188 32 12
  button "Refresh", 5, 36 188 25 12
}
alias msgr { $iif(!$dialog(m),dialog -mdho m m) | mnick }
alias mnick {
  var %num = $notify(0), %find = 1, %online = 0, %offline = 0
  did -r m 1 | did -r m 2
  while %find <= %num {
    if ($notify(%find).ison) { did -a m 1 $notify(%find) | inc %online }
    else { did -a m 2 $notify(%find) | inc %offline }
    inc %find
  }
  did -ai1 m 1 $chr(5) ONLINE $chr(40) $+ %online $+ $chr(41) $chr(5)
  did -ai1 m 2 $chr(5) OFFLINE $chr(40) $+ %offline $+ $chr(41) $chr(5)
  $iif(!$dialog(m).active,dialog -v m)
}
on *:dialog:m:sclick:5:mnick
on *:dialog:m:dclick:1:$iif($chr(5) !isin $did($did).seltext,query $did($did).seltext)
on *:dialog:m:sclick:3:{ .notify $$?="Enter Notify Nickname" | mnick }
on *:dialog:m:sclick:4:{ .notify -r $$?="Enter Nickname To Remove" | mnick }
menu menubar,status {
  IRC Messenger:$iif($server,msgr,echo -s 4You Didn't Connect To Server Yet)
}
on *:NOTIFY:$iif(!$dialog(m),msgr,mnick)
on *:UNOTIFY:$iif(!$dialog(m),msgr,mnick)
 

Contact

Kekanda69

kekanda69@gmail.com

Melaka,Malaysia

Search site

.::: Dalam Kenangan :::.

Al-Fatihah Kepada Muhd Raudhah Bin Haji Bahari

Sesungguhnya Allah s.w.t telah menetapkan rezeki seseorang dan tiada yang terkecuali. Di sini kita akan sama-sama kongsi kunci rezeki, amalan rezeki, rezeki internet, rezeki pasif, rezeki halal, rezeki berkat dan apa-apa berkaitan menambah rezeki.

© kekanda 2010 All rights reserved.

Make a website for freeWebnode