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.

link çaLI$mIor?

Black sana katiliyorum ;) Pnp 4.22 download: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not: Bu scriptin yapimcisi kadindir :)

Çalışmıyor diye pes etme. Gir google a.. yaz oraya PNP 4.22 hemen bulsun sana..

vay anasını Kadın yapmıs he.ulan bizim kadInlar bi chat'ten ba$ka bi$i bilmio el kadInLarI neLer yapIo ;)

Black ne bu sinir kardeş çalışıoduda çaLIşmıomu dedik.aLLa aLLa hayret bişi he.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden türkçe sürümüne erişebilirsiniz. Scriptin asıl adı Peace and Protection dur. Uzun zmndır kullanıyorum. Scriptin bir kötü yanı var. Zaman içersinde bozulmaya uğruyor. Bende zaten bundan dolayı kendi scriptimi oluşturmaya karar verdim. Zaten Haycafe Script v1.0 pnp tabanlı olup gerçekten manyak bişi idi :) Ama önemli olan başka kaynakları kullanmadan kendin yapman yani özgün olman. PNP yapılırken içinde bazı c kodlarıda kullanılmış. Bundan dolayı içinden bişiler alabilirmiyim diye pek umutlanmayın ben çok denedim. Hakikaten kusursuz ve mükemmel bişi. Birde bozulmasa yok ötesi :) Bu arada geçenlerde bir ark sölemişti bana 195 mb lık bir script. Kullanımını çözemedim biraz beni kastı açıkcası. Daha yüklemeden atıp tutuyordum çaktırmayın :) Onuda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
adresinden indirebilirsiniz.

Script degil programdir o. Scriptte var ama dandik birsey. Programdan goruntuler:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

.
 

Arkadaşlar PnP nin resmi web sitesi ve addonları [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dir.

A bug in P&P and a fix was brougt to our attention by Paul, an IRC-Operator on Quakenet. (Thank you)
A hole in the file "last.mrc" allows for the execution of arbitrarly code. The fix closes this hole.

Aynı zamanda PnP artık update ediliyor. IRC Op korumalarınıda içeriyor.

Dikkat edersen üstad MyOpS scriptin kodlarının çoğu pnp den alınma. Ayrıca Simgesi bile PnP simgesinde :) Ben de çok uğraştım alamadım. Ama adamlar başarmış :) helal olsun.

Adamlar yapmı$Lar vaLLa...

Myops kullanmamıştım ondan bilmiyordum helal olsun o zmn :) Bu arada ben bu bad channel olayını biraz Default'un yardımlarıyla çözdüm :) Ama şimdi bir sorun oluştu yaw. Süreli ban atıyor bu yasak kanala giren vatandaşa. Yasak kanaldan çıkmasına rağmen (banı açılmış) tekrar ban atıyor. Acaba bu tempbandan kaynaklanıyor olabilir mi? ident değişsem dahi aynı şeyi yapıyor. Bir el atında ben kafayı sıyırmayayım :)

Oha Pnp Yi yapan Kadınmı ?

oleymis :)

bundan 1 - 1.5 yıL once dedim ki; yav herkes bi script yapıp piyasaya suruyor bizim neymiz eksik dedim... Bi scriptte ben yapayım.... Ama dedim ki önce bi piyasaya bakayım miLLet neLer yapmış, neLer yapmamış, biraz esinLeneLim dedim.... Birkac script indirdim baktım kendime göre notLarımı aLdım... Taaaaa ki O'nu görünceye kadar.... Eşim dedi ki "sen scriptLe mcriptLe ugrasma kapat o sayfaLarı da" dedi... Aynı fikirdeyim diye yanıtLadım... O ne mi ? biLmem gördünüz mü duydunuz mu Addict3us Script... Ben kendim script kuLLanmam sade mIRc kuLLanmayı tercih ediyorum... Ama bu scripte gercekten hayran kaLdım. eLin gavuru neLer yapmıs...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] görmek isteyenLer bu sayfadan indrip inceLeyebiLirLer....


.

.
 

Arkadaşlar Sizden bir ricam var. Eğer CODER Arkadaşlar bunu sağlayabilirse ne ala :) PnP Script teki gibi wildcard la eklenebilen Kötü Kanal koruması istiyorum... örn

--Kanal---
ekle
#*s*e*x* kaldır
#*l*e*z*

----Kick Mesajı----

Kötü kanal (hangi kanaldaysa onun eşdeğer wildcard ını girecek;)...

ya abicim sunu yapin :) /mode #kanal +b ~c:#febe gibi. +b y al kanalda girdikce ne senin basin agirsin nede scripin yorulsun :)