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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   $_ran v2 RandomNick Yakalama Kodu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/6580-_ran-v2-randomnick-yakalama-kodu.html)

aSii_GeNc 18 Ağustos 2005 19:03

$_ran v2 RandomNick Yakalama Kodu
 
; _ran(<kaç sesli harf>,<kaç sessiz harf>,<son karakter>,<kelime>)
PHP- Kodu:

alias _ran2 {
var %
a.i.o.u.e,%q.w.r.t.y.p.s.d.f.g.h.j.k.l.z.x.c.v.b.n.m,%1
while $mid($4,%i,1) {
if (
$istok(%a,$mid($4,%i,1),46)) { var %= %,%is = $}
elseif (
$istok(%b,$mid($4,%i,1),46)) { var %= %b,%is = $}
else { unset %
}
if %
{
var %
im 0,%ig = %is
while %is {
if (
$istok(%s,$mid($4,$calc((%+ %is) - 1),1),46)) {
inc %im
}
if (%
im >= %ig) { return evet }
if (
$calc((%+ %im) -1) >= $3) { return }
dec %is
}
}
inc %i
}



Bu daha önce verdiğim kod un sessiz harfleride bulanı :P
Bir kelime içerisindeki yan yana sesli yada sessiz harflerin olup olmadığını denetliyor.
on 1:join:#: { if $_ran2(3,3,6,$nick) { ban -k # $nick 2 Random Dedected } }
Yukarıdaki alias ın altına bunu eklerseniz baştan 6. karaktere kadar yan yana 3 sesli veya 3 sessiz harf görürse evet döner..

Code By aSii_GeNc :P

UOnur 18 Ağustos 2005 19:08

LeadeR Boynunuzdan Öper Hepiniz AKILLI Olun !
 
Güzel Güzelll :)
Trojana HAYIR!!!

CoCoRiCo 18 Ağustos 2005 19:23

regexxxxx regexxxxx isterizz :)

UOnur 18 Ağustos 2005 19:52

Kardeş Kodmu :)

CoCoRiCo 18 Ağustos 2005 19:57

neyse verdigim hatalı zaten cok hassas en iyisi silmek ::)

el33t 18 Ağustos 2005 22:19

Regex'te yeniyim, sadece basit şeyleri biliyorum

Sesli ya da sessiz 3 harf yanyanaysa aşağıdaki alias $true'ya dönüyo, değilse $false, (Remote'a koyuyorsunuz), Kırmızıyla yazılı olan 3 sayılarını kaç tane ünlü ya da ünsüz yanyana geldiğinde $true olmasını istiyosanız onunla değiştirebilirsiniz. Birincisi ünsüz harfler için, ikincisi ünlü harfler için)

alias grr { if (($regex($1,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true } | else { return $false } }

Kullanımı:

$grr(aioselam) $true olacaktır çünkü aio sesli harfleri yanyana, ya da $grr(srrhello) da $true olacaktır çünkü srrh sessiz harfleri yanyana.

on @!*:join:#:{ if ($grr($nick)) { ban -k # $nick 2 random nick } }

Yukardaki kodu da koyarsak kanala giren nicklerden 3 sesli ya da sessiz harf yan yanaysa kanaldan atılırlar.. Ayrıca eğer nickin x karakter uzun olduğunda bu kodun çalışmasını istiyorsanız, aşağıdaki kırmızı X yazan yeri istediğiniz sayıyla değiştirip kullanabilirsiniz:

on @!*:join:#:{ if (($grr($nick)) && ($len($nick) > X)) { ban -k # $nick 2 random nick } }

Umarım işinize yarar..

aSii_GeNc 19 Ağustos 2005 12:02

İşte bu :)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gördünmü bebek :)

eviL 19 Ağustos 2005 12:19

bu adam mühteşem :P

BoSs 19 Ağustos 2005 12:27

waaooww anlamaya çalişiyorumama imkanı yok..

aSii_GeNc 19 Ağustos 2005 12:45

:)
o zaman grr ile benim kodu düzenleyeliimmm.
PHP- Kodu:

// grr2(<sesli sayısı>,<sessiz>,<son karakter>,<kelime>)
alias grr2 {
  var %
$mid($4,1,$3)
  if (($($+($,
regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }


Benim kodla aynı görevi 2 satırda yapıyor.
Yani regex ruLaz...
on @!*:join:#:{ if $grr2(3,4,6,$nick) { ban -k # $nick 2 random nick } }

eviL 19 Ağustos 2005 12:56

güzel calısıyor fakat iste sessiz nick ayarını iyi tutturmak lazım

WhaLberg 19 Ağustos 2005 12:58

Regexciğime selamlar gönderiyorum buradan. Regex ne abi? :)

djiNn 19 Ağustos 2005 15:10

abi Aşmayın Ya bu kadar Ağlıcam şimdi :o

Black 19 Ağustos 2005 19:53

Diyelimki herşey normal ama genede masum olan bi kaç kişi atılıyor. Bu masum kişilerin atılmaması için ne yapmak lazım.

Örneğin:
*** neslisah was kicked by TimSaH ((Random (Rastgele) Nick ve/veya Ident..)[Drones Kicked: 781] - kick #72646)

Whois bilgileri ise:
*** neslisah is [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bu nicki nasıl korumaya alırım.Atılmaması için?

MaeLStrOm 19 Ağustos 2005 21:09

on *:join:#: {
if ($nick == neslisah) || ($nick == ikincinick) ... { halt }
kodun dewamı
;bunu eklersen nickler korunacaktır.Ayrıca el33t asi_genc regex regsub hakkında bi dokuman hazırlayıp siteye verirseniz cok güzel olur faydalanırız

el33t 19 Ağustos 2005 23:14

on @!*:join:#:{
if (!$regex($nick,/neslisah|ikincinick|ucuncunick|dorduncunick/i)) {
;kodun devamı
}
}

eğer kanala giren nick neslisah ikincinick ucuncunick dorduncunick degilse, devam eder, $regex başındaki ! (ünlem işareti) eğer ordan bir nick değilse anlamına geliyo. Regex'teki /i switchi ise nick NeSLiSaH'sa da atmaması için. Yani case-sensitive olayı.

Umarım anlamışsındır.

aSii_GeNc 19 Ağustos 2005 23:54

neslisah neden atılmış anlamış deilim :)
Ama coda şunu eklersen geçebilirsin...
var %nickler neslisah aSii_GeNc el33t WhaLBerg maelstrom
if $istok(%nickler,$nick,32) { halt }
:)

CoCoRiCo 20 Ağustos 2005 01:16

Alıntı:

aSii_GeNc Nickli Üyeden Alıntı
İşte bu :)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gördünmü bebek :)

hehhh simdi oldu ([a-z]\[aioue])/g
mesela bende regular expession ögreniyorum az cok biraz tutorial takip etmem lazım geri kaldık PERL ögrenmeye calısırken..

erdem55 21 Ağustos 2005 11:11

[11:05] *** Giriş: a_MeTaLLlCa ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick
[11:05] *** Giriş: manyak_bot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick
[11:05] *** Giriş: BLACKDIAMOND ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick
[11:06] *** Giriş: t-u-g-r-u-l ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick

ekleme şeklim
alias grr { if (($regex($1,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true } | else { return $false } }
off @!*:join:#:{ if ($grr($nick)) { echo 4 -a cs akick # add $address($nick,2) random nick } }

ama malesef yukardada görültdüğü gibi önüne gelni banladı

aSii_GeNc 21 Ağustos 2005 11:36

Çalıştırabilsen şaşardım erdem55...
Başka bir ilgi alanı seçmeyi hiç düşündünmü..
Mesela müzikle falan ilgilen ?

erdem55 21 Ağustos 2005 12:36

asii_genc sen hiç geri zekalı olduğunu düşündünmü düşünsen iyi olur. Bu kadarda küstahlık fazla ben sana kodlarla beraber kimleri attını yazdım. Sense ne diyosun sana çaılışmıyo diyenmi oldu zıplıyosun tavşan gibi. Yoksa sende tavşanlar gibi kulakları önde gidenlerdenmisin. Allahım ya yeter be bu kadarda olmaz adam gibi soru sorduk adam gibi yanıt ver vericeksen ne ukalalık yap nede geri zekalı olduğunu açık açık ortaya koyma.
Burası bildim kadarıyla yardım forumu dimi? Yoksa benmi yanılıyorum. Ama senin gibiler oldukça sanırım daha çok tartışmak çıkacaktır. İkinci onu senin yazdın koda zaten laf atanda olmadı sana yanlış yazmışsın diyende olmadı. Senin derdin ne benle? Ha özel bi derdin varsa buyur gel derim açık açıkta veririm adreesimi hiç çekinmeden. 0542 742 **** (Telefon numaranı deşifre etmene gerek yok [el33t]) buda telefon numaram ara sölim adresi bi derdin varsa yüz yüze konuşalım öyle klavye arkasından delikanlılık yapmak ahkam kesmek kolay adamın asabını bozmayın ya
Diğer tüm arkadaşlardan özür diliyorum ama kendimi tutamıyorum bu yapyığı ukalalığı bu hakareti bu gerizekalı davranışı yediremiyorum. Herkese kolay gelsin. Banlıcaksanız banlayın arkadaşlar. Canınız saolsun ama bu hareketinin karşılını almış odu

MaeLStrOm 21 Ağustos 2005 12:58

asi_genc sen coderliğe başladığında kimse seni boyle kucuk gordu mu.anlamamış yapamamış sormuş ne var bunda.herneyse erdem55 cok haklısın.

aSii_GeNc 21 Ağustos 2005 13:01

245 mesajının büyük çoğunluğu bu kod çalışmıo, kitlendi v.b. gibi cevaplar yazan bir insana başka ne denir?
Hakaretmi etmiş oldum şimdi ben sana...
Artık eklediğin kodlar benim değil... En üstteki kod benim... Herkez çalıştırırken sen çalıştıramıyorsun.Aylardır burdasın ve 3 satır kodu çalıştıramıosun...
Başlıktaki bütün mesajları okumuyorsun..
Bak yukarda senin mesajın cevabı var

eviL: "güzel calısıyor fakat iste sessiz nick ayarını iyi tutturmak lazım"...

Kimmiş gerizekalı ? Post kirliliğinden başka işe yaradığın bir yer göster...

erdem55 21 Ağustos 2005 13:18

asi_genç yazılarımnı iyi oku kim post kirliliği yapıyo anlarsın. Ben koda çalışmıyor demedim ayrıca denediğim kode el33t nin kodu ve genelde mircimde onun uonurun ve melphistonun veridği kodlar var ve benim ufak tefek kodlarım ben koderim demiyorum acemiyim bu işe ama yazımı iyi oku ben çalışmıyor demedim yanyana 3 sesli yada sessiz denilmiş ana kod yukarda gösterdiğim nickleri banlıyor dedim ve bi yanıt aradım ama senin veridğin cevap halkuladeydi müzikle ilgilen! Neyle ilgileneceğimi sanamı soracağım? Yada senin kararlarınlamı hayatımı yönlendireceğim. Salak salak konuşmayı bırak bence. Eğer yardımcı olucaksan ol olmayacaksan yorum yapma olsun bitsin kimseylede böyle tartışma diyaloğuna girmemiş olursun.

erdem55 21 Ağustos 2005 13:25

Alıntı:

aSii_GeNc Nickli Üyeden Alıntı
:)
o zaman grr ile benim kodu düzenleyeliimmm.
PHP- Kodu:

// grr2(<sesli sayısı>,<sessiz>,<son karakter>,<kelime>)
alias grr2 {
var %
$mid($4,1,$3)
if (($($+($,
regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }


Benim kodla aynı görevi 2 satırda yapıyor.
Yani regex ruLaz...
on @!*:join:#:{ if $grr2(3,4,6,$nick) { ban -k # $nick 2 random nick } }

Bak mesela senin veridğin bu kode ell33t ninkinden daha iyi çalışıyor yani bende öyle oldu. Ama yinede eksik bi yer var buda 3 sesli yada 3 sessiz harf yanyana olmasada banlıyo :( ben gördümü sölerim

aSii_GeNc 21 Ağustos 2005 13:34

Ben regexten anlamam..
Ama şimdi farkettimki -,_ gibi nicklerdeki sesli harfler dışındaki herşeyi sessiz harf olarak anımsıyor...
Sen sessiz harf kısmını kapa..
on @!*:join:#:{ if $grr2(3,6,6,$nick) { ban -k # $nick 2 random nick } }
Yani böyle
on @!*:join:#:{ if $grr2(3,0,6,$nick) { ban -k # $nick 2 random nick } }
Böylede olabilir..
İdentleri kontrol edersen sadece sesli harf kısmı bile yetiyor kodun ok.
Bu kadar uzatıcak sinir yapacak birşey yoktu...
Rastgele...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: Ben coderlağa yeni başlayan çok insan gördüm.. Yeteneği olan insanı tanırım. Ben ilk başladığımda bu başlığı görseydim baştan aşağıya okur, yarım gün neden böyle yaptı acep diye düşünür bir ton şey denerdim... Bu sayede bir çok şeyde o sırada öğrenirdim. Ama armut piş azıma düş bu coderlık değil!

MephisTo 21 Ağustos 2005 13:38

[11:05] *** Giriş: a_MeTaLLlCa ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

[11:05] *** Giriş: BLACKDIAMOND ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

Bunlarda zaten 3 sessiz harf var. Yanılmıyorsam el33t sessiz harfleri "sesli olmayan harfler" diye belirlemiş kodda. Yani - _ ^ vs gibi işaretler de sayılıyor. Eğer bu mantıkla düşünürsek kodlarda sorun yok.

[11:06] *** Giriş: t-u-g-r-u-l ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
[11:05] *** Giriş: manyak_bot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

MephisTo 21 Ağustos 2005 13:40

Sen ne ara yazdın bunu be :D

aSii_GeNc 21 Ağustos 2005 13:40

Bende farklı birşey söylemedim Utuk.
Ama şimdi farkettimki -,_ gibi nicklerdeki sesli harfler dışındaki herşeyi sessiz harf olarak anımsıyor...

MephisTo 21 Ağustos 2005 13:42

Ben senden önce yazmaya başlamıştım da, neyse :)

erdem55 21 Ağustos 2005 13:51

asii_genc Ben bu kodu dün geceden beridir inceliyorum. Ama koddan bişey anlamadığım için sordum zaten incele incele ama sonuç sıfırdı. Yani bu güne kadar öğrendiğim yada gördüğüm kodlar gibi değildi bu kod o nedenlede bi yere aramadım ve en sonunda sordum zaten ben kimseyle tartışmaya girmek yada başka bişi için sormadım. Bu güne kadar bişiler öğrendim ama öğrendiğim şeylerin içinde bu kod gibi olanlar yoktu. Açıkçası kod nasıl çalışıyo anladım dersem yalan olur yani açıklasanız tamam 3 sesli yada sessiz nick yanyana gelince banlıyor onu anladım ama bunu nasıl algılıyor çözemeidm mesela siz bakınca ^^ gibi karakterleride sessiz algılıyo dediniz yanlış anlamadıysam ama ben bunu o kadar incelememe ramen anlamadım. Yani kodu açıklamanızı isticem. Kolay gelsin. Mesela en basitinden
on @!*:join:#:{ if $grr2(3,6,6,$nick) burdaki 3,6,6 ne işe yarıyo $nick i biliyom:))))))))))) acemi oldumu söledim ama öğrenmediğimi söyleyemem. Az sonra nelix in sorduğu bi soru var o sorunun cevabına iyi bak pls bişi öğrenmedin diyosunya belkide bişiler öğreniyorumdur.

CoCoRiCo 21 Ağustos 2005 13:57

Alıntı:

erdem55 Nickli Üyeden Alıntı
[11:05] *** Giriş: a_MeTaLLlCa ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick
[11:05] *** Giriş: manyak_bot ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick
[11:05] *** Giriş: BLACKDIAMOND ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick
[11:06] *** Giriş: t-u-g-r-u-l ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
cs akick #kanal add [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] random nick

ekleme şeklim
alias grr { if (($regex($1,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true } | else { return $false } }
off @!*:join:#:{ if ($grr($nick)) { echo 4 -a cs akick # add $address($nick,2) random nick } }

ama malesef yukardada görültdüğü gibi önüne gelni banladı

yahu verdigim Regex bi örnekti "aeiou" yerine degişken kullan yada baska bi yöntem sende tutup aynını yazarsan o haflerin gectigi herkesi atar erdem..

aSii_GeNc 21 Ağustos 2005 13:58

Ya arkadaşım amacım kesinlikle aşalamak değil...
Eğer bu şekilde anlaşıldıysada özür dilerim..
İsteğim çaba gösterilmesi...
// grr2(<sesli sayısı>,<sessiz>,<son karakter>,<kelime>)
alias grr2 {
var %
s = $mid($4,1,$3)
if (($($+($,
regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }
}


Üstte açıklaması varya.
grr2(<sesli sayısı>,<sessiz>,<son karakter>,<kelime>)
3,6,6 = 3 sesli 6 sessiz 6 baştan kaçıncı karaktere kadar olduğu ...
İnşallah bu sefer anlaşılır olmuştur..
on @!*:join:#:{ if $grr2(3,6,6,$remove($nick,-,^,_) ) { ban -k # $nick 2 random nick } }
Bak böylede kullanabilirsin...

erdem55 21 Ağustos 2005 14:00

ama kod da 3 sesli yada 3 sessiz harf yan yana olursa atar diye yazıyodu. Bende kodddan biş anlamadığım için aynen yazdım kodu Regex açıkças ne demek oldunu bile bilmiyorum şimdi onu araştırıyorum.

erdem55 21 Ağustos 2005 14:02

tşkler asii_genc Sende kusura bakma ama daha düzgün bi dille söyleseydin böyle olmadı :( yazdığım koda bakarsan sevinirim

aSii_GeNc 21 Ağustos 2005 17:23

bide bu var dabi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

MaeLStrOm 21 Ağustos 2005 19:30

;amacım ne tartışma yaratmak ne de başka birşey asi_genc sadece uyarma şeklini kınadım ben.Yazını bir okusana adamın eğer coderliğe merakı olmasa neden buralarda takılsın ve hatta yardım isteyenlere yardımcı olmaya calıstığını gordum.Mantık olarak hazırcılık dahi kullansa bu dille uyarman cok yanlış bence.
Çalıştırabilsen şaşardım erdem55...
Başka bir ilgi alanı seçmeyi hiç düşündünmü..
Mesela müzikle falan ilgilen ?

aSii_GeNc 21 Ağustos 2005 21:05

Alıntı:

Ya arkadaşım amacım kesinlikle aşalamak değil...
Eğer bu şekilde anlaşıldıysada özür dilerim..
İsteğim çaba gösterilmesi...
Uzatmayalım artık... maelstrom

MaeLStrOm 21 Ağustos 2005 21:36

aynı fikirdeim asi_genc.kolay gelsin

djiNn 27 Ağustos 2005 00:53

alias grr2 {
var %s = $mid($4,1,$3)
if (($($+($,regex,$chr(40),%s,$chr(44),/[^aeiou],$chr(123),$2,$chr(125),/i,$chr(41)),2)) || ($($+($,regex,$chr(40),%s,$chr(44),/[aeiou],$chr(123),$1,$chr(125),/i,$chr(41)),2))) { return $true } | else { return $false }
}

on @!*:join:#: { if (*VGA*@* !iswm $fulladdress) && (*djiNn*@* !iswm $fulladdress) && (!$read(randomsuz.txt,w,$nick) { if $grr2(3,6,6,$remove($nick,-,^,_) ) { cs akick $chan add $address($nick,2) 11,1Random Nick Detected ! 0,4 Banınızın Hatalı Oldugunu Düşünüyorsanız Lütfen #unbans Kanalını Ziyaret Ediniz.. | cs akick $chan enforce | cs akick $chan del $address($nick,2) } }
}


Kullanıyordum.. Ve Sonradan Şöle Hata Vermeye Başladı..


* /if: invalid format


Delirecem Bulamadımda Birşey..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk