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

; _ran(<kaç sesli harf>,<kaç sessiz harf>,<son karakter>,<kelime>)

Kod:

alias _ran2 {

var %a = a.i.o.u.e,%b = q.w.r.t.y.p.s.d.f.g.h.j.k.l.z.x.c.v.b.n.m,%i = 1

while $mid($4,%i,1) {

if ($istok(%a,$mid($4,%i,1),46)) { var %s = %a ,%is = $1 }

elseif ($istok(%b,$mid($4,%i,1),46)) { var %s = %b,%is = $2 }

else { unset %s }

if %s {

var %im = 0,%ig = %is

while %is {

if ($istok(%s,$mid($4,$calc((%i + %is) - 1),1),46)) {

inc %im

}

if (%im >= %ig) { return evet }

if ($calc((%i + %im) -1) >= $3) { return }

dec %is

}

}

inc %i

}

}

Bir kelime içerisindeki yan yana sesli yada sessiz harflerin olup olmadığını denetliyor.

Kod:

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 döner..