Çevrimdışı

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

Bilgilendirme icin tşk ederim. Verdiginiz örnekten yola cıkarak yapmaya calıstım ama yapamadım Atılan nick ve maskı gösteriyor fakat data numarasını göstertemedim bi türlü. Su sekilde ekledim $hget(badnick,0).item yapınca listeyi gösteriyor sadece Fakat sıfırı 1 yapınca ilk data numarasını gösterebiliyorum Oysa her atılan rumuzun kendine ait data numarasını göstermesi lazım degil mi nerde yanlıs yapıyorum anlamadım

tabiki var



$hget(badnick,0).item



bu kısmı



$hget(badnick,1).item yapınca 1. item,
$hget(badnick,1).data yapınca 1. data


verisine ulaşırsın ne yapmak istediğini anlamadım ama anladığım şekilde cevap verdim.

 

Çevrimdışı

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

tabiki var $hget(badnick,0).item bu kısmı $hget(badnick,1).item yapınca 1. item, $hget(badnick,1).data yapınca 1. data verisine ulaşırsın ne yapmak istediğini anlamadım ama anladığım şekilde cevap verdim.

Badnick has dosyasında olan biri kanala girdigi zaman
Atılan rumuz ahmet - data : numarası ????? Burdaki soru isaretinin oldugu yere atılan rumuzun data numarasınıda yansıtmaya calısıyorum.
Dediginiz gibi $hget(badnick,1).data yapınca has dosyasındaki ilk data numarasını yansıtıyor fakat diger atılanlan rumuzların kendine ait data numaralarını yansıtmıyor. 1 yazan yer sabit mi kalmalı yoksa?

 

Çevrimdışı

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

Badnick has dosyasında olan biri kanala girdigi zaman Atılan rumuz ahmet - data : numarası ????? Burdaki soru isaretinin oldugu yere atılan rumuzun data numarasınıda yansıtmaya calısıyorum. Dediginiz gibi $hget(badnick,1).data yapınca has dosyasındaki ilk data numarasını yansıtıyor fakat diger atılanlan rumuzların kendine ait data numaralarını yansıtmıyor. 1 yazan yer sabit mi kalmalı yoksa?

Sen kodu at buraya ona göre ne yapman gerektiğini söyleyeyim.

 

Çevrimdışı

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

Sen kodu at buraya ona göre ne yapman gerektiğini söyleyeyim.

Normalde bu kodu kullanıyorum sizinde vermis oldugunuz muaf eklentisi ile beraber.

on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk }



on *:join:*: {
if $chan == #sohbet {
if $hfind(badnick,$nick,1,W).data {
if $read(muafnick.txt,w,$nick) { msg #geveze35 Muaf nick girişi; $nick | return }
kick # $nick 1Nick değiştirip (/nick yeninick) tekrar kanala giriş yapabilirsiniz..
mode $kanal +b $nick
if !$hget(bdnck,$nick) {
.hinc -msu20 bdnck $nick
msg # $chan kanalında [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W). data),$chr(32),])
}
}
}
}
on *:nick:{
if $hfind(badnick,$newnick,1,W).data {
if $read(muafnick.txt,w,$newnick) { msg # Muaf nick değişimi; $nick >> $newnick | return }
if $read(muafnick.txt,w,$nick) { msg # Muaf nick değişimi; $nick >> $newnick | return }
msg $bilgiKanal [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1, W).data),$chr(32),])
var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick ,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))
var %c = 1 | while %c <= $token(%:c,0,32) {
mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip (/nick yeninick) tekrar kanala giriş yapabilirsiniz..
inc %c
}
}
}
on *:text:*:#: {
if !$regex($chan,/^( $+ $komutKanal $+ )$/i) { halt }
if ($regex($nick(#,$nick).pnick,[&.~.@])) {
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
if $read(muafnick.txt,w,$3) { msg # 2Bu kişi muaf nick listemde yer almakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
.hdel -m badnick $hfind(badnick,$strip($3),1,W).data
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesinden silindi.
}
if $regex($2,/^tara$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $read(muafnick.txt,w,$3) { msg # 2Bu kişi muaf nick listemde yer almakta. | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
msg # Nick: $strip($3) - 4 Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),])
}
if ($2 == muaf) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $read(muafnick.txt,w,$3) { msg # $3 muaf listesinden silindi. | write $+(-dl,$read(muafnick.txt,w,$3)) muafnick.txt | return }
msg # $3 muaf nick listesine eklendi.
write muafnick.txt $3
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
if $regex($1,/^[!\.]tara$/Si) {
if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }
if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
var %:tara = 1 | while %:tara <= $nick($2,0) {
if $hfind(badnick,$nick($2,%:tara),1,W).data && !$read(muafnick.txt,w,$nick($2,%:tara)) {
msg # [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%: tara),1,W).data),$chr(32),])
mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 4 Badnick! 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
}
inc %:tara
}
msg # Toplam $nick($2,0) kişi için, $hget(badnick,0).data adet mask taraması yapıldı.
}
}
}

 

Çevrimdışı

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

Normalde bu kodu kullanıyorum sizinde vermis oldugunuz muaf eklentisi ile beraber. on *:start:{ $iif(!$isfile(badnick.tprk),.write badnick.tprk) | .hmake badnick 100 | .hload badnick badnick.tprk } on *:join:*: { if $chan == #sohbet { if $hfind(badnick,$nick,1,W).data { if $read(muafnick.txt,w,$nick) { msg #geveze35 Muaf nick girişi; $nick | return } kick # $nick 1Nick değiştirip (/nick yeninick) tekrar kanala giriş yapabilirsiniz.. mode $kanal +b $nick if !$hget(bdnck,$nick) { .hinc -msu20 bdnck $nick msg # $chan kanalında [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W). data),$chr(32),]) } } } } on *:nick:{ if $hfind(badnick,$newnick,1,W).data { if $read(muafnick.txt,w,$newnick) { msg # Muaf nick değişimi; $nick >> $newnick | return } if $read(muafnick.txt,w,$nick) { msg # Muaf nick değişimi; $nick >> $newnick | return } msg $bilgiKanal [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1, W).data),$chr(32),]) var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick ,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32))) var %c = 1 | while %c <= $token(%:c,0,32) { mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip (/nick yeninick) tekrar kanala giriş yapabilirsiniz.. inc %c } } } on *:text:*:#: { if !$regex($chan,/^( $+ $komutKanal $+ )$/i) { halt } if ($regex($nick(#,$nick).pnick,[&.~.@])) { if $regex($1,/^[!\.]badnick$/Si) { if $regex($2,/^ekle$/Si) { if (!$3) { msg # Lütfen nick belirtiniz | return } if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return } if $read(muafnick.txt,w,$3) { msg # 2Bu kişi muaf nick listemde yer almakta. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m badnick %n $strip($3) .hsave -o badnick badnick.tprk msg # $strip($3) Badnick listesine eklendi. } if $regex($2,/^s[ıiİ]l$/Si) { if (!$3) { msg # Lütfen nick belirtiniz | return } if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return } .hdel -m badnick $hfind(badnick,$strip($3),1,W).data .hsave -o badnick badnick.tprk msg # $strip($3) Badnick listesinden silindi. } if $regex($2,/^tara$/Si) { if (!$3) { msg # Lütfen nick belirtiniz | return } if $read(muafnick.txt,w,$3) { msg # 2Bu kişi muaf nick listemde yer almakta. | return } if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return } msg # Nick: $strip($3) - 4 Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) } if ($2 == muaf) { if (!$3) { msg # Lütfen nick belirtiniz | return } if $read(muafnick.txt,w,$3) { msg # $3 muaf listesinden silindi. | write $+(-dl,$read(muafnick.txt,w,$3)) muafnick.txt | return } msg # $3 muaf nick listesine eklendi. write muafnick.txt $3 } if $regex($2,/^l[ıiİ]st$/Si) { if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return } msg # Badnick listesi msg # - var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i } msg # - msg # Badnick listesi sonu } } if $regex($1,/^[!\.]tara$/Si) { if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return } if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return } var %:tara = 1 | while %:tara <= $nick($2,0) { if $hfind(badnick,$nick($2,%:tara),1,W).data && !$read(muafnick.txt,w,$nick($2,%:tara)) { msg # [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%: tara),1,W).data),$chr(32),]) mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 4 Badnick! 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz.. } inc %:tara } msg # Toplam $nick($2,0) kişi için, $hget(badnick,0).data adet mask taraması yapıldı. } } }

$hget(badnick,$hfind(badnick,$nick,1,W).data)


Bu kısmı


$hfind(badnick,$nick,1,W).data


olarak kullanman gerek.