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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Bir kaç sorun. (https://www.ircforumlari.net/mirc-scripting-sorunlari/552763-bir-kac-sorun.html)

Kod:

1.kod

on !badnick:join:*:{

  if ($me isop $chan) || ($me ishop $chan) {

    if ($ulist($fulladdress,koruma,0) >= 1) { return }

    elseif !$istok(#help #mirchelp #operhelp #geveze #turkiye@ #globalops,$chan,32) {

      ban -u $+ %bsure $chan $nick $+ !*@*

      quote kick $chan $nick Badnick! maske; $ulist($address($nick,5),$ulevel,1)

    }

  }

}

on *:nick:{ 

  if !$ulist($+($newnick,!*@*),koruma,0) && $ulist($+($newnick,!*@*),badnick,0) {

    var %badnick = 1

    while %badnick <= $comchan($newnick,0) { 

      if $me isop $comchan($newnick,%badnick) || $me ishop $comchan($newnick,%badnick) {

        if !$istok(#help #mirchelp #operhelp #geveze #turkiye@ #globalops,$comchan($newnick,%badnick),32) {

          ban -u $+ %bsure $comchan($newnick,%badnick) $newnick $+ !*@* 

          quote kick $comchan($newnick,%badnick) $newnick Badnick! maske;

        }

      }

      inc %badnick

    }

  }

}

yukarda userlistten maskeyi bulmayı becerdimde aşağıda beceremedim
bide birden fazla maskeden etkilenirsede onlarıda gösterebilir mi her ikisindede
böyle; maskeler; alciy*!*@* - *ciy*!*@* - alciyan!*@*
---------------------------

2.kod
/badtara #kanal dedigimizde önce kaç adet nick bulundu listesiyle beraber göstersin.
Örnek; #Kanal kanalında 7 adet kayıtlı nick bulundu listesi;
1-) nick1 eşdeğer maskeler; al!*@*
2-) nick2 eşdeğer maskeler; *tel*!*@* - yutel*!*@*
3-) nick3 eşdeğer maskeler; *bal!*@*
4-) ...
... gibi. 7 taneyi sıralasın.
F7 tuşuna basınca listedekileri tekrar tarayıp atsın.
2. tarama sonucu 5 maske etkilendi diye.

Kod:

 

 /badtara {

  var %btara 1  

  while %btara <= $nick($1,0) { 

    if !$ulist($nick($1,%btara),koruma,0) && $ulist($nick($1,%btara),badnick,0) { 

      ban -u $+ %bsure $chan $nick($1,%btara) $+ !*@* 

      kick $chan $nick($1,%btara) Kötü nick(rumuz) lütfen değiştiriniz; "/nick yeninickiniz" komutunu kullanınız. NOT: " $+ $gettok($asctime($calc($ctime + %bsure)),4,32), $+ " itibariyle ban deaktif(iptal) olacaktır. Etkikendiği maske; BURASI

    }  

    inc %btara

  }

}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:06 -->-> Daha önceki mesaj 23:05 --

Kod:

on *:join:*: {

  %clones = $ialchan($wildsite,#,0)  

  if *!*@*helper* iswm $fulladdress { halt }

  if *!*@*oper* iswm $fulladdress { halt }

  if *!*@*admin* iswm $fulladdress { halt }

  if ( %clones > 1 ) {

    var %count = 1

    set %clone.nicks -->

    while (%count <= %clones)  {

      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick

    inc %count  }

  .echo $chan 2*** 0,1 0,1[9,1Uyarı0,1/4,1CLONE0,1] : Toplam ( $+ %clones $+ ) adet clone. --> $remove(%clone.nicks,-->) (13CBAN1) }

  if (%change == $null) {

    haltdef

    halt  

  }

}

(CBAN) kısmına tıklayınca o ip adresine ait bütün cloeneleri bütün kanallardan atıcak olduğum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:08 -->-> Daha önceki mesaj 23:06 --

Kod:

on !^*:text:*:#:{

  .set %n $nick($chan,$nick).pnick

  if $left(%n,1) == ~ {   echo $chan $timestamp $+(<,5~, $+ $nick $+ ,>)  $1- }

  elseif $left(%n,1) == & { echo $chan $timestamp $+(<,7&, $+ $nick $+ ,>)  $1-  }

  elseif $left(%n,1) == @ { echo $chan $timestamp $+(<,4@, $+ $nick $+ ,>)  $1-  }

  elseif $left(%n,1) == % { echo $chan $timestamp $+(<,13%, $+ $nick $+ ,>)  $1-  }

  elseif $left(%n,1) == + { echo $chan $timestamp $+(<,12+, $+ $nick $+ ,>)  $1- }

  else { echo $chan $timestamp $+(<,1 $+ $nick $+ ,>)  $1-  }

  haltdef

}

Kanalda mesaj yazıldığında kırmızı uyarı yanmıyor kanal üstünde o yanmalı.
Özeldede nicklerin ince görünmesini istiyorum bu koddaki gibi mümkün mü.

Cevap: Bir kaç sorun.

Kod:

/allunban {

  if $left($1,1) == $chr(35) {

    var %u = $ibl($1,0)

    while (%u > 0) {

      inc %t

      var %ban = %ban $ibl($1,%u)

      if (%t == $modespl) {

        mode $1 - $+ $str(b,$modespl) %ban

        unset %t %ban

      }

      dec %u

    }

    mode $1 - $+ $str(b,$modespl) %ban

    unset %t

  }

  else {

    var %i 1

    while %i <= $comchan($1,0) {

      $iif($1 == $me,cs unban $comchan($1,%i),mode $comchan($1,%i) -b $1)

      inc %i

    }

  }

}

L4r0xyLi ustanın coduna şunlar eklenebilir mi mümkün mü?;
/allunban maske(*!*@*)
maske; nick /allunban nick
maske; identd /allunban identd
maske; host /allunban host
maske; /allunban nick!identd@*
maske: /allunban *n!*b*@ABCS*
gibi gibi. Her türlü maskeyi koddaki gibi tüm kanallardan banını kaldırsın.(op veya halfop olduğum)
/allunban kendi-nickim
tüm kanallardaki banımı kaldırsın kanalda olmasan dahi.(yetkimin olması yeterli)
/allunban #kanal
o kanaldaki tüm banları yan yana açsın.

Cevap: Bir kaç sorun.

Kardes, burda kimse Para almiyor Yardim eden olursada Iyi niyetliginden ediyor.

Ama Insanlarin Yardim etmesi icinde, Ricada bulunmak gerekilir.

Kötü birsey demek isdemiyorum, ama sadece senin Yazdiklarini biraz renklestirdim ve isdersen kendin oku. Nedemek isdedigimi anlarsin sanirim.

Alıntı:

MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1041361005)

... onlarıda gösterebilir mi..

2.kod
... listesiyle beraber göstersin.

(CBAN) kısmına tıklayınca o ip adresine ait bütün cloeneleri bütün kanallardan atıcak olduğum

Kanalda mesaj yazıldığında kırmızı uyarı yanmıyor kanal üstünde o yanmalı.
Özeldede nicklerin ince görünmesini istiyorum bu koddaki gibi mümkün mü.

L4r0xyLi ustanın coduna şunlar eklenebilir mi mümkün mü?;

Alıntı:

MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1041362766)

güncel

---

Ve Forumda onca Konular varken, eminim isdediklerin vermis oldugun Kodlarla olmasa bile baska Kodlarla cözülmüstür. Biraz arastir derim isdersen.

Hayirli Günler dilerim.

Cevap: Bir kaç sorun.

ben kimseye emretmiyorum ki :) öyle bir niyetimde zaten yok. kodları paylaştım belki bu şekilde kullanmak isteyenlerde olur diye. haklısın kimse yardım etmek zorunda değil. ben bile burda elimden geldiğince halledebildiğim konularda birilerine birşeyler göstermişimdir. :) yapabileceğim birşey olsa veya anladığım zaten çoooktan yapmıştım. tekrar yineliyorum kodda olması gereken özellikleri belirtmem emir etmem falan değil. buraya yazmışsam zaten rica etmişimdir. kimseye "hadi yazın! niye yazamıyorsunuz!" gibi kelimelerde sarfetmedim. neyse :) buraya kopyalamışsam zaten RİCA EDİYORUM anlamına geliyor bence

Cevap: Bir kaç sorun.