Operator Paneli ;)

[QizemLi]

Remoteye şu Kodları Yazıyoruz...

alias oconsole { dialog -m console console } 
dialog console { 
title "Garip ScriPt Kanal Operatör Menüsü" 
size -1 -1 350 320 
button "Bu Menüyü Kapa",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 
} 


/dialog -m console console Popusta Nick List kısmına EkLersek Bu Komutla KullanabiLriz...