BadChan Girisi
 

Abi Yokmu #izmirde Opsam #***te olan biri kanala girince kick atsın Asb De Bile Var Normalde bulamadım Soyle Laga Koymayacak Bişey :)

Senin op olduğun kanala giren birine whois çekilir. Eğer bulunduğu kanalların içinde *** yada bilmemne [bunu değişebilirsin] varsa ortak olduğunuz ve senin op olduğun kanallardan atar.
İşte kod:
Umarım işine yarar..

saol ama yaramadı oyle yogun bir kanalki benim mircimi dondurdu whois ceke ceke ctl+alt delete oldu sonum yokmu soyle raw da sadece bulundugu kanallara bakan ya dogru düzgün allah askına

badchan nedir?

kötü kanal

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Tsirk Script 4.5 Edition by tsirk Gonna be the best
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
; Copyright 2002
; WARNING: Do not change/rip/modify/reproduce this script. This is free and use it at your own risk.
; Anything that may happen to your computer is not my problem.
; Codename: tsirk Server: DAlnet Channel: #Blangko, #Tsirkscript E-mail: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Title :Tsirk Script Bad Channel Kick Addon #1

on @1:join:%bad.chan: {
if ($me !isop $chan) || ($nick == $me) { goto end }
if (%badchannelkick == Enable) { .enable #badchannel | set %badjoinchan # | whois $nick | .timer 1 5 disable #badchannel }
:end
}
#badchannel off
raw 319:*: {
if (%badchannel1 isin $3-) || (%badchannel2 isin $3-) || (%badchannel3 isin $3-) || (%badchannel4 isin $3-) || (%badchannel5 isin $3-) || (%badchannel6 isin $3-) || (%badchannel7 isin $3-) || (%badchannel8 isin $3-) || (%badchannel9 isin $3-) || (%badchannel10 isin $3-) || (%badchannel11 isin $3-) || (%badchannel12 isin $3-) || (%badchannel13 isin $3-) || (%badchannel14 isin $3-) || (%badchannel15 isin $3-) || (%badchannel16 isin $3-) || (%badchannel17 isin $3-) || (%badchannel18 isin $3-) || (%badchannel19 isin $3-) || (%badchannel20 isin $3-) {
set %badjoin $2
set %ifmatch $ifmatch
bankick
}
}
#badchannel end
alias bankick {
inc %kicks 1
kick %badjoinchan %badjoin Hey %badjoin We do not allow users from 1(4 $+ %ifmatch $+ 1) %badchanneltime secs ban. Kick #: %kicks
ban -u $+ %badchanneltime %badjoinchan %badjoin 2
.disable #badchannel
:end
unset %badjoinchan
unset %badjoin
halt
}
alias addbad.chan {
if ($readini config.ini control bad.chan == $null) { writeini kickcontrol.ini control bad.chan #hangtime }
if ($readini config.ini control bad.chan == #hangtime) {
.set %bad.chan $?="korunan kanal ismi girin"
if ($chr(35) !isin %bad.chan) { goto end }
writeini config.ini control bad.chan %bad.chan
goto end
}
.set %TempChan $?="kicklenecek kanal ismi girin ornek: #Hangoutz"
if (%TempChan != $null) {
.set %bad.chan %bad.chan $+ , $+ %TempChan
writeini kickcontrol.ini control bad.chan %bad.chan
}
:end
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14Tsirk Script Bad Channel Kicker is now activated to:4 %bad.chan
}

alias delbad.chan {
.set %rembad.chan [ $$?="Enter the channel name to deactivate bad channel kicker" ]
if ($chr(35) !isin %rembad.chan) { goto end }
if (%rembad.chan !isin %bad.chan) { goto end }
if (%bad.chan == $null) { .set %bad.chan $readini kickcontrol.ini control bad.chan }
if (%bad.chan == $null) { .set %bad.chan [ #hangtime ] | goto end }
if (($gettok(%bad.chan,1,44) == %remnbad.chan && ($chr(44) isin %bad.chan ))) { .set %comrembad.chan %remnbad.chan $+ , | .set %bad.chan $remove(%bad.chan,%comrembad.chan) | writeini kickcontrol.ini control bad.chan %bad.chan | goto end }
if ($chr(44) !isin %bad.chan) { .set %bad.chan [ #hangtime ] | writeini kickcontrol.ini control bad.chan %bad.chan | goto end }
.set %comrembad.chan , $+ %rembad.chan
.set %bad.chan $remove(%bad.chan,%comrembad.chan)
writeini kickcontrol.ini control bad.chan %bad.chan
:end
unset %rembad.chan %comrembad.chan
}
menu menubar {
Kotu kanal Kick ( $+ %badchannelkick $+ )
.Kotu kanal Kick ( $+ %badchannelkick $+ )
..Ac:.set %badchannelkick Enable
..Kapat: .set %badchannelkick Disable
.Kanal ayarla
..Kayitli kanallar:echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14Tsirk Script Bad Channel Kicker enable to4 %bad.chan
..Kanala ekle:addbad.chan
..Kanal sil:delbad.chan
.Kotu kanal ekle
..Kotu kanal ayarlari 1:halt
..Kayitli kanal ( $+ %badchannel1 $+ )
...Kanal ekle:set %badchannel1 $$?="Enter Bad Channel:":
...Sil( $+ %badchannel1 $+ ):set %%badchannel1
..Kayitli kanal ( $+ %badchannel2 $+ )
...Kanal ekle:set %badchannel2 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel2 $+ ):set %badchannel2
...Kayitli kanal ( $+ %badchannel3 $+ )
...Kanal ekle:set %badchannel3 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel3 $+ ):set %badchannel3
..Kayitli kanal ( $+ %badchannel4 $+ )
...Kanal ekle:set %badchannel4 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel4 $+ ):set %badchannel4
..Kayitli kanal ( $+ %badchannel5 $+ )
...Kanal ekle:set %badchannel $$?="Enter Bad Channel:":
...Sil ( $+%badchannel5 $+ ):set %badchannel5
..Kayitli kanal ( $+ %badchannel6 $+ )
...Kanal ekle:set %badchannel6 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel6 $+ ):set %badchannel6
..Kayitli kanal ( $+ %%badchannel7 $+ )
...Kanal ekle:set %badchannel7 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel7 $+ ):set %badchannel7
..Kayitli kanal ( $+ %badchannel8 $+ )
...Kanal ekle:set %badchannel8 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel8 $+ ):set %badchannel8
..Kayitli kanal ( $+ %badchannel9 $+ )
...Kanal ekle:set %badchannel9 $$?="Enter Bad Channel":
...Sil ( $+ %badchannel9 $+ ):set %badchannel9
..Kayitli kanal ( $+ %badchannel10 $+ )
...Kanal ekle:set %badchannel10 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel10 $+ ):set %badchannel10
.Kotu kanal ekle
..Kotu kanal ayarlari 2:halt
..Kayitli kanal ( $+ %badchannel11 $+ )
...Kanal ekle:set %badchannel11 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel11 $+ ):set %badchannel11
..Kayitli kanal ( $+ %badchannel12 $+ )
...Kanal ekle:set %badchannel12 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel12 $+ ):set %badchannel12
..Kayitli kanal ( $+ %badchannel13 $+ )
...Kanal ekle :set %badchannel13 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel13 $+ ):set %badchannel13
..Kayitli kanal ( $+ %badchannel14 $+ )
...Kanal ekle :set %badchannel14 $$?="Enter Bad Channel:
...Sil ( $+ %badchannel14 $+ ):set %badchannel14
..Kayitli kanal ( $+ %badchannel15 $+ )
...Kanal ekle :set %badchannel15 $$?="Enter Bad Channel:":
...Sil ( $+%badchannel15 $+ ):set %badchannel15
..Kayitli kanal ( $+ %badchannel16 $+ )
...Kanal ekle :set %badchannel16 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel16 $+ ):set %badchannel16
..Kayitli kanal ( $+ %badchannel17 $+ )
...Kanal ekle :set %badchannel17 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel17 $+ ):set %badchannel17
..Kayitli kanal ( $+ %badchannel18 $+ )
...Kanal ekle :set %badchannel18 $$?="Enter Bad Channel":
...Sil ( $+ %badchannel18 $+ ):set %badchannel18
..Kayitli kanal ( $+ %badchannel19 $+ )
...Kanal ekle :set %badchannel19 $$?="Enter Bad Channel":
...Sil ( $+ %badchannel19 $+ ):set %badchannel19
..Kayitli kanal ( $+ %badchannel20 $+ )
...Kanal ekle :set %badchannel20 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel20 $+ ):set %badchannel20
.Ban Zamani ( $+ %badchanneltime secs $+ ):
..1 minute:set %badchanneltime 60
..5 minute:set %badchanneltime 300
..10 minute:set %badchanneltime 600
..20 minute:set %badchanneltime 1200
..30 minute:set %badchanneltime 1800
..1 Hour:set %badchanneltime 3600
..1 Day:set %badchanneltime 86400
}
on 1:Load: {
if ($version < 6.0) {
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 4Error while loading.
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14 Please download mIRC32 version 6.0 or higher
/unload -rs seen.dll
}
.writeini kickcontrol.ini control bad.chan #hangtime
.set %bad.chan #hangtime
}
on 1:start:{
inc %startup 1
echo -s $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14 Kotu kanal Kicker Addon Ver. 1 calisiyor %startup $+ x $time(dd/mm/yyyy) $time(hh:nn:tt)
}






bu addonu bir yerden almistim biraz turkcel;estirdim isine yarar sanirim

Uh Calısıyormu Bu Bu Kasar Abi Ya :)

el33t'in yazdigi kod isine yarayacaktir. Yogun kanallarda isen her halukarda excess flood'tan dusersin. Ya da sunucu sahibiyle konus sana koruma ayarlasin :)

on @*:join:#:.tara $nick $chan
alias tara {
//var %ks 1
while $comchan($1,%ks) {
.set %kanal $ifmatch
if (%kanal isin #***) || (%kanal isin #istediğinkanal) {
.ban $2 $1
.kick $2 $1 Yanlış Kanaldasın...
}
else { halt }
inc %ks
}
}

birde şuna bak istersen ama buda.whois kadar kastırmaz ama yineda biraz kasar :D

Kolayı var..
 

Bu kadar uğraşmanıza gerek yok. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a girin. PNP 4.22 addon unu indirin. ve normal mirc in üzerine ekleyin. Ben 7 yıldır undernet serverindeyim.Devamlı script gelişimi ile uğraşıyorum.Script ime güvendiğim kadar kendime bile güvenmem.Bi kaç kez piyasaya sürme eğilimim oldu ama vazgeçtim.Çünkü o zaman benim bir özelliğim kalmayacaktı.Yaptığım script tam 7 yıl önce normal bir mircti. Şimdi ise bir canavar adeta. ***, gay, lezbiyen gibi bad kanallarda iseniz benim @ olduğum kanallara giremezsiniz. Banlist dolarsa, ilk atılan 15 banı otomatik olarak açar. @ olduğum bir kanala 10 saniye içinde 17 join/part yapılırsa script saldırı olduğunu varsayar ve kanalı hemen +mi yapar. Yada kanala devamlı saldırı oluyor. Kanal limitini +3 yapıyorum. O anda kanalda 100 kişi varsa script +l 103 yapıyoır. 1 kişi çıkarsa kanal 99 sayısına ineceğinden hemen +1 102 yapar. Bir kişi size flood saldırısı yaparak düşürmeye felanmı çalıştı. En fazla 2 satır yazı gönderir. 3. sünde ignore eder. Kendime bile 3 defa üst üste ping atamıyorum. Beni bile ignore ediyor. Kanala dcc exploit atanı buluyor ve hemen banlıyor. Ayrıca bu özellikler isteğime göre değişebilir.Bunun gibi bir çok özelliği barındıran muhteşem bir script.Siz bu özellikleri yapmaya çalşıyorsunuz. Ben bu mükemmelliğe 3 yıl önce eriştim. Yapmak isteyince yapamayacağınız hiç bir şey yok.Kodları vermicem. Asla istemeyin.Sadece bunların var olduğunu hemde çok önceden var olduğunu bilmenizi istedim.Şimdiden kolay gelsin.