Çevrimdışı

Arkadaslar s.a

2 Oda Olsun Yönetim, Sohbet.

Bu Odalarda Socket Bot Olsun. Yönetim Kanalındaki Kullanıcı

!Opme #Sohbet Yazınca Socket Bot Sohbet Kanalında Opa Cıkarsın.
!Deop #Sohbet Yazınca Aynı Şekil Deop Etsin.


Bunun Eggdrop U Vardı Heralde Socket İçin BiLen Varsa Wala Cok İşe Yarar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimiçi

dikkat cekici bir başlik :d

 

Çevrimdışı

DaRk_LiFe Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

dikkat cekici bir başlik :d

Sorma Şeff Ya İmana Geldik :|

 

Çevrimdışı

elinde sock bot varmı yoksa yazılacakmı?
eğer varsa yada yoksa ona göre duruma bakılır.

 

Çevrimdışı

XcLusive Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

elinde sock bot varmı yoksa yazılacakmı? eğer varsa yada yoksa ona göre duruma bakılır.

Wala Usta Elimde Socket Bot Yok.

0 dan yapmayı dusunuyorum tabi küfür koruma vs vs bunlar gerekmıyor

Yönetici Kanalında Voice Yada Op Olan Bir Yönetici Yönetim Kanalına !Opme #sohbet , !opme radyo vs vs Yapınca Opa Cıksın Yada İnsin Sadece bu Yterli..

 

Çevrimdışı

kodu denemedim sadece düşünce olarak yazdım örnek niteliği taşıyor kendine göre düzenleyebilirsin.

 

Çevrimdışı

XcLusive Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! alias yonetimbot sockopen bot irc.sunucu.com port on *:sockopen:bot:{ if ($sockerr) { echo -s Sock Bağlanamadı | halt } sockwrite -tn $sockname NICK BOT-NICKI chd check USER IDENT-KISMI * * :FULLNAME KISMI sockmark $sockname Bot } on *:sockread:bot:{ if ($sockerr) { echo -s Sock Bağlanamadı | halt } sockread %x komutlar %x } alias komutlar { ;buraya işlenecek komutlar if ($2 == PRIVMSG) && (*#* iswm $3) { if *!opme* iswm $4- && *#yönetim* iswm $3 { sockwrite -tn $sockname mode $5 +o $remove($gettok($1,1,33),m:) } } } } kodu denemedim sadece düşünce olarak yazdım örnek niteliği taşıyor kendine göre düzenleyebilirsin.

Yardım İçin Teşekkürler Deneyeceğim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bide Şöyle Bişey Var..



Gibi Bişiler BuLdum.. Çalı$ırmı Ki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Sorunda socket bot yazmışsın ve sana bir kod dizini yazılmış.
Son mesajındaki kodlamanın socket ile alakası yok.
Bunun çalışıp çalışmayacağını sormak yerine , bizzat kendin test etmen daha mantıklı olur.

 

Çevrimdışı

S.a. Arkadaşlar karmaşık gelebilir fakat yardım edersiniz diye düsündüm.
öncelikle bu codeleri birlestirip Sadece Nomercy sunucuya giricek oper girmeden nick'ine gecip identify edicek
+ codelerde kil, gline var onlarında +b kick atabilir duruma getirmek
badnick girdigi zaman 30 saniye beklemeden atılmasını istiyorum
samanlık gibi birsey oldu da yardımcı olucagınızı umuyorum

[script]
n0=on *:start: {
n1= unset %*
n2= hmake kufur
n3= hmake badnick
n4= hmake kickno
n5= hload kufur kufur.mercy
n6= hload badnick badnick.mercy
n7= hload kickno kickno.mercy
n8= .timer 0 5 NoMercy
n9= echo -s 4NoMercy:2 NoMercy socket botu ayarlandi.
n10= echo -s 4NoMercy:2 Artik herhangi birsey yapmaniza gerek yok. NoMercy size gorunmeden islevini yapacaktir.
n11= write -c haber.txt
n12=}
n13=
n14=alias sw {
n15= if $sock($1).status == active {
n16= sockwrite -nt $1-
n17= }
n18=}
n19=
n20=alias botfnick {
n21= return $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

n22=}
n23=
n24=alias kickno {
n25= return 10-{5Kickledigim04 $hget(kickno,kick) $+ . 5kisisiniz10}-
n26=}
n27=
n28=alias kicksay {
n29= hinc kickno kick
n30= hsave kickno kickno.mercy
n31=}
n32=
n33=alias NoMercy {
n34= if !$sock(NoMercy) && !$sock(nm) && !$sock(nm2) && !$sock(nm3) {
n35= if $hget(mesaj) {
n36= hfree mesaj
n37= hmake mesaj
n38= }
n39= unset %*
n40= .timermercy* off
n41= }
n42= if !$sock(NoMercy) {
n43= sockopen NoMercy 72.20.27.12 7575
n44= }
n45= if !$sock(nm) {
n46= ;sockopen nm 91.191.162.221 6667
n47= }
n48= if !$sock(nm2) {
n49= ;sockopen nm2 91.191.162.221 6667
n50= }
n51= if !$sock(nm3) {
n52= ;sockopen nm3 91.191.162.221 6667
n54= if !$sock(chancontrolX) {
n55= ;sockopen chancontrolX 91.191.162.221 6667
n56= }
n57= if !$sock(chancontrolZ) {
n58= ;sockopen chancontrolZ 91.191.162.221 6667
n59= }
n60= if !$sock(chancontrolL) {
n61= ;sockopen chancontrolL 91.191.162.221 6667
n62= }
n63= if !$sock(chancontrolA) {
n64= ;sockopen chancontrolA 91.191.162.221 6667
n65= }
n66= if !$sock(helpbot) {
n67= ;sockopen helpbot 91.191.162.221 6667
n68= }
n69= if !$sock(irobot) {
n70= ;sockopen irobot 91.191.162.221 6667
n71= }
n72= if !$sock(user) {
n73= ;sockopen user 91.191.162.221 6667
n74= }
n75=}
n593=on *:SOCKOPEN:NoMercy: {
n594= %NoMercynick = Grr $+ $r(100,9999)
n595= sw $sockname NICK %NoMercynick
n596= sw $sockname USER ArTiST "" " $+ $iif($host,$host,$ip) $+ " : $+ 9,1 NoMercy v1.2 4 X 9 by ArTiST
n597=}
n598=
n599=alias NoMercyonjoin {
n600= var %n 1
n601= while %n <= $lines(onjoins.txt) {
n602= sw NoMercy SAJOIN NoMercy $read(onjoins.txt,%n)
n603= inc %n
n604= }
n605=}
n607=on *:SOCKREAD:NoMercy: {
n608= var %a
n609= sockread %a
n610= tokenize 32 %a
n611= if $1 == PING {
n612= sw $sockname PONG $2
n613= }
n684= if +*q* iswm $4 {
n685= sw $sockname PRIVMSG $3 : $+ $5 su anda kanal sahibi konumuna gecti. (1. seviye)
n686= sw $sockname NOTICE $5 :Su anda kanal operatoru oldunuz $5 $+ . Kullanabileceginiz komutlari gormek icin ozelime !komutlar yaziniz.
n687= opekle $3 $5
n688= }
n689= elseif +*a* iswm $4 {
n690= sw $sockname PRIVMSG $3 : $+ $5 su anda kanal super operatoru konumuna gecti. (2. seviye)
n691= sw $sockname NOTICE $5 :Su anda kanal operatoru oldunuz $5 $+ . Kullanabileceginiz komutlari gormek icin ozelime !komutlar yaziniz.
n692= opekle $3 $5
n693= }
n694= elseif +*o* iswm $4 {
n695= sw $sockname PRIVMSG $3 : $+ $5 su anda kanal operatoru konumuna gecti. (3. seviye)
n696= sw $sockname NOTICE $5 :Su anda kanal operatoru oldunuz $5 $+ . Kullanabileceginiz komutlari gormek icin ozelime !komutlar yaziniz.
n697= opekle $3 $5
n698= }
n699= elseif +*h* iswm $4 {
n700= sw $sockname PRIVMSG $3 : $+ $5 su anda kanal yardimci operatoru konumuna gecti.
n701= }
n702= }
n703= }
n704= if $2 == JOIN {
n705= if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== NoMercy {
n706= sw $sockname mode $right($3,-1) +h NoMercy NoMercy
n707= sw $sockname NOTICE $right($3,-1) :xXx.Com ozel kanal koruma/kontrol botu NoMercy, kanalinizda guvenligi ve huzuru korumak amaciyla girmistir.
n708= sw $sockname NOTICE $right($3,-1) :Kanal oplarinin kullanabilecegi komutlari gormek icin ozelime !komutlar yaziniz.
n709= }
n710= 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.

n711= 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.
) ] ] {
n712= _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.
n713= }
n714= if $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== ArTiST {
n715= ; sw $sockname PRIVMSG $right($3,-1) :
ACTION ArTiSTAdmin is online: $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
$+

n716= sw $sockname PRIVMSG $right($3,-1) :
ACTION HOŞGELDİN SAHİP..!

n717= sw $sockname MODE $right($3,-1) +h ArTiST
n718= }
n719= elseif ArTiSTiswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
n720= sw $sockname PRIVMSG $right($3,-1) :
ACTION xXx.Com 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.

n721= }
n722= elseif BLueDReamS iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
&& $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
!= Sysop_IRobot {
n723= sw $sockname PRIVMSG $right($3,-1) :
ACTION xXx System 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. Onemli olan ozel sorunlari kendisiyle paylasabilir, genel sorunlar icin #operhelp kanalini ziyaret edebilirsiniz.

n724= }
n725= elseif DoLuNaY iswm $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
n726= sw $sockname PRIVMSG $right($3,-1) :
ACTION xXx System 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. Onemli olan ozel sorunlari kendisiyle paylasabilir, genel sorunlar icin #operhelp kanalini ziyaret edebilirsiniz.

n727= }
n872= if *did a /whois on you. iswm $strip($1-) {
n873= inc -u5 %wf. [ $+ [ $5 ] ] 1
n874= sw $sockname PRIVMSG #Opers Whois cekti: $5
n875= if %wf. [ $+ [ $5 ] ] == 3 {
n876= sw $sockname KILL $5 Whois flood yapmayin!
n877= }
n878= sw $sockname PRIVMSG $5 :Kullanabileceginiz komutlari gormek icin !komutlar yaziniz.
n879= ; sw $sockname PRIVMSG $5 :xXx Protection System (MPS)
n880= ; sw $sockname PRIVMSG $5 :-
n881= ; sw $sockname PRIVMSG $5 :2 kisiden buyuk tum kanallarin guvenligi NoMercy'ye aittir.
n882= ; 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.
n883= ; sw $sockname PRIVMSG $5 :Turkiye'de reklamin, saldirinin olmadigi tek sunuculardan biri xXx'dir. NoMercy Yapay Zeka Sistemi, sadece ArTiST'e aittir ve surekli gelistirilmektedir.
n884= }
n885= if *[Spamfilter]*matches filter*[Kendinize soylenmes* iswm $strip($1-) {
n886= kufurkick $gettok($mid($1-,$pos($1-,$chr(35),1),-1),1,58) $botfnick($5)
n887= ;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]
n888= ;sw NM SAJOIN $gettok($5,1,33) #xqx
n889= }
n890= if *global Z:LINE added for* iswm $strip($1-) {
n891= if *.*.* iswm $gettok($18,1,33) || NoMercy isin $gettok($18,1,33) {
n892= set -u3610 % [ $+ [ $gettok($9,2,64) ] ] 1
n893= }
n894= }
n895= }
n896= if $2 == MODE {
n897= if $3 == #operhelp && $4 == -v {
n898= ; _kick $3 $5 $botfnick($1) tarafindan voice'iniz alindi. Lutfen bekleme yapmayiniz.
n899= }
n900= if $4 == +b && $5 iswm
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
n901= sw $sockname MODE $3 -b $5
n902= sw $sockname os raw2 :chanserv MODE $3 -o $botfnick($1)
n903= sw $sockname os raw2 :chanserv MODE $3 -h $botfnick($1)
n904= 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.
n905= }
n906= }
n907= if $2 == 319 {
n908= var %c $right($5-,-1) , %i 1
n909= while %i <= $numtok(%c,32) {
n910= if $xisop($delprefix($gettok(%c,%i,32)),$4) {
n911= sw $sockname NAMES $delprefix($gettok(%c,%i,32))
n912= }
n913= inc %i
n914= }
n915= }
n916= if $2 == 367 {
n917= sw $sockname MODE $4 -b $5
n918= }
n919= if $2 == 478 {
n920= sw $sockname MODE $4 +b
n921= sw $sockname PRIVMSG $4 :Kanal ban listesi doldu. Temizleniyor...
n922= }
n923= if $2 == 311 {
n924= set %winfo. [ $+ [ $4 ] ] 1
n925= }
n926= if $2 == 318 {
n927= unset %winfo. [ $+ [ $4 ] ]
n928= }
n929= if $2 == 301 {
n930= mesajkontrol $4 $right($strip($5-),-1)
n931= }
n932= if $2 == 317 {
n933= set -u20 %idle. [ $+ [ $4 ] ] $5
n934= }
n935= if $2 == 352 {
n936= set -u10 %awayfilter. [ $+ [ $8 ] ] 1
n937= sw $sockname WHOIS $8
n938= }
n939= if $2 == 302 {
n940= sw %reklamsock WHO +i $gettok($4,2,64)
n941= }
n942= if $2 == 353 {
n943= var %i 1 , %names $right($6-,-1) , %ch $5
n944= while %i <= $pos(%names,@,0) {
n945= opekle %ch $noprefix($gettok($mid(%names,$pos(%names,@,%i),-1),1,32))
n946= inc %i
n947= }
n948= var %i 1
n949= while %i <= $numtok(%names,32) {
n950= if @* !iswm $gettok(%names,%i,32) & ?@* !iswm $gettok(%names,%i,32) {
n951= opsil %ch $noprefix($gettok(%names,%i,32))
n952= }
n953= inc %i
n954= }
n955= var %i o 1 , %ch $5
n956= if !$read(***chans.txt,w,%ch) {
n957= while %o <= $numtok(%names,32) {
n958= if $hfind(badnick,$gettok(%names,%o,32) $+ !*@*,1,W).data && $numtok(%names,32) > %o {
n959= var %nick $gettok(%names,%o,32)
n960= 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.
n961= sw $sockname NOTICE %nick :Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. 30 saniye icerisinde rumuzunuzu degistiriniz.
n962= set -u35 %badnick. [ $+ [ %nick ] ] 1
n963= .timer 1 30 badkick $gettok(%names,%o,32) %nick
n964= kicksay
n965= }
n966= inc %o
n967= }
n968= }
n969= }
n991= if $2 == PRIVMSG || $2 == NOTICE {
n992= if $3 == NoMercy && *.*.* !iswm $botfnick($1) {
n993= if $botfnick($1) {
n994= inc -u3 %ozelflood. [ $+ [ $botfnick($1) ] ] 1
n995= if %ozelflood. [ $+ [ $botfnick($1) ] ] < 10 {
n996= var %komut $gettok($right($strip($4-),-1),1,32)
n997= if %komut != !komutlar && (%komut == !cinselkanal || %komut == !reklamrapor) && !$gettok($right($strip($4-),-1),2,32) {
n998= sw $sockname PRIVMSG $botfnick($1) : $+ %komut $+ : yetersiz parametre.
n999= return
n1000= }
n1001= if %komut == !bilgi {
n1002= sw $sockname PRIVMSG $botfnick($1) :NoMercy ArTiST tarifindan kodlanmistir..
n1003= }
n1004= if %komut == !cinselkanal {
n1005= 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.
n1006= sw $sockname PRIVMSG $botfnick($1) :Raporunuz iletilmistir. Tesekkurler.
n1007= }
n1008= elseif %komut == !reklamrapor {
n1009= sw $sockname PRIVMSG #opers :Reklam raporu: $botfnick($1) : $gettok($right($strip($4-),-1),2-,32)
n1010= sw $sockname PRIVMSG $botfnick($1) :Raporunuz iletilmistir. Tesekkurler.
n1011= }
n1012= elseif %komut == !komutlar {
n1013= sw $sockname PRIVMSG $botfnick($1) :Ozel komut listesi:
n1014= sw $sockname PRIVMSG $botfnick($1) :!bilgi : NoMercy hakkinda bilgi verir.
n1015= sw $sockname PRIVMSG $botfnick($1) :!cinselkanal : Bad nicklerin atilmasini istemediginiz (cinsel icerikli) kanallari bildirebilirsiniz. Kullanimi: !cinselkanal <#kanalismi>
n1016= sw $sockname PRIVMSG $botfnick($1) :!reklamrapor : Bu komut ile reklami yapilan herhangi bir siteyi/kanali rapor edebilirsiniz. Kullanimi: !reklamrapor <rumuz> <yapilan reklam>
n1017= sw $sockname PRIVMSG $botfnick($1) :Kanal komut listesi:
n1018= sw $sockname PRIVMSG $botfnick($1) :!k : Eger kanalda OP iseniz, belirttiginiz rumuzu kanaldan atar. Kullanimi: !k <rumuz> <sebep>
n1019= sw $sockname PRIVMSG $botfnick($1) :!kb : Eger kanalda OP iseniz, belirttiginiz rumuzu ve IP'yi banlar, kanaldan atar. Kullanimi: !kb <rumuz> <sebep>
n1020= sw $sockname PRIVMSG $botfnick($1) :!bantemizle : Eger kanalda OP iseniz, belirttiginiz kanaldaki tum banlari temizler.
n1021= sw $sockname PRIVMSG $botfnick($1) :!voice : Eger kanalda OP iseniz, belirttiginiz rumuza voice (+v) verilir. Kullanimi: !voice <rumuz>
n1022= sw $sockname PRIVMSG $botfnick($1) :!devoice : Eger kanalda OP iseniz, belirttiginiz rumuzdan voice (+v) alinir. Kullanimi: !devoice <rumuz>
n1023= }
n1024= elseif %komut != !bilgi {
n1025= sw $sockname PRIVMSG $botfnick($1) : $+ %komut $+ diye bir komut yok. Kullanabileceginiz komutlari gormek icin !komutlar yaziniz.
n1026= }
n1027= }
n1028= }
n1124= if %::nick == ArTiST&& %::text == NoMercy Buraya Bak {
n1125= sw $sockname PRIVMSG %::chan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
akiyorum Komutanim
n1126= sw $sockname PRIVMSG %::chan :Emret Komtanim
n1127= sw $sockname PRIVMSG %::chan :NoMercy Emir Ve Goruslerinize Hazirdir Komutanim
n1128= sw $sockname PRIVMSG %::chan :ArTiSTZzZzzzzz
n1129= sw $sockname PRIVMSG %::chan :Seni Seviyorum ArTiST!
n1130= }
n1282= if $xisop(%::chan,%::nick) && $gettok(%::text,2,32) != NoMercy && Sysop_* !iswm $gettok(%::text,2,32) && ArTiST* !iswm $gettok(%::text,2,32) && Csop_* !iswm $gettok(%::text,2,32) && *swatbot* !iswm $gettok(%::text,2,32) {
n1283= if $gettok(%::text,1,32) == !k {
n1284= if $gettok(%::text,2-,32) {
n1285= sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
n1286= }
n1287= else {
n1288= sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz.
n1289= }
n1290= }
n1291= if $gettok(%::text,1,32) == !kb {
n1292= if $gettok(%::text,2-,32) {
n1293= sw $sockname MODE %::chan +b $gettok(%::text,2,32)
n1294= sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
n1295= }
n1296= else {
n1297= sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz.
n1298= }
n1299= }
n1300= if $gettok(%::text,1,32) == !voice {
n1301= if $gettok(%::text,2-,32) {
n1302= sw $sockname MODE %::chan $+(+,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32)
n1303= }
n1304= else {
n1305= sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz.
n1306= }
n1307= }
n1308= if $gettok(%::text,1,32) == !devoice {
n1309= if $gettok(%::text,2-,32) {
n1310= sw $sockname MODE %::chan $+(-,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32)
n1311= }
n1312= else {
n1313= sw $sockname PRIVMSG %::chan $+ %::nick $+ , rumuz belirtiniz.
n1314= }
n1315= }
n1316= if $gettok(%::text,1,32) == !bantemizle {
n1317= sw $sockname MODE %::chan +b
n1318= }
n1319= }
n1320= if !$oyunnick(%::nick) && !$read(yonetimchans.txt,w,%::chan) {
n1321= kanal_koru
n1322= }
n1323= }
n1324= }
n1325=}
n1357=alias kanal_koru {
n1358= if !$read(yonetimchans.txt,w,%::chan) && $left(%::chan,1) == $chr(35) {
n1359= if !$read(oyunchans.txt,w,%::chan) {
n1360= if $len(%::text) > 80 {
n1361= if $numtok(%::text,32) > 5 {
n1362= %::text = $gettok(%::text,1-5,32)
n1363= }
n1364= inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
n1365= if %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == 3 {
n1366= _zline $botfnick(%::add) Saldiri/flood girisimi tespit edilmistir. [NoMercy]
n1367= sw NoMercy PRIVMSG #opers :Saldiri tespit edildi: %::chan
n1368= sw NoMercy PRIVMSG #opers :Saldiri texti: %::text
n1369= sw NoMercy spamfilter add cN gzline 1h Saldiri/flood girisimi tespit edilmistir. [NoMercy] $yildiztemizle($_dellast($strip(%::text)))
n1370= .timer 1 30 sw NoMercy spamfilter del cN gzline 1h Saldiri/flood girisimi tespit edilmistir. [NoMercy] $yildiztemizle($_dellast($strip(%::text)))
n1371= return
n1372= }
n1373= }
n1374= }
n1375= if *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm %::text || http isin %::text || *.net* iswm %::text || *.com* iswm %::text {
n1376= if !$xisop(%::chan,%::nick) {
n1377= killnick %::nick
n1378= return
n1379= }
n1380= }
n1381= if $hfind(kufur,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(***chans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
n1382= if !%banning. [ $+ [ %::nick ] ] {
n1383= inc -u10 %banning. [ $+ [ %::nick ] ] 1
n1384= maskban %::chan %::add
n1385= sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.
n1386= ; _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) 
n1387= return
n1388= }
n1389= }
n1390= if $chr(35) isin %::text && !$read(oyunchans.txt,w,%::chan) && !$read(yonetimchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
n1391= if !%banning. [ $+ [ %::nick ] ] {
n1392= inc -u10 %banning. [ $+ [ %::nick ] ] 1
n1393= maskban %::chan %::add
n1394= sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde baska bir kanalin reklamini yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
n1395= ; _kick %::chan %::add Kanal genellerinde baska kanal reklami yapmak yasaktir. Bu olayin tekrarlanmasi halinde yetkililer uyarilip kanaliniz kapatilabilir.
n1396= return
n1397= }
n1398= }
n1399= if ( isin %::text2 ||  isin %::text2 || isin %::text2) && !$xisop(%::chan,%::nick) {
n1400= inc -u120 %renklitext. [ $+ [ %::nick ] ] 1
n1401= if %renklitext. [ $+ [ %::nick ] ] == 5 {
n1402= if !%banning. [ $+ [ %::nick ] ] {
n1403= inc -u10 %banning. [ $+ [ %::nick ] ] 1
n1404= maskban %::chan %::add
n1405= sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal takibini zorlastiracak derecede renkli yazdiginiz icin 30 dk. sureyle konusmaniz engellendi.
n1406= ; _kick %::chan %::add Kanal takibini zorlastirdigi icin surekli renkli yazmak/renkli ve uzun ascii'ler cizmek yasaktir.
n1407= }
n1408= }
n1409= }
n1410= if !$read(oyunchans.txt,w,%::chan) {
n1411= inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
n1412= if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == 5 {
n1413= ;_kick %::chan %::add Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
n1414= }
n1415= var %yazi = $hash($strip($_dellast(%::text)),32)
n1416= var %eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
n1417= var %eski.yazi = $deltok(%eski.yazi,1,46)
n1418= if (%tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
n1419= set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi
n1420= goto hm
n1421= }
n1422= var %ozcan = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
n1423= var %sayac = $gettok(%ozcan,1,46)
n1424= inc %sayac
n1425= set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
n1426= if (%sayac >= 5) {
n1427= if !%banning. [ $+ [ %::nick ] ] {
n1428= inc -u10 %banning. [ $+ [ %::nick ] ] 1
n1429= maskban %::chan %::add
n1430= sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
n1431= ; _kick %::chan %::add Biz bir kereden anliyoruz ki?
n1432= }
n1433= }
n1434= :hm
n1435= }
n1436= }
n1437=}
n1927=alias badkick {
n1928= if %badnick. [ $+ [ $2 ] ] {
n1929= if $1 == kill {
n1930= sw NoMercy KILL $2 Global kanallarimizda sohbet edebilmeniz icin rumuzunuz kufur, hakaret, msn/cam veya cinsellik ifade etmemelidir.
n1931= }
n1932= else {
n1933= sw NoMercy MODE $1 +b $+($2,!*@*)
n1934= 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.
n1935= sw NoMercy FJOIN $2 #***,#msn,#ensest,#travesti,#gay,#lezbiyen,#cinsel lik,#evliler
n1936= 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.
n1937= }
n1938= }
n1939=}
n1955=alias kufurkick {
n1956= inc -u120 %kufur. [ $+ [ $2 ] ] 1
n1957= if %kufur. [ $+ [ $2 ] ] == 1 {
n1958= sw NoMercy PRIVMSG $2 : $+ $+(,$2,) $+ ; kanal genelinde argo/kufur icerikli cumleler kurmayiniz. Bu bir uyaridir, tekrari halinde kanalda konusmaniz 30 dk. sureyle engellenecektir.
n1959= sw NoMercy NOTICE $2 : $+ $+(,$2,) $+ ; kanal genelinde argo/kufur icerikli cumleler kurmayiniz. Bu bir uyaridir, tekrari halinde kanalda konusmaniz 30 dk. sureyle engellenecektir.
n1960= }
n1961= if %kufur. [ $+ [ $2 ] ] == 2 {
n1962= maskban $1-2
n1963= sw NoMercy PRIVMSG $2 : $+ $+(,$2,) $+ ; kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.
n1964= sw NoMercy NOTICE $2 : $+ $+(,$2,) $+ ; kanal genelindeki argo/kufur icerikli konusmalariniz yuzunden 30 dk. sureyle konusmaniz engellendi.
n1965= }
n1966=}

 

Çevrimdışı

yok sanırsam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.