| Heavenly | 27 Şubat 2009 14:30 |
socket bot hakkında
Kod:
alias kekle { if !$hmatch(kfr,$1) { hadd -m kfr $1 1 | hsave -i kfr kfr.db } }
alias rekle { if !$hmatch(rklm,$1) { hadd -m rklm $1 1 | hsave -i rklm rklm.db } }
alias bekle { if !$hmatch(bdnick,$1) { hadd -m bdnick $1 1 | hsave -i bdnick bdnick.db } }
alias koruekle { if !$hmatch(klonkoru,$1) { hadd -m klonkoru $1 1 | hsave -i klonkoru klonkoru.db } }
alias btbg { sockopen bt %sunucu %port }
alias vsvs { dialog -x cprot cprot | dialog -m cprot cprot }
alias ayr { return $remove($gettok($1-,1,33),$chr(58)) }
alias km { sockwrite -n bt $1- }
alias kps { return $+($chr(2),$1-,$chr(2)) }
alias cprtdlg { if !$dialog(cprot) { dialog -m cprot cprot } }
alias mdx { dll mdx.dll $1 $2- return }
on *:start: {
if $isfile(kfr.db) { hmake kfr 100 | hload -i kfr kfr.db } | else { hmake kfr 100 | hsave -i kfr kfr.db }
if $isfile(rklm.db) { hmake rklm 100 | hload -i rklm rklm.db } | else { hmake rklm 100 | hsave -i rklm rklm.db }
if $isfile(bdnick.db) { hmake bdnick 100 | hload -i bdnick bdnick.db } | else { hmake bdnick 100 | hsave -i bdnick bdnick.db }
if $isfile(kanallar.db) { hmake kanallar 100 | hload -i kanallar kanallar.db } | else { hmake kanallar 100 | hsave -i kanallar kanallar.db }
if $isfile(klonkoru.db) { hmake klonkoru 100 | hload -i klonkoru klonkoru.db } | else { hmake klonkoru 100 | hsave -i klonkoru klonkoru.db }
if !%uzunyazı { set %uzunyazı 250 } | if !%tkr-lmt { set %tkr-lmt 5 } | if !%tkr-sny { set %tkr-sny 3 } | if !%flood-lmt { set %flood-lmt 10 }
if !%flood-sny { set %flood-sny 4 } | if !%buharf { set %buharf 65 } | if !%noktalama { set %noktalama 10 } | if !%random-t { set %random-t 3 }
if !%hızlıgr-lmt { set %hızlıgr-lmt 6 } | if !%hızlıgrs { set %hızlıgrs 4 } | if !%klon-lmt { set %klon-lmt 2 } | if !%random-n-h-u { set %random-n-h-u 4 }
if !%random-nk { set %random-nk 1 } | if !%random-t-t { set %random-t-t 200 }
cprtdlg
}
on *:sockopen:bt: {
if $sockerr { echo -at Bağlantıda sorun var. | return }
else { km NICK C-prot | sockwrite -n bt USER %bident * * Kanal koruma botu. Yapımcı: $kps(L4roXyL.) | sockmark bt C-prot | km ns identify %bsifre }
echo -a Bilgi: $kps($sock(bt).mark) bot'u, $kps(%sunucu) sunucusuna bağlandı.
}
on *:sockread:bt: {
if $sockerr { echo -at Bilgi: Bağlantıda sorun var. | return }
else { var %:- | sockread %:- | tokenize %:- | cvp %:- }
}
alias cvp {
if $sock(bt) {
if $1 == PING { km PONG $remove($2,$chr(58)) }
if *VERSION* iswm $4- { km NOTICE $ayr($1-) C-prot kanal koruma bot'u. Yapımcı: $kps(L4roXyL.) | km privmsg %ykanal Bilgi: $kps($ayr($1)) bana version uyguladı. }
if $sock(bt).mark == $ayr($1) && $2 == JOIN { if !$hmatch(kanallar,$remove($3,$chr(58))) { km part $remove($3,$chr(58)) } }
if $remove($1,$chr(58)) == $sock(bt).mark && $2 == MODE && $3 == $sock(bt).mark { var %1 = 1,%2 = $hget(kanallar,0).item | while %1 <= %2 { km join $hget(kanallar,%1).item | inc %1 } }
if $2 == PRIVMSG {
if $sock(bt).mark !isreg $3 {
if $count($nick($3,$ayr($1)).pnick,@,&,%,~,.) != 0 {
if $remove($4,$chr(58)) == !sus && $5 ison $3 { km MODE $3 +b $+(~q:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da konuşmanız, $kps($ayr($1)) tarafından engellendi. }
if $remove($4,$chr(58)) == !banac { km MODE $3 +b | km PRIVMSG $3 $kps($3) kanal'ı ban listesi temizleniyor. }
if $remove($4,$chr(58)) == !nik && $5 ison $3 { km MODE $3 +b $+(~n:,$address($5,2)) | km NOTICE $5 $+($5,$chr(58)) $kps($3) kanalın'da nick değiştirmeniz, $kps($ayr($1)) tarafından engellendi. }
if $remove($4,$chr(58)) == !k && $5 ison $3 { km KICK $3 $5 $6- }
if $remove($4,$chr(58)) == !cban { if $left($5,1) == $chr(35) { km MODE $3 +b $+(~c:,$5) | km PRIVMSG $3 Bilgi: $kps($5) kanalında bulunan kullanıcıların, $kps($3) kanalına girmesi yasaklandı. } }
if $remove($4,$chr(58)) == !op && $5 && $5 ison $3 { km mode $3 +o $5 }
if $remove($4,$chr(58)) == !deop && $5 && $5 ison $3 { km mode $3 -o $5 }
if $remove($4,$chr(58)) == !voice && $5 && $5 ison $3 { km mode $3 +v $5 }
if $remove($4,$chr(58)) == !devoice && $5 && $5 ison $3 { km mode $3 -v $5 }
if $remove($4,$chr(58)) == !hop && $5 && $5 ison $3 { km mode $3 +h $5 }
if $remove($4,$chr(58)) == !dehop && $5 && $5 ison $3 { km mode $3 -h $5 }
if $remove($4,$chr(58)) == !pro && $5 && $5 ison $3 { km mode $3 +a $5 }
if $remove($4,$chr(58)) == !depro && $5 && $5 ison $3 { km mode $3 -a $5 }
if $remove($4,$chr(58)) == !own && $5 && $5 ison $3 { km mode $3 +q $5 }
if $remove($4,$chr(58)) == !deown && $5 && $5 ison $3 { km mode $3 -q $5 }
if $remove($4,$chr(58)) == !rban && $5 { km MODE $3 +b $+(~r:,$5-) | km PRIVMSG $3 Bilgi: $kps($5-) realname'a sahip olanların, $kps($3) kanalına girmesi yasaklandı. }
if $remove($4,$chr(58)) == !ban && $5 { km MODE $3 +b $address($5,2) | km NOTICE $5 $kps($ayr($1)) tarafından $kps($3) kanalında banlandınız. }
if $remove($4,$chr(58)) == !kb && $5 && $5 ison $3 { km MODE $3 +b $address($5,2) | km KICK $3 $5 $6- }
if $remove($4,$chr(58)) == !mode { km mode $3 $5- }
if $remove($4,$chr(58)) == !temizle { var %1 = 40 | while %1 { km privmsg $3 $chr(160) | dec %1 } }
if $remove($4,$chr(58)) == !koru && $5 && $5 ison $3 { km mode $3 +e $5 }
if $remove($4,$chr(58)) == !invite && $5 && $5 ison $3 { km mode $3 +I $5 }
if $remove($4,$chr(58)) == !uyarı && $5 && $5 ison $3 { km privmsg $3 Uyarı: $kps($+($5,$chr(58))) %uyarı }
if $istok(!sus !banac !mode !voice !devoice !hop !deop !hop !dehop !pro !depro !own !deown !invite !koru !temizle !nick !cban !rban !k !kb !uyarı !kurallar,$remove($4,$chr(58)),32) {
km privmsg %ykanal Bilgi: $kps($ayr($1)) yetkilisi, $kps($3) kanalında $kps($remove($4-,$chr(58))) komutunu uyguladı.
}
}
else {
var %1 = 1,%2 = $hget(kfr,0).item
while %1 <= %2 {
if $hget(kfr,%1).item iswm $remove($4-,$chr(58)) {
var %klm = $v1 | km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([küfür kelimesi],[,$kps(%klm),]) algılandı.
}
inc %1
}
var %p = $len($4-)
if $len($remove($4-,$chr(58))) >= %uzunyazı {
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) $kps(%uzunyazı) karakterden $+(fazla,[,$kps(%p),$chr(32),karakter,],) text gönderdiğiniz algılandı.
}
hinc $+(-mu,%tkr-lmt) text $+($3,½,$ayr($1)) 1
if $hget(text,$+($3,½,$ayr($1))) >= %tkr-sny {
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) $kps($3) kanalına; $kps($+([,%tkr-lmt,][saniye])) içerisinde $kps($+([,%tkr-sny,][satır])) text gönderdiğiniz algılandı.
}
hinc $+(-mu,%flood-lmt) tkr $+($3,½,$ayr($1),$4,$5,$6) 1
if $hget(tkr,$+($3,½,$ayr($1),$4,$5,$6)) >= %flood-sny {
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) $kps($3) kanalın'da; $kps($+([,%flood-lmt,][saniye])) içerisinde $kps($+([,%flood-sny,][defa])) flood(tekrar) yaptığınız algılandı.
}
if $int($calc($regex($4-,/[A-ZÁ-ÙÄ]/g)*100/$len($4-))) >= %buharf {
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) Göndermiş olduğunuz text $kps($+([,%,%buharf,])) izinli olan büyük harf limitini aşmaktadır.
}
var %s = 1,%x = $hget(rklm,0).item
while %s <= %x { if $hget(rklm,%s).item iswm $remove($4-,$chr(58)) {
var %klm2 = $v1 | km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) Kullandığınız [kelime/cümle][de] $+([reklam kelimesi],[,$kps(%klm2),]) algılandı.
}
inc %s
}
if $regex($4-,/([?!:;,*@/\-=´`.])/g) >= %noktalama {
var %tt = $v1
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) Kanala göndermiş olduğunuz text'de, $kps(%noktalama) adet'den $+(fazla,[,$kps(%tt),$chr(32),adet,]) noktalama işareti bulunmakta.
}
if $chr(3) isin $4- || $chr(2) isin $4- || $chr(31) isin $4- || $chr(22) isin $4- {
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps(CTRL) kodları bulunmakta.
}
if $len($right($4-,-1)) >= %random-t-t && $regex($ayr($4-), /[aeuioüÜÖöİı]/gi) < %random-t {
km mode $3 +b $address($ayr($1),2)
km kick $3 $ayr($1) Göndermiş olduğunuz text'de, $kps($+(RANDOM[,%random-t sesli harf'den az])) olarak algılandı.
}
}
}
}
if $2 == mode {
if $sock(bt).mark !isreg $3 {
if $left($4,1) == $chr(43) {
if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) operator oldu. }
if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) halfop oldu. }
if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) protect oldu. }
if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) founder oldu. }
if *b* iswm $4 && $5 != $sock(bt).mark {
if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, banladım: $kps($5-) }
else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi banladı: $kps($5-) }
}
}
if $left($4,1) == $chr(45) {
if *o* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-operator durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-operator oldu. }
if *h* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-halfop durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-halfop oldu. }
if *a* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-protect durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-protect oldu. }
if *q* iswm $4 && $5 != $sock(bt).mark { km PRIVMSG $3 Bilgi: $kps($5) şuanda de-founder durumunda. | km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($5) de-founder oldu. }
if *b* iswm $4 {
if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, ban açtım: $kps($5-) }
else { km privmsg %ykanal Bilgi: $kps($3) kanalın'da, $kps($ayr($1)) yetkilisi ban açtı: $kps($5-) }
}
}
}
}
if $2 == 367 && $sock(bt).mark !isreg $4 { km mode $4 -b $5 }
if $2 == 368 && $sock(bt).mark !isreg $4 { km PRIVMSG $4 Bilgi: $kps($4) kanal'ı ban listesi temizlendi. }
if $2 == JOIN {
if $sock(bt).mark !isreg $remove($3,$chr(58)) {
if !$hmatch(grs,$ayr($1)) {
hadd $+(-mu,%hızlıgr-lmt) grs $ayr($1) 1 }
if $hget(grs,0).item >= %hızlıgrs {
var %& = 1,%&& = $hget(grs,0).item
while %& <= %&& {
km mode $remove($3,$chr(58)) +b $hget(grs,%&).item
km kick $remove($3,$chr(58)) $hget(grs,%&).item Agrasif hızlı giriş korumasına yakalandınız.
inc %&
}
}
if $ayr($1) != $sock(bt).mark {
if !$hget(klonkoru,$gettok($remove($1,$chr(58)),2,64)) {
hadd -m klon $+($remove($3,$chr(58)),.,$remove($1,$chr(58))) 1
if $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),0) >= %klon-lmt {
var %1 = 1,%2 = $hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),0)
while %1 <= %2 {
km mode $remove($3,$chr(58)) +b $gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),2,64)
km kick $remove($3,$chr(58)) $gettok($gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),1,33),2,46) $+([,$kps($gettok($hmatch(klon,$+(*,$gettok($remove($1,$chr(58)),2,64)),%1),2,64)),]) adresinden $kps(%klon-lmt) adet clone tespit edildi.
inc %1
}
}
}
}
var %z = 1,%j = $hget(bdnick,0).item
while %z <= %j {
if $hget(bdnick,%z).item iswm $ayr($1) {
var %:: = $v1 | km mode $remove($3,$chr(58)) +b $gettok($1,2,64)
km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuzda, yasaklı listesinden olan $+([,$kps(%::,)]) kelimesi algılandı.
}
inc %z
}
if $len($ayr($1)) >= %random-n-h-u && $regex($ayr($1), /[aeuioüÜÖöİı]/gi) < %random-nk {
km mode $remove($3,$chr(58)) +b $gettok($1,2,64)
km kick $remove($3,$chr(58)) $ayr($1) Kullandığınız rumuz, random nick olarak algılandı. Sebeb: Rumuz içerisinde $kps(%random-nk) adet'den daha az sesli harf.
}
}
}
if $2 == part { if $hmatch(klon,$+($3,.,$remove($1,$chr(58)))) { hdel klon $v1 } }
if $2 == kick {
if $hmatch(klon,$+($3,.,$address($4,5))) { hdel klon $v1 }
if $ayr($1) == $sock(bt).mark { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($4) rumuzunu kick'ledim. }
else { km privmsg %ykanal Bilgi: $kps($3) kanalında, $kps($ayr($1)) tarafından; $kps($4) rumuzu kicklendi. }
}
if $2 == quit { if $hmatch(klon,$+(*,$remove($1,$chr(58)))) { hdel klon $v1 } }
if $2 == nick {
var %2 = 1,%3 = $hget(bdnick,0).item
while %2 <= %3 {
if $hget(bdnick,%2).item iswm $remove($3,$chr(58)) {
var %& = $v1,%&& = $v2
badnick %&& %&
}
inc %2
}
}
if $2 == privmsg && $3 == $sock(bt).mark {
hinc -m oztext $ayr($1)
if $hget(oztext,$ayr($1)) == 1 {
km privmsg $ayr($1) Merhaba, $+($kps($ayr($1)),.)
km privmsg $ayr($1) Ben kanalların güvenliğinden sorumlu olan ve tamamen socket yapımı bir bot'um.
km privmsg $ayr($1) Özelime yazdığınız hiçbir text'e cevap verilmeyecektir.
km privmsg $ayr($1) Bu uyarıya uymayıp, $kps(2) defa daha text gönderirseniz; yetkili olduğum tüm kanallardan sizi $kps(uzaklaştırmak) zorunda kalıcağım.
km privmsg $ayr($1) Hoş sohbetler dilerim.
}
if $hget(oztext,$ayr($1)) == 2 { km privmsg $ayr($1) $+($kps($ayr($1)),:) 2. defa text gönderdiniz. Son uyarıdır. }
if $hget(oztext,$ayr($1)) == 3 {
var %% = 1,%%% = $comchan($sock(bt).mark,0)
while %% <= %%% {
if $sock(bt).mark !isreg $comchan($sock(bt).mark,%%) {
km mode $comchan($sock(bt).mark,%%) +b $ayr($1)
km kick $comchan($sock(bt).mark,%%) $ayr($1) Özelime uyarıları dikkate almayarak $kps([3]) satır text gönderdiğiniz için; yetkili olduğum tüm kanallardan uzaklaştırıldınız.
}
inc %%
}
}
}
}
}
alias badnick {
var %/ = 1,%\ = $comchan($sock(bt).mark,0)
while %/ <= %\ {
if $sock(bt).mark !isreg $comchan($sock(bt).mark,%/) {
km mode $comchan($sock(bt).mark,%/) +b $1
km kick $comchan($sock(bt).mark,%/) $1 Geçmiş olduğunuz rumuz'da, yasaklı listesinden varolan $+([,$kps($2),]) kelimesi algılandı.
}
inc %/
}
}
dialog cprot {
title "C-prot socket bot - Özellik/bağlantı ayarları"
size -1 -1 344 268
option dbu
text "- Küfür koruması ayarları -", 1, 255 11 87 8, center
list 2, 263 31 50 40, size hsbar vsbar
edit "", 3, 263 20 50 10, autohs
button "EKLE", 4, 314 21 21 9
button "SİL", 5, 314 41 21 9
button "T.SİL", 6, 314 51 21 9
text "- Reklam koruması ayarları -", 7, 255 75 88 8, center
edit "", 8, 263 84 50 10, autohs
list 9, 263 95 50 40, size hsbar vsbar
button "EKLE", 10, 314 85 21 9
button "SİL", 11, 314 105 21 9
button "T.SİL", 12, 314 115 21 9
text "- Badnick koruması ayarları -", 13, 256 138 88 8, center
edit "", 14, 264 147 50 10, autohs
list 15, 264 158 50 40, size hsbar vsbar
button "EKLE", 16, 315 148 21 9
button "SİL", 17, 315 168 21 9
button "T.SİL", 18, 315 178 21 9
box "Gelişmiş korumalar", 19, 257 1 85 200
text "Sunucu:", 21, 6 12 23 8
edit "", 22, 29 11 47 10, autohs
edit "", 23, 29 23 47 10, autohs
text "PORT:", 24, 6 24 22 8
text "- Bot'un gireceği kanallar -", 25, 5 59 73 8, center
edit "", 26, 5 70 50 10, autohs
list 27, 5 81 50 40, size hsbar vsbar
button "EKLE", 28, 56 71 21 9
button "SİL", 29, 56 91 21 9
button "T.SİL", 30, 56 101 21 9
text "Şifre:", 20, 6 36 23 8
edit "", 31, 29 35 47 10, autohs
text "Ident:", 32, 6 48 22 8
edit "", 33, 29 47 47 10, autohs
box "Bot bağlantı ayarları", 34, 3 1 79 200
text "- Uzun yazı koruma ayarları -", 35, 81 7 86 8, center
edit "", 36, 87 16 11 10, autohs limit 3
text "karakter gönderilirse işlev.", 37, 99 17 64 8
text "- Satır koruma ayarları -", 38, 88 57 74 8, center
edit "", 39, 86 66 11 10, limit 2
text "saniyede", 40, 98 67 23 8
edit "", 41, 121 66 11 10, limit 2
text "satır'a işlev.", 42, 133 67 30 8
text "- Tekrar koruma ayarları -", 43, 87 105 74 8, center
edit "", 44, 86 114 11 10, limit 2
text "saniyede", 45, 98 115 22 8
edit "", 46, 120 114 11 10, limit 2
text "tekrar'a işlev.", 47, 132 115 33 8
text "- Büyük harf koruma ayarları -", 48, 169 7 84 8, center
text "%", 49, 173 17 7 8
edit "", 50, 181 16 11 10, autohs limit 2
text "büyük harf'e işlev.", 51, 194 17 52 8
text "- Noktalama işareti koruma -", 52, 172 57 78 8, center
edit "", 53, 172 66 11 10, limit 2
text "noktalama işaretine işlev.", 54, 184 67 66 8
text "Açıklama: Belirttiğiniz miktar'dan fazla karakter kanal'a gönderilise işlev yapıcaktır.", 55, 87 26 76 22, center
text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktardan fazla satır gönderilirse işlev yapıcaktır.", 56, 87 76 76 22, center
text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz miktar kadar tekrar yapılırsa işlev yapıcaktır.", 57, 86 124 76 22, center
text "Açıklama: Gönderilen text'de belirttiğiniz % miktarı kadar büyük harf varsa işlev yapıcaktır.", 58, 168 26 83 22, center
text "Açıklama: Gönderilen text'de belirttiğiniz miktar kadar noktalama işareti varsa işlev yapıcaktır.", 59, 169 76 84 22, center
text "- Random text koruma ayarları -", 60, 163 105 96 8, center
edit "", 61, 169 114 11 10, autohs limit 3
text "sesli harf işlev.", 62, 218 115 40 8
text "Açıklama: Gönderilen text'de belirttiğiniz miktardan aşşağıda sesli harf varsa işlev yapıcaktır.", 63, 169 124 84 22, center
text "- Hızlı giriş koruma ayarları -", 64, 87 153 77 8, center
text "saniyede", 66, 98 163 22 8
edit "", 67, 121 162 11 10, limit 2
text "giriş'e işlev.", 68, 133 163 31 8
text "Açıklama: Belirttiğiniz saniyede, belirttiğiniz kişi ve/ya fazlası kanal'a girer ise işlev yapıcaktır.", 69, 87 172 76 22, center
text "- Clone koruma ayarları -", 70, 172 152 77 8, center
edit "", 65, 86 162 11 10, limit 2
edit "", 71, 173 161 11 10, limit 2
text "adet clone'a aşarsa işlev.", 72, 185 162 62 8
text "Açıklama: Kanal'a belirttiğiniz miktarda clone girişi olursa tüm clone'lara işlev yapıcaktır.", 73, 168 172 84 22, center
text "- Random nick koruma ayarları - ", 74, 124 201 93 8, center
edit "", 75, 124 210 11 10, limit 2
text "karakter'de", 76, 136 211 29 8
edit "", 77, 166 210 11 10, limit 2
text "sesli harf'e işlev.", 78, 178 211 41 8
text "Açıklama: Belirlediğiniz karakter'den yüksek olan bir nick'de, belirttiğiniz karakterden aşşağıda sesli harf mevcut ise işlev yapılıcaktır.", 79, 128 221 84 28, center
text "- Rapor bildirim kanalı -", 80, 6 123 72 8, center
text "Kanal ismi girin:", 81, 6 133 38 8
edit "", 82, 45 133 35 9, autohs limit 15
text "Açıkalamalar", 84, 6 146 72 8, center
text "Bot yapımı tamamen bana aittir.(L4roXyL) Bot'un gireceği kanalları ve bildirim kanalını mutlaka belirlemelisiniz. Aksi taktirde hatalar çıkabilir.", 85, 6 157 72 41, center
button "AYARLARI KAYDET VE BAŞLAT", 86, 2 202 80 12, flat ok
box "", 83, 83 1 83 50
box "", 87, 167 1 89 50
box "", 88, 83 50 83 51
box "", 89, 167 50 89 51
box "", 90, 83 148 83 49
box "", 91, 167 100 89 49
box "", 92, 83 100 83 49
box "", 93, 167 148 89 49
box "", 94, 122 196 97 56
button "SADECE AYARLARI KAYDET/YENİLE", 95, 122 253 96 12
text "C-prot bot durumu:", 96, 4 233 66 14
text "", 97, 72 233 48 14
box "Etkilenmiyecek adresler", 98, 257 202 84 64
text "Açıklama: Buraya eklediğiniz adresler clone korumasından etkilenmez. Örnek: *helper*", 99, 259 209 79 22, center
edit "", 100, 287 233 51 10, autohs
text "Adres gir:", 101, 262 234 25 8
button "EKLE", 102, 262 244 75 10
button "Liste", 103, 282 255 37 9
button "BAĞLANTIYI KOPAR", 104, 2 216 80 11, flat
text "uzunlukda", 105, 181 115 26 8
edit "", 106, 206 114 11 10, limit 2
}
dialog cloness {
title "Etkilenmiyenler;"
size -1 -1 95 69
option dbu
list 1, 3 2 89 50, size hsbar vsbar
button "Korunan adresi sil", 2, 18 54 60 12
}
on *:dialog:cprot:sclick:*: {
if $did == 86 {
if $did(36) == $null || $did(39) == $null || $did(41) == $null || $did(44) == $null || $did(46) == $null || $did(50) == $null || $did(61) == $null || $did(65) == $null || $did(67) == $null || $did(71) == $null || $did(75) == $null || $did(77) == $null || $did(53) == $null || $did(22) == $null || $did(23) == $null || $did(31) == $null || $did(33) == $null || $hget(kanallar,0).item < 1 {
$input(Boş alan bıraktınız. Bot'u belirtilen sunucuya bağlamak için boş alan bırakılmamalıdır. Lütfen tüm yerleri doldurunuz.,ohud,HATA)
halt
}
else {
set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50) | set %random-t-t $did(61)
set %random-t $did(106) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53)
set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33)
btbg %sunucu %port
dialog -x cprot cprot | echo -a Bilgi: $kps(C-Prot) botu, şuan'da $kps(%sunucu) sunucusuna bağlanıyor.
hadd -m kanallar %ykanal 1
}
}
if $did == 28 {
if $did(26).text == $null { $iif($input(Herhangi bir veri girmediniz.,ohud,Hata) == $true,halt,return) }
if $left($did(26).text,1) != $chr(35) { $iif($input(Lütfen kanal eklerken başına "#" karakterini koyunuz,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) }
else {
var %ttt = $did(26).text
if $hget(kanallar,%ttt) != 1 { did -a $dname 27 %ttt | hadd -m kanallar %ttt 1 | hsave -i kanallar kanallar.db | did -r $dname 26 }
else { $iif($input(%ttt kanalı zaten listede.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) }
}
if $hget(kanallar,0).item >= 10 { $iif($input(Kanal listesini doldurmuşsunuz maksimum 9 kanal ekliyebilirsiniz.,ohud,Hata) == $true,did -r $dname 26,did -r $dname 26) }
}
if $did == 29 {
var %- = $did($dname,27).sel,%-- = $did($dname,27).seltext
if !%- { $input(Listeden bir kanal seçmelisiniz.,ohud,hata) }
else { hdel kanallar %-- | hsave -i kanallar kanallar.db | did -d $dname 27 %- }
}
if $did == 30 {
if $hget(kanallar,0).item >= 1 { did -r $dname 27 | hfree kanallar | hmake kanallar 100 | hsave kanallar kanallar.db }
else { $input(Herhangi bir veri yok.,ohud,Hata) }
}
if $did == 4 {
if $did(3).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) }
else {
var %kkk = $did(3).text
if $hget(kfr,%kkk) == 1 { $iif($input(%kkk kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 3,did -r $dname 3) }
else { did -a $dname 2 %kkk | hadd -m kfr %kkk 1 | hsave -i kfr kfr.db | did -r $dname 3 }
}
}
if $did == 5 {
var %q = $did($dname,2).sel,%qq = $did($dname,2).seltext
if !%q { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) }
else { hdel kfr %qq | hsave -i kfr kfr.db | did -d $dname 2 %q }
}
if $did == 6 {
if $hget(kfr,0).item >= 1 { did -r $dname 2 | hfree kfr | hmake kfr 100 | hsave kfr kfr.db }
else { $input(Herhangi bir veri yok.,ohud,Hata) }
}
if $did == 10 {
if $did(8).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) }
else {
var %ssq = $did(8).text
if $hget(rklm,%ssq) == 1 { $iif($input(%ssq kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 8,did -r $dname 8) }
else { did -a $dname 9 %ssq | hadd -m rklm %ssq 1 | hsave -i rklm rklm.db | did -r $dname 8 }
}
}
if $did == 11 {
var %ww = $did($dname,9).sel,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if !%ww { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) }
else { hdel rklm %
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
hsave -i rklm rklm.db | did -d $dname 9 %ww }
}
if $did == 12 {
if $hget(rklm,0).item >= 1 { did -r $dname 9 | hfree rklm | hmake rklm 100 | hsave rklm rklm.db }
else { $input(Herhangi bir veri yok.,ohud,Hata) }
}
if $did == 16 {
if $did(14).text == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Hata) == $true,halt,return) }
else {
var %po = $did(14).text
if $hget(bdnick,%po) == 1 { $iif($input(%po kelimesi zaten listede.,ohud,Hata) == $true,did -r $dname 14,did -r $dname 14) }
else { did -a $dname 15 %po | hadd -m bdnick %po 1 | hsave -i bdnick bdnick.db | did -r $dname 14 }
}
}
if $did == 17 {
var %ee = $did($dname,15).sel,%eee = $did($dname,15).seltext
if !%ee { $input(Listeden bir kelime seçmelisiniz.,ohud,hata) }
else { hdel bdnick %eee | hsave -i bdnick bdnick.db | did -d $dname 9 %ee }
}
if $did == 18 {
if $hget(bdnick,0).item >= 1 { did -r $dname 15 | hfree bdnick | hmake bdnick 100 | hsave bdnick bdnick.db }
else { $input(Herhangi bir veri yok.,ohud,Hata) }
}
if $did == 102 {
if $did(100) == $null { $input(Eklenilecek adres girmediniz. Örnek: *helper* ve/ya *admin* şeklinde ekleme yapınız.,ohud,Hata) }
else {
var %&1 = $did(100).text
if $hmatch(klonkoru,%&1) { $iif($input(%&1 adresini zaten koruma listesine eklemişsiniz.,ohud,Hata) == $true,did -r $dname 100,did -r $dname 100) }
else { did -r $dname 100 | hadd -m klonkoru %&1 1 | hsave -i klonkoru klonkoru.db | did -a $dname 100 Eklendi. }
}
}
if $did == 103 { if !$dialog(cloness) { dialog -m cloness cloness } }
if $did == 104 { if $sock(bt).status == active { sockclose bt | echo -a Bilgi: $kps(C-prot) bağlantısı koptu. | vsvs | hfree klon } | else { echo -a Bilgi: Bot zaten bağlı değil. } }
if $did == 95 {
set %uzunyazı $did(36) | set %tkr-lmt $did(39) | set %tkr-sny $did(41) | set %flood-lmt $did(44) | set %flood-sny $did(46) | set %buharf $did(50)
set %random-t-t $did(61) | set %hızlıgr-lmt $did(65) | set %hızlıgrs $did(67) | set %klon-lmt $did(71) | set %random-n-h-u $did(75) | set %random-nk $did(77) | set %noktalama $did(53)
set %ykanal $did(82) | set %sunucu $did(22) | set %port $did(23) | set %bsifre $did(31) | set %bident $did(33) | set %random-t $did(106)
dialog -x cprot cprot | echo -a Bilgi: Tüm ayarlar kaydedildi/yenilendi.
}
}
on *:dialog:cprot:init:*:{
var %&& = 1,%&&& = $hget(kanallar,0).item | while %&& <= %&&& { did -a $dname 27 $hget(kanallar,%&&).item | inc %&& }
var %oo = 1,%l = $hget(kfr,0).item | while %oo <= %l { did -a $dname 2 $hget(kfr,%oo).item | inc %oo }
var %ii = 1,%i = $hget(rklm,0).item | while %ii <= %i { did -a $dname 9 $hget(rklm,%ii).item | inc %ii }
var %gak = 1,%p = $hget(bdnick,0).item | while %gak <= %p { did -a $dname 15 $hget(bdnick,%gak).item | inc %gak }
did -a $dname 36 %uzunyazı | did -a $dname 39 %tkr-lmt | did -a $dname 41 %tkr-sny | did -a $dname 44 %flood-lmt | did -a $dname 46 %flood-sny
did -a $dname 50 %buharf | did -a $dname 61 %random-t-t | did -a $dname 65 %hızlıgr-lmt | did -a $dname 67 %hızlıgrs | did -a $dname 71 %klon-lmt
did -a $dname 75 %random-n-h-u | did -a $dname 77 %random-nk | did -a $dname 53 %noktalama | did -a $dname 106 %random-t
did -a $dname 22 %sunucu | did -a $dname 23 %port | did -a $dname 33 %bident | did -a $dname 31 %bsifre | did -a $dname 82 %ykanal
did -a $dname 97 $iif($sock(bt).status == active,Bot bağlı.,Bağlı değil.)
mdx MarkDialog $dname
mdx SetFont $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19,36,50,39,41,53,44,46,61,65,67,71,75,77,21,20,24,32,98,106 14 800 Bauhaus
mdx SetFont $dname 96,97 16 800 Bauhaus
mdx SetColor $dname 96,97 text $rgb(205,38,38)
mdx SetColor $dname 25,80,84,35,38,43,64,48,52,60,70,74,1,7,13,34,19 text $rgb(205,38,38)
if $sock(bt).status == active { did -b $dname 86 }
else { did -e $dname 86 | did -b $dname 104 }
}
on *:dialog:cloness:init:*: {
var %11 = 1,%12 = $hget(klonkoru,0).item | while %11 <= %12 { did -a $dname 1 $hget(klonkoru,%11).item | inc %11 }
}
on *:dialog:cloness:sclick:2: {
var %1 = $did($dname,1).sel,%2 = $did($dname,1).seltext
if !%1 { $input(Listeden herhangi bir veri seçmediniz.,ohud,Hata) }
else { hdel klonkoru %2 | hsave -i klonkoru klonkoru.db | did -d $dname 1 %1 }
}
Bu kod Guzel hos ayarlamaları yapıp baglan dıyorum
Bilgi: C-Prot botu, şuan'da irc.xxx.net sunucusuna bağlanıyor.
Bilgi: C-prot bot'u, irc.xxx.net sunucusuna bağlandı.
dıyo ama [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[KBSC] 14::05 *** Giriş: C-prot ( Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu sorunu cozebılırmıyız acaba bot gırıyo sunucuya ama mırc'te gorukmuyo gırdıgı |
