Yaptığım Tüm Yardımlar/Kodlar - Sayfa 10

**L4roXyL** · #91 11 Ekim 2011, 01:46

Tarih: 18-07-2009, 03:59

Bu kod herhangi bir kanalda "@,&,%,~" prefixlerine sahip olan kişilerin !banla <rumuz> <sebeb> şeklindeki komutu kullanarak belirtilen kullanıcıyı tüm kanallardan banlamanıza olanak sağlar.

Kod:

on *:text:!banla &:#:{
  if ($2 ison # && $regex($nick(#,$nick).pnick,[@&~%])) { 
    var %1 = 1,%v1 
    while ($comchan($2,%1)) { 
      %v1 = $v1 
      if ($regex($nick(%v1,$me).pnick,[@&~%])) { 
        ban -k %v1 $2 2 BAN SEBEBİ.
      } 
      inc %1 
    } 
  }
}

**L4roXyL** · #92 11 Ekim 2011, 01:50

Tarih: 20-12-2009, 16:10

Bu kod kanala giren kullanıcının rumuzunda dosya.txt içerisindeki kelimelerden tarama yaparak badnick olup olmadığını kontrol eder. Sonuç doğru dönerse kişi kanaldan uzaklaştırılır ve banlanan kaçıncı kişi olduğu mesajda gösterilir.

Kod:

on !*:join:#:{
  var %1 = 1 
  while ($read(dosya.txt,%1)) { 
    if ($v1 isin $nick) { 
      inc %_bnick 
      ban -k # $nick 2 badnick tespiti yapılan: %_bnick $+ . kişisin. 
      break 
    } 
    inc %1 
  } 
}

**L4roXyL** · #93 11 Ekim 2011, 01:52

Tarih: 25-12-2009, 02:29

Bu kod kanala giren kullanıcıya kanala giren kaçıncı kişi olduğu bilgisini notice olarak sizin tarafınızdan bildirir.

Kod:

on !*:join:#:{
  inc $+(%,#,join) 
  notice $nick kanala giren $+($(,,$+(%,#,join)),.) kişisin vs.
}

**L4roXyL** · #94 11 Ekim 2011, 01:57

Tarih: 27-05-2011, 21:21

Bu kod mIRC-de gönderdiğiniz text-lerin baş harflerini büyük yapmak için kullanılır. Yani bir nevi düzenli cümle gibi.

Kod:

on *:input:*:{
  if ($1 != $target && $1 !ison $target && $left($1,1) != /) {
    say $regsubex($1-,(^.),$upper($replace(\1,i,İ,ı,I))) 
    haltdef 
  }
}

**L4roXyL** · #95 11 Ekim 2011, 02:01

Tarih: 28-06-2011, 22:32

Bu kod herhangi bir kanalda rumuzunuzu yazan kullanıcıya sozler.txt -den bir texti/satırı notice olarak göndermenize olanak sağlar. Aynı nick için 10 saniye tekrar süresi vardır ve bu süreyi -mu10 kısmından bu süreyi değiştirebilirsiniz.

Kod:

on *:text:$($+(*,$me,*)):#: {
  hinc -mu10 _sz $nick 1
  $iif(!$fopen(_sz),.fopen _sz sozler.txt)
  $iif($feof,.fseek -l _sz 1)
  if ($hget(_sz,$nick) < 2) notice $nick $fread(_sz)
}

**L4roXyL** · #96 11 Ekim 2011, 23:08

Bu kodlar, farklı platformlarda mIRC Scripting bölümlerinde verdiğim yardımlardan size lazım olabilecek hazır kod/snippet niteliği taşıyan kodlardır.

Not: Tüm kodlar ilgili kişiler(yardım isteyen kişiler) tarafından denenmiş ve onaylanmıştır.
Not 2: Bu kodlar daha kısa ve işlevsel yazılabilir di, lakin gereksinime uygun ve anlayabileceğiniz açıklıkta yazılmıştır.

High · #97 15 Şubat 2021, 00:40

Alıntı:

L4roXyL Nickli Üyeden Alıntı

Tarih: 06-01-2008, 19:44

Kanal belirlediğiniz flood saldırısında, kanalı belirlediğiniz süre ile +m moduna alıp, temizle.mrc dosyasındaki verilerle kanalı temizleyip tekrar kanalaı açmak için yazmış olduğum bir kod.

Kod:

alias -l fld {
  hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1 
  if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true 
  else return $false 
}
alias temizle {
  var %t 1 
  while %t <= $lines(temizle.mrc) { 
    msg $1 $read(temizle.mrc,%t) 
    inc %t 
  }
}
on @*:text:*:#: { 
  if $nick isreg # && $fld(10,3,#,$nick,$1-) {
    ban -k # $nick 2 sebeb. 
    mode # +m 
    temizle # 
    msg # Kanal güvenlik amaçlı 20 sn vs. 
    if !$timer($+(#,½,fld)) { 
      $+(.timer,½,#) 1 20 mode # -m 
      .timer 1 21 msg # Kanal açıldı. 
    } 
  } 
}

/fld alias'ının kullanımı; $fld(saniye,limit,#kanal,text-own,mesaj)
Ben örnek olarak; 10 saniye içerisin'de, aynı text 3 defa tekrar edilirse, gördüğünüz işlevleri sırası ile gerçekleştirir.

Eğer aynı yazının tekrar'ı değilde, belirlediğim saniye içerisin'de belirlediğim satır limit'i aşılırsa(hızlı text) işlev yapmak istiyorum diyorsan;
/fld alias'ını aşşağıdaki şekilde değiştir;

Kod:

alias -l fld { 
 hinc $+(-mu,$1) fld $+($3,½,$4) 1 
 if ($hget(fld,$+($3,½,$4)) >= $2) return $true 
 else return $false 
}

Ve kullanım şeklini verdiğim şekilde yap; $fld(saniye,limit,#kanal,text-own)

Örneğin; $fld(10,5,#,$nick)
10 saniye içerisinde, 5 satır text gönderen'e işlev yapar. Kanal'ı temizler vs.

Hocam izah ettiğiniz şekilde gerekli düzenlemeleri yaptım fakat KOD'u çalıştıramadım müsait olursan bi bakar mısın.

HTML-Kodu:

alias -l fld { 
 hinc $+(-mu,$1) fld $+($3,½,$4) 1 
 if ($hget(fld,$+($3,½,$4)) >= $2) return $true 
 else return $false 
}
on @*:text:*:#: { 
  if $nick isreg # && $fld(2,8,#,$nick,$1-) {
    ban -k # $nick 4TXT Flood!10 Yaptığınız için kanaldan uzaklaştırıldınız. 
    mode # +M 
    .temizle # 
    msg # 10Kanal da4 Txt flood10 tespit edildiği için4 Güvenlik amaçlı 1 dk Şifresiz nicklere10 kapatılmıştır. 
    if !$timer($+(#,½,fld)) { 
      $+(.timer,½,#) 1 60 mode # -M
      .timer 1 11 msg # 10Kanal geneli4 Şifresiz10 nicklere açılmıştır.4 İyi sohbetler 
    } 
  } 
}

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder