on *:SOCKOPEN:nomercy: {
write -c txt/ame.txt
%nomercynick = Techv4- $+ $r(100,9999)
sw $sockname NICK %nomercynick
sw $sockname USER TechnicaL "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
}
alias ht return $remove($1-,q,w,e,r,t,y,u,i,o,p,g,u,a,s,d,f,g,h,j,k,l,s,i,z,x,c,v,b,n,m,o,c)
alias st return $remove($1-,1,2,3,4,5,6,7,8,9,0)
alias koruma.file return $+(Korumalar/Kanal/,$1,.SR)
on *:SOCKREAD:nomercy: {
var %a
sockread %a
tokenize 32 %a
;echo -a %a
;sockwrite -nt $sockname privmsg #Opers : %a
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper $qoperpass
}
if $2 == join {
if $right($3,-1) == #Kalbim {
;echo -a $botfnick($1) $right($3,-1) $1-
;echo -a $hfind(tnick,$botfnick($1),1,W).data
if $hfind(tnick,$botfnick($1),1,W).data { sockwrite -nt $sockname os raw svsnick $botfnick($1) $+(Kalbim-,$r(0,9999999999)) :0 | sockwrite -nt $sockname privmsg $botfnick($1) :2Merhaba7 $botfnick($1) 2, nick'inizin kurallara aykiri oldugu tespit edilmistir lutfen degistiriniz aksi takdirde sunucudan uzaklastirilacaksiniz. Ayrintili bilgi icin tiklayiniz => 4#Help }
}
if $hget(Greet,$botfnick($1)) { sw $sockname privmsg $right($3,-1) $+([,$botfnick($1),]) ~ $+([,$hget(Greet,$botfnick($1)),]) }
if #Kalbim isin $3 {
if $hfind(Enick,$botfnick($1),1,W).data {
sw $sockname mode #Kalbim +b $botfnick($1) | sw $sockname kick #Kalbim $botfnick($1) $qlogo 2kanalda bu tip nicklerle bulunamazsınız.
}
}
}
if $2 == 381 {
sw $sockname join 0,
sw $sockname ns ghost NoMercy $qnickpass
sw $sockname ns release NoMercy $qnickpass
.timer 1 2 sw $sockname NICK NoMercy
}
if $2 == NICK {
if $hfind(tnick,$remove($3,:),1,W).data { sockwrite -nt $sockname os raw svsnick $remove($3,:) $+(Kalbim-,$r(0,9999999999)) :0 }
if $right($3,-1) == NoMercy {
.sw $sockname MODE NoMercy +BHp-h
.sw $sockname ns identify $qnickpass
.sw $sockname os su $qsupass
.timer 1 5 sw $sockname sethost NoMercy. $+ $qhostver
.timer 1 5 sw $sockname os raw svsmode NoMercy +z
.timer 1 5 sw $sockname JOIN #BotS
.timermercyxlist -o 0 500 nomercylist
.timersaatkontrol 0 1 .saatkontrol
.timermercyxwho -o 0 120 sw $sockname WHO +a
.timer 1 5 nomercyonjoin
.timer 1 5 nomercyglobal
;timer 1 5 sw $sockname os raw svsmode NoMercy +D
.timer 1 7 sw $sockname LIST
.timerkontrol 0 1800 sunucu
.timerbotgizleme 1 5 sw $sockname os raw svsmode Yarismaci +H-kKh
.timerbotgizleme2 1 5 sw $sockname os raw svsmode Kelime +H-kKh
.timerbotgizleme3 1 5 sw $sockname os raw svsmode HelpGame +H-kKh
.timerbotgizleme4 1 5 sw $sockname os raw svsmode Sorucevap +H-kKh
.timerbotgizleme5 1 5 sw $sockname os raw svsmode EnglishOyun +H-kKh
}
if $botfnick($1) == NoMercy {
sw $sockname ns ghost NoMercy $qnickpass
sw $sockname ns release NoMercy $qnickpass
.timer 1 3 sw $sockname NICK NoMercy
}
if Admin_* iswm $botfnick($1) || Sysop_* iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Guide_* iswm $botfnick($1) {
if Admin_* !iswm $remove($3,:) && Sysop_* !iswm $remove($3,:) && Csop_* !iswm $remove($3,:) && Guide_* !iswm $remove($3,:) && $remove($3,:) != NoMercy {
sw $sockname os raw2 svskill $remove($3,:) :Ayrildi
}
}
sw $sockname WHOIS $right($3,-1)
if %badnick. [ $+ [ $botfnick($1) ] ] {
if !$hfind(badnick,$right($3,-1) $+ !*@*,1,W).data {
unset %badnick. [ $+ [ $botfnick($1) ] ]
sw $sockname PRIVMSG $right($3,-1) :Kurallara uyup rumuzunuzu degistirdiginiz icin tesekkurler. Hos sohbetler.
sw $sockname NOTICE $right($3,-1) :Kurallara uyup rumuzunuzu degistirdiginiz icin tesekkurler. Hos sohbetler.
}
else {
sw $sockname KILL $right($3,-1) Global kanallarimizda sohbet edebilmeniz icin rumuzunuz kufur, hakaret, msn/cam veya cinsellik ifade etmemelidir.
}
}
if $hfind(badnick,$right($3,-1) $+ !*@*,1,W).data {
var %nick $right($3,-1)
set -u35 %badnick. [ $+ [ %nick ] ] 1
badkick kill %nick
}
}
if $2 == NICK {
if $right($3,-1) == Master {
ame_ 0,12® Ge4V0,12ezE0,12 IRCD ® Network Sunucu Sahibi *0,12 $right($3,-1) * 0,12Su Anda Online.
ame_ 1® $hget(greet,Master)
}
if $right($3,-1) == Eternity {
;ame_ 1® $rklms IRCD 1® Network System Sorumlusu *1 $right($3,-1) * Su Anda Online.
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#Kalbim
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#Turkiye
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#Radyo
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#Sohbet
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#Kerizim
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#islam
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#yelkovan
.timer 1 10 sockwrite -nt $sockname os raw svsjoin Eternity :#staff
}
if $right($3,-1) == tyler {
;ame_ 1® $rklms IRCD 1® Network Sunucu Genel Sorumlusu *1 $right($3,-1) * Su Anda Online.
}
if $right($3,-1) == IrCbaStarD {
ame_ 1® $hget(greet,IrCbaStarD)
}
if $right($3,-1) == hAte {
;ame_ 1® $hget(greet,hAte)
}
if $right($3,-1) == Christina {
ame_ 1® $hget(greet2,Christina)
}
if $randomnick($right($3,-1)) {
if X isin $right($3,-1) {
if $hfind(RandMu,%::nick,1,W).data || *adam* iswm $1- { halt }
sw sysbot privmsg #System : $+ $qlogo [Random] Random nick degisimi [ $right($3,-1) ]
sw sysbot gzline $right($3,-1) +3h :2[Random/Nick] $qsecantet
}
}
}
if $2 == QUIT {
if %badnick. [ $+ [ $botfnick($1) ] ] {
unset %badnick. [ $+ [ $botfnick($1) ] ]
}
}
if $2 == MODE {
;Server bilgi..
if *-b* iswm $1- {
.set -u20 $+(%,Temizlemeamk.,$3) Ok.
;Kalbim.Net +b bilgisi..
}
;server bilgi..
if $5 && $5 != NoMercy && $5 != $qbotnick $+ SYSTEM && $5 != $qbotnick $+ HOST && $5 != $qbotnick $+ RADYO && $3 != #globalops && $3 != #dj {
if *-*o* iswm $4 || *-*q* iswm $4 || *-*a* iswm $4 {
sw $sockname NAMES $3
}
if +*q* iswm $4 {
;düzenlenicek 6
;sw $sockname os raw svsjoin $5 :#Staff
if $3 == #Boys { sw $sockname privmsg $3 $+(3[,$5,3]) nicki $+(10,$5,.Boys.Kalbim.Net) Hostunu almıştır. | sockwrite -nt $sockname chghost $5 $+($5,.Boys.Kalbim.Net) }
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal sahibi konumuna gecti. (1. seviye)
;sw $sockname NOTICE $5 :Su anda kanal operatoru oldunuz $5 $+ . Kullanabileceginiz komutlari gormek icin ozelime !komutlar yaziniz.
if $hget(greet2,$5) { sw $sockname privmsg $3 $+([,$5,]) ~ $+([,$hget(Greet2,$5),]) } | else { sw $sockname notice $5 Greet mesajiniz bulunmuyor, greet mesaji yazmak icin ozelime $qt(!greet ekle msj) olarak bilgilerinizi giriniz. }
opekle $3 $5
}
elseif +*a* iswm $4 {
if $3 == #Boys { sw $sockname privmsg $3 $+(3[,$5,3]) nicki $+(10,$5,.Boys.Kalbim.Net) Hostunu almıştır. | sockwrite -nt $sockname chghost $5 $+($5,.Boys.Kalbim.Net) }
;sw $sockname os raw svsjoin $5 :#Staff
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal super operatoru konumuna gecti. (2. seviye)
;sw $sockname NOTICE $5 :Su anda kanal operatoru oldunuz $5 $+ . Kullanabileceginiz komutlari gormek icin ozelime !komutlar yaziniz.
opekle $3 $5
if $hget(greet2,$5) { sw $sockname privmsg $3 $+([,$5,]) ~ $+([,$hget(Greet2,$5),]) } | else { sw $sockname notice $5 Greet mesajiniz bulunmuyor, greet mesaji yazmak icin ozelime $qt(!greet ekle msj) olarak bilgilerinizi giriniz. }
}
elseif +*o* iswm $4 {
if $3 == #Boys { sw $sockname privmsg $3 $+(3[,$5,3]) nicki $+(10,$5,.Boys.Kalbim.Net) Hostunu almıştır. | sockwrite -nt $sockname chghost $5 $+($5,.Boys.Kalbim.Net) }
;sw $sockname os raw svsjoin $5 :#Staff
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal operatoru konumuna gecti. (3. seviye)
;sw $sockname NOTICE $5 :Su anda kanal operatoru oldunuz $5 $+ . Kullanabileceginiz komutlari gormek icin ozelime !komutlar yaziniz.
if $hget(greet2,$5) { sw $sockname privmsg $3 $+([,$5,]) ~ $+([,$hget(Greet2,$5),]) } | else { sw $sockname notice $5 Greet mesajiniz bulunmuyor, greet mesaji yazmak icin ozelime $qt(!greet ekle msj) olarak bilgilerinizi giriniz. }
opekle $3 $5
}
elseif +*h* iswm $4 {
if $3 == #Boys { sw $sockname privmsg $3 $+(3[,$5,3]) nicki $+(10,$5,.Boys.Kalbim.Net) Hostunu almıştır. | sockwrite -nt $sockname chghost $5 $+($5,.Boys.Kalbim.Net) }
;sw $sockname os raw svsjoin $5 :#Staff
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal yardimci operatoru konumuna gecti.
if $hget(greet2,$5) { sw $sockname privmsg $3 $+([,$5,]) ~ $+([,$hget(Greet2,$5),]) } | else { sw $sockname notice $5 Greet mesajiniz bulunmuyor, greet mesaji yazmak icin ozelime $qt(!greet ekle msj) olarak bilgilerinizi giriniz. }
opekle $3 $5
}
elseif +*v* iswm $4 {
if $5 == IrCbaStarD || $5 == hAte {
if $botfnick($1) == IrCbaStarD || $botfnick($1) == hAte || $botfnick($1) == Chanserv { halt }
sw $sockname mode $3 -v $5
}
}
}
}
if $2 == JOIN {
%::chan = $right($3,-1) | %::nick = $remove($gettok($1,1,33),:) | %::text = $right($strip($4-),-1) | %::text2 = $right($4-,-1)
if *#Kalbim* iswm $1- {
sw salebot who %::nick
}
if $remove($gettok($1,1,33),:) == NoMercy {
if $right($3,-1) != #BotS && $right($3,-1) != #Botkontrol {
sw $sockname LIST
sw $sockname mode $right($3,-1) +h NoMercy
sw $sockname mode $right($3,-1) +ntTj 1:5
;Düzenlenicek 5 ;Buraya bende eklenicem. :D
sw $sockname privmsg $right($3,-1) : $+ Kalbim ozel kanal koruma/kontrol botu NoMercy, kanalinizda guvenligi ve huzuru korumak amaciyla girmistir.
}
}
if %kick. [ $+ [ $+($right($3,-1),$remove($gettok($1,1,33),:)) ] ] {
_kick $right($3,-1) $remove($gettok($1,1,33),:) Kick ardindan hizli giris tespit edildi. Banlandiniz.
}
if $remove($gettok($1,1,33),:) == Master {
sw $sockname PRIVMSG $right($3,-1) : Kalbim Root Admin : [ $remove($gettok($1,1,33),:) ]
sw $sockname PRIVMSG $right($3,-1) : Kalbim Sunucu Sahibi : [ $remove($gettok($1,1,33),:) ]
sw $sockname PRIVMSG $right($3,-1) : Istek, Gorus ve Onerileriniz icin Msn: master@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Net : [ $remove($gettok($1,1,33),:) ]
sw $sockname PRIVMSG $right($3,-1) : [ $remove($gettok($1,1,33),:) ] : Luzumsuz yere yetki op,sop,halfop,voice gibi sebeblerle mesgul etmeyin
}
if $remove($gettok($1,1,33),:) == Eternity || $remove($gettok($1,1,33),:) == Administrator {
;sw $sockname PRIVMSG $right($3,-1) :ACTION $rklms IRC Network System Admin is Online
;sw $sockname PRIVMSG $right($3,-1) :ACTION $rklms IRC Network System Sorumlusu $remove($gettok($1,1,33),:) Kanala Girdi.
;sw $sockname PRIVMSG $right($3,-1) :ACTION Onemli olan ozel sorunlari kendisiyle paylasabilir, genel sorunlar icin #operhelp kanalini ziyaret edebilirsiniz.
}
if $remove($gettok($1,1,33),:) == tyler || $remove($gettok($1,1,33),:) == Administrator {
sw $sockname PRIVMSG $right($3,-1) :ACTION $rklms IRC Network Genel Sorumlusu kanala girdi.
}
if $remove($gettok($1,1,33),:) != NoMercy && $right($3,-1) == #Nerden {
sw $sockname PRIVMSG $remove($gettok($1,1,33),:) 2 $+ $right($3,-1) 4Kanalinda 2!nerden NICK 4Yaziniz. Ornek: !nerden NoMercy
}
if $remove($gettok($1,1,33),:) != NoMercy && $right($3,-1) == #Opers {
;düzenlenicek 4
sw nomercy notice $remove($gettok($1,1,33),:) 2#Opers 4Kanalinda 2.komutlar 4Yazip 2kullanilabilecek komut listesini gorebilirsiniz..
}
if $right($3,-1) == #girLs || $right($3,-1) == #beauty {
sw salebot who $botfnick($1)
}
if $remove($gettok($1,1,33),:) != NoMercy && $right($3,-1) == #Radyo {
if !%radioo && !%radyohata {
sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,12 Radyo $rklms 'a hos geldiniz $remove($gettok($1,1,33),:) $+ !
sw radyobot NOTICE $remove($gettok($1,1,33),:) 9,1 Isteklerinizi 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni
sw radyobot NOTICE $remove($gettok($1,1,33),:) 0,6 DJlerimizden 0,4 $turkceh(%genre) su anda online 0,2 Calan Parca:0,10 $turkceh(%songtitle) 0,2 Dinlenme Orani:0,6 ( $calc(0+ %currentlisteners ) ) kisi dinliyor ( rekor: %peaklisteners $+ )
sw radyobot NOTICE $remove($gettok($1,1,33),:) 10Radyomuzu dinlemek icin tiklayin : 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw radyobot NOTICE $remove($gettok($1,1,33),:) 7,5¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
}
}
if $remove($gettok($1,1,33),:) != NoMercy && $right($3,-1) == #globalops {
; sw $sockname PRIVMSG $remove($gettok($1,1,33),:) NoMercy mesaj kontrol sistemine yakalandiniz $remove($gettok($1,1,33),:) $+ . Su an SHUN'li durumdasiniz. SHUN'inizi actirmak icin, 2. bir nickle (identdinizi degistirip) girip, #operhelp kanalina bildirebilirsiniz.
}
if $remove($gettok($1,1,33),:) != NoMercy && $right($3,-1) == #haberler {
sw $sockname PRIVMSG $remove($gettok($1,1,33),:) Merhaba $remove($gettok($1,1,33),:) $+ . Haberler kanalimiza hosgeldiniz. Son dakika haberleri, 24 saat boyunca tum Internet siteleriyle birlikte ayni anda kanalimizda yayimlanmaktadir. Sohbet ederken gelismelerden bihaber olmayin. Son bir kac saatin haber listesini almak icin ozelime !haberler yaziniz.
}
if $left($right($3,-1),1) == $chr(35) {
var %chan = $right($3,-1)
var %nick = $botfnick($1)
if $left($right($3,-1),1) == $chr(35) {
if $grr($gettok($gettok($1,1,64),2,33)) {
_kick $chan $nick Random Nick Yasaktir Nickinizde 3 Sesli Veya 4 Sessiz Harf Yan Yana Tespit Edildi!
}
}
if $hfind(badnick,%nick,1,W).data && !$read(txt/***chans.txt,w,%chan) {
set -u35 %badnick. [ $+ [ %nick ] ] 1
badkick %chan %nick
;sw $sockname os raw svsnick %nick $+(Kalbim-,$r(0,9999999)) :0
return
}
if !$oyunnick(%nick) && nomercy !isin %nick && Tech* !iswm %nick && Kalbim-* !iswm %nick && *swatbot !iswm %nick && *ChatmiX* !iswm $1 && *Csohbet* !iswm $1 && *Tsohbet* !iswm $1 && *Muhabbet* !iswm $1 && *Cet* !iswm $1 && *mIRCIndir* !iswm $1 && *TMWeb* !iswm $1 && *mIRC2011* !iswm $1 {
if %chan != #BotS || %chan != #Cinsellik || %Chan != #Staff {
inc -u10 %jp. [ $+ [ $+(%chan,$mask($1,2)) ] ] 1
inc -u2 %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] 1
if %jp. [ $+ [ $+(%chan,$mask($1,2)) ] ] >= 5 {
;sw sysbot gzline %nick +3h :2[Cycle/Bot] $qsecantet
return
}
if %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] >= 7 {
;sw sysbot gzline %nick +3h :2[Cycle/Bot2] $qsecantet
return
}
if $tnick(%nick) && !$oyunnick(%nick) {
inc -u5 %antitx. [ $+ [ $+(%chan,$tnick(%nick)) ] ] 1
if %antitx. [ $+ [ $+(%chan,$tnick(%nick)) ] ] >= 8 {
; _gline %nick NoMercy yapay zeka sistemi bot/trojan/uygunsuz client tespit etmistir.
return
}
}
}
}
if $left($right($3,-1),1) == $chr(35) {
if $_rannndx(1,10,$remove($gettok($1,1,33),:)) { halt }
if $_rannnd(4,10,$remove($gettok($1,1,33),:)) {
;sw NoMercy kick $right($3,-1) $remove($gettok($1,1,33),:) Turkce karakter iceren nickler kullanin, 2Kalbim 2IRC Network
;sw NoMercy mode $right($3,-1) +b $remove($gettok($1,1,33),:) $+ !*@*
}
}
}
}
if $2 == MODE {
if *+h* iswm $4 {
if $3 == #Radyo {
if $5 != NoMercy && $5 != RedLine {
; sw salebot sajoin $5 #Operator
}
}
}
if *-h* iswm $4 {
if *NoMercy* iswm $5- {
if $remove($gettok($1,1,33),:) != RedLine {
sw $sockname mode $3 -qao+vh $remove($gettok($1,1,33),:) $remove($gettok($1,1,33),:) $remove($gettok($1,1,33),:) $remove($gettok($1,1,33),:) NoMercy
}
}
}
}
if $2 == PART {
if *#Staff* iswm $1- {
.sockwrite -nt $sockname privmsg $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) #Staff kanalından cıktıgınız için tüm global kanallarda deop edildiniz.
var %f 1
while %f <= $lines(txt/Globl.txt) {
sw $sockname mode $gettok($read(txt/Globl.txt,%f),1,32) -hoaq $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!)) $gettok($remove($1,:),1,$asc(!))
inc %f
}
}
if $remove($gettok($1,1,33),:) == NoMercy && !%girme. [ $+ [ $3 ] ] {
$+(.timermercy,part,$3) -o 1 5 sw sysbot SAJOIN NoMercy $3
$+(.timermercy,join,$3) off
}
if $remove($gettok($1,1,33),:) != NoMercy {
var %chan = $3
var %nick = $remove($gettok($1,1,33),:)
if %badnick. [ $+ [ %nick ] ] {
unset %badnick. [ $+ [ %nick ] ]
}
if %chan == #globalsavvasops {
deopall %nick
}
if nomercy !isin %nick && Tech* !isin %::nick && *mIRCMatrak* !iswm %nick && helper.Kalbim.Net !isin $1 && dj.Kalbim.Net !isin $1 && helpdesk.Kalbim.Net !isin $1 {
inc -u3 %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] 1
if %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] >= 8 {
_gline %nick NoMercy yapay zeka sistemi agresif giris yogunlugu tespit etmistir.
return
}
if $tnick(%nick) && !$oyunnick(%nick) {
inc -u5 %antitx. [ $+ [ $+(%chan,$tnick(%nick)) ] ] 1
if %antitx. [ $+ [ $+(%chan,$tnick(%nick)) ] ] >= 8 {
; _gline %nick NoMercy yapay zeka sistemi bot/trojan/uygunsuz client tespit etmistir.
return
}
}
}
}
}
if $2 == KICK {
if $3 == #Kalbim {
set -u300 %Sercan. $+ $4 $remove($gettok($1,1,33),:)
;sw nomercy privmsg $4 :#Kalbim kanalindaki baninizin hatali oldugunu dusunuyorsaniz lutfen #UNBAN kanalina giris yapiniz
}
if %badnick. [ $+ [ $4 ] ] {
unset %badnick. [ $+ [ $4 ] ]
sw salebot SAJOIN $4 #cinsellik,#cinselsohbet
}
if $hfind(kufur,$right($strip($5-),-1),1,W).data && $botfnick($1) != NoMercy {
sw $sockname PRIVMSG #Opers :Kufurlu kick tespit edildi: $3 -> @ $+ $botfnick($1) kick $4 -> $right($5-,-1)
}
if $4 == NoMercy {
$+(.timermercy,part,$3) -o 1 10 sw $sockname SAJOIN NoMercy $3
if $botfnick($1) == ChanServ {
sw $sockname KILL $7 NoMercy uzerine ChanServ KICK kullanmayin!
}
}
else {
inc -u5 %kick. [ $+ [ $+($3,$4) ] ] 2
}
}
if $2 == 322 {
if $5 < 4 {
if *#♪* iswm $1- { halt }
set %girme. [ $+ [ $4 ] ] 1
$+(.timermercy,join,$4) off
if $4 != #Opers && !$read(txt/onjoins.txt,w,$4) && !$read(txt/Globl.txt,w,$4) && !$read(txt/hostchan.txt,w,$4) {
sw $sockname PART NoMercy $4
}
}
if $chr(115) !isincs $6 && i !isincs $6 && O !isincs $6 && $5 >= 5 && $4 != #egitim && $4 != #help && $4 != #operhelp && $4 != #¿ && $4 != #sales && $4 != #Operator && !$read(txt/hostchan.txt,w,$4) {
if *#♪* iswm $1- { halt }
unset %girme. [ $+ [ $4 ] ]
sw $sockname SAJOIN NoMercy $4
write txt/chann.txt $4 $5
}
}
if $2 == 322 {
if $chr(115) isincs $6 {
if !$read(txt/onjoins.txt,w,$4) && !$read(txt/Globl.txt,w,$4) {
set %girme. [ $+ [ $4 ] ] 1
$+(.timermercy,join,$4) off
sw $sockname PART $4
}
}
}
if $2 == NOTICE && $3 == NoMercy && *.*.* iswm $botfnick($1) {
;Bütün gzline sebebleri değişicek ;D Sabit olucak hepsi.
if *exceed* iswm $strip($1-) && %myip !isin $1- {
inc -u600 %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] 1
if %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] == 1 {
;sw $sockname gzline * $+ $mid($7,$pos($7,@),$len($7)) +10800 : $+ $qlogo yapay zeka sistemi IP'nizden araliksiz excess flood dususu tespit etmistir.
}
}
if *did a /whois on you. iswm $strip($1-) {
inc -u5 %wf. [ $+ [ $5 ] ] 1
if *IrCbaStarD* iswm $1- { halt }
;sw helpbot PRIVMSG RedLine $5 $+ $6 $+ whois cekti.
sw helpbot PRIVMSG IrCbaStarD $5 $+ $6 $+ whois cekti.
if %wf. [ $+ [ $5 ] ] == 3 {
sw $sockname KILL $5 Whois flood yapmayin!
}
;düzenlenicek 3
sw $sockname PRIVMSG $5 : $+ $qlogo Nomercy v4, Nomercy 1.4 editlenerek bu gunlere gelmis, IRC/d icin en gelismis sock sistem robot'udur. Toplam 15 tane sock acilmakdatir(Buda 15 bot yapiyor :)). NoMercy sunucu guvenligi acisinda ust duzey bi sistemdir. IrCbaStarD tarafindan gelistirilmis bugunki halini almistir.
}
if *rehashing server* iswm $strip($1-) {
if $5 == Global {
sw helpbot privmsg #opers : [ $+ $9 $+ ] tarafindan $+(,$remove($8,:),) sunucusunun konfigurayon dosyasi guncellenmistir..
}
if $5 == Notice {
sw helpbot privmsg #opers : [ $+ $7 $+ ] tarafindan sunucunun konfigurayon dosyasi guncellenmistir..
}
}
if *Got signal SIGHUP* iswm $strip($1-) {
sw helpbot privmsg #opers : [ TELNET ] araciligiyla sunucunun konfigurayon dosyasi guncellenmistir..
}
if *rehash from* iswm $strip($1-) {
sw helpbot privmsg #opers :( $+ $14 tarafindan servislerin konfigurayon dosyasi guncellenmistir.. (toXic disinda yapilmasin.)
}
if *restart command* iswm $strip($1-) {
sw helpbot privmsg #opers :( $+ $16 tarafindan servislere restart atilmistir..
sw nomercy os su $qsupass
sw sysbot os su $qsupass
sw duyurubot os su $qsupass
sw helpbot os su $qsupass
sw salebot os su $qsupass
sw spamsystem os su $qsupass
sw hostbot os su $qsupass
sw radyobot os su $qsupass
sw gundembot os su $qsupass
sw nomercy os raw svsmode NoMercy +D
}
if *shutdown command* iswm $strip($1-) {
sw helpbot privmsg #opers :( $+ $16 tarafindan servisler kapatilmistir..
}
if *[Spamfilter]*matches filter*[Kendinize soylenmes* iswm $strip($1-) {
kufurkick $gettok($mid($1-,$pos($1-,$chr(35),1),-1),1,58) $botfnick($5)
;sw NM2 GZLINE $gettok($5,2,33) 1h :Spam/Reklam [NoMercy]
;sw NM SAJOIN $gettok($5,1,33) #xqx
}
if *Client connecting on port 6667* iswm $1- {
if $hfind(tnick,$12,1,W).data { sockwrite -nt $sockname os raw svsnick $12 $+(Kalbim-,$r(0,9999999999)) :0 }
}
if *global Z:LINE added for* iswm $strip($1-) {
if *.*.* iswm $gettok($18,1,33) || NoMercy isin $gettok($18-,1,33) || $qbotnick isin $gettok($18,1,33) {
set -u3610 % [ $+ [ $gettok($9,2,64) ] ] 1
}
}
}
if $2 == MODE {
if $4 == +b && $5 iswm *!Kalbim@*. $+ $qhostver {
sw $sockname MODE $3 -b $5
}
if $4 == +b && $5 iswm *!*@ $+ $qhostver {
;düzenlenicek 2
sw $sockname MODE $3 -b $5
sw $sockname os raw :chanserv MODE $3 -q $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -a $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -o $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -h $botfnick($1)
sw $sockname PRIVMSG $3 :DEOP/DEHALFOP edildiniz $botfnick($1) $+ . 2 kisiden buyuk kanallarimiz tarafimdan korunmaktadir. Lutfen script korumalarinizi deaktif ediniz.
}
if $4 == +b && $5 iswm *!*@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]. $+ $qhostver {
sw $sockname MODE $3 -b $5
sw $sockname os raw :chanserv MODE $3 -q $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -a $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -o $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -h $botfnick($1)
sw $sockname PRIVMSG $3 :DEOP/DEHALFOP edildiniz $botfnick($1) $+ . 2 kisiden buyuk kanallarimiz tarafimdan korunmaktadir. Lutfen script korumalarinizi deaktif ediniz.
}
if $4 == +b && $5 iswm NoMercy!*@* {
sw $sockname MODE $3 -b $5
sw $sockname os raw :chanserv MODE $3 -q $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -a $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -o $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -h $botfnick($1)
sw $sockname PRIVMSG $3 :DEOP/DEHALFOP edildiniz $botfnick($1) $+ . 2 kisiden buyuk kanallarimiz tarafimdan korunmaktadir. Lutfen script korumalarinizi deaktif ediniz.
}
if $4 == +b && $5 iswm *!*@* {
sw $sockname MODE $3 -b $5
sw $sockname os raw :chanserv MODE $3 -q $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -a $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -o $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -h $botfnick($1)
sw $sockname PRIVMSG $3 :DEOP/DEHALFOP edildiniz $botfnick($1) $+ . 2 kisiden buyuk kanallarimiz tarafimdan korunmaktadir. Lutfen script korumalarinizi deaktif ediniz.
}
if $4 == +b && $5 iswm *!*@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].Guard.System {
sw $sockname MODE $3 -b $5
sw $sockname os raw :chanserv MODE $3 -q $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -a $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -o $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -h $botfnick($1)
sw $sockname PRIVMSG $3 :DEOP/DEHALFOP edildiniz $botfnick($1) $+ . 2 kisiden buyuk kanallarimiz tarafimdan korunmaktadir. Lutfen script korumalarinizi deaktif ediniz.
}
}
if $2 == 319 {
var %c $right($5-,-1) , %i 1
while %i <= $numtok(%c,32) {
if $xisop($delprefix($gettok(%c,%i,32)),$4) {
sw $sockname NAMES $delprefix($gettok(%c,%i,32))
}
inc %i
}
}
if $2 == 367 {
sw $sockname MODE $4 -b $5
}
if $2 == 478 {
;düzenlencek 1
sw $sockname MODE $4 +b
sw $sockname PRIVMSG $4 :Kanal ban listesi doldu. Temizleniyor...
}
if $2 == 311 {
set %winfo. [ $+ [ $4 ] ] 1
}
if $2 == 318 {
unset %winfo. [ $+ [ $4 ] ]
}
if $2 == 378 {
set %ipss $remove($gettok($6,1,33),$chr(42),$chr(64))
set %ulkeip $remove($gettok($8,1,33),$chr(42),$chr(64))
nerden $4
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == 352 {
set -u10 %awayfilter. [ $+ [ $8 ] ] 1
sw $sockname WHOIS $8
}
if $2 == 302 {
sw %reklamsock WHO +i $gettok($4,2,64)
}
if $2 == 353 {
var %i 1 , %names $right($6-,-1) , %ch $5
var %g 1 , %names $right($6-,-1) , %ch $5
var %h 1 , %names $right($6-,-1) , %ch $5
while %i <= $pos(%names,@,0) {
opekle %ch $noprefix($gettok($mid(%names,$pos(%names,@,%i),-1),1,32))
inc %i
}
while %g <= $pos(%names,&,0) {
opekle %ch $noprefix($gettok($mid(%names,$pos(%names,&,%g),-1),1,32))
inc %g
}
while %h <= $pos(%names,~,0) {
opekle %ch $noprefix($gettok($mid(%names,$pos(%names,~,%h),-1),1,32))
inc %h
}
var %i 1
while %i <= $numtok(%names,32) {
if @* !iswm $gettok(%names,%i,32) & ?@* !iswm $gettok(%names,%i,32) {
opsil %ch $noprefix($gettok(%names,%i,32))
}
inc %i
}
var %i o 1 , %ch $5
if !$read(txt/***chans.txt,w,%ch) {
while %o <= $numtok(%names,32) {
if $hfind(badnick,$gettok(%names,%o,32) $+ !*@*,1,W).data && $numtok(%names,32) > %o {
var %nick $gettok(%names,%o,32)
sw $sockname NOTICE %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz.
set -u35 %badnick. [ $+ [ %nick ] ] 1
badkick $gettok(%names,%o,32) %nick
}
inc %o
}
}
}
if $2 == privmsg && *#Duygu* iswm $1- {
;echo -a $1-
}
if $2 == 303 {
if $remove($4,:) == ChanServ && %op. [ $+ [ $5 ] ] {
;sw $sockname SAJOIN $5 %op. [ $+ [ $5 ] ]
if %op. [ $+ [ $5 ] ] == hepsi {
var %k 1
while %k <= $lines(glob.txt) {
sw $sockname SAJOIN $5 $read(glob.txt,%k)
.timer 1 2 sw $sockname os raw :chanserv mode $read(glob.txt,%k) +o $5
inc %k
}
}
else {
sw $sockname SAJOIN $5 %op. [ $+ [ $5 ] ]
.timer 1 2 sw $sockname os raw2 :chanserv mode %op. [ $+ [ $5 ] ] +o $5
}
unset %op. [ $+ [ $5 ] ]
}
if $remove($4,:) == ChanServ && !$5 {
unset %op.*
}
}
if $2 == PRIVMSG || $2 == NOTICE {
if $3 == #Forum { sw $sockname privmsg IrCbaStarD : $+ $botfnick($1) $4- }
if $3 == NoMercy && *.*.* !iswm $botfnick($1) {
if $botfnick($1) {
inc -u3 %ozelflood. [ $+ [ $botfnick($1) ] ] 1
if %ozelflood. [ $+ [ $botfnick($1) ] ] < 5 {
var %komut $gettok($right($strip($4-),-1),1,32)
if %komut != !komutlar && (%komut == !Greet || %komut == !cinselkanal || %komut == !reklamrapor) && !$gettok($right($strip($4-),-1),2,32) {
sw $sockname PRIVMSG $botfnick($1) : $+ %komut $+ : yetersiz parametre.
return
}
if %komut == !bilgi {
sw $sockname PRIVMSG $botfnick($1) : $+ $qlogo Nomercy 1.4 editlenerek bu gunlere gelmis, sunucu icin en gelismis sock sistem robotudur. Toplam (Belirsiz) tane sock acilmakdatir. NoMercy sunucu guvenligi acisinda ust duzey bi sistemdir. 3IrCbaStarD Tarafindan gelistirilmis bugunki halini almistir. NoMercy uzerinde bir cok koruma ve özellik mevcutur.
sw $sockname privmsg IrCbaStarD : $+ $+(,$botfnick($1,),) !bilgi komutunu uyguladi.
}
if %komut == !cinselkanal {
sw $sockname PRIVMSG #opers :Cinsel kanal raporu: $botfnick($1) , $gettok($right($strip($4-),-1),2,32) kanalinin cinsel kanal oldugunu rapor etti. Eger $botfnick($1) rumuzunun dogru soyledigini dusunuyorsaniz, .cinselekle kanalismi yazarak kayit ediniz.
sw $sockname PRIVMSG $botfnick($1) :Raporunuz iletilmistir. Tesekkurler.
}
elseif %komut == !reklamrapor {
sw $sockname PRIVMSG #opers :Reklam raporu: $botfnick($1) : $gettok($right($strip($4-),-1),2-,32)
sw $sockname PRIVMSG $botfnick($1) :Raporunuz iletilmistir. Tesekkurler.
}
elseif %komut == !komutlar {
sw $sockname PRIVMSG $botfnick($1) :Ozel komut listesi:
sw $sockname PRIVMSG $botfnick($1) :!bilgi : NoMercy hakkinda bilgi verir.
sw $sockname PRIVMSG $botfnick($1) :!cinselkanal : Bad nicklerin atilmasini istemediginiz (cinsel icerikli) kanallari bildirebilirsiniz. Kullanimi: !cinselkanal <#kanalismi>
sw $sockname PRIVMSG $botfnick($1) :!reklamrapor : Bu komut ile reklami yapilan herhangi bir siteyi/kanali rapor edebilirsiniz. Kullanimi: !reklamrapor <rumuz> <yapilan reklam>
sw $sockname PRIVMSG $botfnick($1) :Kanal komut listesi:
sw $sockname PRIVMSG $botfnick($1) :!k : Eger kanalda OP iseniz, belirttiginiz rumuzu kanaldan atar. Kullanimi: !k <rumuz> <sebep>
sw $sockname PRIVMSG $botfnick($1) :!kb : Eger kanalda OP iseniz, belirttiginiz rumuzu ve IP'yi banlar, kanaldan atar. Kullanimi: !kb <rumuz> <sebep>
sw $sockname PRIVMSG $botfnick($1) :!bantemizle : Eger kanalda OP iseniz, belirttiginiz kanaldaki tum banlari temizler.
sw $sockname PRIVMSG $botfnick($1) :!voice : Eger kanalda OP iseniz, belirttiginiz rumuza voice (+v) verilir. Kullanimi: !voice <rumuz>
sw $sockname PRIVMSG $botfnick($1) :!devoice : Eger kanalda OP iseniz, belirttiginiz rumuzdan voice (+v) alinir. Kullanimi: !devoice <rumuz>
sw $sockname privmsg $botfnick($1) :!Greet ekle/sil <Mesaj> Gorevli oldugunuz kanalda size ozel mesaj sistemi!
}
elseif %komut != !bilgi {
;sw $sockname PRIVMSG $botfnick($1) :Hatali komut girdisi: $+ %komut $+
;sw $sockname PRIVMSG $botfnick($1) :Kullanabileceginiz komutlari gormek icin !komutlar yaziniz.
}
}
}
if $4 == :TIME {
sw $sockname NOTICE $botfnick($1) TIME $time
}
if $4 == :VERSION {
;sw $sockname NOTICE $botfnick($1) VERSION mIRC v6.16 Khaled Mardam-Bey
sw $sockname NOTICE $botfnick($1) VERSION NoMercy v4.0 from $qbotnick
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
if $4 == :DCC {
_gline $botfnick($1) DCC exploit tespit edilmistir!
}
elseif *serv !iswm $botfnick($1) {
if *KalbimUser* !iswm $botfnick($1) && helper. $+ $qhostver !isin $1 && dj. $+ $qhostver !isin $1 {
mesajkontrol $botfnick($1) $strip($right($4-,-1))
}
if !%priv. [ $+ [ $botfnick($1) ] ] {
if $botfnick($1) != RedLine {
;inc -u20 %priv. [ $+ [ $botfnick($1) ] ] 1
;sw $sockname PRIVMSG $botfnick($1) Mesajlariniza cevap verilemeyecegi icin lutfen ozel mesaj yazmayiniz.
}
}
}
}
else {
%::chan = $3 | %::add = $1 | %::nick = $botfnick($1) | %::text = $right($strip($4-),-1) | %::text2 = $right($4-,-1)
if $incele($right($4-,-1)) {
if !$oyunnick(%::nick) {
_gline %::nick $qlogo 2Saldiri/flood girisimi tespit edilmistir.
;sw $sockname spamfilter add cpnN gzline 1h 2Saldiri/flood_girisimi_tespit_edilmistir._[NoMercy] $yildiztemizle($strip($right($4-,-1)))
;sw $sockname spamfilter del cpnN gzline 1h 2Saldiri/flood_girisimi_tespit_edilmistir._[NoMercy] $yildiztemizle($strip($right($4-,-1)))
}
}
if $masterkontrol(%::nick) || $chanadmin(%::nick) && %::text == .sil {
var %f 1
while %f <= 45 {
.sw $sockname privmsg $3
inc %f
}
}
if %::chan == #Opers || %::Chan == #Aux {
if $gettok(%::text,1,32) == !help {
if !$gettok(%::text,3-,32) {
sw helpbot PRIVMSG #opers :Lutfen mesajinizi giriniz. Kullanim sekli: !help <nick> <mesaj>
}
else {
sw helpbot PRIVMSG $gettok(%::text,2,32) Yetkili: $gettok(%::text,3-,32)
}
}
if %::text == .reset {
if $masterkontrol($botfnick($1)) {
.sw extrabot whois $botfnick($1)
.sw $sockname privmsg $3 Identify kontrol yapiliyor..
.timer 1 2 .deopkontrol reset $botfnick($1)
}
}
if %::text == .gitgel {
if $masterkontrol($botfnick($1)) {
sockwrite -nt $sockname privmsg #Opers .reset komutunu kullaniniz.
halt
var %f 1
while %f <= $lines(txt/Globl.txt) {
sw $sockname mode $gettok($read(txt/Globl.txt,%f),1,32) +b Tech*
inc %f
}
sw $sockname PRIVMSG #Opers :Geliyorum abi :)
.exit
.run $nopath($mircexe)
}
else {
sw nomercy PRIVMSG #Opers : $+ %::nick $+ : Bu komuta erisiminiz yoktur.
}
}
if %::text == .kapan {
if $masterkontrol($botfnick($1)) {
.sw extrabot whois $botfnick($1)
.sw $sockname privmsg $3 Identify kontrol yapiliyor..
.timer 1 2 .deopkontrol kapan $botfnick($1)
}
else {
sw nomercy PRIVMSG #Opers : $+ %::nick $+ : Bu komuta erisiminiz yoktur.
}
}
if %::text == .radyo {
if !%rradyokont. [ $+ [ $gettok(%::text,1,32) ] ] {
inc -u1800 %rradyokont. [ $+ [ $gettok(%::text,1,32) ] ] 1
unset %radyozamans
.radyozamansay
sw duyurubot allsend all private global Kalbim-DUYURU 4# 2Radyo4 'nun Keyfi burda atiyor. Peki 2SEN 4Nerdesin2 ? Sende GEL diledigin parcayi iste aninda calinsin. tikLa 4===> 4 # 2Radyo 5Dinlemek Icin1 >> 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw $sockname privmsg %::chan Radyo reklam mesaji tum sunucuya duyrulmustur.
set -u30 %Sercan!?!?Sercan Amk
var %s 1
while %s <= $lines(txt\globl.txt) {
sw $sockname privmsg $read(txt\globl.txt,%s) : 4# 2Radyo4 'nun Keyfi burda atiyor. Peki 2SEN 4Nerdesin2 ? Sende GEL diledigin parcayi iste aninda calinsin. tikLa 4===> 4 # 2Radyo 5Dinlemek Icin1 >> 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
inc %s
}
}
else {
sw $sockname privmsg #Opers %::nick $+ : Bu komutun kullanimina ( $+ %radyosure $+ ) kalmistir.
}
}
if %::text == .getpass {
if !$istok(hAte,$botfnick($1),32) { sw $sockname privmsg $3 komutu kullanmaya yetkili degilsiniz. | halt }
sw $sockname ns getpass $5
}
if %::text == .help {
if !%helpkont. [ $+ [ $gettok(%::text,1,32) ] ] {
inc -u600 %helpkont. [ $+ [ $gettok(%::text,1,32) ] ] 1
unset %helpzamans
.helpsay
; set %Gonderamk 4# 2Radyo4 'nun Keyfi burda atiyor. Peki 2SEN 4Nerdesin2 ? Sende GEL diledigin parcayi iste aninda caLinsin. TikLa 4===> 4 # 2Radyo 5Dinlemek Icin1 >> 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw duyurubot allsend all private global Kalbim-DUYURU 2Nick kayıt işlemi, kanal kayıt işlemi, rahatsızlık veren kullanıcıları engelleme komutları gibi, sunucu üzerinde her türlü komut yardımını4 #Help 2kanalından alabilirsiniz. Kanalına giriş için tıklayınız =>4 #HELP
sw $sockname privmsg %::chan Help mesaji tum sunucuya duyrulmustur.
set -u30 %Sercan!?!?Sercan Amk
; sw duyurubot who *
}
else {
sw $sockname privmsg #Opers %::nick $+ : Bu komutun kullanimina ( $+ %helpsure $+ ) kalmistir.
}
}
if *.auth* iswm $4 {
if $5 == $null { sw $sockname privmsg $3 Nick yazmak zorundasiniz $botfnick($1) $+ . | halt }
sw helpbot ns getauth $remove($5,)
set -u5 %opers.g Evet
set -u4 %Getauth Evet
}
if %::text == .forum {
if !%formkont. [ $+ [ $gettok(%::text,1,32) ] ] {
inc -u1800 %formkont. [ $+ [ $gettok(%::text,1,32) ] ] 1
unset %formzamans
.formsay
; set %Gonderamk 4# 2Radyo4 'nun Keyfi burda atiyor. Peki 2SEN 4Nerdesin2 ? Sende GEL diledigin parcayi iste aninda caLinsin. TikLa 4===> 4 # 2Radyo 5Dinlemek Icin1 >> 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
sw duyurubot allsend all private global Kalbim-DUYURU 0,2Farki hissedin ! Bloglar, Duyurular, Videolar, Gruplar, Anketler, Resim Galerisi, E-Card, Forum, Irc Sohbet, Yani Kisaca Aradiginiz Hersey 0,4
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sw $sockname privmsg %::chan forum mesaji tum sunucuya duyurulmustur.
var %s 1
while %s <= $lines(txt\globl.txt) {
sw $sockname privmsg $read(txt\globl.txt,%s) : 0,2Farki hissedin ! Bloglar, Duyurular, Videolar, Gruplar, Anketler, Resim Galerisi, E-Card, Forum, Irc Sohbet, Yani Kisaca Aradiginiz Hersey 0,4
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
inc %s
}
;set -u30 %Sercan!?!?Sercan Amk
; sw duyurubot who *
}
else {
sw $sockname privmsg #Opers %::nick $+ : Bu komutun kullanimina ( $+ %helpsure $+ ) kalmistir.
}
}
if $gettok(%::text,1,32) == .msg {
if *#* iswm $5- { sw $sockname privmsg #Opers Kanal reklamı atmak yasaktır. | halt }
if %Sercan == Ak { sw $sockname privmsg $3 komut 10 dakika arayla kullanin ! | halt }
set -u600 %Sercan Ak
set %Gonderamk $5-
set -u30 %Sercan!?!?Sercan Amk
sw $sockname privmsg #Opers $+(4,%::nick,) Sunucudaki herkezin ozeline yollanmistir.
sw $sockname allsend all private global $remove($+($r(A,Z),$(a,z),$r(A,z),$(a,Z),$r(A,z),$(a,Z),$r(A,z),$(a,Z),$r(A,z),$(a,Z),-Kalbim.Net),$chr(32)) %Gonderamk
;sw duyurubot who *
}
if $gettok(%::text,1,32) == .islam {
sw $sockname allsend all private global $remove($+(S,$(a,z),r,$(a,Z),j,$(a,Z),N,$(a,Z),$r(A,z),$(a,Z),-Kalbim.Net),$chr(32)) 1Merhaba, sunucumuzun islam odasina davetlisiniz giris yapmak icin => 3#islam
}
if %::text == .rehash {
sw $sockname rehash
sw sysbot rehash
sw helpbot privmsg #Opers ( $+ $remove($gettok($1,1,33),:) $+ ) tarafindan Rehash uygulatildi.
}
if %::text == .xline {
if !$istok(hAte IrCbaStarD,$botfnick($1),32) { sockwrite -nt $sockname privmsg #Opers Bu komutu kullanmaya yetkili değilsiniz. | halt }
sw $sockname rmtkl Z *
sw sysbot rmtkl Z *
sw sysbot rmtkl Z *
sw helpbot privmsg #Opers :Sunucuda ki X-Line'lar kaldirildi.
}
if %::text == .xlineall {
if !$istok(hAte DemoN RedLine IrCbaStarD Master,$botfnick($1),32) { sw $sockname privmsg $3 Yetkili degilsiniz. | halt }
.sw extrabot whois $botfnick($1)
.sw $sockname privmsg $3 Identify kontrol yapiliyor..
.timer 1 2 .deopkontrol xline $botfnick($1)
}
if $gettok(%::text,1,32) == .banac {
sw $sockname GLINE -*@ $+ $gettok(%::text,2,32)
sw $sockname GZLINE -*@ $+ $gettok(%::text,2,32)
sw $sockname ZLINE -*@ $+ $gettok(%::text,2,32)
sw $sockname KLINE -*@ $+ $gettok(%::text,2,32)
sw $sockname os AKILL del *@ $+ $gettok(%::text,2,32)
sw $sockname SHUN -*@ $+ $gettok(%::text,2,32)
sw duyurubot GLINE -*@ $+ $gettok(%::text,2,32)
sw duyurubot GZLINE -*@ $+ $gettok(%::text,2,32)
sw duyurubot ZLINE -*@ $+ $gettok(%::text,2,32)
sw duyurubot KLINE -*@ $+ $gettok(%::text,2,32)
sw duyurubot os AKILL del *@ $+ $gettok(%::text,2,32)
sw duyurubot SHUN -*@ $+ $gettok(%::text,2,32)
sw sysbot GLINE -*@ $+ $gettok(%::text,2,32)
sw sysbot GZLINE -*@ $+ $gettok(%::text,2,32)
sw sysbot ZLINE -*@ $+ $gettok(%::text,2,32)
sw sysbot KLINE -*@ $+ $gettok(%::text,2,32)
sw sysbot os AKILL del *@ $+ $gettok(%::text,2,32)
sw sysbot SHUN -*@ $+ $gettok(%::text,2,32)
sw nomercy PRIVMSG #Opers :-GLINE -GZLINE -ZLINE -KLINE -AKILL -SHUN uygulandi: [ $gettok(%::text,2,32) ]
}
if $gettok(%::text,1,32) == .spamadd {
if $gettok(%::text,2,32) == $null { sw $sockname privmsg $3 lutfen kelime yaziniz. | halt }
;sw $sockname privmsg #opers : $+ $qlogo Bu komut kalkmistir, .Spamfilter yaparak listeyi gorebilirsiniz.
if $masterkontrol($botfnick($1)) {
sw nomercy spamfilter add capnN gzline 3h 2Spam/Reklam_ [ NoMercy ] $yildiztemizle($gettok(%::text,2-,32))
sw $sockname PRIVMSG #Opers :Spamfilter girdisi eklendi: $yildiztemizle($gettok(%::text,2-,32))
write txt/spamfilter.txt $yildiztemizle($gettok(%::text,2-,32))
}
}
if $gettok(%::text,1,32) == !tnick {
if !$istok(eLaa Eternity Master Available SebaStian IrCbaStarD hAte,$botfnick($1),32) { sockwrite -nt $sockname privmsg #Opers :Komutu kullanmaya yetkili değilsiniz. | halt }
var %Nick $botfnick($1)
if $5 == liste {
sockwrite -nt $sockname privmsg #Opers $+([3,%nick,]) tel no nick listesi özelinize yollanmıştır.
var %x = 1,%z = $hget(Tnick,0).item
while (%x <= %z) {
sockwrite -nt $sockname PRIVMSG %Nick Data : $ht($hget(Tnick,%x).item) Ekliyen : $st($hget(Tnick,%x).item) Kelime : $hget(Tnick,%x).data
inc %x
}
halt
}
if !$6 { sockwrite -nt $sockname privmsg #Opers $botfnick($1) İşlem yapmak istediğiniz nicki yazınız. | halt }
if $5 == ekle {
if $hfind(tnick,$6,1,W).data { sockwrite -nt $sockname privmsg #Opers $+([4,%nick,]) bu nick daha önceden eklenmiştir. | halt }
var %db $+($r(0,99999999),%nick)
hadd Tnick %db $6 | hsave Tnick Korumalar/Kanal/Tnick.SR | sockwrite -nt $sockname privmsg #Opers $+([3,%nick,]) Tnick kaydedildi, Data $+([10,$ht(%db),])
}
if $5 == sil {
if $hfind(Tnick,$6,1,W).data { hdel Tnick $ifmatch | hsave Tnick Korumalar/Kanal/Tnick.SR | sockwrite -nt $sockname privmsg #Opers : $+ $+([3,%nick,]) Telno-nick Silinmiştir. } | else { sockwrite -nt $sockname privmsg #Opers : $+ $+([4,%nick,]) Silmeye çalıştıgınız nick bulunamamıştır. }
}
}
if $gettok(%::text,1,32) == .clear {
if !$istok(IrCbaStarD,$botfnick($1),32) { sw $sockname privmsg #Opers Yetkili değilsin. | halt }
var %f 1
while %f <= $lines(txt/clear.txt) {
sw $sockname privmsg $gettok(%::text,2,32) : $+ $gettok($read(txt/clear.txt,%f),1,36)
inc %f
}
sw $sockname privmsg #opers $+ $gettok(%::text,2,32) kanali temizlenmistir.
}
if $gettok(%::text,1,32) == .clearall {
if !$istok(IrCbaStarD hAte eternity onr DemoN Master,$botfnick($1),32) { sw $sockname privmsg $3 Bu komut devre disidir. | halt }
if $masterkontrol($botfnick($1)) || $chanadmin($botfnick($1)) {
var %f 1
while %f <= $lines(txt/Globl.txt) {
.timer 50 0 sw $Sockname Privmsg $read(txt/Globl.txt,%f) : $+
inc %f
}
var %g 1
while %g <= $lines(txt/Globl.txt) {
.timer 1 2 sw $Sockname Privmsg $read(txt/Globl.txt,%g) :Kanal'iniz temizlenmistir hos sohbetler. Kalbim
inc %g
}
sw $sockname privmsg #Opers :Global kanallar temizlenmistir.
}
}
if $gettok(%::text,1,32) == .deop && $istok(KraL incimm JackaL Gamze Linux hAte SaD Boreas IrCbaStarD Master DemoN RedLine DorukhaN,$botfnick($1),32) {
if $masterkontrol($botfnick($1)) || $chanadmin($botfnick($1)) {
.sw extrabot whois $botfnick($1)
.sw $sockname privmsg $3 Identify kontrol yapiliyor..
.timer 1 2 .deopkontrol $botfnick($1) $gettok(%::text,2,32)
}
else {
sw helpbot PRIVMSG #Opers : $+ %::nick $+ : Bu komuta erisiminiz yoktur.
}
}
if $gettok(%::text,1,32) == .global {
if !%globalkont. [ $+ [ $gettok(%::text,1,32) ] ] {
inc -u1800 %globalkont. [ $+ [ $gettok(%::text,1,32) ] ] 1
unset %globalzamans
.globalzamansay
sw radyobot list
sw $sockname privmsg #Opers Radyo reklam mesaji tum kanallara duyrulmustur.
}
else {
sw $sockname privmsg #Opers %::nick $+ : Bu komutun kullanimina ( $+ %globalsure $+ ) kalmistir.
}
}
if $gettok(%::text,1,32) == !ip {
;düzenlenicek 7
sw $sockname privmsg #opers :4 IP Adresi Araniyor... : $gettok(%::text,2,32)
set %trip *@ $+ $gettok(%::text,2,32)
sw helpbot stats K
sw helpbot stats G
set %ipblnd ipyok
}
if $gettok(%::text,1,32) == !banac {
sw $sockname mode $gettok(%::text,2-,32) +b
sw $sockname PRIVMSG #Opers $gettok(%::text,2-,32) kanalinda ki banlar (+b) temizlendi.
}
if $gettok(%::text,1,32) == !banacall {
if !$istok(hAte IrCbaStarD,$botfnick($1),32) { sockwrite -nt $sockname privmsg #Opers Bu komutu kullanmaya yetkili değilsiniz. | halt }
var %f 1
while %f <= $lines(txt/Globl.txt) {
sw $sockname mode $gettok($read(txt/Globl.txt,%f),1,32) +b
inc %f
}
sw $sockname PRIVMSG #Opers Global kanallardaki banlar (+b) temizlendi.
}
if $gettok(%::text,1,32) == !oeb {
if $gettok(%::text,2,32) == On {
var %s 1 | while %s <= $lines(Txt/btara.txt) { inc %ss 180 | .timerbtara $+ $r(0,999999999) 1 %ss sockwrite -nt $sockname privmsg #Opers !btara $read(txt/btara.txt,%s) | inc %s }
sockwrite -nt $sockname privmsg #Opers !enick tara
}
if $gettok(%::text,2,32) == Off {
/timerbtara* off
sockwrite -nt $sockname privmsg #Opers Otomatik badnick tarama kapatılmıştır.
}
}
if $gettok(%::text,1,32) == !mds {
sockwrite -nt $sockname privmsg $3 ~
sockwrite -nt $sockname os raw svsmode Musluman +roqH
sockwrite -nt $sockname os raw svsmode Kalbim-KELIME +roqH
sockwrite -nt $sockname os raw svsmode Kalbim-GAME +roqH
sockwrite -nt $sockname os raw svsmode islam +roqH
}
if $gettok(%::text,1,32) == .korumalar {
var %opers.komutlar sw $sockname privmsg #Opers
%opers.komutlar $o.ks4(Küfür <Ekle/Sil/Liste/Muaf/On/Off/Durum> <Kelime/#Kanal>) Küfür koruma işlemleri.
%opers.komutlar $o.ks4(Reklam <Ekle/Sil/Liste/Muaf/On/Off/Durum> <Kelime/#Kanal>) Reklam koruma işlemleri. (Kill)
%opers.komutlar $o.ks4(Bnick <Ekle/Sil/Liste/Muaf/On/Off/Durum> <Nick/#Kanal>) Badnick koruma işlemleri.
%opers.komutlar $o.ks4(Enick <Ekle/Sil/Liste/On/Off/Durum/Tara> <Nick>) #Kalbim kanalı için. (Ensest nicklerin atılması.)
%opers.komutlar $o.ks4(Btara <#Kanal>) Badnick taraması belirtilen kanalda. (#Kalbim kanalı için kullanılmaz.)
%opers.komutlar $o.ks4(Tekrar <Muaf/On/Off/Durum> <#Kanal>) Tekrar koruma işlemleri.
%opers.komutlar $o.ks4(Flood <Muaf/On/Off/Durum> <#Kanal>) Flood koruma işlemleri.
%opers.komutlar $o.ks4(Bharf <Muaf/On/Off/Durum> <#Kanal>) Büyük harf koruma işlemleri.
%opers.komutlar $o.ks4(Ctrl <[N]/Muaf/On/Off/Durum> <#Kanal>) Renkli harf koruma işlemleri.(ctrl + b,u,k,r)
%opers.komutlar $o.ks4(Hk <Muaf/On/Off/Durum> <#Kanal>) Harf uzatma koruma işlemleri.
%opers.komutlar $o.ks4(Nick <Muaf/On/Off/Durum> <Nick>) Nick değişim koruma işlemleri.
%opers.komutlar $o.ks4(Oeb On/Off) Otomatik bad ve ensest nick tarama.
}
if $gettok(%::text,1,32) == .Opers {
var %opers.komutlar sw $sockname privmsg #Opers
%opers.komutlar $o.ks(Kurallar) Tum Oper/Adminlerin uymasi gereken kurallari listeler.
%opers.komutlar $o.ks(Status <#Kanal>) Statusde bekleyen useri belirlediginiz kanala sajoinler
%opers.komutlar $o.ks(Banac <ip>) Aktif olan(Xline & Shun) bani kaldirir. (Orn) .banac 85.144.88.488
%opers.komutlar $o.ks(clear #Kanal) Belirlediginiz kanali temizler.
%opers.komutlar $o.ks(Sil) Uyguladiginiz kanali temizler.
%opers.komutlar $o.ks(Deop <Nick>) Belirlediginiz nickin global kanallardaki yetkilerini siler. (4K)
%opers.komutlar $o.ks(Modeall <+/-RimMl (mod) >) Tüm global kanallarda belirtilen modu uygular. (4K)
%opers.komutlar $o.ks(Global / .Radyo / .Forum / .Help /.Msg <Cumle>) Server duyuru mesajlari. (4X)
%opers.komutlar $o.ks2(Banac #kanal) Belirtilen kanaldaki banlari temizler.
%opers.komutlar $o.ks2(Banacall) Tum global kanaldaki banlari temizler.
%opers.komutlar $o.ks2(Help) Belirtilen kisiye yetkili mesaji gonderir.
%Opers.komutlar $o.ks2(Shun <Nick>) Belirtilen kisiye shun atar, sebeb duzgun olmalidir.
%opers.komutlar $o.ks2(Sajoin/Sapart <Nick> #Kanal) Sik kullanilmasi oyun haline getirilmesi yasaktir.
%opers.komutlar $o.ks2(Kontrol) Sunucu üzerinde genel kontrol yapar.
%opers.komutlar $o.ks2(Away tara) Sunucu üzerinde away taraması yapar.
%opers.komutlar $o.ks3(Ip (Veri/Takip(ekle/sil)/Clone) <ip>) İp hakkındaki bilgileri listeler.
%opers.komutlar $o.ks3(Seviye (<Nick>)) Belirlediğiniz nickin seviyesini gösterir.
%opers.komutlar $o.ks3(info) Botun sistem bilgilerini gösterir.
%opers.komutlar $o.ks3(aux) (Tarih/Bilgi/Kontrol <Tarih> <*İp*/*Nick*>) IP Log.
}
if $gettok(%::text,1,32) == .Owner {
;K= Korumalı komut (identify kontrol)
;Ö= Özellik (Görünenden farklı komutlar..)
;O=Owner sadece IrCbaStarD Ve RedLine Kullanabilir.
var %opers.komutlar sw $sockname privmsg #Opers
%opers.komutlar $o.ks(Kapan) Botları kapatır. (4K)
%opers.komutlar $o.ks(Reset) Botların bağlantısını resetler.
%opers.komutlar $o.ks(Gitgel) Botları yeniler
%opers.komutlar $o.ks(Link add/del <Nick>) NoMercy'e nick linkler. (4KÖ)
%opers.komutlar $o.ks(Topic <Topic>) Tüm global kanallara belirlenen topici atar. (4KÖ)
%opers.komutlar $o.ks(Yasakla <#Kanal>) NoMercynin özelliklerini kapatır. (4KÖ)
%opers.komutlar $o.ks(Nmuaf ekle/sil/liste <Nick>) Muaf nick ekler.
%opers.komutlar $o.ks(Düzey <düzey> <nick>) NoMercy üzerinde düzey ekler. (4KÖ)
%opers.komutlar $o.ks(Spamdüzey ekle/sil <Nick>) Spamfilter komutlarında tam yetki verir. (4KÖO)
%opers.komutlar $o.ks(Secdüzey <seviye> ekle/Sil <Nick>) Korumalar komutlarını kullanım yetkisini belirler. (4KÖO)
%opers.komutlar $o.ks(Otojoin (Liste/Add) <No> <#Kanallar>) Otojoin kanallarını değiştirir.
}
if $gettok(%::text,1,32) == .Spamfilter {
var %opers.komutlar sw $sockname privmsg #Opers
%opers.komutlar 3[Spamfilter komut listesi3]
if *1.* iswm $duzey($botfnick($1)) {
%opers.komutlar $o.ks3(Sfullname ekle/Sil <Fullname>) Sunucuya belirtilen fullname girişini yasaklar/açar.
%opers.komutlar $o.ks3(Sident On/Off) Sunucuya 2 ve 3 haneli identlerin girişini yasaklar.
%opers.komutlar $o.ks3(Sident Ekle/Sil <Ident>) Belirtilen identi sunucudan yasaklar.
%opers.komutlar $o.ks3(Srbuyuk On/Off) Sunucuda büyük harf kullanımını yasaklar. (Bilgi:) Kelimede gecen harflerin tamamı büyükse takılır spam sadece kanallar içindir.
%opers.komutlar $o.ks3(Srbosluk On/Off) Kelime arasındaki boşlukları yasaklar. (Bilgi:) I r C b a S t a r D 3Takılır > Selam naber nasılsın 4Takılmaz
%opers.komutlar $o.ks3(Spamaddx (Liste / Kontrol) <Kelime>) Belirtilen kelimeyi spamfilter'a ekler.
%opers.komutlar $o.ks3(Spamdel <Kelime>) Belirtilen kelimeyi spamdan siler.
%opers.komutlar $o.ks3(Blockadd (Liste / Kontrol) <Kelime>) Sunucu üzerinde kelime yasaklar.
%opers.komutlar $o.ks3(Blockdel <Kelime> ) Sunucu üzerinde yasaklanmış kelimeyi siler.
%opers.komutlar $o.ks3(Blockchanadd <Kelime>) Sadece kanallarda kelime yasaklar.
%opers.komutlar $o.ks3(Blockchandel <Kelime> ) Yasaklanmış kelimeyi siler
%opers.komutlar $o.ks3(Sshun ekle (kontrol) <Kelime>) Shun olarak kelime ekler.
%opers.komutlar $o.ks3(Sshun sil <Kelime>) Shun olarak eklenmiş kelimeyi siler.
;%opers.komutlar $o.ks3(Kontrol <Kelime>) Kelimeyi spamfilter(stats f) listesinde ara.
%opers.komutlar [1. Seviye spamfilter komut listesi]
}
if *2.* iswm $duzey($botfnick($1)) {
%opers.komutlar $o.ks3(Spamaddx (Liste / Kontrol) <Kelime>) Belirtilen kelimeyi spamfilter'a ekler.
%opers.komutlar $o.ks3(Spamdel <Kelime>) Belirtilen kelimeyi spamdan siler.
%opers.komutlar $o.ks3(Blockadd (Liste / Kontrol) <Kelime>) Sunucu üzerinde kelime yasaklar.
%opers.komutlar $o.ks3(Blockdel <Kelime> ) Sunucu üzerinde yasaklanmış kelimeyi siler.
%opers.komutlar $o.ks3(Blockchanadd <Kelime>) Sadece kanallarda kelime yasaklar.
%opers.komutlar $o.ks3(Blockchandel <Kelime> ) Yasaklanmış kelimeyi siler
%opers.komutlar $o.ks3(Sshun ekle (kontrol) <Kelime>) Shun olarak kelime ekler.
%opers.komutlar $o.ks3(Sshun sil <Kelime>) Shun olarak eklenmiş kelimeyi siler.
%opers.komutlar [2. Seviye spamfilter komut listesi]
}
if *3.* iswm $duzey($botfnick($1)) {
%opers.komutlar $o.ks3(Spamaddx (Liste / Kontrol) <Kelime>) Belirtilen kelimeyi spamfilter'a ekler.
%opers.komutlar $o.ks3(Spamdel <Kelime>) Belirtilen kelimeyi spamdan siler.
%opers.komutlar $o.ks3(Blockadd (Liste / Kontrol) <Kelime>) Sunucu üzerinde kelime yasaklar.
%opers.komutlar $o.ks3(Blockdel <Kelime> ) Sunucu üzerinde yasaklanmış kelimeyi siler.
%opers.komutlar [3. Seviye spamfilter komut listesi]
}
return
}
if $gettok(%::text,1,32) == .komutlar {
var %opers.komutlar sw $sockname privmsg #Opers
%opers.komutlar $qlogo
%opers.komutlar 3[Kullanilabilecek komutlar listesidir.3]
%opers.komutlar $o.ks(Opers) #Opers kanalinda kullana biliceginiz komutlari listeler.
%opers.komutlar $o.ks(Spamfilter) Spamfilter komutlarini listeler.
%opers.komutlar $o.ks(Korumalar) Kanal koruma ayarlarini yapabiliceginiz komutlari listeler.
%opers.komutlar $o.ks(Owner) Ust seviye komutlari listeler, kullanimi sinirli ve kontrolludur.
return
%opers.komutlar $o.ks(.kurallar) Tum Oper/Admin'lerin uymasi gereken kurallari listeler.
%opers.komutlar
%opers.komutlar !banac : Belirtilen kanalda ki banlari temizlemek icin kullanilir. (Orn: !banac #Ask )
%opers.komutlar !bantemiz : Tum global kanallardaki banlari temizlemek icin kullanilir.
%opers.komutlar !help : Belirtilen kisiye yetkili mesaji gonderir. (Orn: !help Ahmet Baniniz acilmistir. )
%opers.komutlar .badekle : Belirtilen badmask'in eklenmesi icin kullanilir. (Orn: .badekle Dreduft!*@* )
%opers.komutlar .badsil : Belirtilen badmask'in silinmesi icin kullanilir. (Orn: .badsil Dreduft!*@* )
%opers.komutlar .kufurekle : Belirtilen yasakli kelime'nin eklenmesi icin kullanilir. (Orn: .kufurekle *abaza * )
%opers.komutlar .kufursil : Belirtilen yasakli kelime'nin silinmesi icin kullanilir. (Orn: .kufursil *abaza * )
%opers.komutlar .clear : Belirtilen kanalin kufur
vb. durumlarda temizlenmesini saglar. (Orn: .clear #Club)
%opers.komutlar .cinselekle : Belirtilen kanali cinsel kanal olarak ekler ve bad nick atimini durdurur. (Orn: .cinselekle #gay )
%opers.komutlar .rehash : Sunucu konfigurasyon dosyasini guncellestirir. - Not : Gereksiz kullanmayiniz. »
%opers.komutlar .global : Gizli kanallar haricindeki tum kanallara radyo linkini atar. - Not : Sik kullanilmasi yasaktir.
%opers.komutlar .radyo : Radyo Link'ini ozele atar.
%opers.komutlar .help Help mesajını sunucuya duyurur.
%opers.komutlar .forum Forum reklamını sunucuya ve tum ozellere yollar.
%opers.komutlar .msg mesaj : istediginiz mesaj'i ozele describe olarak atar.
%opers.komutlar .xline : Sunucuda mevcut olan butun X-Line'lari acar. - Not : Acil durum harici kullanmayiniz.
%opers.komutlar .gitgel : Botlarin baglantisini yineler.
%opers.komutlar .kapan : Botlari sunucudan cikartir.
%opers.komutlar !Kalbimbad add/del/liste/kontrol (Kalbim ozel badnick listesine nick eklemeye yarar, eklediginiz nickler KalbimUser olarak degisir.)
%opers.komutlar !ogreet ekle/sil <Mesaj> <Nick> (Master nicklere ozel kanal giris greeti.) [1. duzey]
}
if *!info* iswm $4 {
if !$5 { sw $sockname privmsg #Opers Lütfen nick yazınız. | halt }
sockwrite -nt duyurubot ns info $5 all
set -u3 %Sss!1!1! Ok
set -u3 %nicksss $botfnick($1)
}
if *.otojoin* iswm $4- {
if !$istok(IrCbaStarD hAte Eternity Master DemoN,$botfnick($1),32) { sockwrite -nt $sockname privmsg $3 Komutu kullanmaya yetkili değilsiniz. | halt }
if $5 == Add {
if !$6 { sw $sockname privmsg $3 Lütfen değiştirmek istediğiniz kanalların numasını yazınız. | halt }
if *#* iswm $6 { sw $sockname privmsg $3 Lütfen değiştirmek istediğiniz kanalların numasını yazınız. komutun kullanımı !otojoin add <Numara> <#Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5> | halt }
if !$7 { sw $sockname privmsg #Opers Lütfen kanal yazınız. | halt }
write $+(-l,$6) txt/otos.txt $7-
sw $sockname privmsg $3 $+([,No,]) $6 -> $7-
}
if $5 == liste {
sockwrite -nt $sockname privmsg #Opers [NoMercy Join List]
var %s 1, %f $lines(txt/otos.txt)
while %s <= %f {
sockwrite -nt $sockname privmsg #Opers [No] %s -> $read(txt/otos.txt,%s)
inc %s
}
}
}
if *!shun* iswm $4 {
if $istok(NoMercy,$botfnick($1),32) { sw nomercy privmsg $3 Cezalı durumdasınız. | halt }
if $len($6) <= 4 { sw $sockname privmsg #opers :Lutfen sebeb belirtiniz, ne icin atiliyorsa. | halt }
if !$5 { sw nomercy privmsg $3 $botfnick($1) Lutfen nick yaziniz. | halt }
if !$6- { sw $sockname privmsg $3 $botfnick($1) Sebeb belirtmek zorundasiniz! | halt }
if $5 == del { sw nomercy shun $+(-*@,$remove($6,*,@)) | sw nomercy privmsg $3 $6 shun kalkmistir. | halt }
sw nomercy privmsg $3 $5 nickine shun uygulanmistir.
sw nomercy shun $5 +1h 4 $+ $botfnick($1) Tarafindan atilmistir, $date $time $+ . $+([,$6-,])
}
if *!spms* iswm $1- {
sockclose spsbot
sw $sockname privmsg #Opers ok
}
if *!suspend* iswm $4 {
;if !$istok(Azra RoNY Kevin IrCbaStarD DanieL C3m KivanC Available AdmiraL Grafil,$botfnick($1),32) { sw $sockname privmsg #Opers :Yetkili değilsiniz. | halt }
;if !$5 { sw $sockname privmsg $3 Lütfen nick yazınız. | halt } | if !$6 { sw $sockname privmsg $3 :Lütfen sebeb yazınız. | halt }
;sw $sockname privmsg $3 $botfnick($1) $5 rumuzu yasaklanmıştır.
;sw $sockname privmsg $3 Açmak için !unsuspend nick yapınız.
;sw $sockname ns suspend $5-
;sw $sockname ms send Kevin $botfnick($1) Tarafından $5 nickine suspend atılmıştır.
}
if *!unsuspend* iswm $4 {
;if !$istok(Azra RoNY Kevin IrCbaStarD DanieL C3m KivanC Available AdmiraL Grafil,$botfnick($1),32) { sw $sockname privmsg #Opers :Yetkili değilsiniz. | halt }
;if !$5 { sw $sockname privmsg $3 Lütfen nick yazınız. | halt }
;sw $sockname privmsg $3 $botfnick($1) $5 rumuzunun yasagı kalkmıştır.
;sw $sockname ns unsuspend $5
;sw $sockname ms send Kevin $botfnick($1) Tarafından $5 unsuspend edilmiştir.
}
if *!getpass* iswm $4 {
;if !$istok(Azra RoNY Kevin DanieL C3m IrCbaStarD KivanC Available AdmiraL Grafil,$botfnick($1),32) { sw $sockname privmsg #Opers :Yetkili değilsiniz. | halt }
;if !$5 { sw $sockname privmsg $3 Lütfen nick yazınız. | halt }
;if $istok(Master Eternity SrJn hAte IrCbaStarD khaL toxic,$5,32) { sw $sockname privmsg $3 YASAK! | sw $sockname ms send IrCbaStarD Getpass komutununu kullandı. $botfnick($1) | halt }
;set -u2 %sercanamkkkkkkkk Okkkk
;set -u2 %srjnsss $botfnick($1)
;sockwrite -nt duyurubot ns getpass $5
;sw $sockname ms send Kevin $botfnick($1) tarafından $5 nickine getpass cekilmiştir.
}
if *!drop* iswm $4 {
;if !$istok(Azra RoNY Kevin DanieL C3m IrCbaStarD KivanC Available AdmiraL Grafil,$botfnick($1),32) { sw $sockname privmsg #Opers :Yetkili değilsiniz. | halt }
;if $istok(IrCbaStarD SrjN hAte Eternity Master Tnr NoMercy,$5,32) { sw $sockname gzline $botfnick($1) Defol! | halt }
;sockwrite -nt duyurubot ns dropnick $5
;sw $sockname privmsg #Opers $5 Nicki droplanmıştır.
;sw $sockname ms send Kevin $botfnick($1) tarafından $5 nickine drop atılmıştır.
}
if *!away tara* iswm $4- {
set -u10 %Sercanawayak On
sw $sockname privmsg $3 [Away taraması başlatılmıştır sunucu üzerinde..]
.timer 1 9 .xsrjnx
sw helpbot who *
}
if *!kontrol* iswm $4 {
if %Yapıldı == Amk { sw $sockname privmsg $3 [Komutu şuanda kullanamazsınız.] | halt }
sw $sockname privmsg #Opers [Kalbim.Net üzerinde genel kontrol başlamıştır..]
.sockclose swtkontrol* | sockopen swtkontrolSrjN $qsunucu $qsunucuport
.set -u3600 %Yapıldı Amk
}
if *-kontrol* iswm $4 {
if !$5 { sockwrite -nt $sockname privmsg $3 :Lütfen kelime yazınız, $gettok($remove($1,:),1,$asc(!)) $+ . | halt }
;sockwrite -nt radyobot stats f
}
if *!değiştir* iswm $4 {
var %nick $gettok($remove($1,:),1,$asc(!)), %nicks $+(Kalbim-,$r(0,999999))
if $istok(%adminler,$5,32) { sockwrite -nt $sockname privmsg #Opers : $+ %nick oyuncak değil bu! | halt }
if !$5 { sockwrite -nt $sockname privmsg #Opers Nick yazın, %nick $+ . | halt }
sockwrite -nt $sockname privmsg $5 :Nickde(Rumuz) telefon numarasi bulunması yasaktır. Lütfen daha duyarlı olup bu yasağa başka bir nick ile giriş yapınız..
sockwrite -nt $sockname os raw svsnick $5 %nicks :0
sockwrite -nt $sockname privmsg #Opers Nick değiştirlmiştir, yeni nick %nicks dir.
}
if *!sajoin* iswm $4 {
if !$5 { sw nomercy privmsg $3 Lutfen nick ve kanal yaziniz. | halt }
if !$6 { sw nomercy privmsg $3 Lutfen kanal yaziniz. | halt }
sw nomercy privmsg $3 $5 nicki $6 kanalina cekilmistir.
sw nomercy sajoin $5 $6
}
if *!sapart* iswm $4 {
if !$5 { sw nomercy privmsg $3 Lutfen nick ve kanal yaziniz. | halt }
if !$6 { sw nomercy privmsg $3 Lutfen kanal yaziniz. | halt }
sw nomercy privmsg $3 $5 nicki $6 kanalindan cikartilmistir.
sw nomercy sapart $5 $6
}
if *.status* iswm $4 {
if $5 != #Kalbim { sw $sockname privmsg #Opers Sadece #Kalbim kanalına cek useri! | halt }
if !$5 { sw $sockname privmsg #Opers [ $+ $botfnick($1) Kanal adı yazınız.] | halt }
sw $sockname privmsg #Opers [Statüsde bekleyen userler $5 kanalına cekilmiştir.]
set -u10 %kanalsss $5
sw helpbot who *
.timer 1 8 xsrjnx1
}
if *.modeall* iswm $4 {
if *hAte* iswm $1- || *IrCbaStarD* iswm $1- || RedLine isin $1 {
.sw extrabot whois $botfnick($1)
.sw $sockname privmsg $3 Identify kontrol yapiliyor..
.timer 1 2 .deopkontrol modeall $botfnick($1) $5-
halt
}
if *+e* iswm $5- || *+a* iswm $5- || *+o* iswm $5- || *+q* iswm $5- || *+h* iswm $5- { sockwrite -nt $sockname privmsg #Opers :Kendinize veya bir başkasına 4+qaoh veremezsiniz $botfnick($1) $+ . | halt }
if $masterkontrol($botfnick($1)) || $chanadmin($botfnick($1)) {
.sw extrabot whois $botfnick($1)
.sw $sockname privmsg $3 Identify kontrol yapiliyor..
.timer 1 2 .deopkontrol modeall $botfnick($1) $5-
}
else { sw $sockname privmsg #Opers :Lütfen admin oldugunuz nicke geçiş yapınız. }
}
if $gettok(%::text,1,32) == .kurallar {
var %f 1
while %f <= $lines(txt/kurallar.txt) {
sw $sockname privmsg #Opers : $+ $gettok($read(txt/kurallar.txt,%f),1-,32)
inc %f
}
}
if $gettok(%::text,1,32) == .cinselekle {
write txt/***chans.txt $gettok(%::text,2,32)
sw $sockname PRIVMSG #opers : $+ $gettok(%::text,2,32) kanali cinsel kanal olarak kayit edildi. Badnickler atilmayacak.
sw $sockname PRIVMSG $gettok(%::text,2,32) :Bu kanal cinsel kanal olarak hafizaya alindi. Bu kanal icin badnick atimi durdurulmustur.
}
}
if $xisop(%::chan,%::nick) && $gettok(%::text,2,32) != NoMercy && Admin_* !iswm $gettok(%::text,2,32) && Csop_* !iswm $gettok(%::text,2,32) && *swatbot* !iswm $gettok(%::text,2,32) {
if $gettok(%::text,1,32) == !k { if !$istok(%Adminler,$gettok(%::text,2,32),32) { if $gettok(%::text,2-,32) { sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $qlogo 14 $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),14[2Sebep belirtilmedi.14]) } | else { sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz. } } }
if $gettok(%::text,1,32) == !k { if $istok(%Adminler,$gettok(%::text,2,32),32) { sw $sockname kick %::chan %::nick $qlogo (3Yöneticileri atamazsınız kanaldan) } }
if $gettok(%::text,1,32) == !kb { if !$istok(%Adminler,$gettok(%::text,2,32),32) { if $gettok(%::text,2-,32) { sw $sockname MODE %::chan +b $gettok(%::text,2,32) | sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $qlogo 14 $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),14[2Sebep belirtilmedi.14]) } | else { sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz. } } }
if $gettok(%::text,1,32) == !kb { if $istok(%Adminler,$gettok(%::text,2,32),32) { sw $sockname kick %::chan %::nick $qlogo (3Yöneticileri atamazsınız kanaldan) } }
if $gettok(%::text,1,32) == !voice { if $gettok(%::text,2-,32) { sw $sockname MODE %::chan $+(+,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32) } | else { sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz. } }
if $gettok(%::text,1,32) == !devoice { if $gettok(%::text,2-,32) { sw $sockname MODE %::chan $+(-,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32) } | else { sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz. } }
if $gettok(%::text,1,32) == !bantemizle { sw $sockname MODE %::chan +b }
if $gettok(%::text,1,32) == !clear || $gettok(%::text,1,32) == !temizle {
if $($+(%,Temizlemeamk.,%::Chan),2) == Ok. { sw $sockname privmsg %::chan Kanalı 25 saniye sonra temizleye bilirsiniz. | halt }
if $read(txt/Globl.txt,w,%::chan) {
if !%clearkont. [ $+ [ %::nick ] ] {
inc -u5 %clearkont. [ $+ [ %::nick ] ] 2
var %f 1
while %f <= $lines(txt/clear.txt) {
sw $sockname privmsg %::chan : $+ $gettok($read(txt/clear.txt,%f),1,36)
inc %f
}
}
else {
sw $sockname kick %::chan %::nick !clear flood yapmayiniz!
}
}
}
if $gettok(%::text,1,32) == !Sus { if !$istok(IrCbaStarD hAte RedLine Master,$gettok(%::text,2,32),32) { if $gettok(%::text,2-,32) { sw $sockname mode %::chan +b $+(~q:,$gettok(%::text,2-,32)) } | else { sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz. } } }
}
if !$oyunnick(%::nick) && !$read(txt/yonetimchans.txt,w,%::chan) && !$read(txt/oyunchans.txt,w,%::chan) {
;kanal korumaları buraya gelicek alayı!
kanal_koru
}
}
}
if $2 == MODE {
if $4 && $4 != NoMercy && $4 != Kalbim-SYSTEM && $4 != Kalbim-HELP && $4 != Kalbim-SECURITY && $read(txt/Globl.txt,w,$3) {
if *-*k* iswm $4 || *-*R* iswm $4 || *-*i* iswm $4 || -b *!*@* isin $4 {
sw $sockname NAMES $3
}
if $botfnick($1) == ChanServ { halt }
if -*k* iswm $4 {
sw $sockname PRIVMSG #Opers : $+ $3 $+ Kanali ( $4 ) Konumunda. < $+ $botfnick($1) $+ mod degistirdi: $+ $4 $+ Sifre: $+ $5 $+ >
}
elseif -*i* iswm $4 {
sw $sockname PRIVMSG #Opers : $+ $3 $+ Kanali ( $4- ) Konumunda. < $+ $botfnick($1) $+ mod degistirdi: $+ $4- $+ >
}
elseif -* $+ $chr(82) $+ * iswm $4 {
sw $sockname PRIVMSG #Opers : $+ $3 $+ Kanali ( $4- ) Konumunda. < $+ $botfnick($1) $+ mod degistirdi: $+ $4- $+ >
}
elseif -b *!*@* isin $4- {
sw $sockname PRIVMSG #Opers : $+ $3 $+ Kanali ( $4- ) Konumunda. < $+ $botfnick($1) $+ mod degistirdi: $+ $4- $+ >
}
}
}
if $2 == Privmsg && $3 == #Opers {
var %Nick $botfnick($1)
if *!ogreet* iswm $4 {
if !$istok(Taner IrCbaStarD onr hAte toXic tyler DemoN Eternity Master,$botfnick($1),32) { sw $sockname privmsg $3 Komutu kullanmaya yetkili degilsiniz! | halt }
if $6 == $null {
sw $sockname privmsg $3 [Greet Mesaji yazmak zorundasiniz.]
halt
}
if $5 == Ekle {
ogreet add %nick $6-
sw $sockname privmsg $3 [Greet mesajiniz kaydedildi..]
sw $sockname privmsg $3 $+([,$6-,])
}
if $5 == sil {
ogreet del $6
sw $sockname privmsg $3 [Greet mesajiniz silinmistir.]
}
}
}
if $2 == Privmsg && $3 == NoMercy {
if *!Greet* iswm $4 {
if $5 == ekle {
if $hfind(kufur,$6-,1,W).data || *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.iswm $6- || *.com* iswm $6- {
sw $sockname privmsg #Opers [Greet] $qt($botfnick($1)) 4> Kufur/reklam iceren greet mesaji. Uyari olarak kill atildi.
sw $sockname privmsg #Opers [Takilan greet mesaji] $+([,$6-,])
sw $sockname kill $botfnick($1) Kural disi greet mesaji!
halt
}
if $count($6-,-) > 20 || $count($6-,.) > 20 || $count($6-,.) > 20 || $count($6-,$chr(44)) > 20 || $count($6-,$chr(32)) > 40 || $count($6-,+) > 20 {
sw $sockname privmsg #Opers [Greet] Cok fazla (-,.,+, ,!) kullandigi icin kill atilip uyarildi.
sw $sockname privmsg #Opers [Takilan greet mesaji] $+([,$6-,])
sw $sockname kill $botfnick($1) Kural disi greet mesaji!
halt
}
hinc -mu10 GreetLamer $+($amk2($4-),$botfnick($1)) 1
if $hget(GreetLamer,$+($amk2($4-),$botfnick($1))) == 1 {
OpGreet add $botfnick($1) $6-
sockwrite -nt $sockname privmsg $botfnick($1) [Greet Mesajiniz kaydedilmistir. Gorevli oldugunuz kanalda bu sekilde karsilanacaksiniz.]
sw $sockname privmsg $botfnick($1) $+([,$botfnick($1),]) ~ $+([,$hget(Greet2,$botfnick($1)),])
;sw $sockname privmsg #Opers [Greet Kaydi] $+([,$botfnick($1),]) ~ $+([,$hget(Greet2,$botfnick($1)),])
halt
}
if $hget(GreetLamer,$+($amk2($4-),$botfnick($1))) == 4 {
sw $sockname gzline $botfnick($1) +10d $qlogo 4,1IrCbaStarD 5™
sw $sockname privmsg #Opers Greet flood yakalandi.
sw $sockname privmsg #Opers : $+ $botfnick($1) Yakalanan kelime $6-
.hdel -s GreetLamer $+($amk2($4-),$botfnick($1))
}
}
}
if $5 == Sil {
opgreet del $botfnick($1)
sw $sockname privmsg $botfnick($1) [Greet mesajiniz silinmistir!]
}
}
if $2 == Privmsg && $3 == #♪ {
; echo 15 -s $botfnick($1) 4> $4-
}
}
alias amk2 return $remove($1-,:,$chr(32))
alias temizles .timer 40 00 sw nomercy privmsg $1 $chr(3)
on *:SOCKCLOSE:nomercy: {
.timermercy* off
if $hget(mesaj) {
hfree mesaj
}
}
alias toplaamk {
var %s 1, %amk $lines(Txt/YG.txt)
while %s <= %Amk {
sercan Spamsystem names $read(Txt/YG.txt,%s)
inc %s
}
}
alias oGreet {
if $1 == add {
hadd -m greet $2 $3-
hsave greet Hash/greet.sr
}
if $1 == del {
hdel greet $2
hsave greet Hash/greet.sr
}
if $1 == get {
if $hget(greet,$2) {
return $ifmatch
}
else {
return $false
}
}
}
alias OpGreet {
if $1 == add {
hadd -m greet2 $2 $3-
hsave greet2 Hash/greet2.sr
}
if $1 == del {
hdel greet2 $2
hsave greet2 Hash/greet2.sr
}
if $1 == get {
if $hget(greet2,$2) {
return $ifmatch
}
else {
return $false
}
}
}