Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Tags
Author: Admin - Replies: 0 - Views: 6338
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN

[code]on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $token($hotline,6,32),%_nick = $token($hotline,5,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick)
  if ($(,%_word) = gline) gline $(,%_nick) Confusedebeb.
  echo 4 $target IP: %_ip - NICK: %_ni
Author: Admin - Replies: 0 - Views: 5575
Sqline Listesini Temizleme kod
Sunucunuzdaki sqline listesini tek tek silmek yerine, bu kod sayesinde sqlineyi temizleyebileceksiniz. mIRC Remote kısmına ekleyin ve /_temizle yazarak sqline listesini temizleyin..

[code]alias _temizle { .set -u3 %Confusedqline on | echo -a Sqline List Temizleniyor.. | os sqline list }
on *:notice:*:?:{
  if %Confusedqline == on {
    if ($nick == OperServ) && (SQLINE listesinden silindi !isin $strip($1-)) {
      if (Aktüel liste: isin $1-) { return }
      os sqline del $1
    }
  }
}[/
Author: Admin - Replies: 0 - Views: 4130
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: 5498
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: 5685
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: 5344
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: 5442
#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: 7397
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: 6095
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: 4869
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