Random fullname Koruması Dialog

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

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

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

önceki yazımızda « Whois Çeken’e Mesaj makelemiz var.

Makale Yazarı : admin

27 Kasım, 2018

133

Yazı kategorisi : mIRC Parça Kodlar

yorum yok

Random fullname Koruması Dialog

Etiketler

Random fullname Koruması Dialog İle Benzer Sohbet Yazıları

[!.]hapis NICK

Çeviri Diyalogu (TRANSLATE DİALOG)

mIRC Fihrist

Random fullname Koruması Dialog

Random fullname Koruması Dialog İle Benzer Sohbet Yazıları

Random fullname Koruması Dialog yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?