Çevrimdışı

Arkadaşlar kolay gelsin özellikle Coderlere sizden isteyeceğim remote şu konuda olacak.
<Admin> !YasakNick add Ahmet
<X-Bot> '' Ahmet '' Nicki Basariyla YasakNick liste eklendi.
Bu şekilde Ekleme Yaptığımda Bota Eklediğim Nickde girenlere GZLINE Atsın istiyorum.
<Admin> !YasakNick del Ahmet
<X-Bot> '' Ahmet '' Nicki Basariyla YasakNick listesinden silindi.
Bu şekilde yaptığımda yasaknick listesinden silsin istiyorum.
NOT: Socket kanal koruma botuna eklenecektir TCL değildir.
ilgilenen arkadaşlara şimdiden Teşekkür ediyorum, Kolay gelsin.
Hash şeklinde düzenlenirse daha makbul olur kod
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

moonman Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Arkadaşlar kolay gelsin özellikle Coderlere sizden isteyeceğim remote şu konuda olacak. <Admin> !YasakNick add Ahmet <X-Bot> '' Ahmet '' Nicki Basariyla YasakNick liste eklendi. Bu şekilde Ekleme Yaptığımda Bota Eklediğim Nickde girenlere GZLINE Atsın istiyorum. <Admin> !YasakNick del Ahmet <X-Bot> '' Ahmet '' Nicki Basariyla YasakNick listesinden silindi. Bu şekilde yaptığımda yasaknick listesinden silsin istiyorum. NOT: Socket kanal koruma botuna eklenecektir TCL değildir. ilgilenen arkadaşlara şimdiden Teşekkür ediyorum, Kolay gelsin.

Txt Mi Eklenek Yoksa Hash 'hamı Tam Bi Bilgi VeriSeniz Ona Göre Ko VereBiliim Size.

 

 

Çevrimdışı

GhoSt ilgilendiğin için çok teşekkür ederim, Ama ben bu kodu çalıştıramadım o ilk verdiğin TXT i koydum alias kısmına öyle denedim eklemedi nicki hatta bot cevap bile vermedi sonra alias sw if ($sock($1).status == active) sockwrite -n $1- << bunu en başa koydum O verdiğin kodun başına öyle denedim yine çalışmadı neden acaba :S
Bir örnek vereyim !ident koruması çalışıyor onuda burdan aldım o şekilde yazarsanız çalışabilir bot TXT i tanımadı sanırım
örnek :
#yasakident on
on *:snotice:*: {
if ($level($9) == muafnlist) { halt }
if ($level($9) == muafclist) { halt }
if (connecting isin $1-) {
if $level($remove($gettok($10,1,64),$chr(40))) = yasakident { gzline $+(*@,$gettok($gettok($10,2,64),1,41)) Lamer girisimi $+([,%botnick,]) }
}
}
#yasakident end
on *:text:!ident *:%operkanali: {
if $2 == list {
var %i = 1, %end = $ulist(*,yasakident,0)
.msg $chan - Toplam yasak ident:4 %end
while %i <= %end {
.msg $chan $+(%i,$chr(41)) $iif($ulist(*,yasakident,%i) == $nick,$+(,$v1,),$v1)
inc %i 1
}
}
elseif $2 == add {
if $3 == $null { .msg $chan $+(",$nick,") Lutfen eklenecek yasak ident'i yaziniz. | return }
if $ulist($3,yasakident,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$v1,,") zaten mevcut | return }
if $istok(N,$3,32) { .msg $chan $+(",$nick,") Bu ident eklenemez. | return }
.auser yasakident $3
.msg $chan $+(",,$3,,") Basariyla yasak ident liste eklendi.
}
elseif $2 == del {
if $3 == $null { .msg $chan $+(",$nick,") Lutfen silinecek ident'i yaziniz. | return }
if !$ulist($3,yasakident,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") Listede mevcut degil. | return }
.ruser yasakident $3
.msg $chan $+(",,$3,,") Yasak ident listten silindi.
}
}
on *:text:!ident *:%operkanali: {
if $2 == on {
if !$read(admin.txt,w,$nick) { .notice $nick 5 $+(",$nick,") , %`^  }
else { enable #yasakident | msg $chan Yasak ident %akt | set %yasakident on } }
if $2 == off {
if !$read(admin.txt,w,$nick) {
.notice $nick 5 $+(",$nick,") , %`^  }
else { disable #yasakident | msg $chan Yasak ident %dakt | set %yasakident off }
}
}
Bu şekildeki !ident koruması hatasız çalışıyor bu şekilde yazma imkanınız varmı remoteyi acaba sizi yorduğum için çok özür dilerim kolay gelsin

 

Çevrimdışı

GhoSt burdamısın usta ?

 

Çevrimdışı

Yardımlarınızı Bekliyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

moonman Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

GhoSt ilgilendiğin için çok teşekkür ederim, Ama ben bu kodu çalıştıramadım o ilk verdiğin TXT i koydum alias kısmına öyle denedim eklemedi nicki hatta bot cevap bile vermedi sonra alias sw if ($sock($1).status == active) sockwrite -n $1- << bunu en başa koydum O verdiğin kodun başına öyle denedim yine çalışmadı neden acaba :S Bir örnek vereyim !ident koruması çalışıyor onuda burdan aldım o şekilde yazarsanız çalışabilir bot TXT i tanımadı sanırım örnek : #yasakident on on *:snotice:*: { if ($level($9) == muafnlist) { halt } if ($level($9) == muafclist) { halt } if (connecting isin $1-) { if $level($remove($gettok($10,1,64),$chr(40))) = yasakident { gzline $+(*@,$gettok($gettok($10,2,64),1,41)) Lamer girisimi $+([,%botnick,]) } } } #yasakident end on *:text:!ident *:%operkanali: { if $2 == list { var %i = 1, %end = $ulist(*,yasakident,0) .msg $chan - Toplam yasak ident:4 %end while %i <= %end { .msg $chan $+(%i,$chr(41)) $iif($ulist(*,yasakident,%i) == $nick,$+(,$v1,),$v1) inc %i 1 } } elseif $2 == add { if $3 == $null { .msg $chan $+(",$nick,") Lutfen eklenecek yasak ident'i yaziniz. | return } if $ulist($3,yasakident,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$v1,,") zaten mevcut | return } if $istok(N,$3,32) { .msg $chan $+(",$nick,") Bu ident eklenemez. | return } .auser yasakident $3 .msg $chan $+(",,$3,,") Basariyla yasak ident liste eklendi. } elseif $2 == del { if $3 == $null { .msg $chan $+(",$nick,") Lutfen silinecek ident'i yaziniz. | return } if !$ulist($3,yasakident,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") Listede mevcut degil. | return } .ruser yasakident $3 .msg $chan $+(",,$3,,") Yasak ident listten silindi. } } on *:text:!ident *:%operkanali: { if $2 == on { if !$read(admin.txt,w,$nick) { .notice $nick 5 $+(",$nick,") , %`^  } else { enable #yasakident | msg $chan Yasak ident %akt | set %yasakident on } } if $2 == off { if !$read(admin.txt,w,$nick) { .notice $nick 5 $+(",$nick,") , %`^  } else { disable #yasakident | msg $chan Yasak ident %dakt | set %yasakident off } } } Bu şekildeki !ident koruması hatasız çalışıyor bu şekilde yazma imkanınız varmı remoteyi acaba sizi yorduğum için çok özür dilerim kolay gelsin

Arkadaşım Bu Kod Socket Deglkı Bır Kere Once Yazdıgına Emin Ol Sonra Yardım İste...

 

Çevrimdışı

mIRC bot bu GhoSt yapabilirmisin tekrardan hash olarak ?

 

Arkadaşım Yaparımda Kendin Ugras Yapmayı Dene Yapamazsan Yardım Ederim Sana...

 

Çevrimdışı

O verdiğim ident örneği remotesinden yapmayı denedim ama olmadı sabahdan beri uğraşıyorum olmuyor :S ve burda bekliyorum sabahdır yardımcı olacak diye birileri başıma ağrı girdi