Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Tags
Author: Admin - Replies: 0 - Views: 4550
#Dj Kanalına Özel Codeler
Kod'u Kopyalayın Bot Yapacağınız mIRC ' de ALT R Yaparak Dosya Sekmesinden Yeni Seçeneğini TıklayıN. Açılan Yeni Pencereye Bu Kod'u Yapıştırıyoruz Hepsi Bu Kadar.

Not : Kod Sadece #Dj Kanalında Çalışmaktadır #Dj Kanalına Ve Dj'lere Özel Olduğu İçin

Kırmızı İle Belirttiğim Yerleri Kendinize Göre Ayarlayın


[code]on *:Join:#dj: {
  msg $chan  14------------------------------
  msg $chan  4 Hoşgeldiniz  5 Dj' $nick
  msg $chan  14------------------------------
  msg $chan  14
Author: Admin - Replies: 0 - Views: 3734
Saldırıda oto +m ve temizleme
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 kullanılan bir kod

[code]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:*:#: {
Author: Admin - Replies: 0 - Views: 4953
Istenmeyen Nicklere B L O C K !
Istenmeyen Nicklere B L O C K !

Kullanımı : /ksc

İşlev : Bellirlediğimiz ; nick - ident - host 'lar ; yazı yazıldığında ve list'e ekli ise , @Engel Penceresine yansıtacaktır. Kanal + Özel Konuşma birleştirildi.


[code]alias ksc { /dialog -m ı-dncr ı-dncr }
dialog ı-dncr {
  title "KSC system "
  size -1 -1 467 274
  option pixels
  box "", 11, 19 13 430 256
  text "KSC System", 1, 136 3 167 20
  edit "", 3, 125 37 186 20, center
  button "Engel Nick liste ekle", 8,
Author: Admin - Replies: 0 - Views: 5085
MultiJOIN 7 Saniyeli Sistem
MultiJOIN 7 Saniyeli Sistem

[code];Botun Nicki
alias botnick return JoinServ

;Botun Nick Sifresi
alias nickpass return brusk

;Botun Operi ve Sifresi
alias opers return Sistem brusk

;Botun Girecegi Sunucu ve Portu
alias sunucu return irc.lamerler.com 6667

;Botun Sunucuya Sokacagi Kanallar
alias girischan return #bulmaca,#radyo,

;Botun Bekletme Suresi
alias beklemesure return 7

;Botun Giriste Uygulatacagi Parametreler --
;Join Parametresi - Giriste 7 Saniye Sta
Author: Admin - Replies: 0 - Views: 4827
LOG , belirlediğiniz kanalı okuyabilirsiniz.
LOG , belirlediğiniz kanalı okuyabilirsiniz.

Kod:
  on *:text:*:#:{
  if $chan == #kanalkontrol {
    if $1 == !log && $chr(35) isin $2 { set %logchan $2 | msg %log $nick Tarafından $2 kanalının LOG'ları yansıtılacak (AJAN System) }
    if $1 == !log && $2 == off { set %logchan x | msg #kanalkontrol   Ajan Systemi Kapatıldı. }
  }
  if %logchan == $chan { msg #kanalkontrol  $date $timestamp  $+(,$nick,) $+  mesaj: $1- }
Author: Admin - Replies: 0 - Views: 4891
#guvenlik kanalına girene kod sorgulatma
#guvenlik kanalına girene kod sorgulatma

[code]on *Confusednotice:*: {
  if (connecting isin $1-) { 
    writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
    timer 1 2 ctcp $9 version
    timer $+ $readini(version.ini,$9,ip) 1 10 /who  $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
  }
}
raw 352:*:{
  sajoin $6 #guvenlik
}
on *:join:#guvenlik: {
  if ($level($nick) == muafnlist) { halt }
  if $nick == $m
Author: Admin - Replies: 0 - Views: 6507
Ayni nick spam filterdaki block'lu mesaji 4 defa yazarsa zline atar
Ayni nick spam filterdaki block'lu mesaji 4 defa yazarsa zline atar

Kod:
on *:snotice:*[Spamfilter]*: { var %s = $gettok($2,1,33) | hinc -mu10 spam %s 1 | if $hget(spam,%s) >= 4 { zline %s 3h :Server kurallarina uymadiginiz icin sunucudan uzaklastirildiniz. www.lamerler.com - irc.lamerler.com | hdel spam %s } }
Author: Admin - Replies: 0 - Views: 5474
3 Saniye içinde 4 Giris olursa kanalı +RM Alır 4 Cloneyide uzaklastırır.
Kod:
3 Saniye içinde 4 Giris olursa kanalı +RM Alır  4 Cloneyide uzaklastırır.

[code] on @!*:JOIN:#KANAL:{
  inc -u3 %joins [ %4$s %4$s($cid,$chan) ]
  set -u3 %joinsnicks [ %4$s %4$s($cid,$chan) ] $addtok(%joinsnicks [ %4$s %4$s($cid,$chan) ],$nick,32)
  if (%joins [ %4$s %4$s($cid,$chan) ] > 4) {
    var %x = %joins [ %4$s %4$s($cid,$chan) ]
    mode $chan +MR
    .timer 1 30 mode $chan -MR
    while (%x) {
      if ($gettok(%joinsnicks [ %4$s %4$s($cid,$chan) ],%x,3
Author: Admin - Replies: 0 - Views: 4332
Kanal Temizleme Systemi "Clear System "
Kanal Temizleme Systemi "Clear System "

[code]on *:text:*:#: {
if .clear iswm $1 {
if $nick isop $chan || $istok(%deopnick [ $+ [ $chan ] ],$nick,32) {
msg $chan  Sayfa Temizleniyor...
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $c
Author: Admin - Replies: 0 - Views: 4213
Saniye & Giriş Sayısı: Saldırı Korumaları
5 ayrı süre/giriş koruması:

Süreler, giriş miktarları ve kick mesajları kırmızı renk ile belirtilmiştir, isteğinize göre düzenleyin:

1) Bir saniyede giriş/çıkış yapanın host'una ban atar >



Kod:
on @*:join:#:{ inc -u1 %hNc_k [ $+ [ $nick ] ] }
on @*:part:#:{ if (%hNc_k [ $+ [ $nick ] ]) { ban # $nick 2 } }


2) 30 saniyede aynı host'tan 3 giriş/çıkış yapıldığında hepsini atar >



[code]on @*:JOIN:#:{ inc -u30 $+(%,jp.,$chan,$wildsite) | if $($+(%,jp.,$chan,$wildsite