1-

  • kanala 15 saniyede 4 join part olursa +R alır 1 dk. sonrada -R
on @1:join:#: {
inc -u15 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 5 halt
unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
mode $chan +R | .timer 0 60 /mode $chan -R
}

2-
  • Oto Şifre gire remotesi,Ayrıca İmages içerisinde ismi mt.ico olan bi resim dosyası yaratın yada bi resim kopyalaıp ismini ve uzantısını böle yapın
alias _sifre { dialog -m _sifre _sifre }
dialog _sifre {
title "Oto Identify"
size -1 -1 110 43
option dbu
icon Images\mt.ico, 0
edit "Şifreniz : ", 1, 6 9 28 12, read
box "", 2, 4 3 102 34
box "", 3, 0 -1 110 42
edit "", 4, 35 9 68 12, pass return autohs autovs
button "Tamam", 5, 82 22 21 12, ok
text "Lütfen şifrenizi giriniz ve tamam tuşuna basınız..", 6, 7 21 73 14
}
on *:dialog:_sifre:sclick:*: {
if ($did == 5) { ns identify $did(4) }
}

on *:notice:*/msg*Nickserv*IDENTIFY*:?: {
_sifre
timer 1 3 join %kanal
} 3-
  • Argo/küfür/badwords Uyarı sistemi
Kanala yazılan küfür/argo/badwords yazılarda direk kanalda uyarı verir kişiye ve birdaha yapınca ilk sölediğini hatırlatıp kanaldan akickler ve uzaklaştırır.
#uyarı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 11,1Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. IRC.Cehre.NET ßy.KaoS | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarı end

4-
  • Oto mesaj koruması.Guzel etkilidir.işinize yarar
on *:join:#:if ($nick == $me) .set -u1 %otomsg ok!
on *:text:*:?:if (%otomsg) .at $nick
alias at {
var %u $comchan($1,0)
while (0 < %u) {
ban $comchan($1,%u) $1 2
kick $comchan($1,%u) $1 Oto msg Yapmak yasaktır !
dec %u
}
}
on *:load: {
/echo 0,4Otomsg Protection YUKLENDI!
}

5-
  • Arkadaslar ben kendi scrıptimdeki Addonumun aynısını sizlerle paylaşmak istiyorum.
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) {
msg $active $replacecs($1-,s.a,Selâmun Ãleykum,a.s,Ãleykûm Selam,h.b,hosbulduk,hg,hoşgeldin,tsk,teşekkürler,r ica,rica ederim,kib,kendinize iyi bakın)
halt
}
}
*Burdaki mantık söyledir.Eğitim kanalında detaylı olarak anlatcam zaten ilerki zamanlarda ama kısaca bilgi vereyim yinede ilk yazılan kısaltılmışıdır sonra araya virgül koyarak uzununu yazın.
*Burdaki codu eklemek için ALT + R ye basın copy edin.Sonra kaydedip cıkabilirsiniz...

6-
  • 5 Dk dan fazLa kanalda konusmadıqında Otomatik olarak away nikcine geciosun ve /me mesajı iLe otomatik away oldum msj ı gonderior..
on *:input:*:{
if $left($1,1) !== / {
if $away {
awaydendon
}
else {
.timeridle off | .timeridle 1 300 .awayol $me
}
}
}
alias awayol {
.set %nikim $1
.nick $+($1,`,Mesgul)
.away Meşgulüm
.ame Away oldum vs
}
alias awaydendon {
nick %nikim | .ame awaydim döndüm zart zurt | .away
}
Yukarıdaki Kodun isLevi Sudur arkadasLar ; 5 Dk dan fazLa kanalda konusmadıqında Otomatik olarak away nikcine geciosun ve /me mesajı iLe otomatik away oldum msj ı gonderior.. Ve kanaLa herhanqi bir sey yazdıqında Gercek nickini Otomatik olarak kendisi aLıyor... umarım isinize yarar..

7-
  • Ooto İşlemler yapmak
on *:input:#: {
if $1 == !kk {
/cs kick # $2 dIsaRı.
}
if $1 == !Kapat {
/mode # +m
}
if $1 == !Aç {
/mode # -m
}
if $1 == !D {
/nick YakIsIkLi-DısArdA
}
if $1 == !Y {
/nick YakIsIkLi
}
if $1 == !J {
/j #help,#mircalem
}
if $1 == !i {
/nick YakIsIkLi-IceRdE
}
if $1 == !+ {
/ChanServ voice # $2
}
if $1 == !- {
/ChanServ devoice # $2
}
}
Scriptinizde Alt+R yapin Remote Kısmına Yapiştirin.. NickLeri ve kanaL join'Lerini Değişin yaLnız ßu ßenim kuLLandıkLarim, Örnek oLarak yazdim..

8-
  • Guzel bir proxy koruması.En önemli özelliği hızlı olmasıdır.Tr ipleri dışında girişlere izin vermez bu yuzden arada bir atılmalar olabilir.
Direk alt+r yapıp remote olarak kayddin.

on *:snotice:*Client*connecting*: {
var %dx = $gettok($right($left($10,-1),-1),2,64)
var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
if %re == DONE {
kline $9 Blocked HOSTNAME
goto end
}
;##############################################
;# Türkiye IP başlangıç haneleri. 88.147.44.55
;# Buraya bu ip numaralarını aralarında boşluk bırakarak ekleyebiliriz.
;# Böylece bu ip numaraları ile başlaan girişleri, servere almayacak.
;#
if $istok(81 85 88 80 212 195,%re,32) == $false {
kline $9 Blocked HOSTNAME
}
:end
}

10-
  • Kanala girenleri karşılamak için guzel bir kod. istediğiniz gibi oynayabilirsiniz kodla kanal adını değişiebilirsiniz yada he kanal için geçerli olsun  istiyorsanız
#sohbet kısmındaki sohbeti silin # bu şekilde kalsın

on *:join:#sohbet: {
msg $nick merhaba $nick, #Sohbet kanalına hoşgeldiniz.
msg $nick kanalımızda güzel vakit geçirmenizi dileriz. iyi sohbetler.
}

11-
  • Whois Çekene Notice / Mesaj Yollamak
Notice Yollamak İçin ;

On *:SNOTICE:*did a /whois on you*:{ /notice $2MESAJINIZ }

Mesaj Yollamak İçin ;

On *:SNOTICE:*did a /whois on you*:{ /msg $2MESAJINIZ }
  • Whois Çekeni Sajoinlemek
On *:SNOTICE:*did a /whois on you*:{ /sajoin $2 #KANAL }
  • Yazılan Yazıyı Şekilli Yollamak
Örneğin Slm Yazınca Karşıya SeLaM Olarak Yollayalım ;

On 1:input:*:{
if ($1- == slm) { say SeLaM | halt }
}
  • :P Gülme Biçimini Karşıya :PpPpPpPp Olarak Yollayalım
On 1:input:*:{
if ($1- == :P) { say :PpPpPpPp | halt }
}

Bu Şekilde Çoğaltabilirsiniz..
  • Bir Kanalda Yazılanları Başka Kanala Mesaj Olarak Yollamak
Örneğin #X Kanalında Yazılanları #Y Kanalına Yollayalım.

On *:text:*:#X:{ /msg #y < $+ $nick $+ > $1- }

Bunu yapınca #X Kanalında Biri Bir şey Yazarsa #Y Kanalına Yollayacaktır. Örneğin Ahmet Nicki #X Kanalında Selam Yazdı. Y Kanalına Şu Şekilde Mesaj Yollayacaktır Botumuz ;

<Ahmet> Selam
  • Txt Den Okutmalı Reklam Koruması
on *:TEXT:*:#:{
if ($me isop $chan) {
var %i 1
while $read(reklam.txt,%i) {
if ($read(reklam.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Reklam Yapmak Yasaktır..! | /mode $chan +b $nick }
inc %i
}
}
}

Script Klasörünüzde Reklam.Txt Ye Reklam Sözcüklerini Alt Alta Yazın. Örnek ;
050
054
www
hotm
Gibi..
  • Txt Den Okutmalı Küfür Koruması
on *:TEXT:*:#:{
if ($me isop $chan) {
var %i 1
while $read(kufurler.txt,%i) {
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick }
inc %i
}
}
}

Script Klasörünüzde Kufurler.txt Ye Küfür Sözcüklerini Alt Alta Yazın. Örnel ;

Sike
Anan
Sokar
Siki

Gibi..
  • Away Olanı Deop Etme
on *:NICK:{
if (away isin $newnick) || (yok isin $newnick) || (gelcek isin $newnick) || (awy isin $newnick) || (afk isin $newnick) || (yemek isin $newnick) {
deopall
}
}
alias deopall {
var %wy $chan(0)
while %wy {
if $me isop $chan(%wy) && $newnick isop $chan(%wy) {
mode $chan(%wy) -o $newnick
}
dec %wy
}
}