Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] değerli yorum ve açıklamalarınız için teşekkür ederim. Konunun da başında belirttiğim gibi bu kodu parça kodları okuyarak yapmaya uğraştım. Söylediğiniz üzere bahsettiğiniz konuyu inceleyip birşeyler üretmeye çalışacağım. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Şayet vaktinizi almayacak ise kodu yazarak yardım etmek isterseniz de minnet duyarım. İlgi ve alakanız için teşekkür eder, iyi çalışmalar dilerim.
on *:start:{ $iif(!$isfile(shunick.die),write shunick.die) | hmake shunick 100 | hload shunick shunick.die
}
on *:join:#sohbet:{ if $hmatch(shunick,$nick) {
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick,window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick) | echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick $+($chr(3),$color(notice)) *** UYARI! $nick ShunNicki # kanalına giriş yaptı!
if %shunick == on {
shun $nick you are my ShunList
echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick $+($chr(3),$color(notice)) *** UYARI! Shun listesindeki $nick # kanalına giriş yaptı ve Shun uygulandı!
}
}
}
alias shunick { if !$istok(list add on off del alldel,$1,32) { echo -a $+($chr(3),$color(notice)) *** Tanımsız parametre:4 $1
echo -a 5***Kullanım şekli 2/shunick 5[2add5|2del5[4nick5]]|2list5|2alldel5 | return }
if $regex($1,/(on|off)/i) { echo -a $+($chr(3),$color(notice)) *** ShunNick koruması $iif($regml(1) == on,2AÇIK,2KAPALI) | set %shunick $regml(1) | return }
if $regex($1-,/add\x20) { if $hmatch(shunick,$2) { echo -a $+($chr(3),$color(notice)) ***4 $2 $+ 5, nicki ShunNick listesinde mevcut. | return }
if !$2 { echo -a $+($chr(3),$color(notice)) *** Nick eklemeyi unuttun sanırım:) | return }
hadd -m shunick $+(*,$2,*) | hsave shunick shunick.die
echo -a $+($chr(3),$color(notice)) *** $2 $+ : nicki ShunNick listesine eklendi }
if $regex($1-,/del\x20) { if $hget(shunick,0).item == 0 { echo -a $+($chr(3),$color(notice)) *** Oluşturulmuş ShunNick listesi bulunamadı. | return }
if !$hmatch(shunick,$2) { echo -a $+($chr(3),$color(notice)) ***4 $2 $+ 5, nicki ShunNick listesinde bulunamadı | return }
if !$2 { echo -a $+($chr(3),$color(notice)) *** Silinecek nicki yazmayı unuttun sanırım:) | return }
hdel -w shunick $2 | echo -a $+($chr(3),$color(notice)) ***4 $2 $+ 5, nicki ShunNick listesinden silindi
hsave shunick shunick.die }
if $regex($1,/list/i) { if $hget(shunick,0).item == 0 { echo -a $+($chr(3),$color(notice)) *** Oluşturulmuş ShunNick listesi bulunamadı. | return }
var %^ = 1 | echo -a $+($chr(3),$color(notice)) *** ShunNick kayıtları listeteleniyor,
while ($hget(shunick, %^).item) { echo -a $+($chr(3),$color(notice)) *** %^ $+ ) $v1 | inc %^ }
echo -a $+($chr(3),$color(notice)) *** ShunNick kayıtları listelendi. }
if $regex($1,/alldel/i) { if !$hget(shunick) { echo -a $+($chr(3),$color(notice)) *** Oluşturulmuş ShunNick listesi bulunamadı. | return }
hfree shunick | echo -a $+($chr(3),$color(notice)) *** ShunNick listesi sıfırlandı. }
}
yukarıdaki kodun sağlıklı çalışması için öncelikle shun listesine bir kaç ekleme yapıp sonra da /shunick on yazmalısın
kodu aktif/pasif etmek için: /shunick on/off
nick eklemek/silmek için: / shunick add/del nick
listelemek için: /shunick list
bütün listeyi silmek için: /shunick alldel
yazılan herhangi bir badnick remote'u de uyarlayabilirdin. Ben bu remote'u badnick için yazmıştım ve forumda mevcuttu. Umarım istediğin gibi olmuştur.
Çok teşekkür ederim Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tam istediğim gibi oldu. Bilgilerinize sağlık, ayrı ayrı tüm coder üstadlara teşekkürler.