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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   yaRdım Edın (https://www.ircforumlari.net/mirc-scripting-sorunlari/215702-yardim-edin.html)

KraL`` 31 Mayıs 2009 16:25

yaRdım Edın
 
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) == 8) {
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 }
}
}
menu channel,status {
..Random Nick Koruması
...Aç :.enable #random | echo -at 0,4Random Nick Koruması Acılmışdır.
...kapat:.disable #random | echo -at 0,4Random Nick Koruması Kapatılmışdır.
}
#random on
on !*:join:#:if ($randomnick($nick)) { gzline $nick +1h random nick kullanmayın! }
#random end

ArkadaşLar ßoyLe ßr kaC kod Var eLımde Sunucuya qıRer qıRmeS ßu kodLarın aCıLmaSInı ıStıyorum Ne yapmam Lazım ? ;idea

KraL`` 31 Mayıs 2009 16:31

Cevap: yaRdım Edın
 
yaRdım edıCek yokMu aRkadaSLar ...;eek

insane 31 Mayıs 2009 17:32

Cevap: yaRdım Edın
 
Kod:

ON *:START: {
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) == 8) {
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 }
}
}
menu channel,status {
..Random Nick Koruması
...Aç :.enable #random | echo -at 0,4Random Nick Koruması Acılmışdır.
...kapat:.disable #random | echo -at 0,4Random Nick Koruması Kapatılmışdır.
}
#random on
on !*:join:#:if ($randomnick($nick)) { gzline $nick +1h random nick kullanmayın! }
#random end
}


insane 31 Mayıs 2009 17:37

Cevap: yaRdım Edın
 
ON *:START: {
Kod
}

Kod yazan yere kodu yazarsın girer girmez açılır :)

KraL`` 31 Mayıs 2009 17:46

Cevap: yaRdım Edın
 
tSq edeRm aRkadaSIm.Cok saOLS.

KraL`` 31 Mayıs 2009 17:53

Cevap: yaRdım Edın
 
aRkadaSIm dedıqın qıßı yaptım Senın yoLLadıqın KOdu yazdım ama Scrıpt uCtu



[17:51] 0,4Random Nick Koruması Acılmışdır.
[17:51] 0,4Random Nick Koruması Kapatılmışdır.
4***12 MENU Yalnış komut.
4***12 RANDOM Yalnış komut.
4***12 .Aç Yalnış komut.
4***12 .KAPAT:.DISABLE Yalnış komut.
4***12 #RANDOM Yalnış komut.
4***12 ON Yalnış komut.
4***12 #RANDOM Yalnış komut.

Lucifer 31 Mayıs 2009 17:59

Cevap: yaRdım Edın
 
Kod:


ON *:START: {
  echo -at 0,4Random Nick Koruması Acılmışdır.
  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) == 8) {
        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 }
    }
  }
  #random on
  on !*:join:#:if ($randomnick($nick)) { gzline $nick +1h random nick kullanmayın! }
  #random end
}


KraL`` 31 Mayıs 2009 18:04

Cevap: yaRdım Edın
 
AcıLdıqına Daır ßr Sey yazmadı Komut da Hata vermedı ama acıLmıSmıdır ? ArkadaSIm ?

0,4Random Nick Koruması Acılmıştır. ßyle ßr yazı qeLmedı . teSekkuru ßır ßoRc ßlırım yardımLarınız ıCIn..

KraL`` 31 Mayıs 2009 18:08

Cevap: yaRdım Edın
 
oLdu Cok saoLun arKadaSLar.

Thief 31 Mayıs 2009 18:08

Cevap: yaRdım Edın
 
arkadaşım özel mesajınızı yeni aldım chartal 'ın sorunuyla ilgileniyorum, ondan sonra seninkinede bir el göz gezdiririm.


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

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