Docstoc

Ignore list

Document Sample
Ignore list Powered By Docstoc
					menu query {
  -
  === ヌ睇フ蓙ム 瞠ハ ===:ignorel
  -
}

dialog ignorel {
  title "Ignore list"
  size -1 -1 205 142
  option dbu
  button "Del", 3, 71 130 32 12,flat
  button "Add", 6, 21 130 32 12,flat
  button "Close", 8, 141 130 32 12,ok flat
  edit "", 19, 20 16 110 13
  text "Address (nick!user@host):", 20, 24 3 92 8
  list 29, 22 55 109 62, size
  box "Ignore Options", 30, 4 36 200 89
  check "Private", 31, 138 59 33 10,flat
  check "Channel", 32, 138 76 34 10,flat
  check "Notice", 33, 138 92 30 10,flat
  check "DCC", 34, 138 107 27 10,flat
  check "Invite", 35, 174 60 27 10,flat
  check "Codes", 36, 174 78 25 10,flat
  check "exclude", 37, 174 92 27 10,flat
  button "Clear", 43, 174 111 27 10,flat
}


on *:dialog:ignorel:init:0:ignup
On *:Dialog:ignorel:sclick:29:set %ig $gettok($did(29).seltext,1,32)
on *:dialog:ignorel:sclick:3:if (%ig != $null) { .ignore -r %ig | ignup | unset %ig }
on *:dialog:ignorel:sclick:6:if (%ig != $null) { .ignore $+(-
,$remove(%ignoretype,$chr(32))) $gettok(%ig,$numtok(%ig,32),32) | ignup |
unset %ig %ignoretype }
on *:dialog:ignorel:edit:19:set %ig %ig $did(19)
on *:dialog:ignorel:sclick:31:if ($did(31).state == 1) { set %ignoretype
$addtok(%ignoretype,p,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,p,1,32) }
on *:dialog:ignorel:sclick:32:if ($did(32).state == 1) { set %ignoretype
$addtok(%ignoretype,c,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,c,1,32) }
on *:dialog:ignorel:sclick:33:if ($did(33).state == 1) { set %ignoretype
$addtok(%ignoretype,n,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,n,1,32) }
on *:dialog:ignorel:sclick:34:if ($did(34).state == 1) { set %ignoretype
$addtok(%ignoretype,d,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,d,1,32) }
on *:dialog:ignorel:sclick:35:if ($did(35).state == 1) { set %ignoretype
$addtok(%ignoretype,i,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,i,1,32) }
on *:dialog:ignorel:sclick:36:if ($did(36).state == 1) { set %ignoretype
$addtok(%ignoretype,k,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,k,1,32) }
on *:dialog:ignorel:sclick:37:if ($did(36).state == 1) { set %ignoretype
$addtok(%ignoretype,x,32) | halt } | else { set %ignoretype
$remtok(%ignoretype,x,1,32) }
on *:dialog:ignorel:sclick:43:if ($input(Remove all ignore?,w,Ignore System)) { .ignore
-r | ignup }
alias ignorel dialog -m ignorel ignorel
alias ignup { did -r ignorel 29 | var %x = $ignore(0) | while (%x) { did -a ignorel 29
$ignore(%x)
$replace($remove($ignore(%x).type,rivate,hannel,otice,nvite,cc),ctcp,t,codes,k,exclude,
x) | dec %x } }

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:0
posted:11/1/2012
language:Unknown
pages:2