IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

10Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2013, 05:37   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Nomercy mIRC




Kolay gelsin herkese. Çok oluyorum biliyorum ama sizden yine bir ricam olucak. Ricam tabi uygunsa, Nomercy yada benzeri bir koruma botunun mIRC versiyonunu paylaşmanız olucak. Yani oper passı olmucak botta, sadece belirteceğim kanala 999 seviyeden ekliyeceğim. Oper/admin flaglarına ihtiyaç duymadan yapabileceği herşeyi yapıcak. Elinde olan varsa beni yönlendirebilirmi lütfen : (

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 11 Temmuz 2013, 17:21   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




Nomercy vs diğer koruma botları zaten forumda mevcut, arama kısmını kullanırsan yardımcı olacaktır. Oper girecek satırlarını başına ";" koyarsın oper girmez.

__________________
IRC ve Sanal bitmiştir.
 
Alıntı ile Cevapla

Alt 11 Temmuz 2013, 20:15   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




Hocam ben hiç nomercy yada benzeri koruma botu kullanmadım. Dediğiniz satırlar hangi dosyanın içerisinde biraz açıklarmısınız rica etsem

 
Alıntı ile Cevapla

Alt 11 Temmuz 2013, 21:07   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




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

 
Alıntı ile Cevapla

Alt 11 Temmuz 2013, 21:25   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




kardeşim..

miRC Acin ve ALT + R ile Script ditörüne giriş yapın Aramak istediğiniz kelimeyi CTRL + F ile Aratin.. Sonucu ulaşacaksınız..

ALT + R Acilmiyorsa Acilan bir script exesini dosyaya at öyle acmayi dene

 
Alıntı ile Cevapla

Alt 12 Temmuz 2013, 07:35   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




hocam socks değilde normal sokucam ben botu onun için

on *:start: {
unset %*
hmake kufur
hmake kanalz
hmake badnick
hmake kickno
hload kufur kufur.mercy
hload kanalz kanalz.mercy
hload badnick badnick.mercy
hload kickno kickno.mercy
nomercy
.timer 0 5 nomercy
echo -s 4NoMercy 12v2.0: 2 Sizler için 2.0 versiyonu düzeltilmiş ve paylaşıma açılmıştır.
echo -s 4NoMercy 12v2.0: 2 Yapmanız gerekenleri yaptıktan sonra başka birşey yapmanıza gerek kalmayacaktır.
echo -s 4NoMercy 12v2.0: 2 almanızı sağlayacaktır.
echo -s 4NoMercy 12v2.0: 2 Powered by > 12W2ingma12N .
write -c haber.txt
}

alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}

alias botfnick {
return $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}

alias kickno {
return 10-{5Kickledigim04 $hget(kickno,kick) $+ . 5kisisiniz10}-
}

alias kicksay {
hinc kickno kick
hsave kickno kickno.mercy
}

alias nomercy {
if !$sock(nomercy) && !$sock(nm) && !$sock(nm2) && !$sock(nm3) && !$sock(nm4) {
if $hget(mesaj) {
hfree mesaj
hmake mesaj
}
unset %*
.timermercy* off
set %destekgiris $chr(73) $+ $chr(82) $+ $chr(67) $+ . $+ $chr(83) $+ $chr(73) $+ $chr(66) $+ $chr(69) $+ $chr(82) $+ $chr(83) $+ . $+ $chr(78) $+ $chr(69) $+ $chr(84)
}
if !$sock(nomercy) {
sockopen nomercy 127.0.0.1 6667
}
if !$sock(nm) {
sockopen nm 127.0.0.1 6667
}
if !$sock(nm2) {
sockopen nm2 127.0.0.1 6667
}
if !$sock(nm3) {
sockopen nm3 127.0.0.1 6667
}
if !$sock(nm4) {
sockopen nm4 84.16.243.156 6667
}
if !$sock(chancontrolX) {
sockopen chancontrolX 127.0.0.1 6667
}
if !$sock(chancontrolZ) {
sockopen chancontrolZ 127.0.0.1 6667
}
if !$sock(chancontrolL) {
sockopen chancontrolL 127.0.0.1 6667
}
if !$sock(chancontrolA) {
sockopen chancontrolA 127.0.0.1 6667
}
if !$sock(helpbot) {
sockopen helpbot 127.0.0.1 6667
}
if !$sock(irobot) {
sockopen irobot 127.0.0.1 6667
}
if !$sock(user) {
sockopen user 127.0.0.1 6667
}
}


; Mesajkontrol teknigini dunyada ilk defa biz kullaniyoruz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

; Mantiksal olarak, sinirsiz sayida trojan bot bir reklami max 3 kez yapabiliyor
alias mesajkontrol {
if $2- && $len($2-) >= 20 {
%2 = $replace($strip($2-),NoMercy,$+(.,$chr(42)))
%2 = $bulcikar(%2)
if a == a {
var %h $hash(%2,32)
set -u2000 % [ $+ [ %h ] ] %2
if !$istok($hget(mesaj,%h),$1,126) {
hadd -m mesaj %h $iif($hget(mesaj,%h),$ifmatch $+ ~,~) $+ $1
if !$timer($+(hfree,%h)) {
$+(.timerhfree,%h) 1 1800 hdel mesaj %h
}
}
if $numtok($hget(mesaj,%h),126) >= 3 && $yildiztemizle(% [ $+ [ %h ] ]) != mIRCTR {
sw nomercy spamfilter add apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $yildiztemizle(% [ $+ [ %h ] ])
sw nomercy PRIVMSG #Opers
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ot mesaji spamfilter (gzline) edildi: $yildiztemizle(% [ $+ [ %h ] ])
killnick $1
; sw nomercy KILL $1 Away mesaji ile spam tespit edildi.
if $hget(mesaj,%h) {
hdel mesaj %h
}
unset % [ $+ [ %h ] ]
}
}
}
}

alias botkontrol {
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org selam
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org Bu mesaj sunucumuzda izinsiz reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap yazmayiniz, karsilik alamazsiniz.
sw nomercy PRIVMSG $chr(36) $+ *.eu.mirctr.org selam
sw nomercy PRIVMSG $chr(36) $+ *.eu.mirctr.org Bu mesaj sunucumuzda izinsiz reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap yazmayiniz, karsilik alamazsiniz.
}

alias randmi {
if $1- isalpha && $1- islower {
var %i $count($1-,o,i,a,e,u)
if ($len($1-) == 4 && %i == 0) || ($len($1-) == 5 && %i <= 1) || ($len($1-) == 6 && %i <= 1) || ($len($1-) == 7 && %i <= 2) || ($len($1-) > 7 && %i <= 2) {
return 4 $true
}
}
}

alias bulcikar {
var %b 1 , %ret $1-
while %b <= $numtok(%ret,32) {
if *mIRCTR*swatbot* iswm $gettok(%ret,%b,32) {
%ret = $replace(%ret,$gettok(%ret,%b,32),$chr(43))
}
inc %b
}
return %ret
}

alias tnick {
if kelebek !isin $1 && guest !isin $1 && misafir !isin $1 && klln !isin $1 && yuzuk !isin $1 && mirctr !isin $1 {
var %t 1
while %t <= $len($1) {
if $mid($1,%t,1) !isalpha {
if $len($left($1,$calc(%t - 1))) >= 5 {
return $left($1,$calc(%t - 1))
}
}
inc %t
}
}
}

alias incele {
if $count($1-,) > 10 || ($len($1-) > 300 && $count($1-,$left($1-,5)) > 20) {
return $true
}
}

alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
if %1kelime {
%yi = $+(^,%yi,$chr(36))
}
return $iif($len($remove(%yi,.,*)) > 5,%yi,GECERSIZSPAMMESAJINOMERCYKONTROLUNDE aslolan mesaj: $1- )
}

alias _dellast {
return $iif($numtok($1-,32) > 1,$gettok($1-,1- $calc($numtok($1-,32) - 1),32),$1-)
}

alias _gline {
sw nm GZLINE $1 1h $2-
}

alias _kick {
if !$oyunnick($botfnick($2)) {
sw nomercy MODE $1 +b $mask($2,2)
sw nomercy KICK $1 $botfnick($2) : $+ $3-
kicksay
}
}

alias gundurumu {
%durum = $gettok($time,1,58)
if $istok(21 22 23 24 00 01 02 03 04,%durum,32) {
return iyi geceler
}
if $istok(05 06 07 08 09 10 11,%durum,32) {
return gunaydinlar
}
if $istok(12 13 14 15,%durum,32) {
return tunaydinlar
}
if $istok(16 17 18 19 20,%durum,32) {
return iyi aksamlar
}
}

alias angeljoin {
var %n 1
while %n <= $lines(glob.txt) {
sw angel SAJOIN AngeL $read(glob.txt,%n)
inc %n
}
sw angel SAJOIN AngeL #radyo
sw angel SAJOIN AngeL #oyun
}

alias nomercylist {
write -c chann.txt
sw nomercy LIST
}

alias oyunnick {
if $1 == Game || $1 == bilemezsinki || $1 == WingmaN || $1 == bLuebOy || $1 == trivia || W_a_N_T_e_D* iswm $1 || WingmaN iswm $1 || bilemezsinki* iswm $1 || Sys_* iswm $1 || Astrolog iswm $1 {
return $true
}
}


alias rands {
return $r(a,z) $+ $gettok(a.e.i.o.u,$r(1,5),46) $+ $r(a,z) $+ $gettok(a.e.i.o.u,$r(1,5),46) $+ $r(a,z) $+ $gettok(a.e.i.o.u,$r(1,5),46) $+ $r(a,z) $+ $r(a,z)
}

alias _global {
sw nomercy notice $chr(36) $+ *.mIRCTR.Org :12Türkiye'de ilk ve tek mIRC Sitesi 0,4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw nomercy notice $chr(36) $+ *.mIRCTR.Org :6Türkiye'de ki en iyi Radyo Programi 0,2http://84.16.243.145:9090/listen.pls 
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org :ACTION 4 24 2saat boyunca aradiginiz hersey hakkinda 4bilgi2, 4internet2 ve 4mIRC4 dunyasinin son haberleri ve yorumlari icin 7TI6KL12A >>> 9,2[ 0,2
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias _radio {
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org :ACTION 0,4** 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >>  12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org :ACTION 4#2Radyo4 'nun Keyfi burda atıyor. Peki 2SEN 4Nerdesin2? Sende GEL dilediğin parçayı iste anında çaLınsın. TıkLa 4===> 4#2Radyo
}

alias _burc {
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org :ACTION 12mIRC4TR2 işte farkımız
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
. Burç sistemi sizler için faliyet'e geçmiştir , istediğiniz burçun özelliklerini #Burç kanalina girerek !burcunuz şeklinde öğrenebilirsiniz örnek <!ikizler> yazarak öğrenebilirsiniz. mIRCTR Teknoloji System Giriş için TIKLA 12,12>> #Burç <<
}

alias _nerden {
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org :ACTION 12mTR-Coders2 işte farkımız
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
. ULKE-SEHIR sistemi sizler için faliyet'e geçmiştir , istediğiniz kişinin özelliklerini #nerden kanalina girerek !nerden nick şeklinde öğrenebilirsiniz örnek <!nerden WingmaN> yazarak öğrenebilirsiniz. mIRCTR Teknology System Giriş için mavi kutuya TIKLA 12,12>> #Nerden <<
}

alias _mircs {
sw nomercy PRIVMSG $chr(36) $+ *.mirctr.org :ACTION 4Türkiye 'de online olarak kod yardımı alabiliceğiniz, bir kaç sunucunun arasında olan 12mIRCTR4 sizlere bu yeniliği tekrar sağlıyor. Uzaman Coder'larımız tarafından kısa sorularınıza cevap bulabiliceğiniz, mIRCScripting kanalımız açılmıştır. 12#mIRCScripting
}

on *:SOCKOPEN:helpbot: {
%amnick = Grr $+ $r(100,9999)
sw $sockname NICK %amnick
sw $sockname USER bot "" " $+ $iif($host,$host,$ip) $+ " : $+ mIRCTR OperHelp Bot
}

on *:SOCKOPEN:nm: {
%nmnick = Grr $+ $r(100,9999)
sw $sockname NICK %nmnick
sw $sockname USER Ahus "" " $+ $iif($host,$host,$ip) $+ " : $+ 8,1 9[8NoMercy9] 11v2.0 0W 9Socksbot  
}

on *:SOCKOPEN:nm2: {
%nm2nick = Grr $+ $r(100,9999)
sw $sockname NICK %nm2nick
sw $sockname USER Ahus "" " $+ $iif($host,$host,$ip) $+ " : $+ 8,1 9[8NoMercy9] 11v2.0 0W 9Socksbot  
}

on *:SOCKOPEN:nm3: {
%nm3nick = Grr $+ $r(100,9999)
sw $sockname NICK %nm3nick
sw $sockname USER Ahus "" " $+ $iif($host,$host,$ip) $+ " : $+ 8,1 9[8NoMercy9] 11v2.0 0W 9Socksbot  
}

on *:SOCKOPEN:nm4: {
%nm4nick = Grr $+ $r(100,9999)
sw $sockname NICK %nm4nick
sw $sockname USER Wing4 "" " $+ $iif($host,$host,$ip) $+ " : $+ 8,1 9[8NoMercy9] 11v2.0 0W 9Socksbot  
}

on *:SOCKOPEN:user: {
%usernick = Grr $+ $r(100,9999)
sw $sockname NICK %usernick
sw $sockname user irfan "" " $+ $iif($host,$host,$ip) $+ " :user
}

on *:SOCKREAD:helpbot: {
var %a
sockread %a
tokenize 32 %a
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 401 {
sw $sockname PRIVMSG #opers :* Nick bulunamadi: $4
}
if $2 == 381 {
sw $sockname MODE %amnick -s
sw $sockname MODE %amnick +s
sw $sockname MODE %amnick -s
sw $sockname MODE %amnick +s
sw $sockname join 0,
sw $sockname join #Opers,#help
sw $sockname KILL Sysop_HelpBot The HelpBot - NoMercy v2.0 coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK Sysop_HelpBot
}
if $2 == NICK {
if $right($3,-1) == Sysop_HelpBot {
sw $sockname MODE Sysop_HelpBot B-h
sw $sockname MODE Sysop_HelpBot -s
;sw $sockname identify mirctr
.timer 1 5 sw $sockname JOIN #operhelp
.timer 1 5 sw $sockname JOIN #help
}
if $botfnick($1) == Sysop_HelpBot {
sw $sockname KILL Sysop_HelpBot Re
.timer 1 3 sw $sockname NICK Sysop_HelpBot
}
}
if $2 == JOIN {
if $right($3,-1) == #operhelp {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:mIRCTR resmi OPER yardim odasina hosgeldiniz. ZLINE/GLINE actirmak icin OPER'lari rahatsiz etmeyiniz. Ozelime !ip IP adresi komutuyla IP'yi verdiginizde otomatik acilir. Ornegin: !ip 81.215.13.21
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Sikayet etmek istediginiz birisi varsa, nickini ve neden sikayet ettiginizi detayli bir sekilde ozelime yaziniz, yetkili ekibimize otomatikman iletilecektir. Lutfen kanali bu sebepten mesgul etmeyiniz.
}
if $right($3,-1) == #help {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:mIRCTR resmi IRCD/Services yardim odasina hosgeldiniz. /cs help commands komutu ile tum ChanServ komutlarini, /ns help commands komutu ile tum NickServ komutlarini, /ms help commands komutu ile tum MemoServ komutlarini ogrenebilirsiniz. Bunlarin disinda bir sorununuz var ise, operatorlerden voice (+) isteyin.
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Sikayet etmek istediginiz birisi varsa, nickini ve neden sikayet ettiginizi detayli bir sekilde ozelime yaziniz, yetkili ekibimize otomatikman iletilecektir. Lutfen kanali bu sebepten mesgul etmeyiniz.
}
if %kickx. [ $+ [ $+($right($3,-1),$remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) ] ] {
sw $sockname MODE $right($3,-1) +b $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

sw $sockname KICK $right($3,-1) $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
:Sorununuz cozumlenmistir. Size yardimci olabilecegimiz bir konu oldugunda tekrar bekleriz.
}
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== Sysop_HelpBot {
sw $sockname MODE $right($3,-1) +o Sysop_HelpBot
}
}
if $2 == KICK {
inc -u2 %kickx. [ $+ [ $+($3,$4) ] ] 1
}
if $2 == MODE {
if $4 == -v {
if $3 == #operhelp || $3 == #help {
sw $sockname KICK $3 $5 : $+ $botfnick($1) tarafindan voice'iniz alindi. Lutfen bekleme yapmayiniz.
}
}
}
if $2 == PRIVMSG {
if $3 == Sysop_HelpBot && *.*.* !iswm $botfnick($1) {
sw $sockname PRIVMSG #opers : < $+ $botfnick($1) $+ > $right($4-,-1)
if !ip isin $gettok($right($strip($4-),-1),1,32) {
inc -u2 %ipflood 1
if %ipflood > 10 {
;sw $sockname MODE Sysop_HelpBot +D
;.timer 1 60 sw $sockname MODE Sysop_HelpBot -D
}
else {
if $len($gettok($right($strip($4-),-1),1,32)) == 3 { %banip = $gettok($right($strip($4-),-1),2,32) }
elseif $len($gettok($right($strip($4-),-1),1,32)) > 5 { %banip = $right($gettok($right($strip($4-),-1),1,32),-3) }
if !%banipflood. [ $+ [ %banip ] ] {
inc -u20 %banipflood. [ $+ [ %banip ] ] 1
if % [ $+ [ %banip ] ] {
sw $sockname GLINE -*@ $+ %banip
sw $sockname GZLINE -*@ $+ %banip
sw $sockname ZLINE -*@ $+ %banip
sw $sockname GLINE -*@ $+ %banip
sw $sockname PRIVMSG $botfnick($1) -GLINE -GZLINE -ZLINE uygulandi: %banip
}
else {
sw $sockname PRIVMSG $botfnick($1) Verdiginiz IP banli degil ya da bot/spamfilter tarafindan atilmamis. Lutfen banin suresinin dolmasini bekleyin.
}
if helpdesk_* !iswm $botfnick($1) && sys_* !iswm $botfnick($1) && cs_* !iswm $botfnick($1) && admin_* !iswm $botfnick($1) {
sw $sockname KICK #operhelp $botfnick($1) :Ozelden !ip komutu kullandiniz. #operhelp kanalinda bekleme yapmayiniz.
}
}
}
}
}
}
}

on *:SOCKREAD:nm: {
var %s
sockread %s
tokenize 32 %s
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 381 {
sw $sockname MODE %nmnick -s
sw $sockname MODE %nmnick +s
sw $sockname MODE %nmnick -s
sw $sockname MODE %nmnick +s
sw $sockname join 0,
sw $sockname KILL NoMercy2 The NoMercy Bot - NoMercy v2.0 coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK NoMercy2
}
if $2 == NICK {
if $right($3,-1) == NoMercy2 {
sw $sockname MODE NoMercy2 BH-h
sw $sockname MODE NoMercy2 +s
sw $sockname MODE NoMercy2 -s
sw $sockname MODE NoMercy2 +s
sw $sockname ns identify mirctr
.timernm2list 0 180 sw $sockname LIST
}
if $botfnick($1) == NoMercy2 {
sw $sockname KILL NoMercy2 Re
.timer 1 3 sw $sockname NICK NoMercy2
}
}
if $2 == NOTICE && $3 == NoMercy2 && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
%ip = $gettok($left($right($13,-1),-1),2,64)
%identd = $gettok($left($right($13,-1),-1),1,64)
; randomchanver $sockname $12
if $randmi(%identd) && $randmi($12) {
sw $sockname GZLine $12 Nick/identd'iniz rastgele olmamali. Nick ve identd degisikligi yapip tekrar giriniz.
}
inc -u6 %cf. [ $+ [ %ip ] ] 1
if %cf. [ $+ [ %ip ] ] >= 5 {
if %ip != 212.175.17.90 { sw $sockname GZLINE $+(*@,%ip) +300 NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir. }
return
}
if %cf. [ $+ [ %ip ] ] >= 5 {
if %ip != 212.175.17.90 {
sw NoMercy join 0,
.timer21321 1 30 nomercyonjoin
sw helpbot privmsg #opers : NoMercy saldiri tespit edip, mIRC donmaması için kanallardan çıkmıştır.
}
return
}
inc -u5 %away. [ $+ [ $12 ] ] 1
;$+(.timermercy,$r(1,999999999)) 1 5 sw $sockname whois $12
}
if *exceed* iswm $strip($1-) && 212.175.17.90 !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 NoMercy yapay zeka sistemi IP'nizden araliksiz excess flood dususu tespit etmistir.
}
}
if *[Client exited]* iswm $strip($1-) {
sw $sockname gzline *@ $+ %identds NoMercy yapay zeka sistemi agresif baglanti tespit etmistir.
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 322 && ($4 != #help && $4 != #operhelp) {
var %r $remove($strip($7-),$chr(32))
if (*irc.* iswm %r || */server* iswm %r || *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %r|| *.com* iswm %r || *.net* iswm %r || *gen.tr* iswm %r) && (*.mirctr* !iswm %r && *irc.mirctr.org* !iswm %r && *Kelebektr.org* !iswm %r && *klavyetr.net* !iswm %r) {
sw nomercy PRIVMSG #Spam :Kanal topiginde reklam tespit edildi: $4
sw nomercy PRIVMSG #Spam :Topik: $7-
}
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
if $3 == NoMercy2 && *.*.* !iswm $botfnick($1) {
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 v2.0 coded by WingmaN
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
}
}
}

on *:SOCKREAD:nm2: {
var %nmiki
sockread %nmiki
tokenize 32 %nmiki
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 381 {
sw $sockname MODE %nm2nick -s
sw $sockname MODE %nm2nick +s
sw $sockname MODE %nm2nick -s
sw $sockname MODE %nm2nick +s
sw $sockname join 0,
sw $sockname KILL NoMercy3 The NoMercy Bot - NoMercy v2.0 coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK NoMercy3
}
if $2 == NICK {
if $right($3,-1) == NoMercy3 {
sw $sockname MODE NoMercy3 +BH-h
sw $sockname MODE NoMercy3 +s
sw $sockname MODE NoMercy3 -s
sw $sockname MODE NoMercy3 +s
sw $sockname ns identify mirctr
}
if $botfnick($1) == NoMercy3 {
sw $sockname KILL NoMercy3 Re
.timer 1 3 sw $sockname NICK NoMercy3
}
}
if $2 == NOTICE && $3 == NoMercy3 && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
%ip = $gettok($left($right($13,-1),-1),2,64)
%identd = $gettok($left($right($13,-1),-1),1,64)
; randomchanver $sockname $12
if $randmi(%identd) && $randmi($12) {
sw $sockname gzline $12 Nick/identd'iniz rastgele olmamali. Identd ve nick degisikligi yapip tekrar giriniz.
}
inc -u6 %cf. [ $+ [ %ip ] ] 1
if %cf. [ $+ [ %ip ] ] >= 5 {
if %ip != 212.175.17.90 { sw $sockname GZLINE $+(*@,%ip) +300 NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir. }
return
}
inc -u5 %away. [ $+ [ $12 ] ] 1
; $+(.timermercy,$r(1,999999999)) 1 5 sw $sockname whois $12
}
if *exceed* iswm $strip($1-) && 212.175.17.90 !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 NoMercy yapay zeka sistemi IP'nizden araliksiz excess flood dususu tespit etmistir.
}
}
if *[Client exited]* iswm $strip($1-) {
sw $sockname gzline *@ $+ %identds NoMercy yapay zeka sistemi agresif baglanti tespit etmistir.
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
if $3 == NoMercy3 && *.*.* !iswm $botfnick($1) {
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 v1.2 by edited by W_a_N_T_e_D
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
}
}
}

on *:SOCKREAD:nm3: {
var %nmuc
sockread %nmuc
tokenize 32 %nmuc
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 381 {
sw $sockname MODE %nm3nick -s
sw $sockname MODE %nm3nick +s
sw $sockname MODE %nm3nick -s
sw $sockname MODE %nm3nick +s
sw $sockname join 0,
sw $sockname KILL NoMercy4 The NoMercy Bot - NoMercy v2.0 coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK NoMercy4
}
if $2 == NICK {
if $right($3,-1) == NoMercy4 {
sw $sockname MODE NoMercy4 +BH-h
sw $sockname MODE NoMercy4 +s
sw $sockname MODE NoMercy4 -s
sw $sockname MODE NoMercy4 +s
sw $sockname ns identify mirctr
}
if $botfnick($1) == NoMercy4 {
sw $sockname KILL NoMercy4 Re
.timer 1 3 sw $sockname NICK NoMercy4
}
}
if $2 == NOTICE && $3 == NoMercy4 && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
%ip = $gettok($left($right($13,-1),-1),2,64)
%identd = $gettok($left($right($13,-1),-1),1,64)
; randomchanver $sockname $12
if $randmi(%identd) && $randmi($12) {
sw $sockname gzline $12 Nick/identd'iniz rastgele olmamali. Identd ve nick degisikligi yapip tekrar giriniz.
}
inc -u6 %cf. [ $+ [ %ip ] ] 1
if %cf. [ $+ [ %ip ] ] >= 5 {
if %ip != 212.175.17.90 { sw $sockname GZLINE $+(*@,%ip) +300 NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir. }
return
}
inc -u5 %away. [ $+ [ $12 ] ] 1
; $+(.timermercy,$r(1,999999999)) 1 5 sw $sockname whois $12
}
if *exceed* iswm $strip($1-) && 212.175.17.90 !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 NoMercy yapay zeka sistemi IP'nizden araliksiz excess flood dususu tespit etmistir.
}
}
if *[Client exited]* iswm $strip($1-) {
sw $sockname gzline *@ $+ %identds NoMercy yapay zeka sistemi agresif baglanti tespit etmistir.
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
if $3 == NoMercy4 && *.*.* !iswm $botfnick($1) {
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 v2.0 coded by WingmaN
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
}
}
}

on *:SOCKREAD:nm4: {
var %n4
sockread %n4
tokenize 32 %n4
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper Koruma nomercybugraxx
}
if $2 == 381 {
sw $sockname MODE %n4 -s
sw $sockname MODE %n4 +s
sw $sockname MODE %n4 -s
sw $sockname MODE %n4 +s
sw $sockname join 0,
sw $sockname KILL NMrc5 The NoMercy Bot - Coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK NMrc5
}
if $2 == NICK {
if $right($3,-1) == NMrc5 {
sw $sockname MODE NMrc5 +BH-h
sw $sockname MODE NMrc5 +s
sw $sockname MODE NMrc5 -s
sw $sockname MODE NMrc5 +s
sw $sockname ns identify mirctr
}
if $botfnick($1) == NMrc5 {
sw $sockname KILL NMrc5 Re
.timer 1 3 sw $sockname NICK NMrc5
}
}
if $2 == NOTICE && $3 == NMrc5 && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
%ipxx = $gettok($left($right($13,-1),-1),2,64)
%identdxx = $gettok($left($right($13,-1),-1),1,64)
if $randmi(%identd) && $randmi($12) {
sw $sockname gzline $12 Nick/identd'iniz rastgele olmamali. Identd ve nick degisikligi yapip tekrar giriniz.
}
inc -u6 %cf. [ $+ [ %ip ] ] 1
if %cf. [ $+ [ %ip ] ] >= 5 {
if %ipxx != 212.175.17.90 {
sw $sockname GZLINE $+(*@,%ip) +300 NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir.
}
return
}
inc -u5 %away. [ $+ [ $12 ] ] 1
}
if *exceed* iswm $strip($1-) && 212.175.17.90 !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 NoMercy yapay zeka sistemi IP'nizden araliksiz excess flood dususu tespit etmistir.
}
}
if *[Client exited]* iswm $strip($1-) {
sw $sockname gzline *@ $+ %identds NoMercy yapay zeka sistemi agresif baglanti tespit etmistir.
;sw $sockname privmsg WingmaN client atılmıştır ip : %ips ident : %identds
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
if *[Broken Pipe]* iswm $strip($1-) {
sw $sockname gzline *@ $+ %identds NoMercy yapay zeka sistemi agresif baglanti tespit etmistir.
;sw $sockname privmsg WingmaN client atılmıştır ip : %ips ident : %identds
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
if $3 == NMrc5 && *.*.* !iswm $botfnick($1) {
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 v2.0 coded by WingmaN
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
}
}
}

on *:SOCKOPEN:nomercy: {
%nomercynick = Grr $+ $r(100,9999)
sw $sockname NICK %nomercynick
sw $sockname USER WingmaN "" " $+ $iif($host,$host,$ip) $+ " : $+ 4,1[0NoMercy4] 9v2.0 coded by 8WingmaN4,1]
}

alias nomercyonjoin {
var %n 1
while %n <= $lines(onjoins.txt) {
sw nomercy SAJOIN NoMercy $read(onjoins.txt,%n)
inc %n
}
}

on *:SOCKREAD:nomercy: {
var %a
sockread %a
tokenize 32 %a
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 381 {
;sw $sockname MODE %nomercynick -s
;sw $sockname MODE %nomercynick +s
;sw $sockname MODE %nomercynick -s
;sw $sockname MODE %nomercynick +s
sw $sockname join 0,
sw $sockname KILL NoMercy The NoMercy Bot - Coded by mIRCTR (auto reconnect)
.timer 1 2 sw $sockname NICK NoMercy
;.timerglobalatim 0 1800 _global
.timershout 0 15 shout
.fullname
; .timerhaber 0 30 haber
;.timerrandhaber 0 60 randhaber
}
if $2 == NICK {
if $right($3,-1) == NoMercy {
sw $sockname MODE NoMercy +B-h
;sw $sockname MODE NoMercy +s
;sw $sockname MODE NoMercy -s
;sw $sockname MODE NoMercy +s
sw $sockname ns identify mirctr
sw $sockname os su mirctrirfanroot
.timermercyxlist -o 0 500 nomercylist
.timermercyxwho -o 0 120 sw $sockname WHO +a
.timer 1 5 nomercyonjoin
.timer 1 5 joinglobals
.timer 1 7 sw $sockname LIST
.timerkontrol 0 2400 botkontrol
}
if $botfnick($1) == NoMercy {
sw $sockname KILL NoMercy Re
.timer 1 3 sw $sockname NICK NoMercy
}
if W_a_N_T_e_D* iswm $botfnick($1) || Sy_* iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Owner_* iswm $botfnick($1) {
if Admin_* !iswm $remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& Sys_* !iswm $remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& Cs_* !iswm $remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& Owner_* !iswm $remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& $remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= NoMercy {
sw $sockname os raw2 svskill $remove($3,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
: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.
sw $sockname PRIVMSG WingmaN :Nick degisildi: $botfnick($1) > $right($3,-1)
}
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)
sw $sockname PRIVMSG %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Rumuzunuz su anda %nick $+ . Bu rumuzla girebileceginiz kanallar #*** #gay ve #lezbiyen 'dir. Rumuzunuzu 30 saniye icerisinde degistirmezseniz sunucu baglantiniz kesilecektir. Baglantiniz kesildiginde rumuzunuzu degistirip tekrar baglanabilirsiniz.
sw $sockname NOTICE %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. 30 saniye icerisinde rumuzunuzu degistiriniz.
set -u35 %badnick. [ $+ [ %nick ] ] 1
.timer 1 30 badkick kill %nick
}
}
if $2 == QUIT {
if %badnick. [ $+ [ $botfnick($1) ] ] {
unset %badnick. [ $+ [ $botfnick($1) ] ]
}
}
if $2 == MODE {
if $5 && $5 != NoMercy && $5 != Sysop_IRobot {
if *-*o* iswm $4 || *-*q* iswm $4 || *-*a* iswm $4 {
sw $sockname NAMES $3
}
if +*q* iswm $4 {
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.
opekle $3 $5
}
elseif +*a* iswm $4 {
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
}
elseif +*o* iswm $4 {
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.
opekle $3 $5
}
elseif +*h* iswm $4 {
sw $sockname PRIVMSG $3 : $+ $5 su anda kanal yardimci operatoru konumuna gecti.
}
}
}
if $2 == JOIN {
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== NoMercy {
sw $sockname NOTICE $right($3,-1) mIRCTR ozel kanal koruma/kontrol botu NoMercy, kanalinizda guvenligi ve huzuru korumak amaciyla girmistir.
sw $sockname NOTICE $right($3,-1) Kanal oplarinin kullanabilecegi komutlari gormek icin ozelime !komutlar yaziniz.
sw $sockname os raw :ChanServ mode $right($3,-1) +h NoMercy
}
opsil $right($3,-1) $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if %kick. [ $+ [ $+($right($3,-1),$remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) ] ] {
_kick $right($3,-1) $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kick ardindan hizli giris tespit edildi. Banlandiniz.
}
elseif W_a_N_T_e_D* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
sw $sockname PRIVMSG $right($3,-1) :ACTION mIRCTR Admin'lerinden $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
su anda kanala girdi.
}
elseif WingmaN iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
sw $sockname PRIVMSG $right($3,-1) :ACTION NoMercy(Socksbot) & UnrealIRCd(IRCd) Kodlayıcısı ( $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) (Buğra) su anda kanala girdi. (msn: ircd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].org)
sw $sockname os raw :chanserv mode $right($3,-1) +h $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
elseif Goblin* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
sw $sockname PRIVMSG $right($3,-1) :ACTION mIRCTR Adminlerinden ( $+ $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$+ ) Şuan Odaya Girmiştir.
}
elseif 789877* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
sw $sockname PRIVMSG $right($3,-1) :ACTION DuSleR Admin'lerinden : $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
su anda kanala girdi.
}
if $right($3,-1) == #globalops {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $readini(data.ini,duyuru,duyuru)
}
if $right($3,-1) == #nerden {
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2 Teknolojik sistemlerimiz, bitmiyor.! 4 ULKE-SEHIR 2 bulucu sistemimiz şuan devrededir.
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
2 Bu sistemden yararlanabilmek için : " 4 !nerden 12 nick  " 2 komutunu kullanmaniz yeterli olacaktir.
}
if $right($3,-1) == #geyikoloji {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0,2 Admin, Csop, Sysop, Helpdesk, Helper, DJ, User bulusma noktasi :] 0,7 Geyikolojiye hos geldiniz. 0,6 Bagimlilik yapariz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Cekik guzlu, urkek, buyuk, otobur, uzun ince bacakli, dag veya ormanda yasayan buyuk guzel hayvanlar.
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Boynuzlar sadece erkek olanlarda bulunur ve her sene yeni boynuz cikartirlar. Bir geygin yasini boynuzlarindan anlayabilirsiniz, her sene boynuzdaki dallara bir tane daha eklenir. Disi olanlarinin boynuzu yoktur ve erkek olanlar ciftlesme zamani kavga etmeye baslarlar. Kafa kafaya girerek kavga ederler. Bazen boynuzlari birbirlerine takilir ve ikisi de olurler. Geyik i$te....
}
if $right($3,-1) == #Kızlar {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0,2 Bütün Kızlarınbulusma noktasi :] 0,7 Kızlar kanalına hos geldiniz. 0,6 Bagimlilik yapariz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
6Hem 13güzel, 2hem de 7tatlı 12burası 5kızlar 6kanalı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $right($3,-1) == #klavye {
;sw $sockname SAJOIN $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#sevda
}
if $right($3,-1) == #dusler {
sw $sockname privmsg $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
6Binlerce Yeni Yüz , Binlerce Yeni insan , Herkes Buluşuyor.. Ücretsiz üyelik.. Hadi Sende Katıl 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= NoMercy && $right($3,-1) == #Radyo {
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0,12 Radyo mIRCTR'e hos geldiniz $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$+ ! 9,1 Isteklerinizi Radyo kanalina 1,8 !istek <istediginiz sarki ve mesajiniz> 0,3 seklinde yazabilirsiniz. 0,5 Ornek: !istek Gece Yolculari - Unut beni - Tum mIRCTR ailesine gelsin. 
sw $sockname NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
10Radyomuzu dinlemek icin tiklayin: 12http://radyo.mirctr.gen.tr/
sw $sockname os raw svsmode astrolog +OoWwHh
}
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= Astrolog && $right($3,-1) == #burç {
sw user NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
: Burç mIRCTR'e hos geldiniz  $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 Burcunuzun GENEL özelliklerini görebilmeniz için yapmanız gereken " 2!aslan " şeklinde burcunuzu girmektir.
sw user NOTICE $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
: Not: Lütfen Türkçe harf kullanınız örnek " !boğa ".
}
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= NoMercy && $right($3,-1) == #globalops {
; sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
NoMercy mesaj kontrol sistemine yakalandiniz $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$+ . Su an SHUN'li durumdasiniz. SHUN'inizi actirmak icin, 2. bir nickle (identdinizi degistirip) girip, #operhelp kanalina bildirebilirsiniz.
}
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= NoMercy && $right($3,-1) == #haberler {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Merhaba $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$+ . 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 $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= NoMercy && $right($3,-1) == #operhelp {
sw $sockname PRIVMSG $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
mIRCTR resmi OPER yardim odasina hosgeldiniz. ZLINE/GLINE actirmak icin OPER'lari rahatsiz etmeyiniz. Ozelime !ip IP adresi komutuyla IP'yi verdiginizde otomatik acilir. Ornegin: !ip 81.215.13.21
}
if $left($right($3,-1),1) == $chr(35) {
var %chan = $right($3,-1)
var %nick = $botfnick($1)
if $randmi($botfnick($1)) && $randmi($gettok($gettok($1,1,64),2,33)) && $gettok($gettok($1,1,64),2,33) != mircc {
; _kick %chan %nick Nick/identd'iniz rastgele olmamali. Nick ve identd degisikligi yapip tekrar giriniz.
}
if $hfind(badnick,%nick $+ !*@*,1,W).data && !$read(***chans.txt,w,%chan) {
sw $sockname PRIVMSG %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Rumuzunuz su anda %nick $+ . Bu rumuzla girebileceginiz kanallar #*** #gay ve #lezbiyen 'dir. Rumuzunuzu 30 saniye icerisinde degistirmezseniz %chan kanalindan atilacaksiniz. Kanaldan atildiginizda, rumuzunuzu degistirip tekrar %chan kanalina girebilirsiniz.
sw $sockname NOTICE %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. 30 saniye icerisinde rumuzunuzu degistiriniz.
set -u35 %badnick. [ $+ [ %nick ] ] 1
.timer 1 30 badkick %chan %nick
return
}
if !$oyunnick(%nick) && nomercy !isin %nick && grr* !iswm %nick && *mIRCTR* !iswm %nick && helper.mirctr.org !isin $1 && dj.mirctr.org !isin $1 && helpdesk.mirctr.org !isin $1 {
inc -u3 %jp. [ $+ [ $+(%chan,$mask($1,2)) ] ] 1
inc -u3 %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] 1
if %jp. [ $+ [ $+(%chan,$mask($1,2)) ] ] >= 5 {
_gline %nick NoMercy yapay zeka sistemi agresif giris yogunlugu tespit etmistir.
return
}
if %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] >= 5 {
_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)) ] ] >= 10 {
;_gline %nick NoMercy yapay zeka sistemi bot/trojan/uygunsuz client tespit etmistir.
return
}
}
}
}
}
if $2 == PART {
; if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== NoMercy && !%girme. [ $+ [ $3 ] ] {
; $+(.timermercy,part,$3) -o 1 5 sw $sockname SAJOIN NoMercy $3
; $+(.timermercy,join,$3) off
; }
if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= NoMercy {
var %chan = $3
var %nick = $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if %badnick. [ $+ [ %nick ] ] {
unset %badnick. [ $+ [ %nick ] ]
}
if %chan == #globalops {
deopall %nick
}
if nomercy !isin %nick && grr* !iswm %nick && *mIRCTR* !iswm %nick && helper.mirctr.org !isin $1 && dj.mirctr.org !isin $1 && helpdesk.mirctr.org !isin $1 {
inc -u3 %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] 1
if %jpx. [ $+ [ $+(%chan,$mask($1,2)) ] ] >= 5 {
_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)) ] ] >= 10 {
_gline %nick NoMercy yapay zeka sistemi bot/trojan/uygunsuz client tespit etmistir.
return
}
}
}
}
}
if $2 == KICK {
if %badnick. [ $+ [ $4 ] ] {
unset %badnick. [ $+ [ $4 ] ]
sw $sockname SAJOIN $4 #***,#msn,#ensest,#travesti,#gay,#lezbiyen,#cinsel lik,#evliler
sw $sockname PRIVMSG $2 :Su anki rumuzunuzla rahatca sohbet edebileceginiz #***,#msn,#ensest,#travesti,#gay,#lezbiyen,#cinsel lik,#evliler kanallarimiza otomatik olarak yonlendirildiniz. Iyi vakit gecireceginizi umuyoruz, hos sohbetler dileriz.
}
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 -u2 %kick. [ $+ [ $+($3,$4) ] ] 1
}
}
if $2 == 322 {
if $5 < 10 {
set %girme. [ $+ [ $4 ] ] 1
;$+(.timermercy,join,$4) off
if $4 != #Opers && !$read(onjoins.txt,w,$4) && !$read(glob.txt,w,$4) {
sw $sockname PART $4
}
}
if s !isincs $6 && i !isincs $6 && O !isincs $6 && $5 >= 10 && $4 != #sebu && $4 != #Cortez && $4 != #help && $4 != #operhelp {
unset %girme. [ $+ [ $4 ] ]
sw $sockname SAJOIN NoMercy $4
write chann.txt $4 $5
}
}
if $2 == NOTICE && $3 == NoMercy && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
%ip = $gettok($left($right($13,-1),-1),2,64)
%identd = $gettok($left($right($13,-1),-1),1,64)
; randomchanver $sockname $12
if $randmi(%identd) && $randmi($12) {
sw $sockname GZLine $12 Nick/identd'iniz rastgele olmamali. Identd ve nick degisikligi yapip tekrar giriniz.
}
inc -u6 %cf. [ $+ [ %ip ] ] 1
if %cf. [ $+ [ %ip ] ] >= 5 {
;if %ip != 212.175.17.90 { sw nm GZLINE $+(*@,%ip) 1h NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir. }
return
}
inc -u5 %away. [ $+ [ $12 ] ] 1
; $+(.timermercy,$r(1,999999999)) 1 5 sw $sockname whois $12
}
if *exceed* iswm $strip($1-) && 212.175.17.90 !isin $1- {
inc -u600 %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] 1
if %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] == 3 {
sw $sockname gzline * $+ $mid($7,$pos($7,@),$len($7)) +10800 NoMercy yapay zeka sistemi IP'nizden araliksiz excess flood dususu tespit etmistir.
}
if *[Client exited]* iswm $strip($1-) {
sw $sockname gzline *@ $+ %identds NoMercy yapay zeka sistemi agresif baglanti tespit etmistir.
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
}
if *did a /whois on you. iswm $strip($1-) {
inc -u5 %wf. [ $+ [ $5 ] ] 1
if %wf. [ $+ [ $5 ] ] == 3 {
sw $sockname KILL $5 Whois flood yapmayin!
}
sw $sockname PRIVMSG $5 :Kullanabileceginiz komutlari gormek icin !komutlar yaziniz.
; sw $sockname PRIVMSG $5 :mIRCTR Protection System (MPS)
; sw $sockname PRIVMSG $5 :-
; sw $sockname PRIVMSG $5 :2 kisiden buyuk tum kanallarin guvenligi NoMercy'ye aittir.
; sw $sockname PRIVMSG $5 :NoMercy bu kanallara istem disi girer ve 24 saat tum guvenlik islemleriyle ilgilenir. Hic bir zaman +m veya +M moduna almaniza gerek kalmaz.
; sw $sockname PRIVMSG $5 :Turkiye'de reklamin, saldirinin olmadigi tek sunucu mIRCTR'tur. NoMercy Yapay Zeka Sistemi, sadece mIRCTR'e aittir ve surekli gelistirilmektedir.
}
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy]
;sw NM SAJOIN $gettok($5,1,33) #xqx
}
if *global Z:LINE added for* iswm $strip($1-) {
if *.*.* iswm $gettok($18,1,33) || NoMercy isin $gettok($18,1,33) {
set -u3610 % [ $+ [ $gettok($9,2,64) ] ] 1
}
}
}
if $2 == MODE {
if $3 == #operhelp && $4 == -v {
; _kick $3 $5 $botfnick($1) tarafindan voice'iniz alindi. Lutfen bekleme yapmayiniz.
}
if $4 == +b && $5 iswm NoMercy!Ahus@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].mIRCTR.ORG {
sw $sockname MODE $3 -b $5
sw $sockname os raw :chanserv MODE $3 -o $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -h $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -a $botfnick($1)
sw $sockname os raw :chanserv MODE $3 -q $botfnick($1)
sw $sockname PRIVMSG $3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
EOP/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 {
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 $9
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
while %i <= $pos(%names,@,0) {
opekle %ch $noprefix($gettok($mid(%names,$pos(%names,@,%i),-1),1,32))
inc %i
}
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(***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 PRIVMSG %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Rumuzunuz su anda %nick $+ . Bu rumuzla girebileceginiz kanallar #*** #gay ve #lezbiyen 'dir. Rumuzunuzu 30 saniye icerisinde degistirmezseniz $gettok(%names,%i,32) kanalindan atilacaksiniz. Kanaldan atildiginizda, rumuzunuzu degistirip tekrar $gettok(%names,%i,32) kanalina girebilirsiniz.
sw $sockname NOTICE %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. 30 saniye icerisinde rumuzunuzu degistiriniz.
set -u35 %badnick. [ $+ [ %nick ] ] 1
.timer 1 30 badkick $gettok(%names,%o,32) %nick
kicksay
}
inc %o
}
}
}
if $2 == 303 {
if $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== 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)
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 raw :chanserv mode %op. [ $+ [ $5 ] ] +o $5
}
unset %op. [ $+ [ $5 ] ]
}
if $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== ChanServ && !$5 {
unset %op.*
}
}
if $2 == PRIVMSG || $2 == NOTICE {
if $3 == NoMercy && *.*.* !iswm $botfnick($1) {
sw nm PRIVMSG WingmaN : < $+ $botfnick($1) $+ > $right($4-,-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 == !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) : mIRCTR IRC Suncusu guvenligi ve duzeninden sorumludur. NoMercy sayesinde mIRCTR tarihi boyunca, botsuz, saldirisiz, reklamsiz bir server olma ozelligini koruyacaktir. Islevi ve kusursuzlugu bakimindan IRC'de benzeri bulunmayan NoMercy, paha bicilmez bir eserdir.
}
if %komut == !WingmaN {
sw $sockname PRIVMSG $botfnick($1) : WingmaN (Bugra), mIRCTR IRC Suncusu guvenligi ve duzeninden sorumludur. 6 yildir IRC/IRCd, C/C++, Delphi, vBasic, Java ve bunun gibi kavram ve kuramlar'da uzmanlığını kanıtlamış ve hayatının diğer dönemlerini, Linux ,mIRCScripting ve IRCd ye adamıştır. MSN (ircd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].org).
sw $sockname PRIVMSG WingmaN : WingmaN komutu kullanildi kullanan nick : < $+ $botfnick($1) $+ >
}
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>
}
elseif %komut != !bilgi {
sw $sockname PRIVMSG $botfnick($1) : $+ %komut $+  diye bir komut yok. Kullanabileceginiz komutlari gormek icin !komutlar yaziniz.
}
}
}
if $botfnick($1) == WingmaN && $gettok($right($strip($4-),-1),1,32) == !msg {
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) : $+ $gettok($right($strip($4-),-1),3-,32)
sw $sockname PRIVMSG WingmaN : !msg komutu $gettok($right($strip($4-),-1),1,32) tarafindan kullanildi.
}
if $botfnick($1) == WingmaN && $gettok($right($strip($4-),-1),1,32) == !gzline {
sw $sockname GZLINE $gettok($right($strip($4-),-1),2,32) 1h Bilgisayar(lar)inizda bulunan bir trojan/reklam botu sebebiyle uzalastirildiniz.
}
if W_a_N_T_e_D* iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !global {
_global
}
if W_a_N_T_e_D* iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !radio {
_radio
}
if W_a_N_T_e_D* iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !burc {
_burc
}
if WingmaN iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !nerden {
_nerden
}
if WingmaN iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !global {
_global
}
if WingmaN iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !mircs {
_mircs
}
if WingmaN iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !radio {
_radio
}
if WingmaN iswm $botfnick($1) && $gettok($right($strip($4-),-1),1,32) == !burc {
_burc
}
if $botfnick($1) == W_a_N_T_e_D && $gettok($right($strip($4-),-1),1,32) == !join {
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) W_a_N_T_e_D $gettok($right($strip($4-),-1),2,32) kanalina girmek istiyor
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) W_a_N_T_e_D $gettok($right($strip($4-),-1),2,32) kanalina girmek için hazirlaniyor
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) W_a_N_T_e_D $gettok($right($strip($4-),-1),2,32) kanalina girecek
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) W_a_N_T_e_D $gettok($right($strip($4-),-1),2,32) kanalina giriyor
sw $sockname SAJOIN W_a_N_T_e_D $gettok($right($strip($4-),-1),2,32)
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) W_a_N_T_e_D $gettok($right($strip($4-),-1),2,32) kanalina girdi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $botfnick($1) == WingmaN && $gettok($right($strip($4-),-1),1,32) == !join {
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) WingmaN $gettok($right($strip($4-),-1),2,32) kanalina girmek istiyor
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) WingmaN $gettok($right($strip($4-),-1),2,32) kanalina girmek için hazirlaniyor
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) WingmaN $gettok($right($strip($4-),-1),2,32) kanalina girecek
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) WingmaN $gettok($right($strip($4-),-1),2,32) kanalina giriyor
sw $sockname SAJOIN WingmaN $gettok($right($strip($4-),-1),2,32)
sw $sockname PRIVMSG $gettok($right($strip($4-),-1),2,32) WingmaN $gettok($right($strip($4-),-1),2,32) kanalina girdi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if ($botfnick($1) == W_a_N_T_e_D || $botfnick($1) == WingmaN) && $gettok($right($strip($4-),-1),1,32) == .duyuru {
writeini data.ini duyuru duyuru $gettok($right($strip($4-),-1),2-,32)
}
if haber isin $gettok($right($strip($4-),-1),1,32) {
if !%haberler. [ $+ [ $botfnick($1) ] ] {
set -u180 %haberler. [ $+ [ $botfnick($1) ] ] 1
var %hb 1
while %hb <= $lines(haber.txt) {
sw $sockname PRIVMSG $botfnick($1) $read(haber.txt,%hb)
inc %hb
}
}
}
if !ip isin $gettok($right($strip($4-),-1),1,32) {
inc -u2 %ipflood 1
if %ipflood > 10 {
sw $sockname MODE NoMercy +D
.timer 1 60 sw $sockname MODE NoMercy -D
}
else {
if $len($gettok($right($strip($4-),-1),1,32)) == 3 { %banip = $gettok($right($strip($4-),-1),2,32) }
elseif $len($gettok($right($strip($4-),-1),1,32)) > 5 { %banip = $right($gettok($right($strip($4-),-1),1,32),-3) }
if !%banipflood. [ $+ [ %banip ] ] {
inc -u20 %banipflood. [ $+ [ %banip ] ] 1
if % [ $+ [ %banip ] ] {
; sw $sockname GLINE -*@ $+ %banip
; sw $sockname GZLINE -*@ $+ %banip
; sw $sockname ZLINE -*@ $+ %banip
; sw $sockname GLINE -*@ $+ %banip
; sw $sockname PRIVMSG $botfnick($1) -GLINE -GZLINE -ZLINE uygulandi: %banip
}
else {
;sw $sockname PRIVMSG $botfnick($1) Verdiginiz IP banli degil ya da bot/spamfilter tarafindan atilmamis. Lutfen banin suresinin dolmasini bekleyin.
}
;sw $sockname KICK #operhelp $botfnick($1) :Ozelden !ip komutu kullandiniz. #operhelp kanalinda bekleme yapmayiniz. $kickno
;kicksay
}
}
}
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 v1.2 edited by WingmaN
}
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 *mIRCTR* !iswm $botfnick($1) && helper.mirctr.org !isin $1 && dj.mirctr.org !isin $1 && helpdesk.mirctr.org !isin $1 {
mesajkontrol $botfnick($1) $strip($right($4-,-1))
}
if $chr(35) isin $strip($right($4-,-1)) && $botfnick($1) != AngeL && !$oyunnick($botfnick($1)) {
; sw nomercy KILL $botfnick($1) mIRCTR IRC Sunucusu uzerinde inviter/reklam araci kullanmak yasaktir.
}
if !%priv. [ $+ [ $botfnick($1) ] ] {
inc -u20 %priv. [ $+ [ $botfnick($1) ] ] 1
; sw $sockname PRIVMSG $botfnick($1) NoMercy, DefauLt (Ozcan) tarafindan programlanan bir robottur.
; sw $sockname PRIVMSG $botfnick($1) Mesajlariniza cevap verilemeyecegi icin lutfen ozel mesaj yazmayiniz.
}
;sw $sockname PRIVMSG WingmaN $botfnick($1) $+ : $right($4-,-1)
}
}
else {
%::chan = $3 | %::add = $1 | %::nick = $botfnick($1) | %::text = $right($strip($4-),-1) | %::text2 = $right($4-,-1)

if $incele($right($4-,-1)) {
_gline %::nick Saldiri/flood girisimi tespit edilmistir. [NoMercy]
.timer 1 30 sw $sockname spamfilter del cN gzline 1h Saldiri/flood girisimi tespit edilmistir. [NoMercy] $yildiztemizle($strip($right($4-,-1)))
}
if %::nick == W_a_N_T_e_D && $gettok(%::text,1,32) == !kb {
_kick %::chan $strip($gettok(%::text,2,32)) Kickban command used by W_a_N_T_e_D.
}
if %::nick == WingmaN && $gettok(%::text,1,32) == !kb {
_kick %::chan $strip($gettok(%::text,2,32)) Kickban command used by WingmaN.
}
if %::nick == WingmaN && $gettok(%::text,1,32) == !clear {
var %kcxc 1
while %kcxc <= $lines(clear.txt) {
sw $sockname privmsg %::chan $read(clear.txt,%kcxc)
inc %kcxc
}
sw $sockname privmsg %::chan kanalimiz temizlendi, hos sohbetler dileriz. mIRCTR.
}
if %::nick == W_a_N_T_e_D && $gettok(%::text,1,32) == !voice {
sw $sockname os raw :ChanServ mode %::chan +v $strip($gettok(%::text,2,32))
sw privmsg %::chan : voice command used by W_a_N_T_e_D.
}
if %::nick == W_a_N_T_e_D && $gettok(%::text,1,32) == !bantemizle {
sw $sockname MODE %::chan +b
}
if %::nick == WingmaN && $gettok(%::text,1,32) == !bugraca {
sw $sockname privmsg %::chan $read sozler.txt 4 [12WingmaN4]
}
if %::nick == WingmaN && $gettok(%::text,1,32) == !voice {
sw $sockname os raw :ChanServ mode %::chan +v $strip($gettok(%::text,2,32))
sw $sockname privmsg %::chan : voice command used by WingmaN.
}
if %::nick == WingmaN && $gettok(%::text,1,32) == !bantemizle {
sw $sockname MODE %::chan +b
}
if %::nick == WingmaN && $gettok(%::text,1,32) == !yerlerisupur {
sw $sockname MODE %::chan +b
sw $sockname PRIVMSG %::chan tamam abi süpürdük nasıl oldu ama pırıl pırıl dimi?
}
if %::nick == WingmaN && %::text == nerdesin askim prensesim {
sw $sockname PRIVMSG %::chan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
urdayim askimm
sw $sockname PRIVMSG %::chan :bisi mi oldu bitanem söle?
}
if %::nick == WingmaN && %::text == thanx NoMercy {
sw $sockname privmsg %::chan : not at all WingmaN
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if %::nick == WingmaN && %::text == !yaz {
if %::nick {
sw $sockname PRIVMSG #opers :Lutfen mesajinizi giriniz. Kullanim sekli: !yaz <nick> <mesaj>
sw $sockname PRIVMSG WingmaN : !yaz komutu $gettok(%::text,1,32) tarafindan kullanildi.
}
else {
sw $sockname PRIVMSG $gettok(%::text,2,32) Yetkili: $gettok(%::text,3-,32)
}
}
if %::nick == WingmaN && %::text == .kill {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #opers :Lutfen mesajinizi giriniz. Kullanim sekli: .kill <nick>
}
else {
sw $sockname KILL $gettok(%::text,2-,32)
sw $sockname PRIVMSG #opers : $+ $gettok(%::text,2-,32) nickli kisi killendi.
}
}
if $gettok(%::text,1,32) == !banac {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #opers :Lutfen mesajinizi giriniz. Kullanim sekli: !banac <kanal>
}
else {
sw $sockname MODE $gettok(%::text,2-,32) +b
sw $sockname PRIVMSG #opers : $+ $gettok(%::text,2-,32) kanalinda Banlar Temizlendi.
}
}
if %::nick == W_a_N_T_e_D && %::text == I Love You NoMercy {
sw $sockname PRIVMSG %::chan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
urdayim askimm
sw $sockname PRIVMSG %::chan :bisi mi oldu bitanem söle?
}
if %::chan == #Radyo && *?stek iswm $gettok(%::text,1,32) {
if !$gettok(%::text,2,32) {
sw $sockname PRIVMSG %::chan Bos istek gondermeyiniz  $+ %::nick $+  " [19:14] <~CeyDaa> !istek isteidigin sarki yaparak isticeksin istegini "
return
}
if !%istek. [ $+ [ %::nick ] ] {
inc -u180 %istek. [ $+ [ %::nick ] ] 1
sw $sockname PRIVMSG %::chan :4Isteginiz DJ'lerimize iletilmistir2 %::nick 5( $+ $gettok(%::text,2-,32) $+ )
sw $sockname PRIVMSG #dj :Isteyen: %::nick Istek: $gettok(%::text,2-,32)
}
else {
_kick %::chan %::nick Ard arda istek istemeyiniz. Bir kisi, uc dakikada bir istek isteyebilir.
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !link {
if !%link {
set -u10 %link 1
sw $sockname PRIVMSG %::chan :0,4 ** 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>  12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
else {
inc -u1 %linkkontrol 1
if %linkkontrol > 5 {
_kick %::chan %::nick !link flood yapmayiniz!
}
}
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !istekbilgi {
sw $sockname PRIVMSG %::chan :Isteklerinizi Radyo kanalina !istek <istediginiz sarki ve mesajiniz> seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari - Unut beni - Tum mIRCTR ailesine gelsin.
}
if %::chan == #Radyo && $gettok(%::text,1,32) == !durum {
if !%durum {
set -u10 %durum 1
unset %lastsong
shout
}
else {
inc -u1 %durumkontrol 1
if %durumkontrol > 5 {
_kick %::chan %::nick !durum flood yapmayiniz!
}
}
}
if %::chan == #nerden {
if $gettok(%::text,1,32) == !nerden {
if !$gettok(%::text,2-,32) {
sw nomercy PRIVMSG #nerden :Lutfen nick girin yanina !nerden WingmaN
}
else {
disable #nerdens
enable #ulkesehir
baka.q $gettok(%::text,2-,32)
}
}
if $gettok(%::text,1,32) == !bilgi {
sw nomercy PRIVMSG #nerden : ULKE-SEHIR bilgilerinizi görebilmek için lütfen 2 !nerden 4nickiniz 1 komutunu kullanınız.
sw nomercy PRIVMSG #nerden : Not: Lütfen online bir nick kullaniniz. " !nerden WingmaN ".
}
}
if %::chan && $gettok(%::text,1,32) == wingman {
sw nomercy privmsg wingman : $1-
}
if %::chan && $gettok(%::text,1,32) == wıngman {
sw nomercy privmsg wingman : $1-
}
if %::chan && $gettok(%::text,1,32) == wınman {
sw nomercy privmsg wingman : $1-
}
if %::chan && $gettok(%::text,1,32) == winman {
sw nomercy privmsg wingman : $1-
}
if %::chan && $gettok(%::text,1,32) == vingman {
sw nomercy privmsg wingman : $1-
}
if %::chan && $gettok(%::text,1,32) == vingman {
sw nomercy privmsg wingman : $1-
}
if %::chan && $gettok(%::text,1,32) == vinman {
sw nomercy privmsg wingman : $1-
}
if %::chan == #dj && ISTEK* iswm %::nick {
sw $sockname PRIVMSG #Radyo $right($4-,-1)
}
if %::chan == #dj && $gettok(%::text,1,32) == !mesajekle {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #dj :Olm kit misin niye mesaj yazmiyosun %::nick
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

return
}
write radyoslogan.txt $gettok(%::text,2-,32) ( $+ %::nick $+ )
sw $sockname PRIVMSG #dj :Slogan eklendi ( $+ %::nick imzali) - Radyo ile alakali seyler yazin lutfen.
}
if %::chan == #dj && $gettok(%::text,1,32) == !bulunamadi {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #dj :kullanmak icin !bulunamadi <nick>
return
}
sw $sockname PRIVMSG #Radyo : $gettok(%::text,2,32) , isteginiz bulunamadi. Lütfen başka bir istek isteyiniz.
sw $sockname PRIVMSG #dj :istegi bulunamayan user $gettok(%::text,2,32) .
}
if $gettok(%::text,1,32) == !dj {
sw $sockname os raw swhois %::nick : is a mIRCTR Dj
sw $sockname chghost %::nick Dj.mIRCTR.org
sw $sockname privmsg #dj : %::nick Dj Olarak sisteme girisiniz onaylandi.
}
if %::chan == #globalops {
if $gettok(%::text,1,32) == !op && ($read(glob.txt,w,$gettok(%::text,2,32)) || !$gettok(%::text,2,32)) {
set %op. [ $+ [ %::nick ] ] $iif($gettok(%::text,2,32),$ifmatch,hepsi)
sw $sockname ISON ChanServ %::nick
sw $sockname Privmsg #globalops : %::nick Globallere girisiniz onaylandi, yeni host ve yeni swhois eklendi.
sw $sockname chghost %::nick GlobalOp.mIRCTR.org
sw $sockname os raw swhois %::nick : is a GlobalOp on mIRCTR.
}
}
if %::chan == #mtr-cf {
if $gettok(%::text,1,32) == !bantemiz {
sw $sockname mode #Muhabbet +b
sw $sockname mode #zurna +b
sw $sockname mode #dusler +b
sw $sockname mode #mIRCTR +b
sw $sockname mode #kelebek +b
sw $sockname mode #cinsellik +b
sw $sockname mode #klavye +b
sw $sockname mode #istanbul +b
sw $sockname mode #Bursa +b
sw $sockname mode #klavye +b
sw $sockname mode #Sevgi +b
sw $sockname mode #Travesti +b
sw $sockname mode #Mutlu +b
sw $sockname mode #Zurna +b
sw $sockname mode #islam +b
sw $sockname mode #Evliler +b
sw $sockname mode #MSN +b
sw $sockname mode #Ensest +b
sw $sockname mode #35+ +b
sw $sockname mode #Chat +b
sw $sockname mode #izmir +b
sw $sockname mode #Turkey +b
sw $sockname mode #Rize +b
sw $sockname mode #ankara +b
sw $sockname mode #Bjk +b
sw $sockname mode #Galatasaray +b
sw $sockname mode #radyo +b
sw $sockname mode #dostluk +b
sw $sockname privmsg #mtr-cf Global Kanallardaki, Tüm ban(+b) 'lar temizlenmistir.
}
if $gettok(%::text,1,32) == !banac {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #mtr-cf :Lutfen mesajinizi giriniz. Kullanim sekli: !banac <kanal>
}
else {
sw $sockname MODE $gettok(%::text,2-,32) +b
sw $sockname PRIVMSG #mtr-cf : $+ $gettok(%::text,2-,32) kanalinda Banlar Temizlendi.
}
}
if $gettok(%::text,1,32) == !mod {
if !$gettok(%::text,2-,32) {
sw $sockname PRIVMSG #mtr-cf :Lutfen mesajinizi giriniz. Kullanim sekli: !mod <kanal> <mod>
}
else {
sw $sockname OS RAW :ChanServ MODE $gettok(%::text,2-,32)
sw $sockname PRIVMSG #mtr-cf : $+ $gettok(%::text,2-,32) bulunan mod sistemi uygulandı.
}
}
if $gettok(%::text,1,32) == !bilgi {
sw $sockname PRIVMSG #mtr-cf :!mod komutu ile kanal modlarını değiştirebilisiniz. Kullanim sekli: !mod <kanal> <mod>
sw $sockname PRIVMSG #mtr-cf :!banac komutu ile herhangi bir kanaldaki banları açabilirsiniz. Kullanim sekli: !banac <kanal>
sw $sockname PRIVMSG #mtr-cf :!bantemiz komutu ile Tüm GLOBAL kanallardaki banları açabilirsiniz.Kullanim sekli: !bantemiz
}
}
if %::chan == #opers {
if $gettok(%::text,1,32) == !gizle {
sw $sockname os raw svsmode SySop_Helpbot +H
sw $sockname os raw svsmode SySop_IRobot +H
sw $sockname os raw svsmode NoMercy2 +H
sw $sockname os raw svsmode NoMercy3 +H
sw $sockname os raw svsmode NoMercy4 +H
sw $sockname os raw svsmode NMrc5 +H
sw $sockname privmsg #Opers : NoMercy(2,3,4) , SySop_Helpbot ve SySop_IRobot Botları, IRCOPS Modülünde gizlenmiştir.
}
}
if %::chan == #mirctr-eng {
if $gettok(%::text,1,32) == !help {
sw $sockname privmsg #mirctr-eng : Only English users can join this channel.
}
}
if %::chan == #burç {
if $gettok(%::text,1,32) == !yay {
sw user PRIVMSG %::nick : Sectiginiz Burc ismi yay %::nick
sw user PRIVMSG %::nick 4Gurubunuz :2 Ates"
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Persembe"
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 3"
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Turkuvaz"
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Mor, menekse moru"
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Leylak, salkim, mor menekse"
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Nergis, menekse, zambak"
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Pop müzigi"
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Canlilik"
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Dünya çapinda ün"
sw user PRIVMSG %::nick :2 Alaycilik"
sw user PRIVMSG %::nick :2 Gezip, görmek"
sw user PRIVMSG %::nick :12Yay'lar genis, çok odali, ve bahçeli evleri severler. Evlerini dikkat çekici bir biçimde dekore ederler. Ev yasami ile çok ilgilenmez, çogu zamanda gezide olurlar. Evde toplumda önder olmak isterler."
sw user PRIVMSG %::nick :12Iyi bir ögretmen, profesör, yayinci, düsünür, avukat, yorumcu, seyahat acentesi, hasif, sporcu, din adami, kitapçi olabilirler. Durgun bir ortami kolay kolay kabul etmezler. Entelektüel olmak ister, iyi bir ögrenim için gece okullarina bile giderler."
sw user PRIVMSG %::nick :12Genellikle çocuklarina iyi ve sicakkanli davranirlar. Aydin kisiler olduklarindan çocuklarinin ilgilerini iyi yönlendirebilirler. Çocuklari ile okulda oynar gibi oynar, yeni eglenceler bulurlar."
sw user PRIVMSG %::nick :12Bu burçta dogan çocuklar mutlu ve güler yüzlü olurlar. Iyi kalpli, arkadas canlisi, ögretmenleri ve arkadaslari tarafindan sevilen çocuklardir. Her çesit sporu ve hayvanlari severler. Oyunda hile yapmamalari ögretilmelidir. Çok iyi ögrenci olurlar fakat disiplini pek sevmez ve kendilerini baglanmis gibi hissederler. Oyunu çok sever."
}
if $gettok(%::text,1,32) == !akrep {
sw user PRIVMSG %::nick : Sectiginiz Burc ismi Akrep %::nick
sw user PRIVMSG %::nick ASLAN seni çok sever
sw user PRIVMSG %::nick 4Gurubunuz :2 Su 23 Ekim - 22 Kasim"
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Sali"
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 9"
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Topaz"
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Canli kirmizi, siyah"
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Kirmizi karanfil, hanimeli, ates çiçegi"
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Misk, manolya"
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Marslar ve canli parçalar"
sw user PRIVMSG %::nick :4En bilirgin özelliginiz :2 Karanlik"
sw user PRIVMSG %::nick :4En büyük emeliniz :2 Zenginlik"
sw user PRIVMSG %::nick :4En büyük hataniz :2 Merhametsizlik"
sw user PRIVMSG %::nick :4En büyük arzunuz :2 Ömür boyu güven"
sw user PRIVMSG %::nick :12Akrep burcu kisilerini tanimlamak çok zordur, çünkü her zaman uç noktadadirlar. Onlar için yarim ölçü yoktur. Istekleri ile(özellikle cinsellik konusunda) tanimlanirlarsa da yasamin her alaninda tutkulari vardir. Akrep burcunu tanimlayan cümle, ARZULUYORUM dur. Bu yüzden hiçbir seyi yarim birakmaz, tam yasarlar. Yasama güçleri kadar fiziksel güçleri de kuvvetlidir. Her an patlamaya hazir yanardag gibidirler. Akrep'lerin güçleri gözlerinden okunur."
sw user PRIVMSG %::nick :12Akrep burcu insellik, ölüm ve yenilik burcudur. Yasam ve ölüm, esrarli olugu için onlara çekici gelir. Cinsellik yasamin bir parçasi oldugundan çok önemli, yasamin ta kendisi, ölüm ise diger ucudur. Ilgi, tutku ve istekle severler ama cinsel yasamlari dogurucu degilse bu açigi kapatmakta güçlük çekerler. Kisisel yaklasimlarinda sezgiye dayanan bir duygusallik vardir"
sw user PRIVMSG %::nick :12Çok flörtçüdürler. Duygusal iliskileri içten ve ciddi olmasina karsin çabuk sevgili degistirirler. En yakin iliskilerinde bile kendilerine ait özel bir seyin gizli kalmasina özen gösterirler. Evleri her zaman kalabaliktir. Lüks; Akrep'lerin kendilerini basarili hissetmelerini saglar. Evlerinin tek yöneticisi olmak ister, bunu saglamak için ne gerekirse yaparlar. Hem yakinlarini hem arkadaslarini yönetmeyi severler."
sw user PRIVMSG %::nick :12Önemli bir is yaptiklarini biliyorlarsa hosnut olur, sorunlarin kökenini incelemekten mutluluk duyarlar. Genellikle cerrahi tip ve ruhbilim dallarinda basarili olurlar."
}
if $gettok(%::text,1,32) == !aslan {
sw user PRIVMSG %::nick : Sectiginiz Burc ismi Aslan %::nick
sw user PRIVMSG %::nick 4Gurubunuz :2 Ate$ 24 Temmuz - 23 Agustos.
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Pazar
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 1 ve 4
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Sari zafir, sari pirlanta
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Koyu sari, altin, turuncu
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Kirmizi gül, sari krizantem, orkide
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Misk, portakal çiçegi, gül
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Neseli parçalar
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Cömertlik
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Zirveye çikmak
sw user PRIVMSG %::nick 4En büyük hataniz :2 Övünmek
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Sahip olmak
sw user PRIVMSG %::nick 12Aslan burcunda dogan kisiler yüce gönüllülükleri ve hareketli kisilikleri ile taninirlar. Aslan için baska söze gerek yoktur. Aslan kraldir, önderdir. Baskalarinin yasantisini bile onlardan daha iyi düzenleyebilecegine inandiklarindan karsisindakilerde bunu kabul ederlerse her sey yolunda gider.
sw user PRIVMSG %::nick 12Bu burçta dogan kisilerin belirgin bir kaç özellikleri vardir. Her seye karismak, kibir ve fazla dogmatiklik. Aslan burcunu tanimlayan cümle KUMANDA EDERIM dir. Günes gibi onlar da hep sahnede isil isil parlamak ve odak noktasi olmak isterler.
sw user PRIVMSG %::nick 12Aslanlar askiya gelmeyen birici sinif örgütleyicilerdir ve yetke alistirmasi yapmak baslica özelliklerindendir. Istediklerini kabul ettirmek onlarin huyudur. Hayran olunmaya bayilirlar. Yi zamanlarinda heyecanli, etkileyici, güler yüzlü, baskalarini yasamina bile isik getiren, dahasi bunu görev olarak kabul eden sevimli, iyimser kisilerdir. Adaletli davranmamissaniz bile yüce gönüllü davranir fakat çok kizmis ise kurallara yakisir bir sekilde hemen düzelterek kendisini kralla esit sayan densizin uygun bir biçimde geri çekilmesini isterler. Her zaman dürüstçe ve mertçe dövüsür, hiç bir zaman arkadan vurmaza.
sw user PRIVMSG %::nick 12Bagislayici olmalarina karsin kisiliklerine iliskin konularda asiri duyarli olur, olayin agirligi ile orantili olarak kolay unutmazlar.
sw user PRIVMSG %::nick 12Aslanlar genellikle basarali olurlar ve bununla da övünürler. Zor durumda aldiklari zaman sans onlara yardim eder ve Günes onlari en karanlik günlerinde aydinlatir.
sw user PRIVMSG %::nick 12Aslanlar içten kendine güvenen, açik sözlü insanlar olduklari için herkesin kendileri gibi dürüst oldugunu düsünür ve tersi davranislarla karsilastiklarinda hem üzülür hem de öfkelenirler. Gururlarindan dolayi kendilerinden asla kuskulanmazlar. Dogru karakter analizi yapamaz, yanlis arkadas seçerler. Sorumluluk tasiyan bir konumda olduklari zaman bu güveni hakketmek için ellerinden geleni yaparlar. Böyle bir konuma ulasmazlarsa da haylaz, tembel, hirçin ve geçimsiz olurlar.
}
if $gettok(%::text,1,32) == !ikizler {
sw user PRIVMSG %::nick 4Gurubunuz :2 Hava 22 Mayis - 21 Haziran
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Çarsamba
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 5
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Akik ve Inci
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Sari, grimavi, açik mavi
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Mimoza, çigdem, zerren
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Gardenya, yasemin, sümbül
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Modern bati müzigi ve çok hareketli parçalar
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Sezis
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Yazarlik
sw user PRIVMSG %::nick 4En büyük hataniz :2 Gevezelik
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Edebiyat alaninda isim yapmak
sw user PRIVMSG %::nick 12Ikizler burcu insanlari her ise yatkinliklari ve çift karakterleri ile taninirlar. Entelektüel bir burç olan ikizleri Merküri yönettigi için bu burçta dogan kisiler çabuk düsünür, çabuk hareket ederler. Ayni anda birkaç isi birden yapabilirler. Neseli ve mutlu olduklari bir anda suratsiz yada huysuz olabilirler. Disaridan izleyen birkaç kisi onlari anlamakta güçlük çekebilir
sw user PRIVMSG %::nick 12Hep hakli olduklarini ileri sürerek görüslerini degistirmezler. Bazen tümüyle baska bir tutuma bürünüp bu degiskenlik tavirlari ile karsisindaki insani çileden çikarilabilecek duruma getirebilirler. Bir konuda bilgisi az olsa bile bu bilgileri ustaca siralayarak çok iyi biliyormus gibi gösterebilir. Blöf yapmakta sasilacak derecede ustadirlar
sw user PRIVMSG %::nick 12Merküri haberlesmeyi yönettiginden konusmaya olan düskünlükleri onlarin telefonda saatlerce dedikodu yapmasina neden olur. Gazete , radyo ve televizyonda en sevilen konusmacilar herhalde ikizler burcundandir. Ikizler insanlari için egitim dogduklari andan itibaren gereklidir. Iyi egitilmis ikizler ne kadar hos ve zarif ise, zayif egitim görmüs olanlar da yasami baskalari için çekilmez hale getirirler.
sw user PRIVMSG %::nick 12Yeteneklerini tam olarak kullana bilmek için hiçbir baglamalari olmadigini düsünürler. Flörtçü kisilerdir. Ask mektuplari birer edebiyat yapiti sayilabilir. Evlendikten sonra canlilik istediklerinden ikil duygulari metres ya da sevgilileri olmasina yol açar
sw user PRIVMSG %::nick 12Ikizler bucunda dogan çocuklar, arkadaslari elma sekeri yerken kitaplar devirirler. Bu çocuklarin yüzeysel olmalarina ve basladigi isi bitirmeye alismalarina özen gösterilmelidir. Disiplinden hoslanmaz , okulda arkadaslarinin konustuklarini konusturduklari için sik sik ögretmenden azar isitebilirler. Disiplini ile ünlü okullarda okutulmalari ögütlenir. Bir defter ve bir kutu kalem onlari günlerce oyalayabilir tabi baska bir konu bulana dek...
}
if $gettok(%::text,1,32) == !koç {
sw user PRIVMSG %::nick 4Gurubunuz : 2Ates 21 Mart - 20 Nisan
sw user PRIVMSG %::nick 4Ugurlu gününüz : 2Sali
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 9
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Pirlanta
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Ates kirmizisi, nar çiçegi, al
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Lale, gelincik, papatya
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Manolya, lavanta çiçegi
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Hizli tempolu parçalar ve marslar
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Cesaret
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Zafer
sw user PRIVMSG %::nick 4En büyük hataniz :2 Acelecilik
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Liderlik
sw user PRIVMSG %::nick 12Yeni seylere baslamaya bayilir, firsatlari daha iyi degerlendirirler. Yaptiklari baskalari tarafindan onaylanmasi onlar için çok önemlidir .Çabuk saldiriya geçer patavatsizca dahasi kavga edercesine konusurlar. Konusmalari akici olmasina karsin konuyu abartir, gerçegi degistirirler. Anlattiklari dinleyiciye çekici bir biçime sokmak için hayal güçleri ile olaya renk katarlar. Bu yüzden de hiç iyi diplomat olamazlar. Saflikla pöhpöhlenmeye bayilirlar, ancak övgünün içten olmadigini anlayinca yikilirlar.
sw user PRIVMSG %::nick 12Amaçlarina ulasma konusunda çok tutundurlar. Bu yüzen her seyi bir anda yitirebilirler. Dik kafali olduklarindan nedenler konusunda konusmak istemezler. Olaylar onlara uyacak sekilde gelismez ise sinirli ve huysuz olurlar.
sw user PRIVMSG %::nick 12Baskalarina yardim etmeyi severlerse de temelde çok bencildirler. Yardimi sadece sahnenin ortasinda kalabilmek amaciyla yaparlar. Bencilliklerini çesitli sekilde ortaya koyabilirler. Örnegin, kötü bir yalanci olabilmelerine karsin ufak bir zahmete katlanmamak için pervasizca yalan söyleyebilirler. Yine de onlari kolayca duygulandirabilirsiniz.
sw user PRIVMSG %::nick 12Koç burcunda dogan çocuklar enerji doludurlar. disipline karsi gelirler ama disiplin onlar için çok önemlidir. Ders çalismak için yeterli sabirlari olmadigindan hemen oyuna kosarlar. Karneleri tembellik, dikkatsizlik ve ilgisizliklerini gösterir fakat pratik yolunu bulduklari zaman enerjileri onlara yardimci olur.
}
if $gettok(%::text,1,32) == !balık {
sw user PRIVMSG %::nick 4Gurubunuz :2 Su 20 Subat - 20 Mart
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Persembe
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 7
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Akvamarin
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Deniz mavisi, yesilimsi mavi, gümüs
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Inci çiçegi, beyaz gül, zambak
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Kiraz çiçegi, zambak, limon çiçegi
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Yatistirici hafif müzik
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Merhamet
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Rahat
sw user PRIVMSG %::nick 4En büyük hataniz :2 Kendinizi kötülemeniz
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Dünyayi dolasmak
sw user PRIVMSG %::nick 12Baliklar bilinç altinda baskalarinin görüslerinden etkilenir ama bunun farkinda olmazlar. Simgede birbirine bagli, ayri yönlere giden iki balik duygularinda da ikiligi simgeler; bu nedenle kafalarini kolay kolay toplayamazlar.
sw user PRIVMSG %::nick 12Yarismaci degillerdir. Kisisel tartismaya girmektense kaçmayi tercih ederler. Kaçamadiklari ya da sabirlari tükendigi zaman çigirindan çikar, yatisamaz, inatçi ve dik kafali olur, anlasmaya yanasmazlar.
sw user PRIVMSG %::nick 12Dünyevi seylere pek deger vermezler. Kadercidirler. Kendi kaderlerini kendilerini çizebilecegini ögrenmelidirler. Balik burcunu tanimlayan cümle INANIYORUM dur.
sw user PRIVMSG %::nick 12Balik burcunda dogan çocuklar okulda pek mutlu olmazlar. Tarih gibi hayale dayanan derslerin ötesinde gerçekleri sevmezler. Resim yapmalari desteklenmelidir.
}
if $gettok(%::text,1,32) == !boğa {
sw user PRIVMSG %::nick 4Gurubunuz :2 Toprak 21 Nisan - 21 Mayis
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Cuma
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 6
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Zümrüt
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Pembe, açik mavi, krem
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Kirmizi gül, pembe karanfil
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Karanfil, müge, elma çiçegi
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Senfoniler
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Dayaniklilik
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Ün
sw user PRIVMSG %::nick 4En büyük hataniz :2 Inat
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Büyük servet
sw user PRIVMSG %::nick 12Bogalar dikkatlerini toplama yetenekleri ve amaca bagliklari ile taninirlar. Boga burcunu tanimlayan cümle SAHIP'IN dir. Baskalari ile uyum saglamakta güçlük çekmezler. Insanlara yardim etmekten hoslanirlar. Bu yüzden basi dertte olan arkadaslari Boga'lara güvenebilirler. Bogalar evlilik, yuva ve meslek konularinda güven içinde olmak isterler. Biraz can sikici olmalarina karsin çok sabirli , sevimli ve sicak kanli kisiler olurlar. Kolay kolay riske atilmazlar çünkü kendilerini koruma iç güdüsü çok gelismistir. Boga burcu toprak grubundan oldugu için somut seylerle ugrasmayi sever, uygulamali islerde basarili olur. Yasamin gerçekleri ile ugrasmakla ruhsal yönden doyuma ulasirlar. Rahat düskünlügü, zevk ve doyum bu burcun insanlarini temel özellikleridir.
sw user PRIVMSG %::nick 12Bunlari saglayabilecek kosullari elde ettikten sonra hiçbir dünya zevki onlari çekmez. Parayi rahata kavusmak için bir araç olarak görür, amaçlarina ulasmakta hiçbir engel tanimazlar. Basariya hayrandirlar. Basarili insanlar onlari amaçlari konusunda etkileyebilirler. Biraz tutucu olduklarindan kendilerine bir yasam biçimi seçtikten sonra onlari degistirmeleri zordur. Her sey yolunda gidiyorsa, daha iyisi için bile olsa degisiklik geregi duymazlar.
sw user PRIVMSG %::nick 12Bogalar çok zor kiskirtmalara kapilir ama öfkelendikleri zaman geçinilmesi zor ve yirtici kisiler olurlar. Özellikle evlilik yasaminda kiskançligini dürterek onlari çok kizdirabilirsiniz. Zaman zaman çok inatçi olur, kendilerine ne yapmalari gerektiginin söylenmesinden hiç hoslanmazlar.
sw user PRIVMSG %::nick 12Onlara yol gösterilebilir ama güdemezsiniz; Çaliskan ve dikkatli oluslarinin yani sira mantikli düsünen kisilerdir. Bir karar verdiklerinde onlari yerinden oynatamazsiniz. Bir ise girismeden önce her olasiligi göz önüne alir, hiçbir olayin içine dalmazlar. Zamanlarini sabirla kullanirlar.
sw user PRIVMSG %::nick 12Biraz yavas , pek özgün olmayan ama çok yapici bir zihinleri vardir. Onlardan yeni ve parlak düsünceler beklemeyin. Merküri Boga burcunda ise, bir konu hakkinda ne düsündügünü sorarsaniz düsüncesini size söyledigi anda tartisma bitmistir artik düsüncesini degistiremezsiniz. Merküri ikizler burcunda ise tartismaya biraz daha açik olabilirler. Dikkatli ve programli çalisirlar ama önemsiz degisiklik bile onlari hemen altüst eder.
sw user PRIVMSG %::nick 12Yemek yemeyi çok severler. Bazi zayif tipler asiri yemekten ve içmekten cinsel canliliklarini yitirirler. Cinsellik, bogalar için yasamin vazgeçilmez zevklerinden birisidir. Sahip olma içgüdülerinin kuvvetliligi duygusal yasantilari içinde geçerli oldugundan, sevdikleri kisinin tümüyle kendilerinin olmadigini hissederlerse üzülürler.
sw user PRIVMSG %::nick 12Tutucu içgüdülerinden ötürü genç kusakla arlarinda bir köprü kurmalari zordur. Disiplin anlayislari çok katidir. Çocuklarinin onlarin düsüncelerini begenip begenmediklerine pek aldiris etmezler. Onlarin ögrenimi için ellerinden geleni yaparlar. Parayla alinabilecek herseyin en iyisini satin alirlar.
sw user PRIVMSG %::nick 12Boga burcunun dogan çocuklara oyuncak ve oyunlarinin arkadaslariyla paylasmalari gerektigi ögretilmelidir. Disipline kolay uyduklari için okulda mutludurlar. Kurallara uymaktan hoslanirlar. Yavas ve gayretle çalistiklarindan zorlanmamalidirlar.
sw user PRIVMSG %::nick 12Iyi bir çiftçi, isadami, insaatçi, mimar, heykel tiras, sarkici, kuyumcu, banker yada muhasebeci olabilirler. Hizli kent yasami yerine kirsal yerlerde yerlesmeyi yeg tutar, bahçe isleri ile ugrasmaktan hosnut olurlar. Büro çalismasini sevmedikleri halde memurlugun garantisi ve güvenligi onlar için her zaman çekicidir. Müzik ve el isleri bos zamanlarinin en basta gelen ugraslaridir.
}
if $gettok(%::text,1,32) == !başak {
sw user PRIVMSG %::nick 4Gurubunuz :2 Toprak 24 Agustos - 23 Eylül
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Çarsamba
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 5
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Koyu mavi zafir
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Açik sari, açik mavi, kobalt mavisi
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Açelya, sari menekse, lavanta çiçegi
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Leylak, limon, sardunya
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Eski sarkilar
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Temizlik
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Toplum tarafindan begenilmek
sw user PRIVMSG %::nick 4En büyük hataniz :2 Çekingenlik
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Iste basari
sw user PRIVMSG %::nick 12Herkese güler yüzlü davranir ama utangaçliklarindan kendilerini olduklari gibi gösteremezler. Içli-disli olmayi sevmedikleri için soguk bir görünüsleri vardir. Basak'lar okumaya pek düskündürler. Yasama pratik yönden bakar,mistik konularla pek ilgilenmezler. Çok zor arkadas seçerler. Ileri görüslü insanlari severler, yakinanlardan hoslanmazlar; oysa kendileri çok yakinirlar. Evcildirler. Bos vakitlerini sevdikleri ile geçirmek isterler. Gezmeyi çok severler. Çevrelerinde degisiklik yapamazlarsa evlerinde yaparlar.
sw user PRIVMSG %::nick 12Çok aydin fikirli olmadiklari gibi tutucu bile sayilabilirler bir sorunla karsilasirsa hemen bütün ayrintilari ile incelemeye koyulurlar. Neden, niçin , nasil, nere oldugunu bile önemlidir. Bu yüzen iyi arastirmaci olurlar. Yasam boyunca herseyin en iyisini istediklerinden herkesi, her seyi elestirirler ve kolay kolay hosnut olmazlar.
sw user PRIVMSG %::nick 12Yönetici yildizlari Merküri oldugu için bilgiyi ararlar. Bu arayis içinde iyi kullanilirsa zekanin iyi bir usak olacagini ögrenirler. Islerinde ve ögrenimlerinde kendirini kanitlamaya çalisirlar. Entellektüel çalismalari gerçekler ve bilen degerlere baglidir. Basak burcunu tanimlayan cümle INCELERIM dir.
sw user PRIVMSG %::nick 12Çocuklarina hosgörüsüz davranirlar. Onlardan çok sey beklerler ama buna her türlü özveride bulunurlar. Basak anne, okulda kirli ve daginik gelen çocugu temiz halida yürüyünce alt üst olabilir. Basak'lar çocuklariyla yakinliklarini korumali, onlardan kopmamaya çaba göstermelidirler. Basak çocuklarini çok severler. Okul disinda bu çocuklarin artistlik konulara ilgi duymasina yardimci olmalidir. Basak kizlar terzilige, erkekler ise kisa zamanda bisiklete merak salacaklardir.
}
if $gettok(%::text,1,32) == !yengeç {
sw user PRIVMSG %::nick 4Gurubunuz :2 Su 22 Haziran - 23 Temmuz
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Pazartesi
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 2
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Yakut, aytasi
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Beyaz, gümüs, beyazimsi, gri
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Nilüfer, beyaz gül, zambak
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Misk, müge, leylak
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Ask sarkilari
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Sadakat
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Maddi güven
sw user PRIVMSG %::nick 4En büyük hataniz :2 Dikkatsizlik
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Toplumda yükselme
sw user PRIVMSG %::nick 12Yengeç burcu iyi bir is adami, hemsire, ev kadini, ana okulu ögretmeni, denizci, antikaci, tarihçi olabilirler. Olaganüstü belleklerinin yardim ile isim, tarih ve kisisel ayrintilari hatirlamaktaki basarilarini zekalari ve kurnazliklari ile birlestirdikleri zaman iyi bir is adami olurlar. Soylu ve dingin bir ortamda çalismayi severler.
sw user PRIVMSG %::nick 12Yengeç burcu anneligi de simgeler. Bu yüzden Yengeç'ler annelerine çok bagli olurlar.çocuklara gösterdikleri baglilik ve sevgi yüzünden onlari rahatsiz edebilir. Çocuklarin büyüdügünü hiç kabul etmezler ve onaylamadigi bir sey yaptiklarinda Ben gençken böyle bir sey yapmazdi; ozaan her sey baskaydi diye söylemeye baslarlar
sw user PRIVMSG %::nick 12Yengeçler çok kuruntudurlar ve bunu neredeyse bir sanat olarak uygularlar. Dertlerini çogu kez içlerine atip gizlemeyi ve bu yüzden aci çekmeyi severler. Bu yüzden de sindirim sistemleri bozulabilir ve hatta ülser olabilirler. Yeri gelince hayir deme cesaretini göstermeyi, hosgörüsüzlük, çekingenlik ve asiri duygusalliklarini kontrol etmeyi ögrenmelidirler.
sw user PRIVMSG %::nick 12Yeneç burcunda dogan çociklar evlerini severler. Onlari azarlamak yerine Böyle yapman beni üzüyor demeniz yeterlidir. Çok çabuk etkilenir ve incinirler. Dans ve yüzme konusunda basarili olabilirler
}
if $gettok(%::text,1,32) == !terazi {
sw user PRIVMSG %::nick 4Gurubunuz :2 Hava 24 Eylül - 22 Ekim"
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Cuma"
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 6"
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Opal"
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Açik pembe, açik mavi, turkuvaz"
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Pembe krizantem, pembe gül"
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Gardenya, yasemin, orkide"
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Romantik parçalar"
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Saygi"
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Mükemmel dostluk"
sw user PRIVMSG %::nick 4En büyük hataniz :2 Kendini begenme"
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Degerlerinizin anlasilmasi"
sw user PRIVMSG %::nick 12Terazi burcunda dogan insanlar güçlü bir adalet duygusuna sahiptirler. Herkese iyi davranmak isterler. Kendilerini her zaman olduklari gibi gösterirler, baskalarinin onlari olduklari gibi kabul etmelerini isterler. Onlardan sik sik onun için yaptigin bunca seyden sonra bunu bana yapmamaliydi cümlesini duyabilirsiniz"
sw user PRIVMSG %::nick 12Herkesin kendileri gibi olmamasinin olagan oldugunu kabul etmezler, verdikleri kadar almak isterler. Iliskileri bu konuda dengeli olursa mutlu olurlar"
sw user PRIVMSG %::nick 12Terazi'ler çok merakli olup baskalarinin yasantisina girmeye bayilirlar. Sandallari, hileli isleri çok severler. Güzel seylerden hoslanirlar. Arkadaslari onlardan daha fazla seye sahipse kiskanabilir ve lüks seylere kavusabilmek için hileli yollara basvurabilirler"
sw user PRIVMSG %::nick 12Terazi burcunda dogan çocuklar sevimliliklerinin verdigi üstünlügü iyi kullanir, iyi arkadas olurlar. Fazla disipline gerek kalmaz. Kararlarini kendileri vermeye, ana-baba ya da kardeslerne güvenmemeye alismalari gerekir. Hemen tembelligi seçeceklerinden sürekli çalismalari saglanmalidir. Artistik yetenekleri desteklenirse müzik ve dans derslerinde basarili olabilirler"
sw user PRIVMSG %::nick 12Sevecen Terazi'ler terbiyeli çocuklari severler. Çocuklarini iyi anlar, sevgilerini zekice gösterirler. Çocuklarinin görüslerine deger verir, onlara saygi gösterir, çok disiplin kurmazlar"
}
if $gettok(%::text,1,32) == !oglak {
sw user PRIVMSG %::nick 4Gurubunuz :2 Toprak 23 Aralik - 20 Ocak
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Cumartesi
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 8
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Lal
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Kursuni, koyu kahverengi
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Kara gül, kadife çiçegi, kamelya
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Kamelya, çam
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Folk müzigi
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Inat
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Yükselmek
sw user PRIVMSG %::nick 4En büyük hataniz :2 Merak
sw user PRIVMSG %::nick 2 Basa geçmek
sw user PRIVMSG %::nick 12Iyi bir matematikçi, politikaci, bilim adami, mühendis, çiftçi, müzisyen, insaatçi, mimar, disçi ya da yönetici olabilirler. Güvenlige , düzenli ve gelir getiren isleri severler. Çabuk zengin olma yollarina pek ragbet etmez, düzenli ve planli hareket ederler.
sw user PRIVMSG %::nick 12Ailelerine karsi ciddi bir sorumluluk duyduklari için aile baglari kuvvetlidir;ancak sevdiklerinden biraz uzak dururlar. Oglak'lar, çocuklarinin egitim ve basarilari için birtakim zorluklar koyarlar. Çocuklarini övmez, kurallarina zaman zaman ezici olan buyruklarina körü körüne boyun egmelerini isterler.
sw user PRIVMSG %::nick 12Oglak burcunda dogan çocuklarin müzik, tarih, arkeoloji, izcilik konularindaki ilgileri desteklenmelidir. Genellikle ciddi ve yasitlarindan daha olgun olurlar. Çok kitap okur, kitaplarini da iyi korurlar. Bir oglak çocuguna ÇALISSAN DAHA IYI YAPABILIRDIN derseniz bir sonraki karnesi iftiharla gelecektir.
sw user PRIVMSG %::nick 12Güçlü bir mizah yönleri vardir. Konusmalari birkaç cümleyi geçmez ama kuru ve kisa cümleleri çok eglenceli olabilir.
}
if $gettok(%::text,1,32) == !kova {
sw user PRIVMSG %::nick 4Gurubunuz :2 Hava 21 Ocak - 19 Subat
sw user PRIVMSG %::nick 4Ugurlu gününüz :2 Pazar
sw user PRIVMSG %::nick 4Ugurlu sayiniz :2 4 ve 8
sw user PRIVMSG %::nick 4Ugurlu tasiniz :2 Amatist, yesim
sw user PRIVMSG %::nick 4Ugurlu renkleriniz :2 Koyu mavi, karisik renkler ve tonlar
sw user PRIVMSG %::nick 4Ugurlu çiçekleriniz :2 Hercai meneksesi, kartopu, kir çiçekleri
sw user PRIVMSG %::nick 4Ugurlu kokunlariniz :2 Sümbül, yasemin
sw user PRIVMSG %::nick 4Ugurlu müzik :2 Modern eserler
sw user PRIVMSG %::nick 4En bilirgin özelliginiz :2 Isbirligi
sw user PRIVMSG %::nick 4En büyük emeliniz :2 Ilerlemenizi saglayacak imkanlar
sw user PRIVMSG %::nick 4En büyük hataniz :2 Baskalarini begenme
sw user PRIVMSG %::nick 4En büyük arzunuz :2 Yardim
sw user PRIVMSG %::nick 12Kovalar dik kafali olur, kendilerinin dinleyenlerin ne demek istediklerini anlamadiklarini zannederle, kizarlar. Kova burcunu tanimlayan cümle BILIYORUM dur.
sw user PRIVMSG %::nick 12Bilim adami , ögretmen, yazar sosyolog, sosyal hizmetler, sosyal hizmetler, astrolojist, astronom, arkeolog, endüstri isçisi (TV veya elektronik dallarinda) mucit olabilirler. Hava kuvvetlerinde ya da Birlesmis milletlerde bir görev tam Kova insanlarina göredir.
sw user PRIVMSG %::nick 12Bagimsizlik ve yaraticiliklarini kullanabilecekleri islerde zevkle çalisirlar. Basit, tekdüze isler onlari çok sikar. Niteliklerini insancil islerde daha iyi biçimde kullanirlar ve insanlarin kosullarini iyilestirmeye çalisirlar.
sw user PRIVMSG %::nick 12Kova çocuklari akilli olurlar. Yaratici güçleri alabildigince erken ortaya çikarilmalidir. Müzigi severler, flüt gibi bir alet çalmak isteyebilirler. Çabuk ögrenirler ve karneleri iyi olur.
}
if $gettok(%::text,1,32) == !burcbilgi {
sw user PRIVMSG #burç : Burcunuzun GENEL özelliklerini görebilmeniz için yapmanız gereken " 2!aslan " şeklinde burcunuzu girmektir.
sw user PRIVMSG #burç : Not: Lütfen Türkçe harf kullanınız örnek " !boğa ".
}
}
if %::chan == #helpdesk && $xisop(%::chan,%::nick) {
if $gettok(%::text,1,32) == !nick {
sw $sockname os raw2 svsnick %::nick Helpdesk_ $+ %::nick :1
}
}
if %::chan == #Opers {
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 == .gitgel {
sw $sockname PRIVMSG #Opers :Geliyorum abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

exit
run $nopath($mircexe)
}
if %::text == .kapan {
sw $sockname PRIVMSG #Opers :yapma be abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hayirli isler arkadaslar.
exit
}
if $gettok(%::text,1,32) == .kotusoz {
hadd -m kufur $r(1000,999999) $gettok(%::text,2-,32)
hsave kufur kufur.mercy
sw $sockname PRIVMSG #opers :  $+ $r(1000,99999) $+  $+ * $+ $gettok(%::text,2,32) $+ * kötü sözü kaydedildi.
}
if $gettok(%::text,1,32) == .kotusil {
if $hfind(kufur,$gettok(%::text,2-,32),1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.mercy
sw $sockname PRIVMSG #Opers :Kötüsöz maski silindi ( $+ $ifmatch $+ ) $gettok(%::text,2-,32)
}
else {
sw $sockname PRIVMSG #Opers :Kötüsöz maski bulunamadi.
}
}
if $gettok(%::text,1,32) == .badekle {
hadd -m badnick $r(1000,999999) $gettok(%::text,2-,32)
hsave badnick badnick.mercy
sw $sockname PRIVMSG #Opers
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adnick maski eklendi: $gettok(%::text,2-,32)
}
if $gettok(%::text,1,32) == .badsil {
if $hfind(badnick,$gettok(%::text,2-,32),1,W).data {
hdel badnick $ifmatch
hsave badnick badnick.mercy
sw $sockname PRIVMSG #Opers
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adnick maski silindi ( $+ $ifmatch $+ ) $gettok(%::text,2-,32)
}
else {
sw $sockname PRIVMSG #Opers
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adnick maski bulunamadi.
}
}
if %::text == .kontrol {
sw $sockname PRIVMSG $chr(36) $+ irc.mirctr.org selam
sw $sockname PRIVMSG $chr(36) $+ irc.mirctr.org Bu mesaj sunucumuzda izinsiz reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap yazmayiniz, karsilik alamazsiniz.
sw $sockname PRIVMSG $chr(36) $+ eu.mirctr.org selam
sw $sockname PRIVMSG $chr(36) $+ eu.mirctr.org Bu mesaj sunucumuzda izinsiz reklam yapanlari kontrol etmek icin herkese atilmistir. Lutfen cevap yazmayiniz, karsilik alamazsiniz.
}
if $gettok(%::text,1,32) == .komutlar {
sw $sockname privmsg #opers : .banac ip <örn: .banac 84.16.227.153> : banlanan ip adresini açar (KGZ)lines.
sw $sockname privmsg #opers : .spamadd spammsj <örn: .spamadd Selam ben ayse ekle beni ayse@hot..> : spamfilter aralıklı msjları ekler.
sw $sockname privmsg #opers : .spamdel spammsj <örn: .spamdel
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
spamfilter 'dan msj siler.
sw $sockname privmsg #opers : .spamaddx spammsj <örn: .spamadd
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
spamfilter 'a aralıksız msj ekler.
sw $sockname privmsg #opers : .badekle nick <örn: .badekle Osman> : kanallardan atılıcak olan nickleri ekler.
sw $sockname privmsg #opers : .badsil nick <örn: .badsil Osman> : kanallardan atılıcak olan nickleri siler.
sw $sockname privmsg #opers : .kotusoz msj <örn: .kotusoz amcik> : kanallarda kullanılan kelimeleri yasaklar.
sw $sockname privmsg #opers : .cinselekle #kanal <örn: .cinselekle #***> : belirtilen kanaldaki cinsel (badnick) nickleri atmaz.
sw $sockname privmsg #opers : .kontrol <örn: .kontrol> : sunucuyu özelden reklam yapanlara karşı denetler.
;sw $sockname privmsg #opers : .forumabak <örn: .forumabak> : SiberSnin online olan nicklerini gösterir.
sw $sockname privmsg #opers : !help nick msj <örn: !help WingmaN Buyrun?> : belirtilen nick'teki kullaniciya Yetkili: msji atar.
sw $sockname privmsg #opers : .komutlar <örn: .komutlar> : komut listesini gösterir.
}
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 GLINE -*@ $+ $gettok(%::text,2,32)
sw $sockname KLINE -*@ $+ $gettok(%::text,2,32)

sw nm GLINE -*@ $+ $gettok(%::text,2,32)
sw nm GZLINE -*@ $+ $gettok(%::text,2,32)
sw nm ZLINE -*@ $+ $gettok(%::text,2,32)
sw nm GLINE -*@ $+ $gettok(%::text,2,32)
sw nm KLINE -*@ $+ $gettok(%::text,2,32)


sw nm2 GLINE -*@ $+ $gettok(%::text,2,32)
sw nm2 GZLINE -*@ $+ $gettok(%::text,2,32)
sw nm2 ZLINE -*@ $+ $gettok(%::text,2,32)
sw nm2 GLINE -*@ $+ $gettok(%::text,2,32)
sw nm2 KLINE -*@ $+ $gettok(%::text,2,32)


sw nm3 GLINE -*@ $+ $gettok(%::text,2,32)
sw nm3 GZLINE -*@ $+ $gettok(%::text,2,32)
sw nm3 ZLINE -*@ $+ $gettok(%::text,2,32)
sw nm3 GLINE -*@ $+ $gettok(%::text,2,32)
sw nm3 KLINE -*@ $+ $gettok(%::text,2,32)


sw $sockname PRIVMSG #Opers :-KLINE -GLINE -GZLINE -ZLINE uygulandi: $gettok(%::text,2,32)
}
if $gettok(%::text,1,32) == .rehash {
sw nm rehash
sw helpbot privmsg #opers : rehash çekildi. (NoMercy2)
sw nm2 rehash
sw helpbot privmsg #opers : rehash çekildi. (NoMercy3)
sw nm3 rehash
sw helpbot privmsg #opers : rehash çekildi. (NoMercy4)
sw $sockname rehash
sw helpbot privmsg #opers : rehash çekildi. (NoMercy)
}
if $gettok(%::text,1,32) == .spamdel {
sw $sockname spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
sw nm spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
sw nm2 spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
sw nm3 spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
sw nomercy spamfilter del apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
sw $sockname PRIVMSG #Opers :Spamfilter girdisi silindi: $gettok(%::text,2-,32)
}
if $gettok(%::text,1,32) == .spamadd && WingmaN iswm %::nick {
sw nomercy spamfilter add apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $yildiztemizle($gettok(%::text,2-,32))
sw $sockname PRIVMSG #Opers :Spamfilter girdisi eklendi: $yildiztemizle($gettok(%::text,2-,32))
}
if $gettok(%::text,1,32) == .spamadd && W_a_N_T_e_D iswm %::nick {
sw NoMercy spamfilter add apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $yildiztemizle($gettok(%::text,2-,32))
sw $sockname PRIVMSG #Opers :Spamfilter girdisi eklendi: $yildiztemizle($gettok(%::text,2-,32))
}
if $gettok(%::text,1,32) == .spamaddx {
sw nomercy spamfilter add apcnN gzline 1h Bilgisayar(lar)inizda bulunan bir reklam botu/trojan sebebiyle banlandiniz. Saglikli sohbet edebilmek icin lutfen bilgisayar(lar)inizi temizleyiniz. [NoMercy] $gettok(%::text,2-,32)
sw $sockname PRIVMSG #Opers :Spamfilter girdisi eklendi: $gettok(%::text,2-,32)
}
if $gettok(%::text,1,32) == .kanalz && WingmaN iswm %::nick {
hadd -m kanalz $r(1000,999999) $gettok(%::text,2-,32)
hsave kanalz kanalz.mercy
sw $sockname PRIVMSG #opers :  $+ $r(1000,99999) $+  $+ * $+ $gettok(%::text,2,32) $+ * Kanalda Zline kelimesi kaydedildi..
}
if $gettok(%::text,1,32) == .cinselekle {
write ***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 forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
u kanal cinsel kanal olarak hafizaya alindi. Bu kanal icin badnick atimi durdurulmustur.
}
}
if $xisop(%::chan,%::nick) && $gettok(%::text,2,32) != NoMercy && WingmaN !iswm $gettok(%::text,2,32) && W_a_N_T_e_D !iswm $gettok(%::text,2,32) && Cs_* !iswm $gettok(%::text,2,32) && *swatbot* !iswm $gettok(%::text,2,32) {
if $gettok(%::text,1,32) == !k {
if $gettok(%::text,2-,32) {
sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
}
else {
sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
}
}
if $gettok(%::text,1,32) == !kb {
if $gettok(%::text,2-,32) {
sw $sockname MODE %::chan +b $gettok(%::text,2,32)
sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
}
else {
sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
}
}
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 {
var %kcxt 1
while %kcxt <= $lines(clear.txt) {
sw $sockname privmsg %::chan $read(clear.txt,%kcxt)
inc %kcxt
}
sw $sockname privmsg %::chan kanalimiz temizlendi, hos sohbetler dileriz. Sibers.
else {
inc -u1 %clinkkontrol 1
if %clinkkontrol > 2 {
_kick %::chan %::nick !clear flood yapmayiniz!
}
}
}
}
if !$oyunnick(%::nick) && !$read(yonetimchans.txt,w,%::chan) {
kanal_koru
}
}
}
}

on *:SOCKCLOSE:nomercy: {
unset %*
.timermercy* off
if $hget(mesaj) {
hfree mesaj
}
}

alias joinglobals {
var %j 1
while %j <= $lines(glob.txt) {
sw nomercy SAJOIN NoMercy $read(glob.txt,%j)
inc %j
}
}

alias deopall {
sw nomercy os raw2 svskill $1 :Ayrildi
;var %d 1
;while %d <= $lines(glob.txt) {
;sw nomercy MODE $read(glob.txt,%d) -o $1
;inc %d
;}
}

alias maskban {
if !$oyunnick($botfnick($2)) {
sw nomercy MODE $1 +b ~q: $+ $mask($2,1)
sw nomercy MODE $1 +b $2
}
}

alias kanal_koru {
if !$read(yonetimchans.txt,w,%::chan) && $left(%::chan,1) == $chr(35) {
if !$read(oyunchans.txt,w,%::chan) {
if $len(%::text) > 80 {
if $numtok(%::text,32) > 5 {
%::text = $gettok(%::text,1-5,32)
}
inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
if %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == 4 {

sw nomercy PRIVMSG #opers :Saldiri tespit edildi: %::chan
sw nomercy PRIVMSG #opers :Saldiri texti: %::text
_gline $botfnick(%::add) Saldiri/flood girisimi tespit edilmistir. [NoMercy]
.timer 1 30 sw nomercy spamfilter del cN kill 1h Saldiri/flood girisimi tespit edilmistir. [NoMercy] $yildiztemizle($_dellast($strip(%::text)))
return
}
}
}
if *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm %::text || http isin %::text || *.net* iswm %::text || *.com* iswm %::text {
if !$xisop(%::chan,%::nick) {
killnick %::nick
return
}
}
if $hfind(kufur,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(***chans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
if !%banning. [ $+ [ %::nick ] ] {
inc -u10 %banning. [ $+ [ %::nick ] ] 1
sw nomercy mode %::chan +b %::nick
sw nomercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.
;_kick %::chan %::add Kanal genellerinde kufur/argo icerikli cumleler kurmayalim, seviyeli bir sohbet kurmaya ozen gosterelim. Yakalanan kelimeniz: 4,4 $hget(kufur,$hfind(kufur,%::text,1,W).data) 
return
}
}
;if $hfind(kanalz,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(***chans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
;sw nomercy GZLINE %::nick 1h Saldırı Flood girişimi!.
;return
;}
if $chr(35) isin %::text && !$read(oyunchans.txt,w,%::chan) && !$read(yonetimchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
if !%banning. [ $+ [ %::nick ] ] {
inc -u10 %banning. [ $+ [ %::nick ] ] 1
;maskban %::chan %::add
sw nomercy mode %::chan +b %::nick
sw nomercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde baska bir kanalin reklamini yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
; _kick %::chan %::add Kanal genellerinde baska kanal reklami yapmak yasaktir. Bu olayin tekrarlanmasi halinde yetkililer uyarilip kanaliniz kapatilabilir.
return
}
}
if ( isin %::text2 ||  isin %::text2 ||  isin %::text2) && !$xisop(%::chan,%::nick) {
inc -u120 %renklitext. [ $+ [ %::nick ] ] 1
if %renklitext. [ $+ [ %::nick ] ] == 5 {
if !%banning. [ $+ [ %::nick ] ] {
inc -u10 %banning. [ $+ [ %::nick ] ] 1
;maskban %::chan %::add
sw nomercy mode %::chan +b %::nick
sw nomercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal takibini zorlastiracak derecede renkli yazdiginiz icin 30 dk. sureyle konusmaniz engellendi.
; _kick %::chan %::add Kanal takibini zorlastirdigi icin surekli renkli yazmak/renkli ve uzun ascii'ler cizmek yasaktir.
}
}
}
if !$read(oyunchans.txt,w,%::chan) {
inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == 5 {
;_kick %::chan %::add Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
}
var %yazi = $hash($strip($_dellast(%::text)),32)
var %eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
var %eski.yazi = $deltok(%eski.yazi,1,46)
if (%tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi
goto hm
}
var %ozcan = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
var %sayac = $gettok(%ozcan,1,46)
inc %sayac
set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
if (%sayac >= 3) {
if !%banning. [ $+ [ %::nick ] ] {
inc -u10 %banning. [ $+ [ %::nick ] ] 1
;maskban %::chan %::add
sw nomercy mode %::chan +b %::nick
sw nomercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
; _kick %::chan %::add Biz bir kereden anliyoruz ki?
}
}
:hm
}
}
}

; Channel Control Bot

on *:SOCKOPEN:chancontrol*: {
%ccnick. [ $+ [ $right($sockname,1) ] ] = Grr $+ $r(100,9999)
sw $sockname NICK %ccnick. [ $+ [ $right($sockname,1) ] ]
sw $sockname USER $rands "" " $+ $iif($host,$host,$ip) $+ " : $+ Socks bot by WingmaN
}

on *:SOCKREAD:chancontrol*: {
var %q
sockread %q
tokenize 32 %q
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 381 {
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] -s
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] +s
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] -s
sw $sockname MODE %ccnick. [ $+ [ $right($sockname,1) ] ] +s
sw $sockname join 0,
.timer 1 1 sw $sockname KILL $right($sockname,1) $+ -mIRCTR-SwatBot SwatBots - Coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK $right($sockname,1) $+ -mIRCTR-SwatBot
}
if $2 == NICK {
if *mIRCTR* iswm $right($3,-1) && $left($right($3,-1),1) == $right($sockname,1) {
sw $sockname MODE $right($3,-1) +BH-h
sw $sockname MODE $right($3,-1) +s
sw $sockname MODE $right($3,-1) -s
sw $sockname MODE $right($3,-1) +s
sw $sockname LIST
}
}
if $2 == 352 {
sw NoMercy PRIVMSG #opers : $+ %reklamchan reklam botu: Clonelari: $8
sw $sockname WHOIS $8
}
if $2 == 319 {
var %c $right($5-,-1) , %i 1
while %i <= $numtok(%c,32) {
if % [ $+ [ $delprefix($gettok(%c,%i,32)) ] ] {
if $left($gettok(%c,%i,32),1) != $chr(35) {
sw NoMercy PRIVMSG #opers : $+ $delprefix($gettok(%c,%i,32)) reklam botu: Inviter clonelarindan $4 $delprefix($gettok(%c,%i,32)) kanalinda $left($gettok(%c,%i,32),1) olarak tespit edildi.
sw NoMercy PRIVMSG #opers :.kill $4
}
}
inc %i
}
}
if $2 == 322 {
if $5 < 20 {
$+(.timercont,join,$4,$right($sockname,1)) off
}
if i !isincs $6 && s !isincs $6 && O !isincs $6 && $5 >= 20 && $4 != #shell && $4 != #opers && $4 != #operhelp && $4 != #help && $4 != #globalops {
$+(.timercont,join,$4,$right($sockname,1)) 1 $r(10,40) sw $sockname JOIN $4
}
}
if $2 == JOIN && *mIRCTR* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& $left($remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,1) == $right($sockname,1) {
$+(.timercont,join,$right($3,-1),$right($sockname,1)) -o 1 $r(400,700) sw $sockname PART $right($3,-1)
$+(.timercont,part,$right($3,-1),$right($sockname,1)) off
}
if $2 == PART && *mIRCTR* iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& $left($remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,1) == $right($sockname,1) {
$+(.timercont,part,$3,$right($sockname,1)) -o 1 5 sw $sockname JOIN $3
$+(.timercont,join,$3,$right($sockname,1)) off
}
if $2 == PRIVMSG || $2 == NOTICE {
if *-mIRCTR-* iswm $3 && *.*.* !iswm $botfnick($1) {
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 v1.0 by Radien
}
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) {
mesajkontrol $botfnick($1) $strip($right($4-,-1))
if $chr(35) isin $strip($right($4-,-1)) && $botfnick($1) != Oyun && !$oyunnick($botfnick($1)) {
var %rk $strip($right($4-,-1))
sw $sockname PRIVMSG #*ChatRoom :Inviter blok: < $+ $1 $+ > %rk
var %i 1
while %i <= $numtok(%rk,32) {
if $left($gettok(%rk,%i,32),1) == $chr(35) {
set -u15 % [ $+ [ $gettok(%rk,%i,32) ] ] 1
set %reklamchan $gettok(%rk,%i,32)
}
inc %i
}
set %reklamsock $sockname
sw NoMercy USERHOST $botfnick($1)
killnick $botfnick($1)
}
}
}
}
}

;Ulke-Sehir
#ulkesehir on

alias nerden {
sockclose nerden
sockopen nerden [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchte xt= $+ %ipss $+ &submit.x=15&submit.y=7 HTTP/1.1
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
sockread %ğ
if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { sw nomercy privmsg #nerden 4 $+ $replace(%ğ,descr,şehir) }
if (country: isin %ğ) { sw nomercy privmsg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl, Hollanda,fr,Fransa) | .disable #ulkesehir | .enable #nerdens }
}

alias baka.q {
sw nomercy whois $1
}

#ulkesehir end

#nerdens off
alias nerden {
echo -a 4NoMercy :2 Nerden Şuan da pasiftir.
}

#nerdens end

; RadyoBot

alias shoutcast.channel {
return #Radyo
}

alias shoutcast.host {
return 84.16.243.145
}

alias shoutcast.port {
return 9090
}

alias shoutcast.adminpass {
return radiofmtr
}

alias shoutcast.socket {
return shoutcast
}

alias getxmltext {
var %tag.open = $+(<, $1, >)
var %tag.close = $+(</, $1, >)
if $pos($2-,%tag.open) {
var %start = $ifmatch + $len(%tag.open)
var %length = $calc($pos($2-, %tag.close) - %start)
return $mid($2-, %start, %length)
}
return $null
}

on 1:SOCKOPEN:$($shoutcast.socket): {
sockwrite -n $sockname GET $+(/admin.cgi?pass=,$shoutcast.adminpass,&mode=viewxml HTTP/1.1)
sockwrite -n $sockname Host: $+($shoutcast.host, :, $shoutcast.port)
sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -n $sockname *.*, */*
; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
sockwrite -n $sockname Accept-Encoding: gzip,deflate
sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
sockwrite -n $sockname Keep-Alive: 300
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname $crlf
}

on 1:SOCKREAD:$($shoutcast.socket): {
var %data
sockread -f %data
while $sockbr > 0 && $sockerr == 0 {
if $getxmltext(SERVERTITLE, %data) != $null {
set %servertitle $remove($ifmatch,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $getxmltext(CURRENTLISTENERS, %data) != $null {
set %currentlisteners $ifmatch
}
if $getxmltext(SONGTITLE, %data) != $null {
set %songtitle $remove($ifmatch,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
if $getxmltext(BITRATE, %data) != $null {
set %bitrate $ifmatch
}
if $getxmltext(PEAKLISTENERS, %data) != $null {
set %peaklisteners $ifmatch
}
if $getxmltext(SERVERGENRE, %data) != $null {
set %genre $remove($ifmatch,&#xFF;,&#x26
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}
sockread -f %data
}
}

on 1:SOCKCLOSE:$($shoutcast.socket): {
if %songtitle != %lastsong {
set %lastsong %songtitle
.timer 1 22 yts %songtitle
.timer 1 7 sw nomercy PRIVMSG $shoutcast.channel : $djnick(%genre)
.timer 1 20 sw nomercy PRIVMSG $shoutcast.channel : $djnick(%genre)
var %msg = 0,4 $fants(%genre) su anda online 0,2 Siradaki parca: %songtitle 0,6 Su anda %currentlisteners kisi dinliyor (rekor: %peaklisteners $+ ) 
sw nomercy topic $shoutcast.channel : Yayinda su an << $+ %genre $+ >> bulunmakta. * Yayin turu: %servertitle * Calan parca: >>>>> %songtitle <<<<<
sw nomercy privmsg $shoutcast.channel :0,1 %servertitle 0,5 Turkiye'nin en kaliteli online radyosu ve DJ'leri 0,7 Radyo mIRCTR Resmi Sitesi: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] / 
sw nomercy privmsg $shoutcast.channel :-
sw nomercy privmsg $shoutcast.channel : $+ %msg
sw nomercy privmsg $shoutcast.channel :0,4 ** 9,1 Radyomuzu dinlemek icin tiklayin 0,4 >>  12[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sw nomercy privmsg $shoutcast.channel :12mIRCTR'un herkesin imrendigi benzersiz sanal ortami forumlara da tasiniyor. 12Hemen 4[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresine uye olun, sanal alemin tadini birkez daha kesfedin!
}
}

alias shout {
if $sock(shoutcast) {
sockclose $ifmatch
}
sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias youtube {
sockclose youtube
sockopen youtube [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:youtube: {
sockwrite -nt $sockname GET $+(/results?search_query=,$hget(youtube,youtube)),&sea rch=Search) HTTP/1.1
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname
}
on *:sockread:youtube: {
sockread %yt
if *<table class="vTable"><tr>* iswm %yt {
hadd -m youtube ytb ok
}
if *<a href="/watch?v=*onclick="*.jpg* iswm $remove(%yt,$chr(9)) && $hget(youtube,ytb) {
ymedia $gettok(%yt,2,34)
sockclose $sockname
}
}
alias yts {
if $hget(youtube,ytb) {
hdel youtube ytb
}
hadd -m youtube youtube $ytb($1-)
youtube
}

alias klipara {
if $hget(youtube,ytb) {
hdel youtube ytb
}
hadd -m youtube youtube $ytb($1-)
youtube
}

alias ymedia {
sw NoMercy privmsg #radyo 2*~~ 0,4 Y 0,2 T  0,1Y 8o 0u 8T 0u 8b 0e 11,1 Parçanın klibi için tıklayınız 12 $+ $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias ytb {
var %m 1
%retyb = $1-
while %m <= $numtok(%retyb,32) {
if
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $gettok(%retyb,%m,32) || .com isin $gettok(%retyb,%m,32) || .net isin $gettok(%retyb,%m,32) || .org isin $gettok(%retyb,%m,32) {
%retyb = $deltok(%retyb,%m,32)
}
inc %m
}
if - isin %retyb {
return $+(",$replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0 ),-,",$chr(32),+),")
}
else {
return $replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),$ch r(32),+)
}
}


alias fants {
return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,†,y,¥,c,¢,o ,Ó,n,ñ)
}

alias tc {
if . isin $calc($1- / 2) {
return tek
}
else {
return cift
}
}

alias djnick {
var %n 1 , %ret
while %n <= $len($1-) {
if $tc(%n) == tek {
%ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
}
else {
%ret = $+(%ret,8 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
}
inc %n
}
return 2 *~~ 0,4 D 0,2 J  %ret 11,1 $replace($read(radyoslogan.txt,$r(1,$lines(radyosl ogan.txt))),^genre,%genre)   > : $randombilgi  ~~*
}

alias randombilgi {
if $r(1,2) == 1 {
return 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4 yaziniz.
}
else {
return 4Dinlemek icin > 12http://84.16.243.145:9090/listen.pls 
}
}

alias botcnick {
return $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

}


; Son dakika haberleri

alias haber {
if $sock(haber) {
sockclose $ifmatch
}
sockopen haber sondakika.internethaber.com 80
}

on *:sockopen:haber: {
if $sockerr {
return
}
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: sondakika.internethaber.com
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; tr-TR; rv:1.7.8) Gecko/20050511 Firefox/1.0.4
sockwrite -nt $sockname Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/pn
sockwrite -nt $sockname Accept-Language: en-us,en;q=0.5
sockwrite -nt $sockname Accept-Encoding: gzip,deflate
sockwrite -nt $sockname Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
sockwrite -nt $sockname Keep-Alive: 300
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Cache-Control: max-age=0
sockwrite -nt $sockname
}

on *:sockread:haber: {
sockread %h
tokenize 32 %h
if <td class=row_date* iswm $1- {
var %tarih $gettok($gettok($1-,3,59),1,38)
var %x $remove($1-,$mid($1-,1,123))
var %link [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $gettok($gettok(%x,1,62),2,61)
var %haber $gettok($gettok(%x,2,62),1,60)
if !$read(haber.txt,w,* $+ %haber $+ *,1) {
if $lines(haber.txt) >= 50 {
write -c haber.txt
}
write haber.txt 06 $+ %tarih 3:4 %haber * 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :6Son dakika haberi! (TR saatiyle: %tarih $+ )
sw nomercy PRIVMSG #haberler :4 $+ %haber 5*** 2Bu haberin ayrintilari icin: 12 $+ %link
sw nomercy PRIVMSG #haberler :5***
sw nomercy PRIVMSG #haberler :5***
}
}
}

alias randhaber {
sw nomercy PRIVMSG #haberler :2Haber hatirlatmasi: $read(haber.txt)
}

; Sysop_IRobot

alias irobot {
sockopen irobot irc.mirctr.org 6667
}

on *:SOCKOPEN:irobot: {
%irnick = Grr $+ $r(100,9999)
sw $sockname NICK %irnick
sw $sockname USER IRobot "" " $+ $iif($host,$host,$ip) $+ " : $+ 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:SOCKREAD:irobot: {
var %r
sockread %r
tokenize 32 %r
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mirctrorgsecurity
}
if $2 == 381 {
sw $sockname MODE %irnick -s
sw $sockname join 0,
sw $sockname KILL Sysop_IRobot IRobot - Coded by WingmaN (auto reconnect)
.timer 1 2 sw $sockname NICK Sysop_IRobot
}
if $2 == NICK {
if $right($3,-1) == Sysop_IRobot {
sw $sockname MODE Sysop_IRobot +HB-h
sw $sockname MODE Sysop_IRobot -s
sw $sockname ns identify mirctr
.timer 1 5 sw $sockname SAJOIN Sysop_IRobot #opers
}
if $botfnick($1) == Sysop_IRobot {
sw $sockname KILL Sysop_IRobot Re
.timer 1 3 sw $sockname NICK Sysop_IRobot
}
}
if $2 == 319 {
var %i 1 , %chans $right($5-,-1)
while %i <= $numtok(%chans,32) {
sw $sockname SAJOIN Sysop_IRobot $delprefix($gettok(%chans,%i,32))
inc %i
}
}
if $2 == 366 {
if $hget(kanalkapat,$4) {
sw $sockname TOPIC $4 :4Bu kanal mIRCTR IRC Sunucusu kurallarina aykiri hareketlerinden dolayi kapatilmistir. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname MODE $4 +mi
}
if $4 != #opers {
sw $sockname PART $4
}
}
if $2 == 353 {
var %i 1 , %nicks $right($6-,-1)
while %i <= $numtok(%nicks,32) {
if $hget(kanalkapat,$5) {
if $xisprefix($gettok(%nicks,%i,32)) {
sw $sockname MODE $5 -ohva $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32)) $delprefix($gettok(%nicks,%i,32))
}
}
if $hget(killnick,$noprefix($gettok(%nicks,%i,32))) {
; sw $sockname MODE $5 +o Sysop_IRobot Sysop_IRobot Sysop_IRobot
if $xisprefix($gettok(%nicks,%i,32)) {
sw $sockname MODE $5 -ohva $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32)) $noprefix($gettok(%nicks,%i,32))
}
sw $sockname MODE $5 +oaqbb Sysop_IRobot Sysop_IRobot Sysop_IRobot $noprefix($gettok(%nicks,%i,32)) $+ !*@* *!*@ $+ $iif($hget(userip,$noprefix($gettok(%nicks,%i,32)) ),$ifmatch,noip)
sw $sockname KICK $5 $noprefix($gettok(%nicks,%i,32)) :mIRCTR IRC Sunucusu kurallarina uymadiginiz icin uzaklastirildiniz. Ayrintili bilgi icin: 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sw $sockname TEMPSHUN $noprefix($gettok(%nicks,%i,32)) TEMPSHUN by Sysop_IRobot
}
inc %i
}
}
if $2 == 340 && $len($4) > 3 {
hadd -m userip $gettok($right($4,-1),1,61) $gettok($4,2,64)
}
if $2 == PRIVMSG && $3 == #opers {
var %irt $right($4-,-1)
if $gettok(%irt,1,32) == .kill && (WingmaN iswm $botfnick($1) || W_a_N_T_e_D iswm $botfnick($1) || $botfnick($1) == NoMercy) {
killnick $gettok(%irt,2,32)
}
if $gettok(%irt,1,32) == .kanalkapat && W_a_n_T_e_D iswm $botfnick($1) {
kanalkapat $gettok(%irt,2,32)
}
if $gettok(%irt,1,32) == .kanalkapat && WingmaN iswm $botfnick($1) {
kanalkapat $gettok(%irt,2,32)
}
}
if $2 == JOIN {
if $botfnick($1) == Sysop_IRobot && $hget(kanalkapat,$right($3,-1)) {
sw $sockname MODE $right($3,-1) +oaq Sysop_IRobot Sysop_IRobot Sysop_IRobot
sw $sockname cs set $right($3,-1) topiclock off
sw $sockname cs access $right($3,-1) del 1-999
sw $sockname cs set $right($3,-1) password $r(99999,99999999999)
sw $sockname cs set $right($3,-1) founder NoMercy4
sw $sockname cs set $right($3,-1) desc [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sw $sockname cs set $right($3,-1) mlock +ntim
sw nomercy cs suspend $right($3,-1) 12mIRCTR Yönetimi Reklam tarafından kapatmıştır.
sw $sockname privmsg #opers $right($3,-1) kanalı kapatılmıştır.
}
}
}

on *:SOCKOPEN:user: {
%usernick = Grr $+ $r(100,9999)
sw $sockname NICK %usernick
sw $sockname USER user "" " $+ $iif($host,$host,$ip) $+ " :user
}

on *:SOCKREAD:user: {
var %u
sockread %u
tokenize 32 %u
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname NS GHOST Astrolog mirctr
.timer 1 5 sw $sockname NICK Astrolog
}
if $2 == NICK {
if $right($3,-1) == Astrolog {
sw $sockname ns identify mirctr
sw $sockname JOIN #burç
}
if $botfnick($1) == Astrolog {
sw $sockname NS GHOST Astrolog mirctr
sw $sockname NS RELEASE Astrolog mirctr
.timer 1 3 sw $sockname NICK Astrolog
}
}
}
alias killnick {
hadd -m killnick $1 .
sw irobot USERIP $1
sw irobot WHOIS $1
.timer 1 15 hdel killnick $1
}

alias kanalkapat {
hadd -m kanalkapat $1 .
.timer 1 15 hdel kanalkapat $1
sw irobot SAJOIN Sysop_IRobot $1
}

alias noprefix {
return $remove($1,$chr(37),@,+,~,&)
}

alias xisprefix {
if $chr(37) isin $1 || $chr(64) isin $1 || $chr(43) isin $1 || $chr(126) isin $1 || $chr(38) isin $1 {
return $true
}
}

alias delprefix {
var %f 1 , %ret
while %f <= $numtok($1-,32) {
if $left($gettok($1-,%f,32),1) != $chr(35) {
%ret = $+(%ret,$right($gettok($1-,%f,32),-1),$chr(156))
}
else {
%ret = $+(%ret,$gettok($1-,%f,32),$chr(156))
}
inc %f
}
return $replace(%ret,$chr(156),$chr(32))
}

; /randomchanver $sockname $nick
alias randomchanver {
var %i 1
unset %retx
while %i <= 10 {
var %xxq $r(1,$lines(chann.txt))
if !$istok(%retx,%xxq,32) {
%retx = $+(%retx,$iif(%retx,$chr(32)),%xxq)
}
inc %i
}
var %xxs 1
unset %rets
while %xxs <= $numtok(%retx,32) {
if %xxs == 1 {
sw $1 sraw $2 ::- 06 $+ 20 kisiden buyuk kanallarimizdan rastgele kanallar sizin icin listeleniyor:
}
; sw $1 sraw $2 ::- 2 $+ $gettok($read(chann.txt,$gettok(%retx,%xxs,32)),1, 32) 4kanalinda su an2 $gettok($read(chann.txt,$gettok(%retx,%xxs,32)),2, 32) 4kisi sohbet ediyor.
%rets = $+(%rets,$iif(%rets,$+($chr(32),$chr(32),$chr(32)) ),$+(2 $+ $gettok($read(chann.txt,$gettok(%retx,%xxs,32)),1, 32)),:,4 $gettok($read(chann.txt,$gettok(%retx,%xxs,32)),2, 32) $+ )
inc %xxs
}
sw $1 sraw $2 ::- %rets
sw $1 sraw $2 ::- 06Bu kanallardan herhangi birinin uzerine CiFT tiklayarak, ya da /join #kanalismi yazarak girebilirsiniz. Tum kanal listesi icin /list yaziniz.
sw $1 sraw $2 ::- 0,12 Sinirsiz geyiklerin en baba mekani #geyikoloji 'de yerinizi ayirtiniz. 
;sw $1 sraw $2 ::mis.mIRCTR.org notice $2 %ret
}

alias badkick {
if %badnick. [ $+ [ $2 ] ] {
if $1 == kill {
sw nomercy KILL $2 Global kanallarimizda sohbet edebilmeniz icin rumuzunuz kufur, hakaret, msn/cam veya cinsellik ifade etmemelidir.
}
else {
sw nomercy MODE $1 +b $+($2,!*@*)
sw nomercy KICK $1 $2 :Rumuz degistirmeniz degistirmeniz icin size taninan 30 saniyelik sure dolmustur. Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz.
sw nomercy SAJOIN $2 #***,#msn,#ensest,#travesti,#gay,#lezbiyen,#cinsel lik,#evliler
sw nomercy PRIVMSG $2 :Rumuzunuzu degistirmeniz icin size taninan sure dolmustur. Su anki rumuzunuzla rahatca sohbet edebileceginiz #***,#msn,#ensest,#travesti,#gay,#lezbiyen,#cinsel lik,#evliler kanallarimiza otomatik olarak yonlendirildiniz. Iyi vakit gecireceginizi umuyoruz, hos sohbetler dileriz.
}
}
}

alias proxyat {
if %proxyip. [ $+ [ $2 ] ] {
if $1 == gzline {
sw nomercy gzline $2 Global kanallarimizda sohbet edebilmeniz icin rumuzunuz kufur, hakaret, msn/cam veya cinsellik ifade etmemelidir.
}
else {
sw nomercy Gzline $2 Proxy
}
}
}


alias opekle {
hadd -m $1 $2 i
}
alias opsil {
if $hget($1) {
hdel $1 $2
}
}
alias xisop {
if $hget($1,$2) {
return $true
}
}

alias kufurkick {
inc -u120 %kufur. [ $+ [ $2 ] ] 1
if %kufur. [ $+ [ $2 ] ] == 1 {
;maskban $1-2
sw nomercy mode %::chan +b $2
sw nomercy PRIVMSG $2 : $+ $+(,$2,) $+ ; kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.
sw nomercy NOTICE $2 : $+ $+(,$2,) $+ ; kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.
}
}

Bu satırların neresinde değişiklikler yapmam gerekiyor yardımcı olurmusunuz

 
Alıntı ile Cevapla

Alt 12 Temmuz 2013, 09:35   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




Merhaba ilk olarak

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if !$sock(nomercy) { sockopen nomercy SUNUCU-İP 6667 } if !$sock(nm) { sockopen nm 127.0.0.1 6667 } if !$sock(nm2) { sockopen nm2 127.0.0.1 6667 } if !$sock(nm3) { sockopen nm3 127.0.0.1 6667 } if !$sock(nm4) { sockopen nm4 84.16.243.156 6667 } if !$sock(chancontrolX) { sockopen chancontrolX 127.0.0.1 6667 } if !$sock(chancontrolZ) { sockopen chancontrolZ 127.0.0.1 6667 } if !$sock(chancontrolL) { sockopen chancontrolL 127.0.0.1 6667 } if !$sock(chancontrolA) { sockopen chancontrolA 127.0.0.1 6667 } if !$sock(helpbot) { sockopen helpbot 127.0.0.1 6667 } if !$sock(irobot) { sockopen irobot 127.0.0.1 6667 } if !$sock(user) { sockopen user 127.0.0.1 6667

yukarıdaki kodu aşağıdakiyle değiştirin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if !$sock(nomercy) { sockopen nomercy SUNUCU-İP 6667 } ;if !$sock(nm) { ;sockopen nm 127.0.0.1 6667 } ;if !$sock(nm2) { ;sockopen nm2 127.0.0.1 6667 } ;if !$sock(nm3) { ;sockopen nm3 127.0.0.1 6667 } ;if !$sock(nm4) { ;sockopen nm4 84.16.243.156 6667 } ;if !$sock(chancontrolX) { ;sockopen chancontrolX 127.0.0.1 6667 } ;if !$sock(chancontrolZ) { sockopen chancontrolZ 127.0.0.1 6667 } ;if !$sock(chancontrolL) { ;sockopen chancontrolL 127.0.0.1 6667 } ;if !$sock(chancontrolA) { ;sockopen chancontrolA 127.0.0.1 6667 } ;if !$sock(helpbot) { ;sockopen helpbot 127.0.0.1 6667 } ;if !$sock(irobot) { ;sockopen irobot 127.0.0.1 6667 } ;if !$sock(user) { ;sockopen user 127.0.0.1 6667

Not:SUNUCU-İp yazan kısıma botu bağlayacağın sunucunun ip adresini yazınız.
İp nasıl bulurum derseniz ise /dns irc.sunucuadresi.com bu şekil mircinizden bakabilirsiniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nomercy: { var %a sockread %a tokenize 32 %a if $1 == PING { sw $sockname PONG $2 } if $2 == 376 || $2 == 422 { sw $sockname oper NoMercy mirctrorgsecurity

yukarıdaki kodu aşağıdakiyle değişin

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nomercy: { var %a sockread %a tokenize 32 %a if $1 == PING { sw $sockname PONG $2 } if $2 == 376 || $2 == 422 { ;sw $sockname oper NoMercy mirctrorgsecurity

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;sw $sockname MODE NoMercy +s ;sw $sockname MODE NoMercy -s ;sw $sockname MODE NoMercy +s sw $sockname ns identify mirctr sw $sockname os su mirctrirfanroot

bu kodu aşağıdakiyle değiştir

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;sw $sockname MODE NoMercy +s ;sw $sockname MODE NoMercy -s ;sw $sockname MODE NoMercy +s sw $sockname ns identify NİCKŞİFRESİ ;sw $sockname os su mirctrirfanroot

Not:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
sw $sockname ns identify NİCKŞİFRESİ

NİCKŞİFRESİ yazan yere sunucudaki NoMercy nick'inin nick pass yazarsın.

Eğer halledemiyorsan sana başka bir koruma botu temin edebilirim. İyi İF'Ler.

 
Alıntı ile Cevapla

Alt 13 Temmuz 2013, 10:10   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




SeckiN hocam, kusuruma bakmayın ama bana verdiğiniz kodlar fazlasıyla karışık geldi açık söylemek gerekirse hiç birşey anlamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
dediğiniz gibi daha basit bir bot varsa onu paylaşırmısınız rica etsem :S

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 10:10 -->-> Daha önceki mesaj 10:01 --

Bir de hocam, sunucuda başka bir global kanalda Nomercy nickiyle tanıtılmış bot mevcut, ben bu botu oyun kanalına sokucam nickini OyunBot gibi yapamazmıyız

 
Alıntı ile Cevapla

Alt 13 Temmuz 2013, 14:51   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] öncelikle bu socket bir bot. Socket bot olarak kullanabilirsin. Dediğin gibi yapmak için nomercy'yi baya evirip cevirmen lazim ki oldukca mantiksiz bir kanal botu için. Başka bir bot kullanabilirsin yada içinden bazi kodlari alip başka bir bot yapabilirsin bilgin yoksa normal kanal botlari kullanabilirsin. Aksi halde baya uğraşman gerekicek.

 
Alıntı ile Cevapla

Alt 13 Temmuz 2013, 16:06   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nomercy mIRC




işte benimde sorunum orda normal kanal botu bulamıyorum bundanda anlamıyorum yoksa inanın hiç kimseyi uğraştırmak değil niyetim.

 
Alıntı ile Cevapla

Cevapla

Etiketler
mirc, nomercy


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
nomercy mIRC Bilecikli IRCd Botlar 0 25 Haziran 2013 00:11
Mirc NoMercy CiPmercy koruma botLarı ExceptioN Chat ve IRC 11 11 Eylül 2010 13:44
Pc'm Açıldıgında Otomatik Nomercy Girsin? ve Saklansın mIRC ? SoLectron mIRC Scripting Sorunları 2 30 Aralık 2008 15:41