IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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

- - Küfür Kodu (https://www.ircforumu.net/mirc-scripting-sorunlari/2988-kufur-kodu.html)

Şöyle Bir Kodum Var Genelde Yazılan Küfürleri Kanaldan Atiyor Txt Eklediğim Küfürler Genele Yansıdığı Zaman Hemen Kanaldan Atiyor

Şu Koduma Genelde Küfür Olduğu Zaman Kanaldan Atığı Kişiyi Hemen Kanalda /hop !temizle yapsın istiyorum kanalı Tşk Ederim

Kod:

alias argosil {

  if ($read(Argo.txt,w,$+(*,$1-,*))) {

    write -dl $+ $readn argo.txt

    echo -a $1- Argo veri tabanindan çıkarıldı

  }

}

alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi }
 

#Argo on

on *@:text:*:#:{

  if ($nick isop $chan || $nick ishop $chan) { return } 

  var %i 1

  while $read(Argo.txt,%i) {

    if ($read(Argo.txt,%i) iswm $1-) {  ban -k $chan $nick 4KüfürLü Konuşmak Yasaktir 0,6    }

    inc %i

  }

}

#Argo end

Cevap: Küfür Kodu

Alıntı:

ShiRoi Nickli Üyeden Alıntı (Mesaj 4394)

Kod:

alias argosil {

  if ($read(Argo.txt,w,$+(*,$1-,*))) {

    write -dl $+ $readn argo.txt

    echo -a $1- Argo veri tabanindan çıkarıldı

  }

}

alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi }
 

#Argo on

on *@:text:*:#:{

  if ($nick isop $chan || $nick ishop $chan) { return } 

  var %i 1

  while $read(Argo.txt,%i) {

    if ($read(Argo.txt,%i) iswm $1-) {  ban -k $chan $nick 4KüfürLü Konuşmak Yasaktir 0,6    }

    inc %i

  }

}

#Argo end

Böyle kullan;

Kod:

alias argosil {

  if ($read(Argo.txt,w,$+(*,$1-,*))) {

    write -dl $+ $readn argo.txt

    echo -a $1- Argo veri tabanindan çıkarıldı

  }

}

alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi }
 

#Argo off

on *:text:*:#:{

  if $regex($nick(#,$me).pnick,/[%@&~.]/) && !$regex($nick(#,$nick).pnick,/[%@&~.]/) {

    var %i 1 | while $read(Argo.txt,%i) {

      if ($read(Argo.txt,%i) iswm $1-) { .ban -k $chan $nick 4KüfürLü Konuşmak Yasaktir | hop # | msg # !temizle }

      inc %i

    }

  }

}

#Argo end

Cevap: Küfür Kodu

Toprak Abi Kodla Oynadınmı Küfür Oldumu Atmiyor Kanaldan :)

Cevap: Küfür Kodu

Alıntı:

ShiRoi Nickli Üyeden Alıntı (Mesaj 4405)

Toprak Abi Kodla Oynadınmı Küfür Oldumu Atmiyor Kanaldan :)

Yetki sorgulamasını regex olarak yaptım sadece mirc versionun 6.35 ve üstü değil ise çalışmaz sen şöyle kullan;

Kod:

alias argosil {

  if ($read(Argo.txt,w,$+(*,$1-,*))) {

    write -dl $+ $readn argo.txt

    echo -a $1- Argo veri tabanindan çıkarıldı

  }

}

alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi }
 

#Argo on

on *@:text:*:#:{

  if ($nick isop $chan || $nick ishop $chan) { return } 

  var %i 1

  while $read(Argo.txt,%i) {

    if ($read(Argo.txt,%i) iswm $1-) { .ban -k $chan $nick 4KüfürLü Konuşmak Yasaktir. | hop # | msg # !temizle }

    inc %i

  }

}

#Argo end

Cevap: Küfür Kodu

Toprak Abi Saygılarımla Tamamdir Abi tşk Ederim Çalıştı