IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Etiketlenen Kullanıcılar

2Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Aralık 2004, 11:54   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



NAMES End Raw'i varken baska Raw'lere ne gerek var ki?
Alfa, asagidaki kodu copy paste yap yerer. Kusursuz calisacaktir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias badnicktara { if $me isop $1 { set %:bulunan 0 var %s 1 while %s <= $nick($1,0) { %:gnick = $nick($1,%s) if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 666 { inc %:bulunan 1 mode $1 +b $ulist(%:gnick,666,1) kick $1 %:gnick Badnick kullandiginiz tespit edildi! } inc %s } echo -a 2 Badnickler tarandi: $1 - %:bulunan badnick bulundu. } else { echo -a 2 $1 kanalinda OP olmaniz gerekmektedir. } } raw 366:*: { badnicktara $1 } on *:join:#: { if $level($nick $+ !*@*) == 666 { mode # +b $ulist($nick,666,1) kick # $nick Badnick kullandiginiz tespit edildi! } } on *:nick: { if $level($newnick $+ !*@*) == 666 { banall $newnick $ulist($newnick,666,1) kickall $newnick Badnick kullandiginiz tespit edildi! } } alias banall { var %i 1 while %i <= $comchan($1,0) { if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- } inc %i } } alias kickall { var %i 1 while %i <= $comchan($1,0) { if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- } inc %i } }



Konu DefauLt tarafından (11 Aralık 2004 Saat 14:22 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Mobil Chat
Alt 11 Aralık 2004, 13:40   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Evet %100 Kusursuz İkinizede Cok Ama COk Teşekkür Ederim Ugras Verdiginiz İcin Arkadaslar

 
Alıntı ile Cevapla

Alt 30 Aralık 2004, 03:12   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



ben bu addonun benzerini bir yerd egormustum hatta kullandim kisa bir sureliginede sanirim aliencenin kimden bahsettiginide tah,min ediyorum bu korumaya sahiplenen kisiyi yani neyse esas meseleye geceyim
ben bu korumayi kullandim evet guzel fakat ilginc bir sey gordum bu korumada
ornekle aciklarsam mesela kotu nick listemize hot kelimesini ekledik diyelim
eger bu kelime kanala giren hasan nickli userin ip adresinde yani hostunda hot kelimesi geciyorsa ki bazen gecenler var hasanida atiyor yani bu koruma kanala giren nickin yani sira ip leride tariyor ve kayitli kelimeyi ister nick ister ip de gorsun atiyor
ilk gunler ben niye kayitli olmayan nickleri atiyor diye bakinip duruyordum sonradan cozdum bunuda bilginize
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)))

 
Alıntı ile Cevapla

Alt 30 Aralık 2004, 04:21   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



benim bu kanal tarama isine kafam basmadi biriniz topik raw biriniz ise kanal kisi listesi sonu raw dan sonra komutun calismasini istemissiniz iyide siz kanala girdiginizde daha op olmadan bu rawlar benim bildigim gecmis olur haliyle bu rawlarla dan hemen sonra kanal taranbirsa siz halen op olmamis olursunuz yaniliyormuyum birde kisa yollari konmamis onlarida ben ekliyeyim dedim

menu channel,status,menubar {
.-
Badnick
.-
.Kanali Taramasi:/badnicktara | 0,4 Badnickler tarandi: $1 - 8,12 %:bulunan 0,4 badnick bulundu.
.Ekle:/.auser 666 $$?="Nick Giriniz" | /echo -a 10Kotu nick listeye Alindi...
.Çikar:/.ruser $$?="Nick Giriniz" | /echo -a 10Kotu nick listeden Çikarildi...
.Düzenle:/shitlist | /echo -a 4 $+ $me 6Kotu nick listesi Açildi

}

 
Alıntı ile Cevapla

Alt 01 Ocak 2005, 00:35   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



on 1:dialog:adver:sclick:*: {
if ($did == 3) { did -ra $dname 5 $did(3).seltext | did -e $dname 10 }
if ($did(13).state == 1) { set %senable 1 | did -e adver 3,4,5,6,7,10,12 } | else { set %senable 0 | did -b adver 3,4,5,6,7,10,12 }
if ($did == 4) { set %words1 [ %words1 ] $did(5) | did -a $dname 3 $did(5) | did -ra $dname 5 }
if ($did == 7) { if ($did(3).sel > 0) { set %words1 $remtok(%words1,$did(3).seltext,32) | did -d adver 3 $did(3).sel | did -ra $dname 5 | did -b $dname 7 } }
if ($did(10).state == 1) { set %kban 1 | did -e adver 12 } | else { set %kban 0 | did -b adver 12 }
}

on *:dialog:adver:init:*: {
if (%kban == 1) { did -c adver 10 | did -e adver 12 }
if (%kban == 0) { did -b adver 12 }
if (%senable == 1) { did -c adver 13 | did -e adver 4,5,6,7,10,12 }
if (%senable == 0) { did -b adver 4,5,6,7,10,12 }
var %a = 1
while ($gettok(%words1,%a,32)) {
did -a adver 3 $gettok(%words1,%a,32)
inc %a
}

}

on @*:join:#:{
if ($nick !isop $chan) {
var %x = 1
while (%x <= $numtok(%words1,32)) {
if ($gettok(%words1,%x,32) isin $nick) { var %advering! = $true }
inc %x
}
if (%advering!) && (%kban == 1) && (%mins) {
mode $chan b $nick
kick $chan $nick 12 $+ Kanalimiza bu nickle giremezsiniz nick degisin!!
}
}
}
dialogunu kopyalamadim
bu aslinda kotukelime korumasi idi ben bunu kotunick olarak degistirdim
ama buna birde kotunick taramasi eklemek istiyorum beceremedik haliyle
mumkunmu buna bir kotunick taramasi yapmak acaba

 
Alıntı ile Cevapla

Alt 03 Temmuz 2005, 02:29   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
bnickscan.




Alience Nickli Üyeden Alıntı

alias bnickscan {
var %i = 1
while (%i <= $nick($1,0)) {
var %shlist = $ulist($nick($1,%i),666,0),*,@,!)
if (%shlist != 0) {
ban $1 $nick($1,%i) 2 | kick $1 $nick($1,%i) 5Shitlisted
}
inc %i 1
}
}

arkadaşlar yukardaki turuncu bölgede neden ip ban atmıyo olabilir? ip ban atması gerekiyo sanırım.

 
Alıntı ile Cevapla

Alt 03 Temmuz 2005, 02:47   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



pardon bi yalnışlık olmuş sorun bendeymiş çok çok özür dilerim.

 
Alıntı ile Cevapla

Alt 10 Şubat 2006, 12:52   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



ArkadaşLar artık Mode +b kick felan kalmadı Şunun ipe akick alacak addonu yokmu ?

 
Alıntı ile Cevapla

Alt 10 Şubat 2006, 13:25   #19
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
isine yarar umarım.




alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }
dialog Shitlist {
size -1 -1 295 346
title "Shitlist & Auto kick"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 22
button "&Çıkar", 3, 244 24 50 22
button "Tamam", 4, 244 324 50 22,ok
Check "Shitlist ON" , 5 , 1 327 241 20
}
on *:dialog:Shitlist:*:*: {
if ($devent == init) { Shitlist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser 666 $did(1) | Shitlist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }
if ($did == 5) {
writeini $+(",$mircini,") Shitlist Shitlist $iif($did(5).state == 1,on,off)
}
}
}
alias Shitlist.init {
did -r Shitlist 1
if ($readini $+(",$mircini,") Shitlist Shitlist == on) { did -c Shitlist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == 666) { did -a Shitlist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
on 666:join:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
cs akick $chan add $+($nick,!*@*) 5God is h4pp3n ! | kick $chan $nick 5Shitlisted
}
}
}
on 666:part:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
mode $chan +b $address($nick,2)
}
}
}
on *:nick: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if ($nick == $me) { halt }
var %ul = 1
while ($ulist(*,666,%ul)) {
if (($remove($ulist(*,666,%ul),*,@,!) isin $nick) || ($remove($ulist(*,666,%ul),*,@,!) isin $newnick)) {
var %i = 1
while ($comchan($newnick,%i)) {
if (($me isop $comchan($newnick,%i)) || ($me ishop $comchan($newnick,%i))) {
ban $comchan($newnick,%i) $newnick | kick $comchan($newnick,%i) $newnick 5Shitlisted
}
inc %i 1
}
}
inc %ul 1
}
}
}
on 666:text:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:notice:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:action:*:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $nick 2 | kick $chan $nick 5Shitlisted
}
}
}
on 666:op:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $opnick 2 | kick $chan $opnick 5Shitlisted
}
}
}
on 666:deop:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $opnick 2 | kick $chan $opnick 5Shitlisted
}
}
}
on 666:voice:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $vnick 2 | kick $chan $vnick 5Shitlisted
}
}
}
on 666:devoice:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $vnick 2 | kick $chan $vnick 5Shitlisted
}
}
}
on 666:help:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $hnick 2 | kick $chan $hnick 5Shitlisted
}
}
}
on 666:dehelp:#: {
if ($readini $+(",$mircini,") Shitlist Shitlist == on) {
if (($me isop $chan) || ($me ishelp $chan)) {
ban $chan $hnick 2 | kick $chan $hnick 5Shitlisted
}
}
}

Alience'nin vermis oldugu kodu bu sekilde degisirsen Shitlist'e aldıgını nick kanala girdiginde direk Akick alıncaktır.


Konu h4pp3n tarafından (10 Şubat 2006 Saat 13:31 ) değiştirilmiştir. Sebep: Alience'nin nick'ini yanlıs yazdım :s
 
Alıntı ile Cevapla

Alt 10 Şubat 2006, 13:31   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Her yazdığım kodda olduğu gibi yine en az bir 5 ay gecikmeli idrak ediyor. Hazır kodlar bölümünde 2. versiyonu var [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], akick olayına gelince tamamiyle saçmalıyorsunuz derim.

 
Alıntı ile Cevapla

Cevapla

Etiketler
addonu, lazim, lazım, mirc, mirc download, mirc indir, shitlist


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Shitlist V2 addonu Alience mIRC Scripting Hazır Kodlar 11 15 Şubat 2010 16:47
Shitlist addonu Heidi mIRC Scripting Hazır Kodlar 6 06 Mayıs 2009 15:24
Shitlist addonu hk olcays mIRC Scripting Sorunları 15 21 Ekim 2008 20:07
Sohbet Addonu Lazım cashmare mIRC Scripting Sorunları 10 08 Temmuz 2008 23:01
SesLenme Addonu Lazım. BraveStorm mIRC Scripting Sorunları 14 03 Şubat 2008 17:56