IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Operator menusu ( dialog ) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/35287-operator-menusu-dialog.html)

LauReLL 01 Ağustos 2007 19:11

Operator menusu ( dialog )
 
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

Kod:

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-) }

NOT: Alıntıdır Üzerinde Değiştirmeler yaptım Umarım Hoşunuza Gider...
Dll ile sekiller ve renkler verdim ayrıca list menusude eklendi...

Doqan22 17 Aralık 2010 06:10

Cevap: Operator menusu ( dialog )
 
Emeqine SaqLık Pasam...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:23.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk