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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   menu ozele davet (https://www.ircforumlari.net/mirc-scripting-sorunlari/210685-menu-ozele-davet.html)

Leo 18 Mayıs 2009 20:30

menu ozele davet
 
menu * {
ozel
on *:TEXT:*:#:{
if (ozele gel isin $1- || özele gel isin $1- || ösele gel isin $1- || ösel gel isin $1-) || osel gel isin $1-) {
ban -u900 $chan $address($nick,2)
kick $chan $nick Özele davet sebebinden atıldınız..
}
}

bu şekilde kanal genelinde sağ tıklayinca menu çikarmak için bu şekil ekliyorum fakat çikmiyor çiksada karsik bişeyler çikiyor olmuyor duzelete bilirmisiniz arkadaslar yardim edermisiniz lutfen?

Lucifer 18 Mayıs 2009 21:54

Cevap: menu ozele davet
 
Merhabalar,

Sevgili Leooo, sürekli konular açıyorsunuz sürekli birşeyler soruyorsunuz buna kimsenin birşey dediği yok ama şunu belirtmek istiyorum açtığınız konuların %70'i aynı hep Mesela Şuanda vermiş olduğunuz özele davet konusu daha öncedende cevaplandırılmıştır.

Bknz;

Alıntı:

Kod:


Özel
on @*:text:*:#: {
  if ($nick isop #) && (%oplar == on) { return }
  if ($nick isvo #) && (%vlar == on) { return }
  ozel $1-
}
 
alias ozel {
  var %x $strip($1-) , %i $numtok(%soyush,44)
  while (%i) {
    if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
      if (%kiket == on) { .kick # $nick 4Açıklama: 1 $server sunucusunda özele davet yasaktır.. }
      if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
      return
    }
    dec %i
  }
}
 
dialog Ozel {
  title "Özel Koruma"
  size -1 -1 185 81
  option dbu
  box "Eklenecek Kelimeyi Girin", 1, 90 1 94 79
  combo 2, 94 10 87 53, size
  button "Ekle", 3, 98 66 31 10
  button "Sil", 4, 144 65 31 10
  box "", 5, 96 60 36 18
  box "", 6, 142 60 36 18
  box "Yapilacal islem", 7, 2 2 84 45
  check "Kick ", 8, 5 13 39 10
  check "Ban ", 9, 5 31 32 10
  edit "", 10, 36 30 23 12, disable
  text "Saniye", 11, 62 32 21 8, disable
  box "Ayir", 12, 2 49 84 31
  check "@plar", 13, 6 57 77 10
  check "+Voiceler", 14, 6 68 75 10
}
alias bad { .dialog -m Ozel Ozel }
on *:dialog:Ozel:init:*:{
  if (%soyush) didtok $dname 2 44 $ifmatch
  if (%kiket) { .did -c $dname 8 }
  if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
  if (%oplar) { .did -c $dname 13 }
  if (%vlar) { .did -c $dname 14 }
  did -a $dname 10 %banvaxt
}
on *:dialog:Ozel:sclick:*:{
  if ($did == 3) {
    if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
  }
  if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
  if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
  if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
  if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
  if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:ozel:edit:*:{
  %banvaxt = $did(10)
}

Yazdığından anlatığım kadarıyla, özele davet'de eklenecek kelimeleri kendin eklemek istiyorsun.. vermiş olduğum code'yi mIRC'inin Remote Bölümüne ALT + R yaparak ekle, sonra Aliase bölümünde channel'e gelip
Kod:

..Özele Davet Koruma: /dialog -m Ozel Ozel
ekle.. Codeleri ekledikden sonra, Kanalda sağ tıkladığında otomatik olarak göreceksin senin eklemiş olduğun kelimeleri algılacayak ve uzaklaştıracaktır.. hoşça paylaşımlar..

Not; Myops mIRC'inden alıntıdır..

Ayrıca gene aynı konu üzerinde Hemen Altında

Bknz;

Alıntı:

FenomeNs Nickli Üyeden Alıntı (Mesaj 711431)


Link: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Eğerki bir konuda tam detaylı bilgi alamadıysanız bir önceki başlık altında belirtinki cevaplar net bir şekilde verilsin.. benim size vermiş olduğum Yukarıdaki codede açıklamasını yaptım. nasıl kullanman gerektiğini vb. bundan sonrası tamamen sana kalmış kendin başaracaksin.. Lütfen konu açmadan önce verilen cevapları oku anlamadıysan tekrar sor mutlaka yanıt verilir.. iyi forumlar hoşça paylaşımlar..

Leo 18 Mayıs 2009 22:09

Cevap: menu ozele davet
 
verdiğin kod hatali kardesim iyi bakarmisin + ben istediğim veya solediğim kod menu şekliydi bunda menude yok neyse kolay gelsin.

Lucifer 18 Mayıs 2009 22:22

Cevap: menu ozele davet
 
Codede herhangi bir sorun yok, dikkatli bir şekilde tekrar ekleyiniz.. ayrıca şuanda denemesini tekrar yaptım herhangi bir problem yok.. anlatıldığı gibi yapın..

muratt_aziz 18 Mayıs 2009 23:46

Cevap: menu ozele davet
 
KODUN SONUNA

Kod:


menu * {
özel:/dialog -m Ozel Ozel

}

eklersen olur ayrıca teşekkür etmesini unutma arkadaş emek harcamış mecbur değildi uslubun hic hoş değil orda teşekkur buttonu var en azından tıkla bana yazmıs olsan o yazıyı sahsen kırılırdım ben.. sana

Leo 19 Mayıs 2009 08:52

Cevap: menu ozele davet
 
amaç kötuluk deyilik yanliş algilamayin lutfen yinede özür dilerim emeğiniz için çok tesekkur ederim çok iyisiniz.

Leo 19 Mayıs 2009 22:18

Cevap: menu ozele davet
 
Özel
on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
ozel $1-
}

alias ozel {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick 4Açıklama: 1 $server sunucusunda özele davet yasaktır.. }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}

dialog Ozel {
title "Özel Koruma"
size -1 -1 185 81
option dbu
box "Eklenecek Kelimeyi Girin", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Ekle", 3, 98 66 31 10
button "Sil", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Yapilacal islem", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Saniye", 11, 62 32 21 8, disable
box "Ayir", 12, 2 49 84 31
check "@plar", 13, 6 57 77 10
check "+Voiceler", 14, 6 68 75 10
}
alias bad { .dialog -m Ozel Ozel }
on *:dialog:Ozel:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
}
on *:dialog:Ozel:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:ozel:edit:*:{
%banvaxt = $did(10)
}
menu * {
özel:/dialog -m Ozel Ozel

arkadaslar bu kodu uyguladiğim zaman myops scripteki kufur korumasi ila çakişiyor

sağ tıklayip menu den ozel dediğim zaman kufur korumasini açiyor direk mircde zaten kufur korumasi ekli ayni kutucuk açiliyor varkli kutucuk nasil aça bilirim çakişmamasi için ne yapa bilirim?

Thief 19 Mayıs 2009 23:12

Cevap: menu ozele davet
 
Hm, remoteye eklerken yeni bir sayfa acıpmı ekliyorsun, yoksa bütün addonları aynı sayfa içerisinde
Kod:

addon
  }
}
addon
  }
}



Şeklindemi ekliyorsun? Bunu bir belirtiver.

Leo 19 Mayıs 2009 23:35

Cevap: menu ozele davet
 
Yeni Metin Dosyasi Halinde Ekliyorum load -rs dosyaisim.txt yapiyorum

Leo 20 Mayıs 2009 14:08

Cevap: menu ozele davet
 
yardim edermisiniz arkadaslar yapamadim kodu?


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

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