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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Random Nick Korumasi Hk. (https://www.ircforumlari.net/mirc-scripting-sorunlari/758757-random-nick-korumasi-hk.html)

Random Nick Korumasi Hk.

Selamlar;
Elimde bu şekilde bir random koruması var..
Kanala giren sessiz veya sesli harf nicklerde işlem yapmıyor..
Hata nerde bulamadım..
Yardimci olursanız sevınırım, kolay gelsın.

alias rands { if (($regex($1,/[qwrtypğsdfghjklşzxcvbnmç]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[qüöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }

dialog RandomNick {
title "Random Korumasi"
size -1 -1 179 92
option notheme dbu
edit "", 3, 153 22 13 10
edit "", 4, 153 33 13 10
text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8
text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8
text "Durum : ", 50, 13 46 25 8
edit "", 6, 42 45 124 10
button "Ac", 7, 11 68 50 12
button "Kapat", 8, 63 68 50 12
button "Dialogu Kapat", 13, 115 68 51 12, ok flat
box "Islemler : ", 100, 8 11 162 50
box "", 110, 8 60 162 24
box "Random Nick Korumasi :", 120, 3 3 172 86
}

on *:dialog:RandomNick:*:*:{
if ($devent == init) {
did -ra $dname 6 %trojandurum
did -ra $dname 4 %troseslisayi
did -ra $dname 3 %trosessizsayi

}
if ($devent == sclick) {
if ($did == 7) { .enable #trocanz | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }
if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }
}
}

#trocanz on
on *:JOIN:#:{
if ($rands($nick) == $true) && ($me isop $chan) && ($me isop #karantina) {
.mode $chan +b $nick
kick # $nick 14[ 4Random Nick Koruması.!14 ] 12Lütfen Nickinizi Değiştirip Tekrar Deneyiniz.! }
}

#trocanz end

Cevap: Random Nick Korumasi Hk.

Kodu incelediğimde gördüğüm kadarı ile bir değil bir çok kısımda hata var. Bu kodu editlemek yerine forumda ilgili etiketi arama yapabilirsin. Sana önerebileceğim konu ise aşağıda linkte.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Random Nick Korumasi Hk.

Serazad yanit için teşekkür ederim..
Bu codede ki kullanıslılık belirttigin harfi sayısal olarak işlemi kolayca yaptırabılmek.
Hatalari düzeltme şansımız var mıdır.

Cevap: Random Nick Korumasi Hk.

Kod:

alias rands { if (($regex($1,/[qwbcçdfgğhjklmnprsştyz]{ $+ $(%trosessizsayi) $+ }/i)) || ($regex($1,/[üöıaeiou]{ $+ $(%troseslisayi) $+ }/i))) { return $true } | else { return $false } }
 
 

dialog RandomNick {

  title "Random Korumasi"

  size -1 -1 179 92

  option notheme dbu

  edit "", 3, 153 22 13 10

  edit "", 4, 153 33 13 10

  text "Nick'de kac adet sessiz harf yanyana olunca banlasın.? ", 30, 13 23 137 8

  text "Nick'de kac adet sesli harf yanyana olunca banlasın.? ", 40, 13 34 137 8

  text "Durum : ", 50, 13 46 25 8

  edit "", 6, 42 45 124 10

  button "Ac", 7, 11 68 50 12

  button "Kapat", 8, 63 68 50 12

  button "Dialogu Kapat", 13, 115 68 51 12, ok flat

  box "Islemler : ", 100, 8 11 162 50

  box "", 110, 8 60 162 24

  box "Random Nick Korumasi :", 120, 3 3 172 86

}
 

on *:dialog:RandomNick:*:*:{

  if ($devent == init) {

    did -ra $dname 6 %trojandurum

    did -ra $dname 4  %troseslisayi $did(4)

    did -ra $dname 3  %trosessizsayi $did(3)
 

  }

  if ($devent == sclick) {

    if ($did == 7) { .enable #trocanz | set %trosessizsayi $did(3) | set %troseslisayi $did(4) | set %trojandurum Random Nick Koruma Acik | dialog -x $dname $dname | dialog -m RandomNick RandomNick }

    if ($did == 8) { .disable #trocanz | set %trojandurum Random Nick Koruma Kapali | dialog -x $dname $dname | dialog -m RandomNick RandomNick }

    if ($did == 13) { set %trosessizsayi $did(3) | set %troseslisayi $did(4) }

  }

}

#trocanz on

on *:JOIN:#:{

  if ($rands($nick) == $true) && ($me isop $chan) && ($me isop #karantina) {

    .mode $chan +b $nick

  kick # $nick 14[ 4Random  Nick Koruması.!14 ] 12Lütfen Nickinizi Değiştirip Tekrar Deneyiniz.! }

}

#trocanz end

bu şekilde denermisin