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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Clone Korumasi Ayarlamali.. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/38757-clone-korumasi-ayarlamali.html)

Clone Korumasi Ayarlamali..

Kod:

;Clone Koruması

#cLonekorumaSi on

on @!*:JOIN:#:{

  if ($ialchan($wildsite,#,0) > %clonesayi) {

    var %' = $ifmatch, %. | while %' {

      var %7 = $gettok($ialchan($wildsite,#,%'),1,33)

    if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }

    if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) %clonekorumasebep | dec %~ } }

  }

}

#cLonekorumaSi end

alias clonekoruma { dialog -m clonekorumasi clonekorumasi }

dialog clonekorumasi {

  title "Clone Korumasi"

  size -1 -1 144 88

  option dbu

  text "Kanal'a", 1, 9 7 20 8

  edit "", 2, 30 6 13 10

  text "Den Fazla Clone Girerse o Adresi Banla", 3, 43 7 100 8

  box "Durum", 4, 5 19 135 37

  button "Aç", 5, 23 27 37 12

  button "Kapat", 6, 83 27 37 12

  text "Durum:", 7, 35 44 22 8

  edit "", 8, 57 44 50 10, read

  edit "", 9, 44 60 97 10, autohs

  text "Kick Sebebiniz", 10, 4 61 40 8

  button "Kaydet Ve Çık", 11, 22 72 46 12, ok

  button "İptal", 12, 73 72 46 12, cancel

}

on *:dialog:clonekorumasi:*:*:{

  if ($devent == init) {

    did -a $dname 8 %clonekorumadurum

    did -a $dname 9 %clonekorumasebep

    did -a $dname 2 %clonesayi

  }

  if ($devent == sclick) {

    if ($did == 5) { .enable #cLoneKorumaSi | set %clonekorumadurum Açık | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }

    if ($did == 6) { .disable #cLoneKorumaSi | set %clonekorumadurum Kapalı | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }

    if ($did == 11) {  set %clonekorumasebep $did(9) | set %clonesayi $did(2) }

  }

arkadaslar variableslere girip bunlari oraya yapistirdiginizda Koruma dialogunda otomatik olarak yazdiginiz ayarla cikacak.. Yada Korumayi Yüklediginizde Bos gelicek ayarlar O bos olan yerlere gerekenleri eklediginizde asagida verdigim bilgiler otomatik olarak variableslere eklenecektir..

%clonekorumasebep (Kendiniz Ayarlayabilirsiniz)
%clonesayi (Kendiniz ayarlayabilirsiniz)
%clonekorumadurum Açık

Cevap: Clone Korumasi Ayarlamali..

Bu Clone korumasına muaf nick ekleye bilir miyiz? Operatör, Oper, Admin, Helper arkadaşlar bu korumadan etkilenmesin? Kısaca Hostları muaf nasıl ekleye biliriz

Cevap: Clone Korumasi Ayarlamali..

join eventi altına

Muaf host için;

Kod:

if $regex($site,/(Root|admin|ircop|oper|techinal|serveradmin)/i) { return }

Muaf nick için;

Kod:

if $istok(Nick Nick2 Nick3 Nick4,$nick,32) { return }

Txt'den okutmak için;

Kod:

if $read(muafn.txt,w,$nick) { return }

Hash için;

Kod:

if $hget(muafn,$nick) { return }

2 si birleşik;

Kod:

if $regex($site,/(Root|admin|ircop|oper|techinal|serveradmin)/i) || $istok(Nick Nick2 Nick3 Nick4,$nick,32) { return }

Ayrıca [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bakarak kendinizde birşeyler yapabilirsiniz.

Cevap: Clone Korumasi Ayarlamali..

Kod:

if !$istok(#Kanal #Kanal-1 #Kanal-2 #Kanal-3,$chan,32) {

Kod:

 if ($regex($wildsite,/(helper|Dj.|Aop|Sop|Founder|IRCop|Server|Services|HelpManager|NetworkAdmin|Security|Discovery)/i)) { halt }

Kod:

if $istok(Nick1 Nick2 Nick3,$nick,32) { return }

1- Kanal Muaf
2- Host Muaf
3- Nick Muaf
Not : on @!*:JOIN:#:{ eventin bi alt satırına düzenleyip yağıştırman yeterli.
Başarılar dilerim.