| diEfoRyoU | 16 Eylül 2019 02:11 |
Cevap: shunlist hk.
Kod:
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. |
