Tekil Mesaj gösterimi
Alt 01 Mayıs 2008, 22:42   #3
Çevrimdışı
L4roXyL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /ame kufur yazaini atma ?




Yapabilirsin. on action kullanmalısın.
Örnek olarak sana bir kod yazacağım, umarım işine yarar.

;Event (on action)
on @*:action:*:#:bdwchk # $nick $1-

;Alias (/bdwchk): /bdwchk #kanal-ismi nick mesaj
alias bdwchk var %1 = 1,%2 = $iif($hget(bdw,0).item >= 1,$v1) | while (%1 <= %2) { echo -a $hget(bdw,%1).item | if ($regex($3-,$hget(bdw,%1).item)) { ban -k $1 $2 5 sebeb. | break } | inc %1 }

;Alias (/bdwekle): /bdwekle kelime (Listeye kelime ekler)
alias bdwekle if ($1) { if (!$hget(bdw,$1)) { hadd -m bdw $1 1 | hsave -i bdw bdw.hash | echo -at $1 kelimesi listeye eklendi. } | else echo -at $1 kelimesi listede. | halt } | else echo -at Kelime girmediniz.

;Alias (/bdwsil): /bdwsil kelime (Listeden kelime siler)
alias bdwsil if ($1) { if ($hget(bdw,$1)) { hdel bdw $1 | hsave -i bdw bdw.hash | echo -at $1 kelimesi listeden silindi. } | else echo -a $1 kelimesi listede yok. | halt } | else echo -at Kelime girmediniz.

;Alias (/bdwlist): /bdwlist (Listeyi sıralar)
alias bdwlist if (!$hget(bdw) || $hget(bdw,0).item < 1) echo -at Liste boş. | else $iif(!$window(@Bdwlist),window -adlCk0 +L @Bdwlist 0 0 200 200) | var %s = 1 | while (%s <= $hget(bdw,0).item) { aline @Bdwlist $hget(bdw,%s).item | inc %s }

;on start event(Tabloyu yükletmek için)
on *:start:if ($isfile(bdw.hash)) { hmake bdw 50 | hload -i bdw bdw.hash }

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet bizimmekan