Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Tags
Author: Admin - Replies: 0 - Views: 5911
Txt Den Okutmalı Küfür ve reklam koruması
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!

Kod:
on *:TEXT:*:#:{
if ($me isop $chan) {
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick }
inc %i
}
}
ziqerim
siqerim
gibi ekleyiniz txt dosyasına

[color=#FF4136][b]Txt Den Okutmal
Author: Admin - Replies: 0 - Views: 4140
Noticeleri Tek Pencere'de Toplama.
Noticeleri Tek Pencere'de Toplama.
Kod:
on ^*:snotice:*: { $iif(!$window(@Snotice),window -n @Snotice) | echo -t @Snotice $1- | halt }
Author: Admin - Replies: 0 - Views: 5048
Nick'inizi Söyleyene Notice mesaj
Nick'inizi Söyleyene Notice mesaj atar
S-bot ve admin olarak belirtiklerim muaf almak istediniz kişiler yanı kimlere mesaj gitmesin

[code]  menu menubar {
.Nickini söleyene söz (Notice)
  ..• Açık :.enable #noticesoz | .echo -a 0,4 notice söz acildi.
  ..• Kapalı :.disable #noticesoz | .echo -a 0,4 notice söz Kapatildi..>
  .-
}
#noticesoz off
on 1*:text:$( * $+ $me $+ * ):#:{
  if $nick == S-Bot { halt }
  if $nick ==
Author: Admin - Replies: 0 - Views: 5141
Admin Nick, İdent ve Host Koruması
Bu koruma ile giren kullanıcıların nick, ident ve hostunu kontrol edip eklediğiniz nick , ident ve hostlara gzline atmanıza yarayan alternatif bir karaliste addonu.

[code]

### /lamer komutu ile korumayı açabilirsiniz
### mircclub.org

alias lamer { /dialog -m start start }
dialog start {
  title "Ident Nick Ekstra Korumaları"
  size -1 -1 467 274
  option pixels
  box "", 11, 19 13 430 256
  text "Güvenlik Giriş Ayarları", 1, 136 3 167 20
  edit "", 3,
Author: Admin - Replies: 0 - Views: 5679
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: 4546
#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: 3729
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: 4821
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: 4886
#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: 4329
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