Operator menusu ( dialog )

[Time-Out]

Operator menusu dialog seklınde nıcklıstesındekı kısılere gore secım yaparak chanserv komutuyla hareket ettirmenızı saglar

/opmenusu Yazarak Dialogu acabılırsınız...
mIRc ana klasorune mdx.dll atmayı unutmayın.
Eğer dll dosyanızın yeri değişikse asagıdakı sekılde duseltlmeler yapınız...
bu MIRc.exe nın bulundugu yerdedir = alias mdxdll { return $dll(mdx.dll,$1,$2-) }

bu Mırc\dll\mdx.dll klasorudur = alias mdxdll { return $dll(dll\mdx.dll,$1,$2-) }

bu sekılde duzeltmeler yapınız

alias opmenusu { dialog -m console console } 
dialog console { 
  title " RoSe 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:{ 
  mdxdll SetMircVersion $version
  mdxdll MarkDialog $dname $dialog($dname).hwnd
  mdxdll SetDialog [ $dname ] bgcolor [ $rgb(186,206,204) ]
  mdxdll SetColor 2,3 textbg [ $rgb(0,0,0) ]
  mdxdll SetColor 17 textbg [ $rgb(186,206,204) ]
  mdxdll SetColor 2,3 text [  $rgb(186,206,204) ]
  mdxdll SetColor 2,3 background [ $rgb(0,0,0) ]) ] 
  mdxdll SetColor 4,17 background [ $rgb(186,206,204) ]) ] 
  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 
} 
alias mdxdll { return $dll(mdx.dll,$1,$2-) }

Dll ile sekiller,renkler ve ayrıca list menusude eklendi...


ALıntıdır.

[Hazan]

eline sağlık

[SuLtaN]

payLa$im icin t$kLer...