mIRCbuL.Net Türkçe mIRC indir

NICK nickinizi Degistirir..
komut: “/Nick istediginiz..Yeni nick”
örn: /nick nick

REGISTER KOMUTU
nickinizi kayit edebilmenizi saglar. .
komut: “/msg nickserv register sifre e-mail” ama bazi serverlarda “/msg nickserv register sifre” komutunu kullanmaniz gerekir..
Örn:”/ns register nick 123456 admin@kalpsiz.net”

IDENTIFY KOMUTU
simdi nickinizi kayit ettiniz..ama kendinizi tanitmanisz lazim..En önemlisi baglandiginiz..Herzaman kendinizi tanitmalisiniz..
Komut: “/msg nickserv identify sifre” Veya “/pass sifre” de yazabilirsiniz…
Örn: “/ns idetify nick 123456″

KILL KORUMASI
gelelim nickinizi koruma kismina; bu siz yokken Nickinizin kullanilmasini engeller..
komut: “/msg nickserv set kill on” artik nickinizin sifresini 1 dk. Içinde yazmassaniz veya 3 tane yanlis sifre Girerseniz..killeneceksiniz..

RECOVER KOMUTU
Aaa..!nickinizi degistiremiyorsunuz..! Nickname already taken mi diyor..ee kill korumasini acmassaniz Bu normaldir. .
komut: “/msg nickserv recover nick sifre” diyorsunuz ve dank..adam serverdan killeniyor..

GHOST KOMUTU
serverdan düstünüdüz..sonra bi baktiniz..az önce kullandiginiz nick orda duruyor…Aaaa. Ama siz serverdan hatta netten düsmüssünüz eee kolayida war bu isin..
Komut: “/msg nickserv ghost nick sifre”

INFO
nickinizin infosunu gösterir…
komut: “/msg nickserv info nick”

RELEASE
nickiniz kullaniliyorsa onu serverdan düsürürsünüz.
komut: “/msg nickserv RELEASE nick sifre”

PASS
sizin sifreli nickinizin sifresini Girersiniz.. .
komut: “/identify sifre yada /pass sifre yada /ns identify sifre

PASSWD
Nickinizin sifresini degistirmek için kullanilir. Komutu kullanmak için nickinizi identify edilmis olmasi gerekir.
Komut :_/nickserv set passwd yenisifre
Örn: /nickserv set passwd 123456

URL
Nickinize info çeken kisinin sizin e-mail ve ya web adresinize ulasmasini saglayan komut. komutu kullanmak için nickinizi identify etmis olmalisiniz. Ayrica url koymak istediginiz nicki o an kullaniyor olmalisiniz.
Komut :_/nickserv set url adres
Ornek: /nickserv set url mailto:kalpsiz@hotmail.com ve ya /nickserv set url http://www.Kalpsiz.net ) Tabii ki bu komutu kullanmak için

NOOP
Komutu on yaptiginizda birisi size aop/sop vermek isterse chanserv den size bir notice gelir. o kisi sizin nickinize aop/sop veremez.
Komut:_/nickserv set noop on|off
Örn: /nickserv set noop on

ACCESS
Bu komutla nickinizin access listini olusturabilirsiniz. Adres yazan kisma yazacaginiz adres ile girdiginiz zaman nickiniz kill on olsa bile nickserv identify istemez.
Komut :_/nickserv access add|del adres
Örn: /nickserv access add kemaliye mah.

RECOVER
Nickinizin belli bir sure kullanilmamasi icin bu komut kullanilir.
Komut :_/nickserv recover nick sifre
Örn: /nickserv recover nick 123456

GHOST
Nickiniz herhangi bir kisi tarafindan kullanildigi zaman ve ya siz düstügünüz halde nickiniz düsmediyse bu komutla nickinizi kullanani server dan atabilirsiniz
Komut :_/nickserv ghost nick sifre
Örn : /nickserv ghost nick 123456

DROP
Daha once register ettiginiz bir nicki düsürmek için kullanilir.
Komut :_/nickserv drop nick sifre
Örn: /nickserv drop nick 123456

RELEASE
Nickiniz herhangi bir sekilde nickserv tarafindan tutuldugu zaman onu kurtarmak için kullanilir. Genelde nicki identify etmeyip guest oldugunuz zaman kullanilir.
Komut :_/nickserv release nick sifre
Örn : /nickserv release nick 123456

INFO
Register edilmis herhangi bir nick hakkinda nickservden bilgi istemek icin kullanilir.
Komut :/nickserv info nick
Örn: /nickserv info nick

ACC
Genelde kullandiginiz adresi nickinize access olarak eklerseniz o adresle girdiginiz zaman nickserv identify istemez.
Komut:/nickserv acc nick adres
Örn : /nickserv acc nick 81.155.158.53

1) Turk kültürü M.ö. 5000 yillarina kadar uzanmaktadir. Temelini ise Andronova Kültürü oluşturmuştur.
2) Turk kültürü Altay Dağlari, Tanri Daği, Aral Gölü, Baykal Gölü ve Bati Turkistan’daki Anav ve Namazgah çevrelerin de olgunlaşmiştir.
3) Turklerin oluşturduğu bu kültüre Atli Göçebe veya Bozkir Kültürü adi da verilmektedir.
4) Altay Dağlarindaki Pazirik Kurgani ve Isik Gölü çevresindeki Esik Kurganlari ise Turk Kültürünün gelişmişliğinin en önemli eserleridir. aKurgan : Eski Turklerde mezar.
bBu kurganlarda insan ve hayvan cesetleri yaninda çeşitli eşyalara rastlanmiştir.
cPazirik Kurganinda bulunan altin zirhta Turk Kültürünün gelişmişliğinin en önemli kaniti olarak kabul edilir.
5) Turklerin inanç olarak ölümden sonraki hayata inandiklari anlaşilmiştir.
6)Turklerin temel geçim kaynaklarinin hay vancilik ve tarim olduğu anlaşilmiştir. Ayrica dokumacilik ve madencilikte önemli bir yer tutmaktadir.
7) İpek yolu da Turkler açisindan önemli bir yer tutmaktadir. İpek yolunun denetimi elde tutulduğu sürece ticaret de Turkler için önemli bir geçim kaynaği olmuştur.
8) Dünyada demir ilk defa Turkler tarafin dan kullanilmiş ve at ilk defa Turkler tarafindan evcilleştirilmiştir.
9) At sütünden kimiz yaparak içmişler, hayvancilikla geçindikleri halde domuzu hiçbir zaman beslememiş ve etini yememişlerdir.
10) Savaşçi bir toplum olarak yaşamişlar, Kartal ve Kurdu kutsal hayvan olarak kabul etmişler ve sembol olarak kullanmişlardir

;Günlük Fal addonı, Editleyen: ‘KeMaNcI’

;Günlük falınıza bakmak için “/günlükfal” yazınız, ya da popupslardaki Günlük Fal’a tıklayınız.

on *:LOAD:echo 12 -st > Günlük Fal addonını yüklediniz. “/günlükfal” yazarak yada popupslardaki Günlük Fal’a tıklayarak falınıza bakabilirsiniz.

menu status,menubar,channel {

-

Günlük Fal:günlükfal

}

alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }

alias -l falgoster { if !$window(GünlükFal) { window -k0 @GünlükFal } | aline -p @GünlükFal $1- }

on *:sockopen:muneccim:{

if %burç {

sockwrite -n $sockname GET $+(/gunluk_fal/bugun.asp?burc=,%burç) HTTP/1.1

sockwrite -n $sockname Host: muneccim.com $+ $crlf $+ $crlf

}

else { echo 12 -st > Hata: Burç seçmelisiniz.. }

}

on *:sockread:muneccim:{

if ($sockerr) {

echo 12 -st > Hata: Bağlantı hatası, lütfen tekrar deneyiniz.

halt

}

else {

var %temptext

sockread %temptext

if (*<td><p align=”center”><img src=”../images/*”></td>* iswm %temptext) && $istok(koc.boga.ikizler.yengec.aslan.basak.terazi.akrep.yay.oglak.kova.balik,$gettok($gettok($gettok(%temptext,3,47),1,34),1,46),46) { falgoster $+(04,$upper($gettok($gettok($gettok(%temptext,3,47),1,34),1,46))) }

if (*<p align=”center”><big><big><font face=”Arial Black”>*</font></big></big></p>* iswm %temptext) { falgoster $+(14,$htmlfree(%temptext)) }

if (<p><font color=”#000000″ face=”Arial Narrow”><strong><big>* iswm %temptext) { falgoster $+(10,$htmlfree(%temptext)) | falgoster  | if $sock(muneccim) { sockclose muneccim } }

}

unset %burç

}

alias -l htmlfree {

var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

return %x

}

dialog sa_gunlukfal {

title “Günlük Fal”

size -1 -1 59 35

option dbu

combo 1, 3 8 53 55, size drop

box “Burç:”, 2, 1 0 57 21

button “Oku”, 3, 3 22 25 10

box “”, 4, 1 17 29 17

button “Kapat”, 5, 31 22 25 10, ok

box “”, 6, 29 17 29 17

}

on *:dialog:sa_gunlukfal:*:*:{

if $devent = INIT {

didtok $dname 1 44 koç,boğa,ikizler,yengeç,aslan,başak,terazi,akrep,yay,oğlak,kova,balık

did -c $dname 1 1

}

if $devent = SCLICK {

if $did = 3 { if !$sock(muneccim) { set %burç $did($dname,1).sel | sockopen muneccim muneccim.com 80 } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }

}

}

Bu Kodu Yuklemek için ONcelikle Arkadaslar İlk Yapacagımız Şey C:\Program Files  içinde bulunan C:\Program Files\xx-Script Dosyamızın içine bir tane txt dosyası acıyoruz ornek olarak veriyorum gunlukfal.txt yukardaki addonumuzu bu koda yerleştirdikden sonra dosyamıza kayıt ediyoruz ve  scriptimizi acıyoruz oraya yazmamız gereken acıldıkdan sonra ise /load -rs gunlukfal.txt kodunu yazıp enterledikden sonra gunluk fal addonumuz kullanıma hazır haldedir.

on *:TEXT:!infoban:?:{
  if !$hget($nick) {
    .msg $nick Siz Banlanmadiniz ! | halt
  }
  else {
    msg $nick ———-Ban Bilgi Başlangici———-
    msg $nick [Nickiniz: $+($hget($nick,nickiniz),])
    msg $nick [Kanal: $+($hget($nick,kanal),])
    msg $nick [Banlayan: $+($hget($nick,banlayan),])
    msg $nick [Sebep: $+($hget($nick,sebep),])
    msg $nick [Zaman: $+($hget($nick,zaman),])
    msg $nick ———-Ban Bilgi Sonucu———-
    halt
  }
}   

YÜKLEME :

on *:text:*:?:{

if $1 == yardim {

msg $nick Lütfen !yardım olarak kullanın.

}

elseif $1 == !yardım {

var %> = $+(%,yardım,$nick)

if !$(%>,2) {

.timer 0 6 /sajoin $nick #Help | msg $nick Yardım odasına yönlendiriliyorsunuz. | /timer 0 11 /timers off |

inc -u200 $(%>,1)

}

else {

msg $nick Daha önce yardım almışınız,3 dk. beklemeniz gerekli

}

}

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı !yard

ım.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs!yardım.txt yazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

#joinpart on

on *:join:#kanall: {

if ($level($nick) == muafnlist) { halt }

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if $me !isop $chan { halt } | if $nick isop $chan { halt }

inc -u10 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]

if ( %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] == 4 ) {

unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]

banla # $nick

.msg # $+(“,$nick,”) Asiri Join/Part yapimi yasak!

}

}

#joinpart end

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı Join/part.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs Join/part.txtyazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

on *:snotice:*: {

if ($level($9) == muafnlist) { halt }

if ($level($9) == muafclist) { halt }

if (connecting isin $1-) {

if (%botnet == Acik) {

var %:ip $remove($gettok($10,2,64),$chr(41))

if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }

if ($read(botnet.txt,w,$9)) {

.gzline $+(*@,%:ip) %agresif [ $+ [ %:ip ] ] +1800 Sc5 veya Botnet girisi olasiligiyla sunucudan 30 dakika Uzaklastirildiniz $date $time $+([,%botnick,])

.msg %operkanali [BILGI][ IP : %:ip ][ NICK : $9 ][Sc5 Veya Botnet Olasiligi]

halt

}

}

if (%random == Acik) {

var %identd = $remove($gettok($10,1,64),$chr(40))) {

if ($randomnick($9)) || ($randomnick(%identd)) { .gzline $+(*@,%:ip) +3800 Random nick/ident girisi yasaktir lutfen turkce karakterli harfler kullaniniz! $date $time $+([,%botnick,]) | .msg %operkanali [BILGI][ IP : %:ip ][ NICK : $9 ][Random Nick] | halt }

}

}

if (%proxy == Acik) {

if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }

if $level($remove($gettok($10,2,64),$chr(41))) == proxy {

.gzline $+(*@,%:ip) +0 Proxy Korumasi! $date $time $+([,$me,])

.msg %operkanali [BILGI][ IP : %:ip ][ NICK : $9 ][Proxy Girisi][Users]

inc %istabutun

inc %istaProxy

}

else {

var %proxya $gettok($remove($10,$chr(41)),2,64)

if $read(proxyport.txt,w,$+(*,%proxya,*)) {

.msg %operkanali [BILGI][ IP : %:ip ][ NICK : $9 ][Proxy Girisi][Proxyport.Txt]

.gzline $+(*@,%:ip) +0 Proxy Korumasi! $date $time $+([,%botnick,]) | unset %proxya

}

if $read(proxylist.txt,w,%proxya) {

.msg %operkanali [BILGI][ IP : %:ip ][ NICK : $9 ][Proxy Girisi][Proxylist.Txt]

.gzline $+(*@,%:ip) +0 Proxy Korumasi! $date $time $+([,%botnick,]) | unset %proxya | halt

}

}

if (%agresif == Acik) {

if ($level($9) == muafnlist) { halt }

inc -u15 %agresif. [ $+ [ %:ip ] ]

if ( %agresif. [ $+ [ %:ip ] ] == 3 ) { .gzline $+(*@,%:ip) +1200 agresif baglanma sebebiyle 10 dakka sunucudan uzaklastirildiniz $date $time $+([,%botnick,]) | .msg %operkanali [BILGI][ IP : %:ip ][ NICK : $9 ][Agresif Baglanma] | unset %agresif. [ $+ [ %:ip ] ] | halt }

}

}

if (%vsifre == Acik) {

writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))

.msg $9
VERSION

.timervkontrol 1 15 /set -u1 %vkontrol on

.timer $+ $9 1 15 /who $+(*,%:ip,*)

halt

}

}

}

alias guncelle {

.write -c proxylist.txt

sockopen dify list.iblocklist.com 80

.msg %operkanali Güncel proxy listesi alınıyor…

}

on *:sockopen:dify:{

sockwrite -n $sockname GET /?list=tor HTTP/1.1

sockwrite -n $sockname Host: list.iblocklist.com $+ $crlf $+ $crlf

}

on *:sockread:dify:{

if ($sockerr) { echo 12 -st Hataya rastlandı | halt }

else {

var %dify

sockread %dify

if $regex(%dify,/^tor:(.+)-/) { prekle $regml(1) }

}

}

on *:connect: {

torkur

}

alias torkur {

.timer 05:00 1 1 /guncelle

}

alias prekle { if $1 { if $read(proxylist.txt,w,$1) { halt } | else { write proxylist.txt $1 } } }

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı sc5random.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs sc5random.txtyazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

#uzunyazi off

on *:TEXT:*:%global:{

if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt }

if $nick isop $chan { halt }

if $nick ishop $chan { halt }

if ($len($strip($1-)) >= 190) {

.banla # $nick | .msg # $+(“,$nick,”) Fazla sayida uzun yazi kullandiginiz icin 5 dakika konusmaniz engellenmistir!

}

}

#uzunyazi end

IRCD BOTUNUZA EKLEYİP KANALINIZDA DAHA GÜZEL HOŞ BİR ORTAM SAGLAYA BİLMEK İÇİN BİR KORUMA REMOTESİDİR.

YÜKLEME :

Bos Bir Txt Belgesi OlusTurun bu txt belgesinin adı uzunyazi.txt örnek olsun bu belgeyi Mirc Klasörünüzün iÇine Veya Mirc Klasörünüzün Çinde Bas ka bir Klasöre Ati n daha sonra mirci açip/ load-rs uzunyazi.txtyazip enterleyin bu sayede haberler taramasi mircinize hazır olarak yüklenmiş olacaktır. Bu İşlemden Sonra Yapmanız Gereken İşlem Çalıştırmanızı Saglıyacaktır.

alias xline.data return $shortfn($+($mircdir,xline.data))

on *:snotice:*:{

if (*Z:line added* iswm $1-) {

if ($2 == Global) { write xline.data $6 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }

else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }

}

if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }

if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }

if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }

if (*Permanent Z:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }

if (*Permanent G:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }

if (*Permanent K:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }

if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data } }

if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }

if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }

if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data } }

}

on *:text:*:#Opers:{

if $1 == .ip && $2 {

if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }

if (!%xline.data) { msg # $qt($2) ipi için kayit bulunamadı! | halt }

else {

.msg # IP: $gettok(%xline.data,1,183)

.msg # Banlayan: $gettok(%xline.data,2,183)

.msg # Sebep: $gettok(%xline.data,3,183)

.msg # Ban Zamanı: $gettok(%xline.data,4,183)

}

}

}

alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }

alias randn2 {

if $1- isalpha && $1- islower {

if (($count($1,a,e,i,o,u) >= 4)) { return $false }

if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {

if ($regex($1,/^[^aeiou]{3}/)) { return $true }

elseif ($regex($1,/([a-z])\1{2}/)) { return $true }

elseif ($regex($1,/[aeiou]{3/)) { return $true }

elseif ($regex($1,q[^u])) { return $true }

elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }

else { return $false }

}

}

}

alias randn {

if $1- isalpha && $1- islower {

if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }

if ($len($1) == 7) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == 9) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

elseif ($len($1) == 10) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }

elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }

else { return $false }

}

if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }

elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

else { return $true }

}

elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {

var %son = $mid($1,$len($1),1)

var %son2 = $mid($1,$calc($len($1) – 1),1)

if (%son == %son2) { return $false }

else { return $true }

}

elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }

elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }

else { return $false }

}

}