Mirc Script Programına Eklenecek Op Ekle ve Op Sil Remotesi

• Aşağıda Bulunan kodu remote sayfanızın boş bir kısmına ekleyin.
• Ekledikten sonra kanal ortasında sağ tıkladığınızda “Op Ekle Sil” butonunu göreceksiniz.
• Tıkladığınızda sıralanan nicklerden seçiminizi yapın ve uygulamak istediğiniz butona tıklayın.

menu status,menubar,channel  {
  -
  » Op Ekle Sil:/oconsole
  -
}
alias oconsole { dialog -m console console }
dialog console {
  title "Op Ekle Sil"
  size -1 -1 350 320
  button "Bu Menüyü Kapat",1,33 283 285 30,ok flat
  list 2, 195 30 140 237,sort
  box "",3,6 6 339 267
  box "ChanServ Komutları",4,20 19 165 130, flat
  button "Aop Ekle",5,33 40 60 25, flat
  button "Sop Ekle",6,33 75 60 25, flat
  button "Aop Sil",7,110 40 60 25, flat
  button "Sop Sil",8,110 75 60 25, flat
  button "Akick Ekle",9,33 110 60 25, flat
  button "Akick Sil",10,110 110 60 25, flat
  button "Op Ver",11, 33 160 60 25, flat
  button "Deop Yap",12,110 160 60 25, flat
  button "Kick/Ban",13,33 195 60 25, flat
  button "Kick At",14,110 195 60 25, flat
  button "Voice Ver",15,33 230 60 25, flat
  button "Voice Al",16,110 230 60 25, flat
  text "",17, 235 17 70 13
}
on *:dialog:console:sclick:5:{ if ($me isop %c-cha) .chanserv aop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:6:{ if ($me isop %c-cha) .chanserv sop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:7:{ if ($me isop %c-cha) .chanserv aop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:8:{ if ($me isop %c-cha) .chanserv sop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:9:{ if ($me isop %c-cha) .chanserv akick %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:10:{ if ($me isop %c-cha) .chanserv akick %c-cha del $remove($remove($did(console,2,$did(console,2).sel).text,@,+),@,+) }
on *:dialog:console:sclick:11:{ if ($me isop %c-cha) mode %c-cha +o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:12:{ if ($me isop %c-cha) mode %c-cha -o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:13:{ if ($me isop %c-cha) ban %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) 3 | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:14:{ if ($me isop %c-cha) kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:15:{ if ($me isop %c-cha) mode %c-cha +v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:sclick:16:{ if ($me isop %c-cha) mode %c-cha -v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:init:0:{
  set %c-cha $active
  did -a $dname 17 Toplam: $nick(%c-cha,0) Kişi
  set %c-ops 0
  set %c-voi 0
  set %c-reg 0
  :lewp-o
  inc %c-ops
  if ($opnick(%c-cha,%c-ops) != $null) goto op
  else { goto lewp-v }
  :op
  did -a $dname 2 @ $+ $opnick(%c-cha,%c-ops)
  goto lewp-o
  :lewp-v
  inc %c-voi
  if ($vnick(%c-cha,%c-voi) != $null) goto voice
  else goto lewp-r
  :voice
  did -a $dname 2 + $+ $vnick(%c-cha,%c-voi)
  goto lewp-v
  :lewp-r
  inc %c-reg
  if ($nick(%c-cha,%c-reg,r) != $null) goto regular
  else halt
  :regular
  did -a $dname 2 $nick(%c-cha,%c-reg,r)
  goto lewp-r
}