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

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

- - Badnick koruması yardım lütfen (https://www.ircforumlari.net/mirc-scripting-sorunlari/870639-badnick-korumasi-yardim-lutfen.html)

Badnick koruması yardım lütfen

arkadaşlar bu dialogu sitelerde gezerken buldum çokta hoşuma gitti buna muaf kanal ekleyebilirmiyiz acaba yardımcı olursanız çok sevinirim bide if ($did == Cool { yazan kısımda ne yazması lazım anlamadım

Kod:

Kullandığım kodların tamamı IRCForumları'nda mevcuttur ve el33t'e aittir, ben sadece bir dialog hazırlayıp forumdaki kodları topladım kullanışlı olması açısından, umarım yararlı olur...
 

Kurulum:

Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz.
 

1) Kodları ALT+R yapıp açılan pencereye yapıştırın.

2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın.
 

Kodlar:
 

Kod:
 
 

;--------------------------------------------------

; Kötü Rumuz Koruması

; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...

; Dialog hazırlaması bana aittir...

; /KötüRumuz Yazarak Çalıştırabilirsiniz...

; 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }

dialog kötürumuz {

title "Kötü Rumuz Koruması"

size -1 -1 200 180

option dbu

text "..:: Rumuz Listesi ::..", 999, 20 10 60 10

combo 1, 5 20 90 130

button "Ekle (+)", 2, 4 146 27 13

button "Çıkar (-)", 3, 32 146 27 13

button "Temizle (!)", 4, 60 146 35 13

box "Seçenekler", 5, 101 17 93 40

check "OP olduğumda tarama yap!", 6, 106 28 73 10

check "Yeni rumuz kötüyse at!", 7, 106 40 70 10

button "?", 8, 182 28 9 9

button "?", 9, 182 40 9 9

box "Kick Mesajınız", 10, 101 60 93 40

edit "", 11, 106 76 83 10, autohs

box "Açıklamalar", 12, 101 103 93 55

text "Kötü Rumuz Koruması 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
S1y4H", 13, 106 110 85 40

link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15

button "Kapat!", 15, 168 161 27 13

text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable

}

on *:dialog:kötürumuz:*:*:{

if ($devent == init) {

loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1

if (%oto-tara == on) { did -c kötürumuz 6 }

if (%NickDeğiş == on) { did -c kötürumuz 7 }

did -a $dname 11 %kckmsg

}

if ($devent == sclick) {

if ($did == 2) {

var %kötürmz = $did(1).text

if $read(nickler.txt,w,%kötürmz) {

echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.

}

else {

write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text

}

}

if ($did == 3) {

if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }

}

if ($did == 4) {

if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }

}

if ($did == Cool {

did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.

}

if ($did == 9) {

did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.

}

if ($did == 6) {

if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }

elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }

}

if ($did == 7) {

if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }

elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }

}

if ($did == 14) {

run 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 15) {

if ($did(11) == $Null) {

echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.

dialog -x kötürumuz kötürumuz

set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

}

else {

set %kckmsg $did(11)

dialog -x kötürumuz kötürumuz

}

}

}

}

;--------------------

; Kodlamalar...

;--------------------

on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

#NickDeğiş on

on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }

#NickDeğiş end

alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }

alias krt {

if $1 ischan && $me isop $1 {

var %` = $lines(Nickler.txt)

while %` {

if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }

dec %`

}

}

}

#oto-tara on

on *:OP:#:if $opnick == $me { krt $chan }

#oto-tara end

;-----------------------------------------

on *:LOAD:{

echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.

echo -a $timestamp *** S1y4H

run notepad.exe nickler.txt

set %oto-tara on

set %NickDeğiş on

set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

}
 

on *:UNLOAD:{

echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.

unset %oto-tar

unset %NickDeğiş

unset %kckmsg

}

Cevap: Badnick koruması yardım lütfen

Rahul abi sen anliyon yardimci olsana

Cevap: Badnick koruması yardım lütfen

yada bu küfür dialogunu badnick için çevirebilirmiyiz? böyle bi imkan olurmu

Kod:

dialog kufur {

  title "Swear Security"

  size -1 -1 138 186

  option dbu

  edit "", 1, 7 10 61 10

  list 2, 7 22 60 50, size
 

  button "Ekle", 3, 7 74 27 12, flat

  button "Sil", 4, 39 74 27 12, flat

  check "Opları (@)", 5, 85 21 41 10, flat

  check "Voiceler (+)", 6, 85 10 42 10, flat

  combo 7, 7 102 52 51, size

  button "Ekle", 8, 7 154 24 9, flat

  button "Sil", 9, 35 154 23 9, flat

  box "Küfür listesi", 13, 3 2 71 88

  box "Ayrılan Nickler", 14, 3 92 63 76

  box "Ayrılan Kanallar", 15, 73 92 62 76

  box "Ayır", 16, 78 2 56 33

  button "Sil", 10, 106 154 23 9, flat

  button "Ekle", 11, 78 154 24 9, flat

  combo 12, 78 102 52 51, size

  box "İşlemler", 17, 78 37 56 53

  radio "Opersem Kline", 18, 83 47 47 10, flat

  radio "Opersem Kill", 19, 83 57 47 10, flat

  radio "Opsam Kick", 20, 83 67 47 10, flat

  check "Banla", 21, 83 77 27 10, flat

  button "Kapat", 22, 97 171 37 12, flat ok

}

alias kufur { /dialog -m kufur kufur }

on *:dialog:kufur:init:*: {

  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }

  if (%knickler) .didtok $dname 7 32 $ifmatch

  if (%kufkanal) .didtok $dname 12 32 $ifmatch

  if (%klineat) { .did -c $dname 18 }

  if (%killat) { .did -c $dname 19 }

  if (%kickat) { .did -c $dname 20 }

  if (%banla) { .did -c $dname 21 }

  if (%oplar) { .did -c $dname 5 }

  if (%vlar) { .did -c $dname 6 }

}

on *:dialog:kufur:sclick:*: {

  if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }

  if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }

  if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }

  if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }

  if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }

  if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }

  if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }

  if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }

  if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }

  if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }

  if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }

  if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }

}

on @*:text:*:#: {

  if $istok(%kufkanal,#,32) == $true { halt }

  if $istok(%knickler,$nick,32) == $true { halt }

  if ($nick isop #) && (%oplar == on) { return }

  if ($nick isvo #) && (%vlar == on) { return }

  korukufurden $1-

}

alias korukufurden {

  var %HR $strip($1-) , %_: $lines(kufur.txt)

  while (%_:) {

    if $read(kufur.txt,%_:) iswm %HR iswm %HR {

      if (%banla == on) { .mode $chan +b  $+ $wildsite  }

      if (%klineat == on) { .kline $nick küfürsüz }

      if (%killat == on) { .kill $nick küfürsüz }

      if (%kickat == on) { .kick $chan $nick $read scripts/read.mrc

      }

      return

    }

    dec %_:

  }

}

Cevap: Badnick koruması yardım lütfen

Alıntı:

asılsız Nickli Üyeden Alıntı (Mesaj 1042310753)

Kod:

Kullandığım kodların tamamı IRCForumları'nda mevcuttur ve el33t'e aittir, ben sadece bir dialog hazırlayıp forumdaki kodları topladım kullanışlı olması açısından, umarım yararlı olur...
 

Kurulum:

Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz.
 

1) Kodları ALT+R yapıp açılan pencereye yapıştırın.

2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın.
 

Kodlar:
 

Kod:
 
 

;--------------------------------------------------

; Kötü Rumuz Koruması

; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir...

; Dialog hazırlaması bana aittir...

; /KötüRumuz Yazarak Çalıştırabilirsiniz...

; 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }

dialog kötürumuz {

title "Kötü Rumuz Koruması"

size -1 -1 200 180

option dbu

text "..:: Rumuz Listesi ::..", 999, 20 10 60 10

combo 1, 5 20 90 130

button "Ekle (+)", 2, 4 146 27 13

button "Çıkar (-)", 3, 32 146 27 13

button "Temizle (!)", 4, 60 146 35 13

box "Seçenekler", 5, 101 17 93 40

check "OP olduğumda tarama yap!", 6, 106 28 73 10

check "Yeni rumuz kötüyse at!", 7, 106 40 70 10

button "?", 8, 182 28 9 9

button "?", 9, 182 40 9 9

box "Kick Mesajınız", 10, 101 60 93 40

edit "", 11, 106 76 83 10, autohs

box "Açıklamalar", 12, 101 103 93 55

text "Kötü Rumuz Koruması 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
S1y4H", 13, 106 110 85 40

link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14, 108 164 52 15

button "Kapat!", 15, 168 161 27 13

text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable

}

on *:dialog:kötürumuz:*:*:{

if ($devent == init) {

loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1

if (%oto-tara == on) { did -c kötürumuz 6 }

if (%NickDeğiş == on) { did -c kötürumuz 7 }

did -a $dname 11 %kckmsg

}

if ($devent == sclick) {

if ($did == 2) {

var %kötürmz = $did(1).text

if $read(nickler.txt,w,%kötürmz) {

echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.

}

else {

write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text

}

}

if ($did == 3) {

if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }

}

if ($did == 4) {

if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }

}

if ($did == Cool {

did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.

}

if ($did == 9) {

did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.

}

if ($did == 6) {

if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }

elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }

}

if ($did == 7) {

if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }

elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }

}

if ($did == 14) {

run 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 15) {

if ($did(11) == $Null) {

echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.

dialog -x kötürumuz kötürumuz

set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

}

else {

set %kckmsg $did(11)

dialog -x kötürumuz kötürumuz

}

}

}

}

;--------------------

; Kodlamalar...

;--------------------

on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

#NickDeğiş on

on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }

#NickDeğiş end

alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }

alias krt {

if $1 ischan && $me isop $1 {

var %` = $lines(Nickler.txt)

while %` {

if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }

dec %`

}

}

}

#oto-tara on

on *:OP:#:if $opnick == $me { krt $chan }

#oto-tara end

;-----------------------------------------

on *:LOAD:{

echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.

echo -a $timestamp *** S1y4H

run notepad.exe nickler.txt

set %oto-tara on

set %NickDeğiş on

set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

}
 

on *:UNLOAD:{

echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.

unset %oto-tar

unset %NickDeğiş

unset %kckmsg

}

birde burdakine göz at istersen hem muaf nick hemde muaf kanal eklentisi var.

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

Cevap: Badnick koruması yardım lütfen

Alıntı:

Hesapsiz33 Nickli Üyeden Alıntı (Mesaj 1042310777)

birde burdakine göz at istersen hem muaf nick hemde muaf kanal eklentisi var.

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

reis şimdi denedim /bads yaptıgım an şöyle bi şey çıkıyor

Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.
Geçersiz Komut Uyguladınız. Komutlar Hakkında #help kanalından yardım alabilirsiniz.

Cevap: Badnick koruması yardım lütfen

Kod:

menu status,menubar,channel  { 

  .? Bad?Kufur?ident?Amsg Korumasi:/dialog -m badkufur badkufur 

} 

dialog badkufur { 

  title "Bad Nick Kufur Ident Amsg Korumasi" 

  size -1 -1 300 169 

  option dbu 

  tab "Bad Nick Korumasi", 1, -2 -2 350 150 

  edit "", 4, 5 23 53 11, tab 1 return autohs 

  text "[ Eklenecek Bad Nick ]", 5, 5 15 58 8, tab 1 

  list 6, 89 24 60 100, tab 1 sort size vsbar 

  text "[ Bad Nick Listesi ]", 7, 89 15 55 8, tab 1 

  button "Ekle", 8, 62 23 23 12, tab 1 flat 

  button "Kaldir", 9, 129 127 21 11, tab 1 flat 

  text "Bad Nicki ***** Seklinde Ekleyiniz. ve Eklediginiz Anda Bad Nicki Yetkili Oldugunuz Kanallardan Otomatik Olarak Aninda Atar.. ", 10, 5 39 84 84, tab 1 

  text "Listeden Silmek istediginiz Bad Nick Kelimesini veya Listeden Cikarmak istediginiz Kanali Tiklayip Kaldir Butonuna Basiniz..", 17, 4 140 286 8, tab 1 

  button "Kanalda Bad Nick Tara", 35, 10 111 63 13, tab 1 flat 

  text "[ Muaf Nickler Listesi ]", 45, 158 35 66 8, tab 1 

  list 46, 158 43 64 81, tab 1 sort size vsbar 

  edit "", 47, 158 24 44 10, tab 1 return autohs 

  button "Ekle", 48, 204 23 19 12, tab 1 

  text "[ Muaf *Gaye* Seklinde ]", 49, 157 15 75 8, tab 1 

  button "Kaldir", 51, 201 127 22 11, tab 1 flat 

  radio "Bad Nick Korumasi [ Acik ]", 52, 6 71 75 10, tab 1 flat 

  radio "Bad Nick Korumasi [ Kapali ]", 53, 6 89 75 10, tab 1 flat 

  list 56, 232 43 60 81, tab 1 sort size vsbar 

  text "[ Muaf #BJK Seklinde ]", 57, 232 15 81 10, tab 1 

  text "[ Calismayacak Kanallar ]", 58, 232 35 66 8, tab 1 

  edit "", 59, 232 23 40 11, tab 1 return autohs 

  button "Ekle", 60, 275 22 18 12, tab 1 

  button "Kaldir", 62, 273 127 20 11, tab 1 flat 

  tab "Kufur Korumasi", 2 

  edit "", 11, 8 24 57 11, tab 2 autohs 

  text "[ Eklenecek Kufur ]", 12, 9 15 50 7, tab 2 

  list 13, 107 24 65 100, tab 2 size vsbar 

  button "Ekle", 14, 71 23 24 12, tab 2 flat 

  button "Kaldir", 15, 152 126 22 12, tab 2 flat 

  text "Listeden Silmek istediginiz Kufuru Tiklayip Kaldir Butonuna Basiniz..", 16, 4 139 170 9, tab 2 

  text "Eklenecek Kufuru. Ornek *Olgun* Seklinde Ekleyiniz.. ", 18, 7 42 87 45, tab 2 

  text "[ Kufur Listesi ]", 19, 109 15 55 8, tab 2 

  button "Listeyi Temizle", 21, 107 126 42 12, tab 2 flat 

  radio "Kufur Korumasi [ Acik ]", 54, 7 82 74 10, tab 2 flat 

  radio "Kufur Korumasi [ Kapali ]", 55, 7 99 78 10, tab 2 flat 

  list 63, 197 46 65 77, tab 2 size vsbar 

  button "Listeyi Temizle", 64, 197 125 41 12, tab 2 flat 

  button "Kaldir", 65, 241 125 22 12, tab 2 flat 

  edit "", 66, 197 24 50 11, tab 2 return autohs 

  button "Ekle", 67, 251 23 21 12, tab 2 

  text "[ Muaf Kelime ]", 68, 197 15 37 8, tab 2 

  text "[ Muaf Kelime Listesi ]", 69, 198 36 66 9, tab 2 

  tab "Amsg Kisitlama", 3 

  edit "", 28, 23 37 55 12, tab 3 autohs 

  list 29, 117 26 66 97, tab 3 size vsbar 

  button "Ekle", 30, 85 36 24 14, tab 3 flat 

  text "[ Amsg icin Kisitli Kanallar ]", 31, 117 16 68 8, tab 3 

  text "Amsglerinizin Gitmesini istemediginiz Kanali #Kanal Seklinde Ekleyiniz..", 32, 6 16 86 16, tab 3 

  button "Kaldir", 33, 162 126 22 12, tab 3 flat 

  button "Listeyi Temizle", 34, 117 126 41 12, tab 3 flat 

  text "Listeden Silmek istediginiz Kanali Tiklayip Kaldir Butonuna Basiniz..", 37, 5 140 183 8, tab 3 

  tab "Ident Korumasi", 22 

  edit "", 23, 10 24 62 11, tab 22 return autohs 

  list 24, 111 24 66 99, tab 22 size vsbar 

  button "Ekle", 25, 77 23 26 12, tab 22 flat 

  text "[ Bad Ident Ekle ]", 26, 10 15 48 8, tab 22 

  button "Listeyi Temizle", 27, 111 126 41 12, tab 22 flat 

  button "Kaldir", 38, 156 126 22 12, tab 22 flat 

  button "Kanalda Bad ident Tara", 39, 16 108 70 15, tab 22 flat 

  text "Eklenecek Identi Ornek ****igenc* Seklinde Ekleyiniz..", 40, 10 43 84 19, tab 22 

  text "[ Bad Ident Listesi ]", 41, 111 15 64 8, tab 22 

  text "Silmek istediginiz identi, Listeden Tiklayip Kaldir Butonuna Basiniz..", 42, 5 140 172 7, tab 22 

  button "Pencereyi Kapat", 36, 112 152 94 15, flat 

  text "Coded By IRCplus", 44, 3 151 67 8, disable 

  text "[ GLCBilisim ]", 43, 3 160 88 13 

} 

on *:dialog:badkufur:sclick:*: { 

  ;Badnick korumasi 

  if $did == 8 { 

    if $did(8) && $len($did(badkufur,4)) > 1 { .did -a badkufur 6 $did(badkufur,4) | .auser badnick $did(badkufur,4) | .did -r badkufur 4 | .badtara } 

  } 

  if $did == 9 { 

    if $did(9) && $did(badkufur,6).sel { .ruser badnick $did(badkufur,6).seltext | .did -d badkufur 6 $did(badkufur,6).sel } 

  } 

  if $did == 20 { 

    if $did(20) { .did -r badkufur 6 | .rlevel badnick } 

  } 

  if $did == 35 { 

    if $did(35) { .badtara } 

  } 

  ;Muaf Nick Ekleme 

  if $did == 48 { 

    if $did(48) && $len($did(badkufur,47)) > 1 { .did -a badkufur 46 $did(badkufur,47) | .auser muafnick $did(badkufur,47) | .did -r badkufur 47 } 

  } 

  if $did == 51 { 

    if $did(51) && $did(badkufur,46).sel { .ruser muafnick $did(badkufur,46).seltext | .did -d badkufur 46 $did(badkufur,46).sel } 

  } 

  if $did == 50 { 

    if $did(50) { .did -r badkufur 46 | .rlevel muafnick } 

  } 

  ;Bad Nick için Check Buttonlar 

  if $did == 52 { 

    if $did(52) { .set %badcheck 52 | .enable #badnick } 

  } 

  if $did == 53 { 

    if $did(53) { .set %badcheck 53 | .disable #badnick } 

  } 

  ;Kufur Korumasi 

  if $did == 14 { 

    if $did(14) && $len($did(badkufur,11)) > 1 { .did -a badkufur 13 $did(badkufur,11) | .auser kufur $did(badkufur,11) | .did -r badkufur 11 } 

  } 

  if $did == 15 { 

    if $did(15) && $did(badkufur,13).sel { .ruser kufur $did(badkufur,13).seltext | .did -d badkufur 13 $did(badkufur,13).sel } 

  } 

  if $did == 21 { 

    if $did(21) { .did -r badkufur 13 | .rlevel kufur } 

  } 

  ;Kufur Korumasi için Check Buttonlar 

  if $did == 54 { 

    if $did(54) { .set %kufurcheck 54 | .enable #kufur } 

  } 

  if $did == 55 { 

    if $did(55) { .set %kufurcheck 55 | .disable #kufur } 

  } 

  ;Amsg Kisitlama 

  if $did == 30 { 

    if $did(30) && $len($did(badkufur,28)) > 1 && #* iswm $did(badkufur,28) { .did -a badkufur 29 $did(badkufur,28) | set %amsg $addtok(%amsg,$did(badkufur,28),32) | .did -r badkufur 28 } 

  } 

  if $did == 33 { 

    if $did(33) && $did(badkufur,29).sel { set %amsg $remtok(%amsg,$did(badkufur,29).seltext,32) | .did -d badkufur 29 $did(badkufur,29).sel } 

  } 

  if $did == 34 { 

    if $did(34) { did -r badkufur 29 | unset %amsg } 

  } 

  if $did == 36 { 

    if $did(34) { dialog -x badkufur badkufur } 

  } 

  ;Ident Korumasi 

  if $did == 25 { 

    if $did(25) && $len($did(badkufur,23)) > 1 { .did -a badkufur 24 $did(badkufur,23) | .auser ident $did(badkufur,23) | .did -r badkufur 23 | .identtara } 

  } 

  if $did == 38 { 

    if $did(38) && $did(badkufur,24).sel { .ruser ident $did(badkufur,24).seltext | .did -d badkufur 24 $did(badkufur,24).sel } 

  } 

  if $did == 27 { 

    if $did(27) { did -r badkufur 24 | .rlevel ident } 

  } 

  if $did == 39 { 

    if $did(39) { .identtara } 

  } 

  ;Muaf Kanallar 

  if $did == 60 { 

    if $did(60) && $len($did(badkufur,59)) > 1 { .did -a badkufur 56 $did(badkufur,59) | .auser muafkanal $did(badkufur,59) | .did -r badkufur 59 } 

  } 

  if $did == 62 { 

    if $did(62) && $did(badkufur,56).sel { .ruser muafkanal $did(badkufur,56).seltext | .did -d badkufur 56 $did(badkufur,56).sel } 

  } 

  if $did == 61 { 

    if $did(61) { .did -r badkufur 56 | .rlevel muafkanal } 

  } 

  ;Nuaf Kelimeler 

  if $did == 67 { 

    if $did(67) && $len($did(badkufur,66)) > 1 { .did -a badkufur 63 $did(badkufur,66) | .auser muafkelime $did(badkufur,66) | .did -r badkufur 66 } 

  } 

  if $did == 65 { 

    if $did(65) && $did(badkufur,63).sel { .ruser muafkelime $did(badkufur,63).seltext | .did -d badkufur 63 $did(badkufur,63).sel } 

  } 

  if $did == 64 { 

    if $did(64) { .did -r badkufur 63 | .rlevel muafkelime } 

  } 

} 

#badnick off

on *:join:#:{ 

  if $nick == $me { .badtara | halt } 

  if $me isop $chan || $me isop $chan && $level($gettok($gettok($address($nick,5),2,33),1,64)) == ident { mode $chan +b $nick | .kick $chan $nick 12Kanala 4Bad Identle12 girmek yasaktir.Lütfen Identinizi degisip tekrar giris yapiniz... } 

  if $me isop $chan || $me isop $chan && $level($chan) != muafkanal && $ulist($nick,muafnick,0) > 0 { halt } 

  if $me isop $chan || $me isop $chan && $level($chan) != muafkanal && $level($nick) == badnick { mode $chan +b $ulist($nick,badnick,$ulist($nick,badnick,*)) | .kick $chan $nick 2Kanaldan 4( Cinsellik2, 4Kufur2, 4Hakaret )2 iceren 4Nick2`den dolayi atildiniz.. ~ 4?12 ® 4  } 

} 

on *:OP:#: { if $ulist(*,badnick,0) > 0 && $opnick == $me { /badtara } } 

on *:HELP:#:{ if $ulist(*,badnick,0) > 0 && $hnick == $me { /badtara } } 

#badnick end 

on 1:dialog:badkufur:init:*: { 

  if $ulist(*,badnick,0) > 0 { 

    var %i 1 

    while %i <= $ulist(*,badnick,0) { 

      .did -a badkufur 6 $ulist(*,badnick,%i) 

      inc %i 

    } 

  } 

  if $ulist(*,kufur,0) > 0 { 

    var %i 1 

    while %i <= $ulist(*,kufur,0) { 

      .did -a badkufur 13 $ulist(*,kufur,%i) 

      inc %i 

    } 

  } 

  if $ulist(*,ident,0) > 0 { 

    var %i 1 

    while %i <= $ulist(*,ident,0) { 

      .did -a badkufur 24 $ulist(*,ident,%i) 

      inc %i 

    } 

  } 

  if $ulist(*,muafnick,0) > 0 { 

    var %i 1 

    while %i <= $ulist(*,muafnick,0) { 

      .did -a badkufur 46 $ulist(*,muafnick,%i) 

      inc %i 

    } 

  } 

  if $ulist(*,muafkanal,0) > 0 { 

    var %i 1 

    while %i <= $ulist(*,muafkanal,0) { 

      .did -a badkufur 56 $ulist(*,muafkanal,%i) 

      inc %i 

    } 

  } 

  if $ulist(*,muafkelime,0) > 0 { 

    var %i 1 

    while %i <= $ulist(*,muafkelime,0) { 

      .did -a badkufur 63 $ulist(*,muafkelime,%i) 

      inc %i 

    } 

  } 

  var %s = /did -c badkufur 

  if $var(%badcheck) { %s %badcheck } 

  if $var(%kufurcheck) { %s %kufurcheck } 

  if %amsg { var %i 1 | while %i <= $numtok(%amsg,32) { .did -a badkufur 29 $gettok(%amsg,%i,32) | inc %i } } 

} 

#kufur on 

on *:text:*:#:{ 

  if $me isop $chan || $me isop $chan { 

    var %i 1 

    while %i <= $0 { 

      if $ulist($eval($ $+ %i,2),muafkelime,0) > 0 { goto cyc2 } 

      if $level($eval($ $+ %i,2)) == kufur && $len($eval($ $+ %i,2)) > 1 { mode $chan +b $nick | .kick $chan $nick 12Lutfen kanal icerisinde 4Argo/Kufur12 iceren sozcukler kullanmayiniz... } 

      :cyc2 

      inc %i 

    } 

  } 

} 

#kufur end 

alias badtara { 

  var %i 1 

  while %i <= $chan(0) { 

    if $me isop $chan(%i) || $me isop $chan(%i) { 

      var %y 1 

      while %y <= $nick($chan(%i),0) { 

        if $level($chan(%i)) != muafkanal && $ulist($nick($chan(%i),%y),muafnick,0) > 0 { goto cyc } 

        if $level($chan(%i)) != muafkanal && $level($nick($chan(%i),%y)) == badnick { mode $chan(%i) +b $ulist($nick($chan(%i),%y),badnick,1) | .kick $chan(%i) $nick($chan(%i),%y) 2Kanaldan 4( Cinsellik2, 4Kufur2, 4Hakaret )2 iceren 4Nick2`den dolayi atildiniz.. ~ 4?12 ® 4  } 

        :cyc 

        inc %y 

      } 

    } 

    inc %i 

  } 

} 

alias amsg { 

  var %i 1 

  while %i <= $chan(0) { 

    if !$istok(%amsg,$chan(%i),32) { 

      msg $chan(%i) $1- 

    } 

    inc %i 

  } 

} 

alias identtara { 

  var %i 1 

  while %i <= $chan(0) { 

    if $me isop $chan(%i) || $me isop $chan(%i) { 

      var %y 1 

      while %y <= $nick($chan(%i),0) { 

        if $level($gettok($gettok($address($nick($chan(%i),%y),5),2,33),1,64)) == ident { mode $chan(%i) +b $ulist($nick($chan(%i),%y),badnick,1) | .kick $chan(%i) $nick($chan(%i),%y) 12Kanala 4Bad Identle12 girmek yasaktir.Lütfen Identinizi degisip tekrar giris yapiniz... } 

        inc %y 

      } 

    } 

    inc %i 

  } 

}

Cevap: Badnick koruması yardım lütfen

Alıntı:

asılsız Nickli Üyeden Alıntı (Mesaj 1042310769)

yada bu küfür dialogunu badnick için çevirebilirmiyiz? böyle bi imkan olurmu

Kod:

dialog kufur {

  title "Swear Security"

  size -1 -1 138 186

  option dbu

  edit "", 1, 7 10 61 10

  list 2, 7 22 60 50, size
 

  button "Ekle", 3, 7 74 27 12, flat

  button "Sil", 4, 39 74 27 12, flat

  check "Opları (@)", 5, 85 21 41 10, flat

  check "Voiceler (+)", 6, 85 10 42 10, flat

  combo 7, 7 102 52 51, size

  button "Ekle", 8, 7 154 24 9, flat

  button "Sil", 9, 35 154 23 9, flat

  box "Küfür listesi", 13, 3 2 71 88

  box "Ayrılan Nickler", 14, 3 92 63 76

  box "Ayrılan Kanallar", 15, 73 92 62 76

  box "Ayır", 16, 78 2 56 33

  button "Sil", 10, 106 154 23 9, flat

  button "Ekle", 11, 78 154 24 9, flat

  combo 12, 78 102 52 51, size

  box "İşlemler", 17, 78 37 56 53

  radio "Opersem Kline", 18, 83 47 47 10, flat

  radio "Opersem Kill", 19, 83 57 47 10, flat

  radio "Opsam Kick", 20, 83 67 47 10, flat

  check "Banla", 21, 83 77 27 10, flat

  button "Kapat", 22, 97 171 37 12, flat ok

}

alias kufur { /dialog -m kufur kufur }

on *:dialog:kufur:init:*: {

  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }

  if (%knickler) .didtok $dname 7 32 $ifmatch

  if (%kufkanal) .didtok $dname 12 32 $ifmatch

  if (%klineat) { .did -c $dname 18 }

  if (%killat) { .did -c $dname 19 }

  if (%kickat) { .did -c $dname 20 }

  if (%banla) { .did -c $dname 21 }

  if (%oplar) { .did -c $dname 5 }

  if (%vlar) { .did -c $dname 6 }

}

on *:dialog:kufur:sclick:*: {

  if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }

  if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }

  if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }

  if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }

  if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }

  if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }

  if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }

  if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }

  if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }

  if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }

  if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }

  if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }

}

on @*:text:*:#: {

  if $istok(%kufkanal,#,32) == $true { halt }

  if $istok(%knickler,$nick,32) == $true { halt }

  if ($nick isop #) && (%oplar == on) { return }

  if ($nick isvo #) && (%vlar == on) { return }

  korukufurden $1-

}

alias korukufurden {

  var %HR $strip($1-) , %_: $lines(kufur.txt)

  while (%_:) {

    if $read(kufur.txt,%_:) iswm %HR iswm %HR {

      if (%banla == on) { .mode $chan +b  $+ $wildsite  }

      if (%klineat == on) { .kline $nick küfürsüz }

      if (%killat == on) { .kill $nick küfürsüz }

      if (%kickat == on) { .kick $chan $nick $read scripts/read.mrc

      }

      return

    }

    dec %_:

  }

}

bu dialogu auserden badnick alacak şekilde badnick dialogu olarak ayarlamazmıyız ? opersem killeyecek opsam banlayacak ?

Cevap: Badnick koruması yardım lütfen

Merhaba kodu remoteye ekle
Kullanabilecegin komutlar;
/badnickekle *nick*
/badidentekle *ident*
/nickkoruma *nick*
/identkoruma *nick*

Kod:

menu status,menubar,channel {

  .-

  .ı|ı Badnick

  ..Açık:.enable #Badnick | .echo -a   Badnick korumasi açildi

  ..Kapalı:.disable #Badnick | .echo -a  Badnick korumasi kapatildi

  .-

}

#badnick on

on  @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{

  if ($ulist($fulladdress,koruma,0) >= 1) { return }

  elseif !$istok(#help #operhelp  #*** #cinsellik #sales #karantina #kanal-devir,$chan,32) {

    mode $chan +b $nick 

    kick $chan $nick 5[ 4K2ÖTÜ 4R2UMUZ 4N2ICK 4İ2DENT 4E2MAİL 5] 4S12ebebinden 4 D12oLayı 4 U12zakLaştırıLdınız. 4/nick yeninick 12 Yaparak Giriş yapa biLirsiniz 4Z14aiL 4S14cript 4®

  }

}

on *:NICK:{ 

  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }

  else {

    if $ulist($+($newnick,!*@*),badnick,0) {

      var %Plt = 1 

      while $comchan($newnick,%Plt) { 

        var %e = $v1 

        if $me isop %e && !$istok(#help #operhelp #*** #cinsellik #karantina #sales #kanal-devir,%e,32) { 

          mode %e +b $newnick 

          kick %e $newnick 2Şuanda Kanal Seviyesinde Düşürecek ßir Nick Seçtiniz Lütfen 4/Nick Yeninick 2Komutuyla Nickinizi Deyiştirip Tekrar Giriniz.

        } 

        inc %Plt 

      } 

    } 

  }

}

alias badnickekle {

  auser badnick $1 $+ !*@*

}

alias badnicksil {

  ruser badnick $1 $+ !*@*

}

alias nickkoruma {

  auser koruma $1 $+ !*@*

}

alias badidentekle {

  auser badnick *! $+ $1 $+ @*

}

alias badidentsil {

  ruser badnick *! $+ $1 $+ @*

}

alias identkoruma {

  auser koruma *! $+ $1 $+ @*

}

#badnick off