;############################################################################
; برمجه مميزه لكشف الايرسي اوب بالقناة
;############################################################################

#scan.ircop off
raw 352:*:{
  if (%scan.ircop = ircop) {
    if (* isin $7) {
      inc %ircop.num
      did -i ircopsc 1 %ircop.num $6
      halt
    }
  }
}
raw 315:*:{
  if (%scan.ircop = ircop) {
    if (%ircop.num = $null) did -i ircopsc 1 1 no users found
    unset %ircop.num
    did -e ircopsc 5
    .disable #scan.ircop
  }
}
#scan.ircop end
dialog ircopsc {
  title "IRC-OP Scanner"
  size -1 -1 220 100
  list 1, 5 15 150 100,autovs
  button "scan", 2, 160 15 50 20
  text "IRC-Operators:", 3, 7 3 100 13
  button "exit", 4, 160 75 50 20, cancel
  button "who is", 5, 160 45 50 20
}
on *:dialog:ircopsc:init:0:if ($active !ischan) { did -i ircopsc 1 1 You aren't on a channel. | did -b ircopsc 2 | halt } | did -i ircopsc 1 1 click 'scan' to start | did -i ircopsc 1 2 click 'exit' to cancel | did -b ircopsc 5
on *:dialog:ircopsc:sclick:*:if ($did = 2) { did -r ircopsc 1 | .enable #scan.ircop | set %scan.ircop ircop | .who $active } | if ($did = 5) { whois $did(1,$did(1).sel) } | if ($did = 4) unset %scan.ircop
alias ircopscan dialog -m ircopsc ircopsc

menu channel {
  IRC-OP Scanner:/ircopscan
}

alias thank dialog -mo thank thank
dialog thank {
  title "Add-ons By CoteDor"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }