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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Kasım 2005, 21:20   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



mode # +b $nick olan kısmı mode # +b $nick 2 olarak düzelt . Burdaki 2 banın IP'e atılmasını sağlar

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 21 Kasım 2005, 21:37   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Evet Güzel gidiyor Çalışmalar..




Peki Servera List Çeksin 10 Kişi Olan KanaLLara SAjoin ile Girsin...Bunu nasıl yapabiliriz...

Birde /samode # +b nick 2 olayı yemiyor haberin ola


Konu Kablosuz NET tarafından (21 Kasım 2005 Saat 21:55 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 21 Kasım 2005, 22:12   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Teşekkürler




Arkadaşım teşekkürler ancak Kod şeklinde verseydin daha iyi olurdu böyle almak zor oluyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 21 Kasım 2005, 22:21   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
iyi Dinle şimdi Babacan..




ben Code parametresinde Aralarda boşluk bırakıyorum sen bırakma yazarken


[ CODE ] Eklemek istediğin kod [ /CODE ]

 
Alıntı ile Cevapla

Alt 21 Kasım 2005, 22:27   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



ARKADAŞLAR BAŞDAN YAZIYORUM KUSURA BAKMAYIM YUKARISI ÇOK KARIŞIK :

1
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
öncelikle tek buton ile useri küm kanallardan atsın :allban:
Alıntı:
menu nicklist,query {
.-
All Akick:.comchankick $$1 14,1Badnick4,1/14,1Clone Sebebinden Kanaldan Uzaklastırıldınız!  $ifmatch
.-
}
}

2
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sonra ne ekleyelim tek tuşla tüm kanallardan banını acsın örnek nick*!*@* banları acması için : allbanac :
Alıntı:
}
menu nicklist,query {
All Banac {
var %' $chan(0)
while (0 < %') {
mode $chan(%') -b $1
dec %'
}
}
}

3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isterseneniz ipne banlarıda acması i&#231;in kod ekleyim *!*@ipnoseklinde
allbancaip: NOT: userin senin bunudugu bir kanalda bulunması gerekiyor bu buton un &#231;alışması i&#231;in .

Alıntı:
menu nicklist,query {
All Banacipi {
var %' $chan(0)
while (0 < %') {
mode $chan(%') -b $address($1,2)
dec %'
}
}
}


 
Alıntı ile Cevapla

Alt 21 Kasım 2005, 22:33   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
birde k&#252;f&#252;r koruması ekleyelim scriptimize :k&#252;f&#252;r koruması :
Alıntı:
#kufur on
on 1:text:amcik*:#: {
if (FeaR`Night iswm $fulladdress) { halt }
if (r4dx iswm $fulladdress) { halt }
if (Guvenliq iswm $fulladdress) { halt }
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:amini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:amcık*:#: {
if
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*******:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:********:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:ipne*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:ibne*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:pic*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:pi&#231;*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
}
on 1:text:sikim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*skerim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*sikerim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*mikerim*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*anani*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*ananı*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*a.k*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*a.q*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*avradi*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kitabini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kitabını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kıtabini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*kıtabını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacısını*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}
on 1:text:*bacisini*:#: {
.cs akick $chan add $nick $+ !*@* 0,14[0K&#252;f&#252;r Ettiğiniz Tespit Edildi4]:[0KanaL G&#252;venlik4]
.cs akick $chan enforce
.cs akick $chan del $nick $+ !*@*
}

5
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
başka he uzun yazı korumasıda olmalı dimi : uzunyazı koruması :

Alıntı:
#longtext on
on @*:TEXT:*:#:{
set -u1200 %lt. [ $+ [ $address($nick,3) ] ] $calc( %lt. [ $+ [ $address($nick,3) ] ] + 1)
if (%lt. [ $+ [ $address($nick,3) ] ] == 1) {
if ($nick isop #) return
if ($len($strip($1-)) > %lenght) {
cs akick # add $nick $+ !*@* 6asiri uzun yazI yazdIn10.. (6 %lenght harften fazLa yazamazsin!)
cs akick # enforce
cs akick # del $nick $+ !*@*
}
}
if (%lt. [ $+ [ $address($nick,3) ] ] >= 2) {
if ($nick isop #) return
if ($len($strip($1-)) > %lenght) {
cs akick # add $nick $+ !*@* 6asiri uzun yazI yazdIn10.. (6 %lenght harften fazLa yazamazsin!)
cs akick # enforce
cs akick # del $nick $+ !*@*
unset %lt. [ $+ [ $address($nick,3) ] ]
}
}
}
#longtext end

6
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sonra baldident korumasıda ekleyelim : baldident :

Alıntı:
#bident on
on @*:JOIN:#:{
if (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Orosp*@* iswm $fulladdress) || (*!********@* iswm $fulladdress) || (*!*annen*@* iswm $fulladdress) || (*!*[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*lezbiyen*@* iswm $fulladdress) || (*!*kaltak*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*azgin*@* iswm $fulladdress) || (*!*jgolo*@* iswm $fulladdress) || (*!*ipne*@* iswm $fulladdress) || (*!*ibne*@* iswm $fulladdress) || (*!*orgazm*@* iswm $fulladdress) || (*!*organ*@* iswm $fulladdress) || (*!*penis*@* iswm $fulladdress) || (*!*****@* iswm $fulladdress) || (*!*siker*@* iswm $fulladdress) || (*!*delici*@* iswm $fulladdress) {
cs akick $chan add $fulladdress 4,2[0,1 K&#246;t&#252; ident 14] L&#252;tfen Identinizi Deişiniz.. !
cs akick $chan enforce
cs akick $chan del $fulladdress
}
}
#bident end

7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
birde clone taramasımı eklesek ekleyelim : clonetaraması :
Alıntı:
menu menubar,status,channel {
Clone Taraması
.Basla:clonescan
}
alias clonescan {
if ($chan == $null) && ($1 == $null) { echo -a [clones]: Syntax: /clonescan #chan $+ $chr(124) $+ config | halt }
if ($1 == $null) { %cscan.chan = $chan }
elseif ($1 ischan) { %cscan.chan = $1 }
if ($dialog(clone.dialog) == $null) { dclonescan }
filldialogchan
if ($1 != config) { .timercallcscan -m 1 10 cscan %cscan.chan }
}
alias cscan {
%cscan.chan = $1 | %cscan.total = $nick($1,0) | %cscan.clone.num = 0
.enable #who.halt | .quote WHO %cscan.chan
:loop
if (%cscan.total == 0) { goto end }
%cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total), 2),%cscan.chan,0)
%cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
if (%cscan.clone > 1) {
if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto endb }
%cscan.info. [ $+ [ %cscan.host ] ] = 1
:loopa
if (%cscan.clone == 0) { goto enda }
inc %cscan.clone.num
if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%c scan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
%cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nic k
dec %cscan.clone | goto loopa
:enda
did -a clone.dialog 14 $space(3) $ialchan(%cscan.host,%cscan.chan,0) $space(6) $right(%cscan.host,$calc($len(%cscan.host) - 4)) ( $+ %cscan.clone.nicks $+ )
unset %cscan.clone.nicks
}
:endb
dec %cscan.total | goto loop
:end
if (%cscan.clone.num == 0) { did -a clone.dialog 14 $space(3) 0 $space(6) no clones found | unset %cscan* | halt }
unset %cscan*
}
alias jcscan {
%cscan.chan = $1 | %cscan.total = $nick(%cscan.chan,$2) | %cscan.clone.num = 0
%cscan.clone = $ialchan($address($nick(%cscan.chan,%cscan.total), 2),%cscan.chan,0)
%cscan.host = $address($nick(%cscan.chan,%cscan.total),2)
if (%cscan.clone > 1) {
if (%cscan.info. [ $+ [ %cscan.host ] ] != $null) { goto end }
%cscan.info. [ $+ [ %cscan.host ] ] = 1
:loop
if (%cscan.clone == 0) { goto end }
inc %cscan.clone.num
if ($istok(%cscan.clone.nicks,$ialchan(%cscan.host,%c scan.chan,%cscan.clone).nick,32) == $true) { dec %cscan.clone | goto loopa }
%cscan.clone.nicks = %cscan.clone.nicks $ialchan(%cscan.host,%cscan.chan,%cscan.clone).nic k
dec %cscan.clone | goto loop
:end
echo %cscan.chan 10 clones : $+ $ialchan(%cscan.host,%cscan.chan,0) $+ 10Aynı İp $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) $+ 4[10 $+ %cscan.clone.nicks $+ 4]
if ($me !isop %cscan.chan) { goto e }
if ($readclones(clones,joinkickban) == on) { .quote MODE %cscan.chan +b *!*@ $+ $right(%cscan.host,$calc($len(%cscan.host) - 4)) }
if ($readclones(clones,joinkick) == on) || ($readclones(clones,joinkickban) == on) { if ($readclones(clones,kickm) == on) { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) $readclones(clones,kickmsg) } | else { _ckick %cscan.chan $right(%cscan.host,$calc($len(%cscan.host) - 4)) } }
:e
unset %cscan*
}
}

on !*:join:#:{ if ($readclones(clones,joindetect) == on) { jcscan $chan $nick } }

#who.halt off
raw 352:*:halt
raw 315:*:.disable #who.halt | halt
#who.halt end
alias dclonescan { dialog -m clone.dialog clone.dialog }
dialog clone.dialog {
title " MyLiFe Clone Scan "
option dbu
size -1 -1 200 180
box " Kanal ", 1, 5 2 70 24
combo 2, 10 10 60 40, drop
box " Action ", 3, 5 30 70 36
button "Tarama", 4, 9 39 30 10
button "Ban", 5, 41 39 30 10
button "Kick", 6, 9 51 30 10
button "Kick+Ban", 7, 41 51 30 10
box "", 8, 5 71 189 85
text "Kisi", 9, 14 78 14 10
text "Nick/Adres", 10, 32 78 25 10
list 14, 9 86 181 74, vsbar hsbar
box "", 15, 80 2 114 64
check " Clone Girisini G&#246;ster", 16, 85 7 62 12
check " Giren Clonu Kickle", 17, 85 18 60 12
check " Giren Clonu Banla", 18, 85 29 70 12
check " Clone Kick Sebebi", 19, 85 40 64 11
edit "", 20, 85 51 104 11, autohs limit 150
button "Kapat", 21, 83 157 36 13, cancel
box "Coded by MyLiFe", 22, 60 170 78 10
}
on *:dialog:clone.dialog:init:*:{ unset %cfg.* | did -r clone.dialog 14 | did -m clone.dialog 20 | fillcloneoptions }
on *:dialog:clone.dialog:sclick:*:{
if ($did == 4) { if ($did(clone.dialog,2) == $null) { halt } | else { did -r clone.dialog 14 | cscan $did(clone.dialog,2) } }
if ($did == 5) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 0,6 Clone Taramasına Yakalandınız! | timer 1 2 .cs akick $did(clone.dialog,2) enforce | timer 1 4 /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 5Clone Protections [kicked by $me ] } }
if ($did == 6) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 0,6 Clone Taramasına Yakalandınız! | timer 1 2 .cs akick $did(clone.dialog,2) enforce | timer 1 4 /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 5Clone Protections [kicked by $me ] } }
if ($did == 7) { if ($did(clone.dialog,2) == $null) { halt } | else { if ($me isin $did(clone.dialog,2)) { halt } | /cs akick $did(clone.dialog,2) add *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 0,6 Clone Taramasına Yakalandınız! | timer 1 2 .cs akick $did(clone.dialog,2) enforce | timer 1 4 /cs akick $did(clone.dialog,2) del *!*@ $+ $gettok($did(clone.dialog,14,$did(clone.dialog,14) .sel),4,32) 5Clone Protections [kicked by $me ] } }
if ($did == 16) { if ($did(clone.dialog,16).state == 1) { %cfg.joindetect = on } | else { %cfg.joindetect = off } }
if ($did == 17) { if ($did(clone.dialog,17).state == 1) { did -u clone.dialog 18 | %cfg.kick = on | %cfg.kickban = off } | else { %cfg.kick = off | if ($did(clone.dialog,18).state == 1) { %cfg.kickban = on } | else { %cfg.kickban = off } } }
if ($did == 18) { if ($did(clone.dialog,18).state == 1) { did -u clone.dialog 17 | %cfg.kickban = on | %cfg.kick = off } | else { %cfg.kickban = off | if ($did(clone.dialog,17).state == 1) { %cfg.kick = on } | else { %cfg.kick = off } } }
if ($did == 19) { if ($did(clone.dialog,19).state == 0) { did -m clone.dialog 20 | %cfg.kickm = off } | else { did -n clone.dialog 20 | %cfg.kickm = on | %cfg.kickmsg = $did(clone.dialog,20).text } }
if ($did == 21) { %cfg.kickmsg = $did(clone.dialog,20).text | .timersaveclones -m 1 100 savecloneoptions }
}
alias fillcloneoptions {
if ($readclones(clones,joindetect) == on) { did -c clone.dialog 16 | %cfg.joindetect = on }
if ($readclones(clones,joinkick) == on) { did -c clone.dialog 17 | %cfg.kick = on }
if ($readclones(clones,joinkickban) == on) { did -c clone.dialog 18 | %cfg.kickban = on }
if ($readclones(clones,kickm) == on) { did -c clone.dialog 19 | did -n clone.dialog 20 | did -a clone.dialog 20 $readclones(clones,kickmsg) | %cfg.kickm = on }
}
alias savecloneoptions {
if (%cfg.joindetect != $null) { writeclones clones joindetect %cfg.joindetect }
if (%cfg.kick != $null) { writeclones clones joinkick %cfg.kick | if (%cfg.kickban == off) { writeclones clones joinkickban off } }
if (%cfg.kickban != $null) { writeclones clones joinkickban %cfg.kickban | if (%cfg.kick == off) { writeclones clones joinkick off } }
if (%cfg.kickm != $null) { writeclones clones kickm %cfg.kickm | writeclones clones kickmsg %cfg.kickmsg }
}
alias space { if ($1 == $null) { return $chr(160) } | if ($1 !isnum) { halt } | return $str($chr(160),$1) }
alias _ckick {
var %ckick.chan $1, %ckick.total $nick($1,0), %ckick.host *!*@ $+ $2, %ckick.reason $3-
if ($1 == $null) || ($2 == $null) { halt }
:loop
if (%ckick.total == 0) { goto end }
if ($nick(%ckick.chan,%ckick.total) == $me) { dec %ckick.total | goto loop }
if (%ckick.host == $address($nick(%ckick.chan,%ckick.total),2)) { if (%ckick.reason == $null) { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) :10Clones Forbidden! 3 %ckick.host )( %soul  } | else { .quote KICK %ckick.chan $nick(%ckick.chan,%ckick.total) : $+ %ckick.reson } }
dec %ckick.total
goto loop
:end
}
alias filldialogchan {
var %dchan $chan(0), %daux 1
:loop
if (%daux > %dchan) { goto end }
did -a clone.dialog 2 $chan(%daux)
if ($chan(%daux) == %cscan.chan) { did -c clone.dialog 2 %daux }
inc %daux
goto loop
:end
}
alias readclones {
if ($1 == $null) || ($2 == $null) { halt }
return $readini clones.ini $1 $2
}
alias writeclones {
if ($1 == $null) || ($2 == $null) || ($3 == $null) { halt }
.writeini clones.ini $1 $2 $3-
}
alias makeclonesconf { writeclones clones joindetect on | writeclones clones joinkick off | writeclones clones joinkickban off | writeclones clones kickm off }

8
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
son olarak random nick koruması olmazsa olmaz demi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
random koruma :
Alıntı:
alias grr22 {
var %s = $mid($4,1,$3)
if (($($+($,regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }
}
on @!*:join:#:{ if $grr22(3,6,6,$nick) { cs akick # add $address($nick,2) 4,1Random Nick | cs akick # enforce | cs akick # del $address($nick,2) } }

alayı alıntı hi&#231; katkım yoq yapanlardan allah razı olsun . unutmayın bilgi paylaştıkca cogalır.. başka istediniz ne vardı :P

 
Alıntı ile Cevapla

Alt 21 Kasım 2005, 22:42   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Zaten ipe atıyor csden ban denilen türden .

 
Alıntı ile Cevapla

Alt 22 Kasım 2005, 18:19   #18
goXXip
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Badnick Koruması... (Tamamen Kendi Kodlarım )

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:START: {
  if !
$findfile($mircdir,badnick.db,1) {
    
hmake -s badnick 100
    hsave 
-s badnick badnick.db
  
}
  else {
    
hmake -s badnick
    hload 
-s badnick badnick.db
  
}
}
alias tab {
  if ($
== $null) return $chr(9)
  var %
1, %r
  
while ($($+($,%i),2) != $null) {
    %
$instok(%r,$ifmatch,0,9)
    
inc %i
  
}
  return %
r
}
alias hata { .echo -q $input(Hata: $1-,oh,Hata!) }
alias badnick {
  if -* 
iswm ${
    if *
riswm ${
      if 
$hfind(badnick,$+(*,$2,*),1,w).data {
        
hdel badnick $ifmatch
        hsave badnick badnick
.db
        
echo -ta $'Girdisi Silindi...
      }
      else hata Komutu Yanlış Kullandınız...
    }
    elseif *s* iswm $1 {
      if (!$window(@BADNICK)) window -lk +L @BADNICK
      aline @BADNICK $tab(No,DATA)
      aline @BADNICK $tab(-,-)
      var %k = 1
      while %k <= $hget(badnick,0).item {
        aline @BADNICK $tab(%k,$hget(badnick,%k).data)
        inc %k
      }
    }
    elseif *c* iswm $1 {
      var %m = 1,%l = 1
      while %m <= $hget(badnick,0).item {
        while %l <= $nick($2,0) {
          if $hget(badnick,%m).data iswm $nick($2,%l) || $hget(badnick,%m).data isin $nick($2,%l) {
            _queue samode $2 +b $address($nick($2,%l),2)
            echo -ta BadNick Listenizde ki $hget(badnick,%m).data Maskesiye, $nick($2,%l) '
i Uyuşuyor...
          }
          
inc %l
        
}
        
inc %m
      
}
    }
    elseif *
miswm ${
      var %:
1
      
while %:<= $hget(badnick,0).item {
        if 
$hget(badnick,%:m).data iswm $|| $hget(badnick,%:m).data isin ${
          
_queue samode $+b $address($2,2)
        }
        
inc %:m
      
}
    }
  }
  else {
    if 
$hfind(badnick,$+(*,$2,*),1,w).data {
      
hata Girmek İstediğiniz Veri Zaten Listenizde Mevcut
    
}
    else {
      
hadd badnick $r(0,9999999) $hsave badnick badnick.db
      
echo -ta $1 Başarıyla Eklendi...
    }
  }
}
on *:JOIN:#: {
  
if $nick == $me {
    .
timer 1 2 .badnick -#
  
}
  else {
    
badnick -# $nick
  
}
}
alias _queue {
  
inc %queue.count
  
if ($timer(.queue) == $null) {
    
hadd -m queue count 1
    hadd 
-m queue 1 $1-
    
_doqueue 1
  
}
  else {
    var %
queue.count $calc($hget(queue,count) + 1)
    
hadd -m queue %queue.count $1-
    
hadd -m queue count %queue.count
  
}
}
alias _doqueue {
  if (
$hget(queue,$1) != $null) {
    .
timer.queue -mo 1 $calc(($gettok(3 2 1,$1,32)) * 60_doqueue $calc($1)
    
$ifmatch
    
.hdel -s queue $1
  
}
  else 
hfree queue


İleride Geliştirilebilir. Kısaca Komutları yazayım ama fazla gerek yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


/badnick <badnick> :Wildcardlar geçerli...
/badnick -r <sileceğiniz mask>
/badnick -s: Listenizi Gösterir
/badnick -c #kanal : Badnick taraması

Bu Kodda "echo -ta" Kısımlarını "msg <kendinnickiniz>" şeklinde değiştirirseniz bu uyarı ve bilgi mesajları size gelecektir...

 
Alıntı ile Cevapla

Alt 22 Kasım 2005, 18:25   #19
MichaelNyc
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



guzel olucak birazdaha gayret
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bot haline getirin bunu, trojan korumasida ekleyin

 
Alıntı ile Cevapla

Alt 22 Kasım 2005, 19:07   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Bence K&#252;f&#252;r Ve Reklam KorumaSını bir Txt den Ya da Bir Değişkenden OkutSak Daha Hoş olmaz mI
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{ var %i $lines(kufurler.txt) while (%i > 0) { if ($me isop $chan) if ($nick !isop $chan) if ($read(kufurler.txt,%i) isin $1) { mode $chan +b $nick | kick $chan $nick K&#252;f&#252;r Yasak.! } } } on *:TEXT:*:?:{ var %i $lines(kufurler.txt) while (%i > 0) { if ($me isop $comchan($nick,1)) if ($nick !isop $comchan($nick,1)) if ($read(kufurler.txt,%i) isin $1) { mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick K&#252;f&#252;r Yasak.! } } } alias kufurekle { write kufurler.txt $1 } alias kufurlist { var %i $lines(kufurler.txt) while (%i > 0) { echo -a $read(kufurler.txt,%i) dec %i } } alias kufursil { write $+(-ds,$1) kufurler.txt $1 } on *:TEXT:*:#:{ var %i $lines(reklamlar.txt) while (%i > 0) { if ($me isop $chan) if ($nick !isop $chan) if ($read(reklamlar.txt,%i) isin $1) { mode $chan +b $nick | kick $chan $nick K&#252;f&#252;r Yasak.! } } } on *:TEXT:*:?:{ var %i $lines(reklamlar.txt) while (%i > 0) { if ($me isop $comchan($nick,1)) if ($nick !isop $comchan($nick,1)) if ($read(reklamlar.txt,%i) isin $1) { mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick K&#252;f&#252;r Yasak.! } } } alias reklamekle { write reklamlar.txt $1 } alias reklamlist { var %i $lines(reklamlar.txt) while (%i > 0) { echo -a $read(reklamlar.txt,%i) } dec %i } alias reklamsil { write $+(-ds,$1) reklamlar.txt $1 }

&#214;rnekLer;
/reklamekle *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
/kufurekle *****
/reklamsil *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
/kufursil *****
Liste İ&#231;in ;
/kufurlist
/reklamlist
kuLLanImLar bu şekiLdedir BaşarıLar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
baslikta, başlıkta, guvenlik, güvenlik, mirc, mirc download, mirc indir, , scripti, tek, yapalim, yapalım


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
Namazla ilgili tüm konular bu başlıkta !!! BaRoN Genel İslami Konular 9 20 Temmuz 2012 23:16
Yeni Anayasa için 41 başlıkta uzlaşma PassioN Haber Arşivi 0 13 Mayıs 2012 14:52
Script isteklerini bir başlıkta toplıyalım Tebessum PHP 19 13 Ocak 2008 18:35