Kanal Reklam Koruması ( Bu Kod Ile Kanal Geneline Reklam Yapanı Atarsınız ) :
#reklampro on
on 1:TEXT:*www*:#: | if $nick isop $chan | ban $chan $nick 2 | kick $chan $nick Reklam Yapmayınız }
on 1:action:*www*:#: | if $nick isop $chan | ban $chan $nick 2 | kick $chan $nick Reklam Yapmayınız }
on 1:notice:*www*:#: | if $nick isop $chan | ban $chan $nick 2 | kick $chan $nick Reklam Yapmayınız }
#reklampro end
evet gordugunuz gibi kanala reklam koruması reklam koruması TEXT ACTION VE NOTICE ayirt etmez herturlu reklamı yakalar. *www* yazan yeri *http* seklinde kafaniza gore degistirip herturlu reklami yakalayabilirsiniz.
Kanal Kufur Koruması (Kanalda Kufur Edeni Atarsınız):
on 1:TEXT:*pezo*:#: | if $nick isop $chan | ban $chan $$1 2 | kick $chan $$1 Kufur Etmeyiniz }
on 1:action:*pezo*:#: | if $nick isop $chan | ban $chan $$1 2 | kick $chan $$1 Kufur Etmeyiniz }
on 1:notice:*pezo*:#: | if $nick isop $chan | ban $chan $$1 2 | kick $chan $$1 Kufur Etmeyiniz }
evet buda text action notice farketmeden yakalar pezo yazan yeri istediginiz gibi ayarlayabilirsiniz
Kanalda Tekrar Koruması ( Kanalda 3 Kez Aynı Seyi Tekrar Eden Atılır )
#tekrar on
on @1:text:*:#:
if (%>reps_ [ $+ [ $nick ] ] == $null)
if (%>repsa_ [ $+ [ $nick ] ] == 3)
}
}
}
on @^1:action:*:#:
if (%>reps_ [ $+ [ $nick ] ] == $null)
if (%>repsa_ [ $+ [ $nick ] ] == 3)
}
#tekrar end
10 Saniye icinde aynı text'i yada action'u 3 kere tekrar edeni atarsınız
Join/Part Flood Koruması ( Kanala 20 Saniye Icinde 5 Kere Girip Cıkanı Atarsınız )
#jflood on
on @1:join:#:
#jflood end
Banlananı Enforce Edin ( Kanalda @ Olan Bi Kisi Birini Banladıgı Zaman O IP Den Olan Baska Birisi Varsa Onu Kickler Yada Kanalda Banlanıp Kicklenmeyen Kisileri Atar )
#Banenforce on
on @*:ban:#:
}
}
#Banenforce end
Cycle Sonucu Ozelinize Reklam Koruması ( @ oldugunu bi kanalda cycle yaptıgınız zaman ozelinize gelen reklamcılari siz
reklami gormeden atar )
#ozelreklam on
on ^*:OPEN:?:*:
var %sep $1- | %sep = $strip($remove(%sep,-,_)) | tokenize 32 %sep
if (*tr* iswm $1-)
if (*www* iswm $1-)
if (*irc* iswm $1-)
if (*com* iswm $1-)
if (*da.ru* iswm $1-)
if (*#* iswm $1-)
if (*tikla* iswm $1-)
if (**Oto Mesaj* iswm $1-)
if (*wwvv* iswm $1-)
if (*w w w* iswm $1-)
if (*w"w'w".* iswm $1-)
if (*w"w"w".* iswm $1-)
}
alias -l Kapat
echo $colour(normal text) -tm @Reklam < $+ $1 $+ > $2-
Kapa_kick $1
return halt
}
alias -l Kapa_kick
inc %i 1
}
}
#ozelreklam end
Evet Bu Koruma Benim Isime Cok Yarıyor Arkadaslar Mesela Buyuk Bi Kanalda @ Sunuz Kanalda Cycle Yaptınız Zaman Ozelinize Tonlarca Reklam Gelir Bu Koruma Sayesinde Cycle Yaptıgınız Zaman Ozelinize Gelen Bu Reklamlar Acılan @Reklam Penceresinde Cıkar Reklami Yapan Ise @ Oldugunuz Butun Kanallardan Uzaklastirilir.
Cycle Sonucu Ozele Kufur Koruması ( @ oldugunu bi kanalda cycle yaptıgınız zaman ozelinize gelen kufurleri siz gormeden atar )
#ozelkufur on
on ^*:OPEN:?:*:
var %sep $1- | %sep = $strip($remove(%sep,-,_)) | tokenize 32 %sep
if (*?bn?* iswm $1-)
if (*pic* iswm $1-)
if (*oros* iswm $1-)
if (*sik* iswm $1-)
if (******* iswm $1-)
if (*anan* iswm $1-)
if (got iswm $1-)
if (*peze* iswm $1-)
if (*o.c* iswm $1-)
if (*fahi?e* iswm $1-)
if (*kaltak".* iswm $1-)
if (*zik* iswm $1-)
}
alias -l Kapat
echo $colour(normal text) -tm @Kufur < $+ $1 $+ > $2-
Kapa_kick $1
return halt
}
alias -l Kapa_kick
inc %i 1
}
}
#ozelkufur end
Evet Bu Korumadada Cycle Sonucu Ozele Reklam Korumasi Gibi Calisir Kufurler @Kufur Penceresi Altında Cıkar.
Buyuk harf Koruması
#caps on
on @*:text:*:#:
if ($1- === $upper($1-)) && ($len($1-) > 20)
:son
}
on @*:action:*:#:
if ($1- === $upper($1-)) && ($len($1-) > 20)
:son
}
#caps end
Evet Bu Korumada Kanalda Buyuk Harfle Yazı Yazanlari Kickler
Kotu Identd Koruması
#bdent on
on @*:JOIN:#:
}
#bdent end
Ozele Kufur Koruması ( cycle sonucunda ozele kufur korumasından farklıdır o korumada sadece ozel acıldıgında kufur tespit edilirse adam atılır bunda ise konusma sırasında etse bile atılır ayrıca o korumada kufuru gormezsiniz bu korumada ise sadece adami kanallardan uzaklastirir konustugunuz pencereyi kapatmaz
#ozelekufur on
on 1:TEXT:*:?:
if $nick isop $comchan($nick,1)
if (fuck isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (***** isin $1-) || (****** isin $1-) || (******* isin $1-) || (sikis isin $1-) || (sikiş isin $1-) || (siker isin $1-) || (orosbu isin $1-) || (****** isin $1-) || (fahişe isin $1-) || (***** isin $1-) || (**** isin $1-) || (ipne isin $1-) || (***** isin $1-) || (***** isin $1-) || (amcık isin $1-) || (amcik isin $1-) || (amina isin $1-) || (amini isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (gotveren isin $1-) || (shit isin $1-) || (sikerim isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (gotden isin $1-) || (gotun isin $1-) || (fahişe isin $1-) || (pic isin $1-) || (******** isin $1-) || (serefsiz isin $1-) || (got isin $1-)
}
on 1:action:*:?:
if $nick isop $comchan($nick,1)
if (fuck isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (***** isin $1-) || (****** isin $1-) || (******* isin $1-) || (sikis isin $1-) || (sikiş isin $1-) || (siker isin $1-) || (orosbu isin $1-) || (****** isin $1-) || (fahişe isin $1-) || (***** isin $1-) || (**** isin $1-) || (ipne isin $1-) || (***** isin $1-) || (***** isin $1-) || (amcık isin $1-) || (amcik isin $1-) || (amina isin $1-) || (amini isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (gotveren isin $1-) || (shit isin $1-) || (sikerim isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (gotden isin $1-) || (gotun isin $1-) || (fahişe isin $1-) || (******** isin $1-) || (serefsiz isin $1-) || (got isin $1-) (pic isin $1-)
}
on 1:notice:*:?:
if $nick isop $comchan($nick,1)
if (fuck isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (***** isin $1-) || (****** isin $1-) || (******* isin $1-) || (sikis isin $1-) || (sikiş isin $1-) || (siker isin $1-) || (orosbu isin $1-) || (****** isin $1-) || (fahişe isin $1-) || (***** isin $1-) || (**** isin $1-) || (ipne isin $1-) || (***** isin $1-) || (***** isin $1-) || (amcık isin $1-) || (amcik isin $1-) || (amina isin $1-) || (amini isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (gotveren isin $1-) || (shit isin $1-) || (sikerim isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (gotden isin $1-) || (gotun isin $1-) || (fahişe isin $1-) || (pic isin $1-) || (******** isin $1-) || (serefsiz isin $1-) || (got isin $1-)
}
#ozelekufur end
Ozele Reklam Koruması ( Buda Aynı Sekilde Ozele Kufur Korumasi Gibi Calisir )
#ozeladver on
on 1:TEXT:*:?:
if $nick isop $comchan($nick,1)
if (ziyaret isin $1-) || (tanışabilirmiyiz isin $1-) || (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) || ( S-E-R-V-E-R-İ-M isin $1-) || ( secure isin $1-) || ( S o s y e t e m isin $1-) || ( canalına isin $1-) || ( kanalına isin $1-) || ( S-E-R-V-E-R- isin $1-) || ( hìsset.nêt isin $1-) || ( hisset.nêt isin $1-) || ( S- *E*-R*-V*-E*-R- isin $1-) || ( Sinemi isin $1-) || ( Sohbetin isin $1-) || ( adresi isin $1-) || ( Ne Arasan Var isin $1-) || ( |Koruma| isin $1-)
}
on 1:action:*:?:
if $nick isop $comchan($nick,1)
if (ziyaret isin $1-) || (tanışabilirmiyiz isin $1-) || (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) || ( S-E-R-V-E-R-İ-M isin $1-) || ( secure isin $1-) || ( S o s y e t e m isin $1-) || ( canalına isin $1-) || ( kanalına isin $1-) || ( S-E-R-V-E-R- isin $1-) || ( hìsset.nêt isin $1-) || ( hisset.nêt isin $1-) || ( S- *E*-R*-V*-E*-R- isin $1-) || ( Sinemi isin $1-) || ( Sohbetin isin $1-) || ( adresi isin $1-) || ( Ne Arasan Var isin $1-) || ( |Koruma| isin $1-)
}
on 1:notice:*:?:
if $nick isop $comchan($nick,1)
if (ziyaret isin $1-) || (tanışabilirmiyiz isin $1-) || (www. isin $1-) || f (www. isin $1-) || ( $chr(47) $+ j isin $1-) || (irc. isin $1-) || (http: isin $1-) || ( $chr(47) $+ server isin $1-) || ( $chr(35) isin $1-) || ( S-E-R-V-E-R-İ-M isin $1-) || ( secure isin $1-) || ( S o s y e t e m isin $1-) || ( canalına isin $1-) || ( kanalına isin $1-) || ( S-E-R-V-E-R- isin $1-) || ( hìsset.nêt isin $1-) || ( hisset.nêt isin $1-) || ( S- *E*-R*-V*-E*-R- isin $1-) || ( Sinemi isin $1-) || ( Sohbetin isin $1-) || ( adresi isin $1-) || ( Ne Arasan Var isin $1-) || ( |Koruma| isin $1-)
}
#ozeladver end
Evet Arkadaslar Korumalar Bu Kadardi Simdide Isinize Yarayacak 1-2 Kod Daha Vereyim
Clone Penceresi ( Arkadaslar Bugunlerde Butun Scriptlerde Clone Tarayıcısı vb. seyler var ama bu kodlar kanala clone girdigi zaman kanalda echo cıkartiyor ve goruntu kirleniyor. benim verdigimde ise @Clones diye bir pencerede cıkıyor cloneler cok daha guzel bisey bende )
#cl on
on *:join:*:
if ($window(@Clones))
else
}
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null)
}
#cl end
Kanal ve Server iSmi ( arkadaslar bu kod ile kanala girdiginiz zaman sag ustte kanalın adı ve serverin adı belirir hos bi kod bence )
on *:join:#: }
alias xpencere
drawrect -f @deneme $colour(background) 50 $window(@deneme).x $window(@deneme).y $window(@deneme).w $window(@deneme).h
drawtext @deneme $colour(own text) fixedsys 22 0 0 $1
drawtext @deneme $colour(info text) fixedsys 12 10 30 $server
drawsave @deneme $[$chan,_tmp.bmp)
background -p $1 $[$chan,_tmp.bmp)
.remove $[$chan,_tmp.bmp)
}
alias XColorCheck } }
on *:connect:
Ozeline Gelenin Clonesi Olup Olmadigini Ve Cıktıgı Zaman Uyarı Veren Kod
on 1
pen:?: }
alias qc
on ^*:close:?:
on ^*:QUIT:
alias display
Bu Kod Sayesinde Ozelinize Bir Geldigi Zaman
' Su Nick Su Nick ile aynı kisi yada aynı kafede ' Seklinde diye sizi uyarır
ayrıca ozelinizdeki biri chatten cıktıgı zaman ozel penceresinde sizi uyarır
Nickiniz Gecince Sizi Uyaran Kod
on 1:Text:*:?:
}
on 1:text:*:#:if $active != $chan && $me isin $1- echo -a $timestamp 2KANALDAN : 1[4 $+ $chan 1] [4 $+ $nick ] $+ $1-
}
Bu Kod Sayesinde Bir Kanalda Veya Ozelinizde Biri Sizin Nickinizi Soylerse Sizi Uyarır Cok Yararlı Bir Koddur Herkeze Tavsiye Ederim
Clone Taraması
alias clonescan /.quote who # | unset %adn.* | .timerC 1 5 clone | echo $Chan 14Scanning in $chan for clones, please wait -
alias Clone
window -dl @Clone -1 -1 500 300 Verdana 11
iline 12 @Clone 1 14,1[4 Clone Scan 14]
:loop
if ($ialchan($address($nick(#,%adn.a),2),#,0) > 1) && ($address($nick(#,%adn.a),2) !isin %adn.ehu) | goto list }
:next
dec %adn.a 1 | if (%adn.a != 0) | halt
}
menu @clone
menu channel
Bu Kod ile kanala sag tıklayarak cloneleri aratabilir acılan pencereden banlayabilir veya kickleyebilirsiniz.
Away Scan
menu channel | elseif ($group(#awayscan) = off) }
}
#awayscan off
raw 352:*: }
raw 315:*: }
#awayscan end
raw 301:*: }
alias wawayscan | aline -p @AwayScan $time(HH:nn.sst) $1- }
menu @AwayScan | dec %o }
}
$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),Kick $[$chr(40),?,$chr(41))): | dec %o }
}
}
-
$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),KBan): | dec %o }
}
$iif($strip($gettok($sline(@AwayScan,1),2,32)) = $chr(33),KBan $[$chr(40),?,$chr(41))): | dec %o }
}
}
-
$iif($line(@AwayScan,0) > 0,$style(0),$style(2)) Temizle:clear @AwayScan
Kapat:window -c @AwayScan
}
Bu Kod Ile Kanala Sag Tıklayıp Away Olanlari Taratabilir Away MEsajında Reklam Olanlari sag tıklayarak Kanaldan Atabilirsiniz
__________________