mIRC 7.49 download

(türkçe sürüm)

Sohbete Bağlan

(370 online)

Türkçe Mirc Sohbet programı 7.49 versiyonunu , sorunsuz ve tek download adresinden indirmek için TIKLAYIN

Random fullname Koruması Dialog

Türkçe Mirc v7.49 Türkçe Sohbet Programını Hemen Bilgisayarınıza Yükleyin.

random

alias randomf { .$iif(!$dialog(randomf),dialog -m randomf randomf,dialog -c randomf randomf) }
dialog randomf {
  title "Random Fullname Korumasi"
  size -1 -1 220 150
  option dbu
  text "Sesli Harf Sayisi", 40, 146 33 56 10, Center
  edit "", 41, 205 33 10 10
  text "Sessiz Harf Sayisi", 42, 146 45 56 10, Center
  edit "", 43, 205 45 10 10
  text "Muaf Fullname Listesi", 3, 10 33 66 10,  center
  button "Ekle", 4, 10 45 30 10
  button "SiL", 5, 46 45 30 10
  edit "", 6, 10 57 66 10
  list 7, 10 68 66 60,  size
  text "Çalışır Kanal Listesi", 8, 78 33 66 10, center
  button "Ekle", 9, 78 45 30 10
  button "SiL", 10, 114 45 30 10
  edit "", 11, 78 57 66 10
  list 12, 78 68 66 60,  size
  radio "", 13, 146 69 8 10
  text "Oper Kick + ban", 14, 153 69 58 10, center
  radio "", 15, 146 85 8 10
  text "Oper Gzline", 16, 153 85 58 10, center
  radio "", 17, 146 101 8 10
  text "Op Kick + ban", 18, 153 101 58 10, center
  radio "", 19, 146 117 8 10
  text "Random Kapat", 20, 153 117 58 10, center
  button "Kapat", 21, 78 132 66 12, ok
}
on *:dialog:randomf:init:*:{
  if ($isfile(scripts\rdnsifmuafname.txt) == $false) { write -c scripts\rdnsifmuafname.txt } | else { loadbuf -o $dname 7 scripts\rdnsifmuafname.txt }
  if (%rdfullkan) .didtok $dname 12 44 $ifmatch
  did -ra $dname 41 %fsesli
  did -ra $dname 43 %fsessiz
  if ($group(#rdnsifadban) == on) { did -c $dname 13 }
  if ($group(#rdnsifgz) == on) { did -c $dname 15 }
  if ($group(#rdnsifopban) == on) { did -c $dname 17 }
  if ($group(#rdnsifkapat) == on) { did -c $dname 19 }
}
on *:dialog:randomf:edit:*:{
  if ($did == 41) {  .set %fsesli $did(41) }
  if ($did == 43) { .set %fsessiz $did(43) }
}
on *:dialog:randomf:sclick:*:{
  if ($did == 13) { .enable #rdnsifadban | .disable #rdnsifopban | .disable #rdnsifgz | .disable #rdnsifkapat }
  if ($did == 15) { .enable #rdnsifgz  | .disable #rdnsifopban | .disable #rdnsifadban | .disable #rdnsifkapat }
  if ($did == 17) { .enable #rdnsifopban | .disable #rdnsifadban | .disable #rdnsifgz | .disable #rdnsifkapat }
  if ($did == 19) { .enable #rdnsifkapat | .disable #rdnsifopban | .disable #rdnsifgz | .disable #rdnsifadban }
  if ($did == 4) { if ($did(6) == $null) { echo -a  Lütfen Bosluk Eklemeyiniz.  | return }
    elseif (#* iswm $did(6)) { echo -a  Muaf Fullname Listesidir; Lütfen Kanal Eklemeyin. örnek Fullname: *Aytac.org*  | return }
    else { .write scripts\rdnsifmuafname.txt $did(6) | did -a $dname 7 $did(6) | did -r $dname 6 } 
  }
  if ($did == 5) { if ($did(7).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else { write -dl $+ $did(7).sel scripts\rdnsifmuafname.txt | did -d $dname 7 $did(7).sel }
  }
  if ($did == 9) { if ($did(11).text == $null) { echo -a  Lütfen Bosluk eklemeyiniz.  | return } 
    elseif (#* !iswm $did(11)) { echo -a  Çalışır Kanal Listesidir Nick eklemeyiniz. örnek Kanal: #Aytac  | return }
    else { did -a $dname 12 $did(11).text | set %rdfullkan $didtok($dname,12,44) | did -r $dname 11 }
  }
  if ($did == 10) { if ($did(12).sel == 0) { echo -a  Silmek Için Bir Satir Seçiniz...  | return }
    else {  did -d $dname 12 $did(12).sel | set %rdfullkan $didtok($dname,12,44) } 
  }
}
#rdnsifadban off
on !*:join:%rdfullkan:{ 
  if (o isin $usermode) {
    who $nick 
  }
}
raw 352:*: {
  if $gettok(%mhall,$4,32) { return }
  if $istok(%mnall,$6,32) { return }
  if $istok(%mkall,$2,32) { return }
  var %c 1
  while (%c <= $lines(scripts\rdnsifmuafname.txt)) {
    if ($read(scripts\rdnsifmuafname.txt,%c) iswm $9-) { return }
    inc %c
  }
  if ($regex($9-,/^([bcdfghjklmnprstvyzqxw]{ $+ %fsessiz $+ })$/i)) || ($regex($9-,/^([aeiou]{ $+ %fsesli $+ })$/i)) {
    mode $2 +b ~r: $+ $+(*,$9,*) | kick $2 $6  Random Fullname!  
  } 
}
#rdnsifadban end
#rdnsifopban off
on !*:join:%rdfullkan:{ 
  if ($me isop $2) || ($me ishelp $2) {
    who $nick
  }
}
raw 352:*: {
  if $gettok(%mhall,$4,32) { return }
  if $istok(%mnall,$6,32) { return }
  if $istok(%mkall,$2,32) { return }
  var %c 1
  while (%c <= $lines(scripts\rdnsifmuafname.txt)) {
    if ($read(scripts\rdnsifmuafname.txt,%c) iswm $9-) { return }
    inc %c
  }
  if ($regex($9-,/^([bcdfghjklmnprstvyzqxw]{ $+ %fsessiz $+ })$/i)) || ($regex($9-,/^([aeiou]{ $+ %fsesli $+ })$/i)) {
    mode $2 +b ~r: $+ $+(*,$9,*) | kick $2 $6  Random Fullname!   
  } 
}
#rdnsifopban end
#rdnsifgz off
on !*:join:%rdfullkan:{ 
  if (o isin $usermode) {
    who $nick 
  }
}
raw 352:*: {
  if $gettok(%mhall,$4,32) { return }
  if $istok(%mnall,$6,32) { return }
  if $istok(%mkall,$2,32) { return }
  var %c 1
  while (%c <= $lines(scripts\rdnsifmuafname.txt)) {
    if ($read(scripts\rdnsifmuafname.txt,%c) iswm $9-) { return }
    inc %c
  }
  if ($regex($9-,/^([bcdfghjklmnprstvyzqxw]{ $+ %fsessiz $+ })$/i)) || ($regex($9-,/^([aeiou]{ $+ %fsesli $+ })$/i)) {
    gzline $6 +30d  Random Fullname!  
  } 
}
#rdnsifgz end

#rdnsifkapat on
#rdnsifkapat end

Random fullname korumasi

Benzer yazılar

IP Takip Kodu
Badnick Koruması Op/Admin
ıp locator (ıp yer tespıt)
Regex Kontrol
DNSBL Proxy Koruma
Spam kısa alias kodları
Services bot sokma
Şişe çevirme oyunu
Socket Cycle v1-v2-v3 Hepsinin son versionu
Radyo dinleyici kayit sistemi
mIRC Join Ulke-Sehir Gösterme Codu
!zar – komutu hediye verme


IRCALEM.Net © Tüm Hakları Saklıdır.

Bu site YuzukNET iştirakıdır.