toXic
24-08-2007, 01:33
Leader
Kelime belirleriz , eğer bu kelimeler kanal 'da herhangi bir cümle icerisinde gecerse secenekleri uygular örneğin [ uyarmasını isterseniz önünüze bilgi gelir ]
Yok [ kullananlar atılsın derseniz o kelimeyi kullanan kanaldan atılır ]
alias leader { dialog -m leader1 leader1 }
dialog leader1 {
title "[ Coded : LeadeR ] • [ www.mircturk.com ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
check "Check Box", 10, 12 92 8 10
edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır..", 11, 19 93 53 27, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:leader1:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%l,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
}
}
if ($devent == init) {
var %l.e = 1
var %l.d = $numtok(%l,32)
while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
}
}
#uyari on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) isin $1- {
echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı ••
}
inc %i
}
}
#uyari end
#kickle off
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
}
inc %i
}
}
#kickle end
/leader yazmanız yeterlidir..
2.) Eklemiş olduğunuz kanallara , eklediğiniz nickler girerse seceneğe göre nick kanalda +v alır yada kanaldan atılır
toXic
alias toxic { dialog -m ldr ldr }
dialog toxic {
title "[ Coded : toXic] • www.ticariforum.com"
size -1 -1 192 138
option dbu
box "", 1, 4 7 184 117
box "", 2, 0 3 192 125
list 3, 35 38 59 50, size vsbar
edit "", 4, 35 24 59 12, return autohs autovs
edit " Kanallar", 5, 50 13 28 10, read
list 6, 127 38 59 50, size vsbar
edit "", 7, 127 24 59 12, return autohs autovs
edit " Nickler", 8, 142 13 28 10, read
button "Ekle", 9, 8 25 25 10
button "Çıkart", 10, 8 40 25 10
button "Ekle", 11, 100 25 25 10
button "Çıkart", 12, 100 39 25 10
check "Check Box", 13, 23 101 8 10
edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice alır..", 14, 35 90 59 31, read multi
check "Check Box", 15, 115 100 8 10
edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır", 16, 127 89 59 30, read multi
button "Kapat", 17, 163 128 29 10, ok
}
on *:dialog:ldr:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 9) {
if ($istok(%j,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 10) {
if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }
did -r $dname 4
}
if ($did == 17) {
if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }
if ($did(15).state == 1) { .enable #at } | else { .disable #at }
}
if ($did == 6) { did -ra $dname 7 $did(6).seltext }
if ($did == 11) {
if ($istok(%n,$did(7),32) == $true) { halt }
if ($did(7) == $null) { halt }
if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }
did -r $dname 7
}
if ($did == 12) {
if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }
if ($did(7) == $null) { halt }
if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }
did -r $dname 7
}
}
if ($devent == init) {
var %j.e = 1
var %j.d = $numtok(%j,32)
while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }
}
if ($devent == init) {
var %n.e = 1
var %n.d = $numtok(%n,32)
while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }
if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }
if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }
}
}
#vle off
on *:join:#: {
if $me isop %j {
if # == %j {
if $nick == %n {
mode %j +v %n
}
}
}
}
#vle end
#at on
on *:join:#: {
if $me isop %j {
if # == %j {
if $nick == %n {
mode %j +b $wildsite
kick %j %n 0,5« Kickban » 0,4 •• # •• Kanalına •• $nick Nick'i ile giriş Yapamazsınız ( Düşman Listemdesin ) ••
}
}
}
}
#at end
/toxic yazmanız yeterlidir.
Ücüncü dialog'umuz [ Küfür koruması ]
Küfürleri eklersiniz , kanal icerisinde kullanılır ise kelimeler kullanan kişi atılır
Leader
alias cihan { dialog -m cihan cihan }
dialog cihan {
title "[ Coded : LeadeR ] • [ www.kelebek.gen.tr (http://www.kelebek.gen.tr) ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:cihan:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%c,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%c,$did(4),32) == $false) { set %c $addtok(%c,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%c,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%c,$did(4),32) == $true) { set %c $remtok(%c,$did(4),32) | did -d cihan 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #vur } | else { .disable #vur }
}
}
if ($devent == init) {
set %c amınıza memeler göğüsler vacina ***lek amsuyu döl fahişe fahi$e kaltak KOYİM ******** sürtük sİke bastard siktim gotlek sikeyim sicker domal ziken **** **** orgazm porno penis siker sprem sikik zükerim siterim sittir siktir ***oş ***ler koyarım annenin ananın ebenin zoqarım zokarım zokarim zittir sikme yarağım yarrağım yarragim yaragim yarağım sikiselim sikiş erefsiz erefsİz erefsız amcuk amcug amuş amu$ amcık amcik ancuq ****** orosbu uruspu sİkeyim İBNE ***ÜN ***ün gotune piç pİç sex seks seviş sevİş sevi$ ananı anani ****** taşşak taşak ta$$ak ta$ak tassak orosp kaşar ka$ar
var %c.e = 1
var %c.d = $numtok(%c,32)
while (%c.e <= %c.d) { did -a $dname 3 $gettok(%c,%c.e,32) | inc %c.e }
if ($group(#vur) == on) { did -c $dname 8 } | if ($group(#vur) == off) { did -u $dname 8 }
}
}
#vur on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%c,32) {
if $gettok(%c,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
}
inc %i
}
}
#vur end
/cihan yazıp çalıştırın.
Dördüncü Dialog'umuz [ Reklam Koruması ]
toXic , diEfOrYou
alias td { dialog -m cihans cihans }
dialog td {
title "[ Coded : toXic, diEFoRyOu ] • [ www.ticariforum.com (http://www.ticariforum.com) ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz reklamlar kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:cihans:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%r,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%r,$did(4),32) == $false) { set %r $addtok(%r,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%r,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%r,$did(4),32) == $true) { set %r $remtok(%r,$did(4),32) | did -d cihans 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #rekvur } | else { .disable #rekvur }
}
}
if ($devent == init) {
set %r http: www. .net .com .tk .info .biz .org .tr .tc /server irc.
var %r.e = 1
var %r.d = $numtok(%r,32)
while (%r.e <= %r.d) { did -a $dname 3 $gettok(%r,%r.e,32) | inc %r.e }
if ($group(#rekvur) == on) { did -c $dname 8 } | if ($group(#rekvur) == off) { did -u $dname 8 }
}
}
#rekvur on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%r,32) {
if $gettok(%r,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Reklam Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullanarak Reklam Yaptınız ••
}
inc %i
}
}
#rekvur end
/td Yazarak çalıştırabilirsiniz
Reklam ve Küfür Koruması
Coded By H4pp3n
on @*:text:*:#:{
var %b $numtok($hget(bilal,küfürler),32)
while %b { if ($gettok($hget(bilal,küfürler),%b,32) isin $1-) {
ban -u600 $chan $address($nick,2) | kick $chan $nick Küfür sux! Sebep : $replace($ifmatch,a,*,e,*,ı,*,i,*,o,*,ö,*,u,*,ü,*, İ,*,I,*)
}
dec %b
}
var %c $numtok($hget(bilal,reklam),32)
while %c { if ($gettok($hget(bilal,reklam),%c,32) isin $1-) {
ban -u600 $chan $address($nick,2) | kick $chan $nick Reklam sux! Sebep : $replace($ifmatch,a,*,e,*,ı,*,i,*,o,*,ö,*,u,*,ü,*, İ,*,I,*)
}
dec %c
}
}
alias kfrekle { hadd bilal küfürler $addtok($hget(bilal,küfürler),$1,32) }
alias kfrsil { hadd bilal küfürler $deltok($hget(bilal,küfürler),$1,32) }
alias rekekle { hadd bilal reklam $addtok($hget(bilal,reklam),$1,32) }
alias reksil { hadd bilal reklam $deltok($hget(bilal,reklam),$1,32) }
on *:start:{
/hmake bilal 100
/hload bilal bilal.püfs
}
on *:disconnect:{
hsave bilal bilal.püfs
}
/kfrekle küfür Küfür ekler.
/kfrsil küfür Küfür siler.
/rekekle reklam Reklam ekler.
/reksil reklam Reklam siler.
Multi Join { Mass join Koruması}
on @*:join:#:{
;multi join[tüm adresler]
inc $+(-u,$ccrc(mjhafıza)) %mj. [ $+ [ $chan ] ] $ccrc(mjaveraj)
if (%mj [ $+ [ $chan ] ] >= $ccrc(mjlimit) {
mode $chan +l $calc($nick(#,0) - %mj. [ $+ [ $chan ] ])
.unset %mj. [ $+ [ $nick ] ]
}
;Clone join tek adres..
var %ad $wildsite
inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)
if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) {
echo -t $chan %ad $color(info) adresinden mass Clone join : $+(%mj. [ $+ [ %ad ] ] )
.ban $chan %ad
unset %mj. [ $+ [ %ad ] ]
}
}
;#config alias
alias -l ccrc {
goto $1
;### Multi join conf
:mjhafıza {
RETURN 2
}
:mjaveraj {
;bu rakamı degiştirmeyin..
RETURN 1
}
:mjlimit {
RETURN 6
}
;### Clone join conf
:cjhafıza {
RETURN 2
}
:cjaveraj {
;bu rakamı değiştirmeyin..
RETURN 1
}
:cjlimit {
RETURN 3
}
}
BAD NİCK&Küfür Koruması
toXic
!$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
alias toXic { dialog -m toXic toXic }
dialog toXic {
title "BadNick & Kufur Koruma Sistemi ßy toXic"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "BAD NICK", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:toxic:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:toxic:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:toXic:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}
/toxic yazarak çalıştırabilirsiniz
Client Exited Çıkışlarına Ban
on *:snotice:*:{
if *[Client Exited]* iswm $1- {
%ips = $gettok($gettok($7,-1,64),1,41)
%identds = $gettok($gettok($7,1,64),2,41)
.gzline *@ $+ %ips - Trojan IP adresi tespit edilmis ve GZLINE listesine eklenmiştir.
}
}
Client Exited çıkışlarına direkt ban attırın. (Trojan'lere Kesin çözüm).
Kullanımı basittir, Direkt remoteye eklediğiniz gibi çalışacaktır.
CAPSLOCK KORUMASI
morveotesi
alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }
#caps on
on @*:TEXT:*:#: {
if ($nick ison #r&m) { halt }
if ($chan == #r&m) { halt }
if ($len($1-) < 20) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
capsban $wildsite
kick # $nick 4 $+ %ssscaps )
unset %CAPS. $+ $nick
}
}
#caps end
İyi çalışıyor. ;) ,
İF VE , bazı arkadaşlarım ve kendi çalışmalarımla birkaç hazır kod vermek istedim.
Away Reklam koruması: Whois çektiğinizde çalışır. Away mesajında reklam varsa atar.
raw 301:*:{ if (*h*t*t*p*:*/*/* iswm $strip($3-)) || (*hackerlarin* iswm $strip($3-)) || (*#* iswm $strip($3-)) || (*v*v*v*.*.* iswm $strip($3-)) || (*.org iswm $strip($3-)) || (*.bz iswm $strip($3-)) || (*//* iswm $strip($3-)) || (*.tc* iswm $strip($3-)) || (*wvw* iswm $strip($3-)) || (*.g?n* iswm $strip($3-)) || (*.?rg* iswm $strip($3-)) || (*?rc.* iswm $strip($3-)) || (*t?k?a* iswm $strip($3-)) || (*.c?m* iswm $strip($3-)) || (*.n?t* iswm $strip($3-)) || (*vvv* iswm $strip($3-)) || (*. o r g* iswm $strip($3-)) || (*w.*w.*w.* iswm $strip($3-)) || (*.tr* iswm $strip($3-)) || (*.gs* iswm $strip($3-)) || (*vww* iswm $strip($3-)) || (*www.* (http://www.*/) iswm $strip($3-)) || (*f*t*p*:*/*/* iswm $strip($3-)) || (*/server* iswm $strip($3-)) || ($chr(35) iswm $strip($3-)) { var %ö = $comchan($2,0) | while %ö { if ($comchan($2,%ö).op) { kb2 -k $comchan($2,%ö) $2 Away reklam yaptığınız tespit edildi.. } | dec %ö } } }
Kanala her girene whois çekmek istersende :
on 1:join:#: { /whois $nick }
Fullname inde reklam olanları atmak: Kanala girdiğizde tüm kanala who çeker ve kod otomatikman çalışır.Fullname inden www, ircde, com varsa atılır. Araya || koyarak çoğaltabilirsiniz:
raw 352:*:if ($9- == www) || ($9- == ircde) || ($9- == com) { echo -a 0,7Dronecuk $1- | var %o = $comchan($6,0) | while %o { if ($comchan($6,%o).op) { cs akick $comchan($6,%o) add $address($6,2) Spam/Bot.. } | dec %o } }
Hakaret içerikli sözler(Sadece Kickler, Banlamaz): Oncelikle bir veriables oluşturun(Remotenin 2 sağında). Adı %kufurler olsun.
%kufurler lan len ulan ulen ulam ulem mal salak olm
Sonrada aşağıdaki kod Remote ye.
on @*:text:*:#:{ var %. = $0 | while %. { if $istok(%kufurler,$remove($gettok($strip($1-),%.,32),.,:,;,$chr(44)),32) && ($nick !ishop $chan) && ($nick !isop $chan) && ($nick !isvoice $chan) { kick $nick 4Bad! | return } | dec %. } }
Part mesajında reklam ve istenmeyen kelimeler
on !*:PART:#:if (*Left all channels* iswm $1-) || (*sex* iswm $1-) || (*inviter* iswm $1-) || (*bot* iswm $1-) { cs akick $chan add $address($nick,2) Part Message Advertising.. }
Özele Flood ve Notice Floodtan korunma:
on 1:notice:*:?:{
inc -u5 %prvbitching 1
if ( %prvbitching == 10 ) { silence +*!*@* | .timer 1 20 silence -*!*@* | close -m $nick | echo 4 -a Size Notice Flood Yapıldı. 20 Saniyeliğine Noticelar Reddedilecek.. }
if ( %prvbitching >= 10 ) haltdef
}
on ^1:open:?:*:{
inc -u5 %prvbitching 1
if ( %prvbitching == 5 ) { silence +*!*@* | .timer 1 20 silence -*!*@* | close -m $nick | echo 4 -a Size Query Flood Yapıldı. 20 Saniyeliğine Queryler Reddedilecek.. }
if ( %prvbitching >= 5 ) haltdef
}
argo koruması
Coder LauReLL
On *@:text:*:#: {
if ($nick !isop #) {
if (salak isin $strip($1-)) || (avanak isin $strip($1-)) || (reklam isin $strip($1-)) || (defe isin $strip($1-)) {
ban # $nick 2
kick # $nick Yasak Kelime!!!
}
}
}
Kırmızı İle Verdiğim Yerler Yasak Olan Kelimelerdir
Onları kendinize GÖre Değiştirebilirsiniz Yada || (yasak-kelime isin $strip($1-)) Olarak ekleyebilirsiniz...
Bu Kanal İçin Yasak kelime Korumasıdır ama bunu özeLde yapmak isterseniz su sekılde bişi OlabiLir
On *@:text:*:?: {
if (salak isin $strip($1-)) || (avanak isin $strip($1-)) || (reklam isin $strip($1-)) || (defe isin $strip($1-)) {
.msg $nick Yasak kelime Kullandığınız için Özelim kapandı...!
.closemsg }
}
buda özelde dir o kelimeleri kullanaları uyarı atar ve özelinizi kapatır...
Başka bir yöntemle verilcek oLursa ...
on @*:text:*:#: {
;Eğer Bizim Access Görevimiz Varsa Bu Kod Çalışsın Yoksa Çalışmasın...
if ($nick !isop #) {
;Burdada Veriables'e Yasak Kelimeleri Ekleyelim...
var %RoseKicK = a.q,defe,salak,awanak,dallama,lan,len
;Kicklerken Sayaçda Ortaya Koyalım...
var %RoseKicksayaci = 0
while ($gettok(%RoseKicK,0,44) > %RoseKicksayaci) {
inc %RoseKicksayaci
if ($gettok(%RoseKicK,%RoseKicksayaci,44) isin $strip($1-)) {
var %RoseKicKhit = Yes
}
}
if (%RoseKicKhit == Yes) {
ban # $nick 2
kick # $nick 2No Reason4!!
}
}
}
Bunun Farkı Veriablese kelimeleri eklıyoruz ve buna kelime eklemek cok Kolaydır mesela kelimeleri eklememiz gereken yer Surasıdır...
var %RoseKicK = a.q,defe,salak,awanak,dallama,lan,len
Yukardakı yere aralarına virgül gelecek şekilde kelimeleri yazalım ve deneyelm bunda her kıck ve ban attıgında sayıyor yanı sayac var her attıgınızda sayac 1 kat artıyor 1 2 3 4 vs vs artıyor...
Connection Flood Korumasi
toXic
on *:snotice:*client connecting*: {
if $nick == irc.ticariforum.com {
%::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1)
cf %::Con.nick.on %::Con.ident.on %::Con.ip.on
}
}
alias cf {
;Connect Flood -1-
hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3)
if %t == 2 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -2-
hinc -mu2 cf $3 1 | var %t $hget(cf,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -3-
hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
Henüz oper değilim ama olsun :p
txt dosyası oluşturup flood.txt gibi script dosyasına txt i atın
scriptinizde /load -rs flood.txt yapin ...
200 renkli yazı karakterinde +c & +b
on @*:text:**:#: { if ($nick isop $chan) || ($nick == $me) { halt } | if ($len($strip($1-)) >= 200) { .mode # +cb $nick | .kick # $nick toxic. } }
HARF UZATMA: 1.DE UYARMA 2.DE BAN
on @*:text:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($regex($1-,/([[:print:]])11/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 10
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 500
}
:U.sb {
;# Kick Sebebi..
RETURN 2Kanal Genelinde 12Uzun Harf 4Kullanıp Kullanıcıları Rahatsız Ettiğiniz icin Kanaldan ,Uzaklastırıldınız !
}
:U.yr {
;# Uyarı mesajı
RETURN 2Uyarı : 2Lutfen Harfleri Uzatmayın , Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}
KBSC için
User deop iken, kufur.txt'de geçen küfürü kanalda algıladığında, cs'den op oluyor, 15 dk. ban+kick yapıp, 5 sn. içerisinde tekrar deop oluyor
on *:text:*:#:{
var %a = $lines(kufur.txt)
while %a {
if ($read(kufur.txt,%a) isin $1-) {
banla $nick $chan
halt
}
else {
dec %a
}
}
}
alias banla {
if $1 isreg $2 {
if $me isop $2 {
ban -ku900 $2 $1 2 Sebeb }
else {
chanserv op # $me | .timer 1 3 ban -ku900 # $nick 2 Sebeb | .timer 1 5 chanserv deop # $me
}
}
}
Tabi Bunun İçin Küfüt.txt hazırlanmalı
Kufurler.txt'ye
toxic ve sen kelimelerini ekledim
[17:11:47] <ticariforum> toxic
[17:11:47] *** toxic mode değiştirdi:+b ticariforum!*@*
[17:11:47] *** ticariforum toxic Tarafından Kanaldan Atıldı (Kufur.)
[17:12:15] <sasasa> sen
[17:12:16] *** toxic mode değiştirdi:+b sasasa!*@*
[17:12:16] *** sasasa toxic Tarafından Kanaldan Atıldı (Kufur.)
Kelime belirleriz , eğer bu kelimeler kanal 'da herhangi bir cümle icerisinde gecerse secenekleri uygular örneğin [ uyarmasını isterseniz önünüze bilgi gelir ]
Yok [ kullananlar atılsın derseniz o kelimeyi kullanan kanaldan atılır ]
alias leader { dialog -m leader1 leader1 }
dialog leader1 {
title "[ Coded : LeadeR ] • [ www.mircturk.com ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
check "Check Box", 10, 12 92 8 10
edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır..", 11, 19 93 53 27, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:leader1:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%l,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
}
}
if ($devent == init) {
var %l.e = 1
var %l.d = $numtok(%l,32)
while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
}
}
#uyari on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) isin $1- {
echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı ••
}
inc %i
}
}
#uyari end
#kickle off
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
}
inc %i
}
}
#kickle end
/leader yazmanız yeterlidir..
2.) Eklemiş olduğunuz kanallara , eklediğiniz nickler girerse seceneğe göre nick kanalda +v alır yada kanaldan atılır
toXic
alias toxic { dialog -m ldr ldr }
dialog toxic {
title "[ Coded : toXic] • www.ticariforum.com"
size -1 -1 192 138
option dbu
box "", 1, 4 7 184 117
box "", 2, 0 3 192 125
list 3, 35 38 59 50, size vsbar
edit "", 4, 35 24 59 12, return autohs autovs
edit " Kanallar", 5, 50 13 28 10, read
list 6, 127 38 59 50, size vsbar
edit "", 7, 127 24 59 12, return autohs autovs
edit " Nickler", 8, 142 13 28 10, read
button "Ekle", 9, 8 25 25 10
button "Çıkart", 10, 8 40 25 10
button "Ekle", 11, 100 25 25 10
button "Çıkart", 12, 100 39 25 10
check "Check Box", 13, 23 101 8 10
edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice alır..", 14, 35 90 59 31, read multi
check "Check Box", 15, 115 100 8 10
edit "Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır", 16, 127 89 59 30, read multi
button "Kapat", 17, 163 128 29 10, ok
}
on *:dialog:ldr:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 9) {
if ($istok(%j,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 10) {
if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }
did -r $dname 4
}
if ($did == 17) {
if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }
if ($did(15).state == 1) { .enable #at } | else { .disable #at }
}
if ($did == 6) { did -ra $dname 7 $did(6).seltext }
if ($did == 11) {
if ($istok(%n,$did(7),32) == $true) { halt }
if ($did(7) == $null) { halt }
if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }
did -r $dname 7
}
if ($did == 12) {
if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }
if ($did(7) == $null) { halt }
if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }
did -r $dname 7
}
}
if ($devent == init) {
var %j.e = 1
var %j.d = $numtok(%j,32)
while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }
}
if ($devent == init) {
var %n.e = 1
var %n.d = $numtok(%n,32)
while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }
if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }
if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }
}
}
#vle off
on *:join:#: {
if $me isop %j {
if # == %j {
if $nick == %n {
mode %j +v %n
}
}
}
}
#vle end
#at on
on *:join:#: {
if $me isop %j {
if # == %j {
if $nick == %n {
mode %j +b $wildsite
kick %j %n 0,5« Kickban » 0,4 •• # •• Kanalına •• $nick Nick'i ile giriş Yapamazsınız ( Düşman Listemdesin ) ••
}
}
}
}
#at end
/toxic yazmanız yeterlidir.
Ücüncü dialog'umuz [ Küfür koruması ]
Küfürleri eklersiniz , kanal icerisinde kullanılır ise kelimeler kullanan kişi atılır
Leader
alias cihan { dialog -m cihan cihan }
dialog cihan {
title "[ Coded : LeadeR ] • [ www.kelebek.gen.tr (http://www.kelebek.gen.tr) ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:cihan:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%c,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%c,$did(4),32) == $false) { set %c $addtok(%c,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%c,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%c,$did(4),32) == $true) { set %c $remtok(%c,$did(4),32) | did -d cihan 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #vur } | else { .disable #vur }
}
}
if ($devent == init) {
set %c amınıza memeler göğüsler vacina ***lek amsuyu döl fahişe fahi$e kaltak KOYİM ******** sürtük sİke bastard siktim gotlek sikeyim sicker domal ziken **** **** orgazm porno penis siker sprem sikik zükerim siterim sittir siktir ***oş ***ler koyarım annenin ananın ebenin zoqarım zokarım zokarim zittir sikme yarağım yarrağım yarragim yaragim yarağım sikiselim sikiş erefsiz erefsİz erefsız amcuk amcug amuş amu$ amcık amcik ancuq ****** orosbu uruspu sİkeyim İBNE ***ÜN ***ün gotune piç pİç sex seks seviş sevİş sevi$ ananı anani ****** taşşak taşak ta$$ak ta$ak tassak orosp kaşar ka$ar
var %c.e = 1
var %c.d = $numtok(%c,32)
while (%c.e <= %c.d) { did -a $dname 3 $gettok(%c,%c.e,32) | inc %c.e }
if ($group(#vur) == on) { did -c $dname 8 } | if ($group(#vur) == off) { did -u $dname 8 }
}
}
#vur on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%c,32) {
if $gettok(%c,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
}
inc %i
}
}
#vur end
/cihan yazıp çalıştırın.
Dördüncü Dialog'umuz [ Reklam Koruması ]
toXic , diEfOrYou
alias td { dialog -m cihans cihans }
dialog td {
title "[ Coded : toXic, diEFoRyOu ] • [ www.ticariforum.com (http://www.ticariforum.com) ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz reklamlar kanalda kullanılırsa nick'e kickban atılır", 9, 19 53 53 36, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:cihans:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%r,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%r,$did(4),32) == $false) { set %r $addtok(%r,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%r,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%r,$did(4),32) == $true) { set %r $remtok(%r,$did(4),32) | did -d cihans 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #rekvur } | else { .disable #rekvur }
}
}
if ($devent == init) {
set %r http: www. .net .com .tk .info .biz .org .tr .tc /server irc.
var %r.e = 1
var %r.d = $numtok(%r,32)
while (%r.e <= %r.d) { did -a $dname 3 $gettok(%r,%r.e,32) | inc %r.e }
if ($group(#rekvur) == on) { did -c $dname 8 } | if ($group(#rekvur) == off) { did -u $dname 8 }
}
}
#rekvur on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%r,32) {
if $gettok(%r,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Reklam Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullanarak Reklam Yaptınız ••
}
inc %i
}
}
#rekvur end
/td Yazarak çalıştırabilirsiniz
Reklam ve Küfür Koruması
Coded By H4pp3n
on @*:text:*:#:{
var %b $numtok($hget(bilal,küfürler),32)
while %b { if ($gettok($hget(bilal,küfürler),%b,32) isin $1-) {
ban -u600 $chan $address($nick,2) | kick $chan $nick Küfür sux! Sebep : $replace($ifmatch,a,*,e,*,ı,*,i,*,o,*,ö,*,u,*,ü,*, İ,*,I,*)
}
dec %b
}
var %c $numtok($hget(bilal,reklam),32)
while %c { if ($gettok($hget(bilal,reklam),%c,32) isin $1-) {
ban -u600 $chan $address($nick,2) | kick $chan $nick Reklam sux! Sebep : $replace($ifmatch,a,*,e,*,ı,*,i,*,o,*,ö,*,u,*,ü,*, İ,*,I,*)
}
dec %c
}
}
alias kfrekle { hadd bilal küfürler $addtok($hget(bilal,küfürler),$1,32) }
alias kfrsil { hadd bilal küfürler $deltok($hget(bilal,küfürler),$1,32) }
alias rekekle { hadd bilal reklam $addtok($hget(bilal,reklam),$1,32) }
alias reksil { hadd bilal reklam $deltok($hget(bilal,reklam),$1,32) }
on *:start:{
/hmake bilal 100
/hload bilal bilal.püfs
}
on *:disconnect:{
hsave bilal bilal.püfs
}
/kfrekle küfür Küfür ekler.
/kfrsil küfür Küfür siler.
/rekekle reklam Reklam ekler.
/reksil reklam Reklam siler.
Multi Join { Mass join Koruması}
on @*:join:#:{
;multi join[tüm adresler]
inc $+(-u,$ccrc(mjhafıza)) %mj. [ $+ [ $chan ] ] $ccrc(mjaveraj)
if (%mj [ $+ [ $chan ] ] >= $ccrc(mjlimit) {
mode $chan +l $calc($nick(#,0) - %mj. [ $+ [ $chan ] ])
.unset %mj. [ $+ [ $nick ] ]
}
;Clone join tek adres..
var %ad $wildsite
inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)
if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) {
echo -t $chan %ad $color(info) adresinden mass Clone join : $+(%mj. [ $+ [ %ad ] ] )
.ban $chan %ad
unset %mj. [ $+ [ %ad ] ]
}
}
;#config alias
alias -l ccrc {
goto $1
;### Multi join conf
:mjhafıza {
RETURN 2
}
:mjaveraj {
;bu rakamı degiştirmeyin..
RETURN 1
}
:mjlimit {
RETURN 6
}
;### Clone join conf
:cjhafıza {
RETURN 2
}
:cjaveraj {
;bu rakamı değiştirmeyin..
RETURN 1
}
:cjlimit {
RETURN 3
}
}
BAD NİCK&Küfür Koruması
toXic
!$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}
on @*:join:#:{ if $gurkan(isimsiz,$nick,badnick.txt) { .mode $chan +b $wildsite | .kick $chan $nick BadNick! }
}
on @*:text:*:#:if $gurkan(isimsiz,$1-,kufur.txt) { .mode $chan +b $wildsite | kick # $nick Yasak Kelime Kullanımı! }
alias toXic { dialog -m toXic toXic }
dialog toXic {
title "BadNick & Kufur Koruma Sistemi ßy toXic"
size -1 -1 226 102
option dbu
list 2, 38 22 70 58, size
list 5, 118 22 70 58, size
edit "", 10, 38 12 70 10
edit "", 11, 118 12 70 10
box "BAD NICK", 6, 5 3 107 81
box "KUFUR", 7, 114 3 107 81
button "T A M A M", 1, 38 87 148 12,ok
button "EKLE", 3, 10 14 24 28
button "KALDIR", 4, 10 45 24 28
button "EKLE", 8, 192 14 24 28
button "KALDIR", 9, 192 45 24 28
}
on *:dialog:toxic:INIT:*: {
if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt }
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt }
if (%badnick) .didtok $dname 2 32 $ifmatch
if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:toxic:sclick:*:{
if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel }
if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:toXic:sclick:1:{
set %badnick $didtok($dname,2,44)
set %kufur $didtok($dname,5,44)
}
/toxic yazarak çalıştırabilirsiniz
Client Exited Çıkışlarına Ban
on *:snotice:*:{
if *[Client Exited]* iswm $1- {
%ips = $gettok($gettok($7,-1,64),1,41)
%identds = $gettok($gettok($7,1,64),2,41)
.gzline *@ $+ %ips - Trojan IP adresi tespit edilmis ve GZLINE listesine eklenmiştir.
}
}
Client Exited çıkışlarına direkt ban attırın. (Trojan'lere Kesin çözüm).
Kullanımı basittir, Direkt remoteye eklediğiniz gibi çalışacaktır.
CAPSLOCK KORUMASI
morveotesi
alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }
#caps on
on @*:TEXT:*:#: {
if ($nick ison #r&m) { halt }
if ($chan == #r&m) { halt }
if ($len($1-) < 20) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
capsban $wildsite
kick # $nick 4 $+ %ssscaps )
unset %CAPS. $+ $nick
}
}
#caps end
İyi çalışıyor. ;) ,
İF VE , bazı arkadaşlarım ve kendi çalışmalarımla birkaç hazır kod vermek istedim.
Away Reklam koruması: Whois çektiğinizde çalışır. Away mesajında reklam varsa atar.
raw 301:*:{ if (*h*t*t*p*:*/*/* iswm $strip($3-)) || (*hackerlarin* iswm $strip($3-)) || (*#* iswm $strip($3-)) || (*v*v*v*.*.* iswm $strip($3-)) || (*.org iswm $strip($3-)) || (*.bz iswm $strip($3-)) || (*//* iswm $strip($3-)) || (*.tc* iswm $strip($3-)) || (*wvw* iswm $strip($3-)) || (*.g?n* iswm $strip($3-)) || (*.?rg* iswm $strip($3-)) || (*?rc.* iswm $strip($3-)) || (*t?k?a* iswm $strip($3-)) || (*.c?m* iswm $strip($3-)) || (*.n?t* iswm $strip($3-)) || (*vvv* iswm $strip($3-)) || (*. o r g* iswm $strip($3-)) || (*w.*w.*w.* iswm $strip($3-)) || (*.tr* iswm $strip($3-)) || (*.gs* iswm $strip($3-)) || (*vww* iswm $strip($3-)) || (*www.* (http://www.*/) iswm $strip($3-)) || (*f*t*p*:*/*/* iswm $strip($3-)) || (*/server* iswm $strip($3-)) || ($chr(35) iswm $strip($3-)) { var %ö = $comchan($2,0) | while %ö { if ($comchan($2,%ö).op) { kb2 -k $comchan($2,%ö) $2 Away reklam yaptığınız tespit edildi.. } | dec %ö } } }
Kanala her girene whois çekmek istersende :
on 1:join:#: { /whois $nick }
Fullname inde reklam olanları atmak: Kanala girdiğizde tüm kanala who çeker ve kod otomatikman çalışır.Fullname inden www, ircde, com varsa atılır. Araya || koyarak çoğaltabilirsiniz:
raw 352:*:if ($9- == www) || ($9- == ircde) || ($9- == com) { echo -a 0,7Dronecuk $1- | var %o = $comchan($6,0) | while %o { if ($comchan($6,%o).op) { cs akick $comchan($6,%o) add $address($6,2) Spam/Bot.. } | dec %o } }
Hakaret içerikli sözler(Sadece Kickler, Banlamaz): Oncelikle bir veriables oluşturun(Remotenin 2 sağında). Adı %kufurler olsun.
%kufurler lan len ulan ulen ulam ulem mal salak olm
Sonrada aşağıdaki kod Remote ye.
on @*:text:*:#:{ var %. = $0 | while %. { if $istok(%kufurler,$remove($gettok($strip($1-),%.,32),.,:,;,$chr(44)),32) && ($nick !ishop $chan) && ($nick !isop $chan) && ($nick !isvoice $chan) { kick $nick 4Bad! | return } | dec %. } }
Part mesajında reklam ve istenmeyen kelimeler
on !*:PART:#:if (*Left all channels* iswm $1-) || (*sex* iswm $1-) || (*inviter* iswm $1-) || (*bot* iswm $1-) { cs akick $chan add $address($nick,2) Part Message Advertising.. }
Özele Flood ve Notice Floodtan korunma:
on 1:notice:*:?:{
inc -u5 %prvbitching 1
if ( %prvbitching == 10 ) { silence +*!*@* | .timer 1 20 silence -*!*@* | close -m $nick | echo 4 -a Size Notice Flood Yapıldı. 20 Saniyeliğine Noticelar Reddedilecek.. }
if ( %prvbitching >= 10 ) haltdef
}
on ^1:open:?:*:{
inc -u5 %prvbitching 1
if ( %prvbitching == 5 ) { silence +*!*@* | .timer 1 20 silence -*!*@* | close -m $nick | echo 4 -a Size Query Flood Yapıldı. 20 Saniyeliğine Queryler Reddedilecek.. }
if ( %prvbitching >= 5 ) haltdef
}
argo koruması
Coder LauReLL
On *@:text:*:#: {
if ($nick !isop #) {
if (salak isin $strip($1-)) || (avanak isin $strip($1-)) || (reklam isin $strip($1-)) || (defe isin $strip($1-)) {
ban # $nick 2
kick # $nick Yasak Kelime!!!
}
}
}
Kırmızı İle Verdiğim Yerler Yasak Olan Kelimelerdir
Onları kendinize GÖre Değiştirebilirsiniz Yada || (yasak-kelime isin $strip($1-)) Olarak ekleyebilirsiniz...
Bu Kanal İçin Yasak kelime Korumasıdır ama bunu özeLde yapmak isterseniz su sekılde bişi OlabiLir
On *@:text:*:?: {
if (salak isin $strip($1-)) || (avanak isin $strip($1-)) || (reklam isin $strip($1-)) || (defe isin $strip($1-)) {
.msg $nick Yasak kelime Kullandığınız için Özelim kapandı...!
.closemsg }
}
buda özelde dir o kelimeleri kullanaları uyarı atar ve özelinizi kapatır...
Başka bir yöntemle verilcek oLursa ...
on @*:text:*:#: {
;Eğer Bizim Access Görevimiz Varsa Bu Kod Çalışsın Yoksa Çalışmasın...
if ($nick !isop #) {
;Burdada Veriables'e Yasak Kelimeleri Ekleyelim...
var %RoseKicK = a.q,defe,salak,awanak,dallama,lan,len
;Kicklerken Sayaçda Ortaya Koyalım...
var %RoseKicksayaci = 0
while ($gettok(%RoseKicK,0,44) > %RoseKicksayaci) {
inc %RoseKicksayaci
if ($gettok(%RoseKicK,%RoseKicksayaci,44) isin $strip($1-)) {
var %RoseKicKhit = Yes
}
}
if (%RoseKicKhit == Yes) {
ban # $nick 2
kick # $nick 2No Reason4!!
}
}
}
Bunun Farkı Veriablese kelimeleri eklıyoruz ve buna kelime eklemek cok Kolaydır mesela kelimeleri eklememiz gereken yer Surasıdır...
var %RoseKicK = a.q,defe,salak,awanak,dallama,lan,len
Yukardakı yere aralarına virgül gelecek şekilde kelimeleri yazalım ve deneyelm bunda her kıck ve ban attıgında sayıyor yanı sayac var her attıgınızda sayac 1 kat artıyor 1 2 3 4 vs vs artıyor...
Connection Flood Korumasi
toXic
on *:snotice:*client connecting*: {
if $nick == irc.ticariforum.com {
%::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1)
cf %::Con.nick.on %::Con.ident.on %::Con.ip.on
}
}
alias cf {
;Connect Flood -1-
hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3)
if %t == 2 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -2-
hinc -mu2 cf $3 1 | var %t $hget(cf,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
;Connect Flood -3-
hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3)
if %t == 3 {
gline $+(*,@,$3) +5d 2IRC Kültürüne Yakışmıyacak Hareket 14(4Clone14-4Trojen14-4Proxy14&4Reklam14) 2Sebebiyle Sunucudan 4 1gün 2 süreyle Uzaklaştırıldınız...
msg #opers 12Atilan Mask:4 $+($1,!,$2,@,$3)
halt
}
Henüz oper değilim ama olsun :p
txt dosyası oluşturup flood.txt gibi script dosyasına txt i atın
scriptinizde /load -rs flood.txt yapin ...
200 renkli yazı karakterinde +c & +b
on @*:text:**:#: { if ($nick isop $chan) || ($nick == $me) { halt } | if ($len($strip($1-)) >= 200) { .mode # +cb $nick | .kick # $nick toxic. } }
HARF UZATMA: 1.DE UYARMA 2.DE BAN
on @*:text:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($regex($1-,/([[:print:]])11/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 10
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 500
}
:U.sb {
;# Kick Sebebi..
RETURN 2Kanal Genelinde 12Uzun Harf 4Kullanıp Kullanıcıları Rahatsız Ettiğiniz icin Kanaldan ,Uzaklastırıldınız !
}
:U.yr {
;# Uyarı mesajı
RETURN 2Uyarı : 2Lutfen Harfleri Uzatmayın , Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}
KBSC için
User deop iken, kufur.txt'de geçen küfürü kanalda algıladığında, cs'den op oluyor, 15 dk. ban+kick yapıp, 5 sn. içerisinde tekrar deop oluyor
on *:text:*:#:{
var %a = $lines(kufur.txt)
while %a {
if ($read(kufur.txt,%a) isin $1-) {
banla $nick $chan
halt
}
else {
dec %a
}
}
}
alias banla {
if $1 isreg $2 {
if $me isop $2 {
ban -ku900 $2 $1 2 Sebeb }
else {
chanserv op # $me | .timer 1 3 ban -ku900 # $nick 2 Sebeb | .timer 1 5 chanserv deop # $me
}
}
}
Tabi Bunun İçin Küfüt.txt hazırlanmalı
Kufurler.txt'ye
toxic ve sen kelimelerini ekledim
[17:11:47] <ticariforum> toxic
[17:11:47] *** toxic mode değiştirdi:+b ticariforum!*@*
[17:11:47] *** ticariforum toxic Tarafından Kanaldan Atıldı (Kufur.)
[17:12:15] <sasasa> sen
[17:12:16] *** toxic mode değiştirdi:+b sasasa!*@*
[17:12:16] *** sasasa toxic Tarafından Kanaldan Atıldı (Kufur.)