Tekil Mesaj gösterimi
Alt 18 Mart 2013, 13:52   #7
Toprak
Misafir
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Bu koda Bakarmısınız ?




Selam,

Kodları biraz inceledim'de

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
$gurkan(isimsiz,$1-,kufur.txt)

burada

isim'siz = $1
$1- = $2
kufur.txt = $3
olarak kullanmıssın'ız.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias gurkan { if !$istok(isimsiz ,$1,32) { return $false } goto $1 :isimsiz var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false) }

Burda

Söyle birşey var $1- kelimeye denk geliyor ama "Selam Nasılsın" yazarlarsa şöyle oluyor;

isimsiz = $1
Selam = $2
Nasılsın $3
kufur.txt = $4

oluyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
orayı düzelt'iniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
$gurkan(isimsiz,kufur.txt,$1-)

olarak ve

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias gurkan { if !$istok(isimsiz,$1,32) { return $false } goto $1 :isimsiz var %· = 1 | while $read($2,%·) { if $v1 iswm $3- { return $true } | inc %· } | return $false) }

gibi.

Düzeltip denedim Kod'da sorun yok kanal'da ban atıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias gurkan { if !$istok(isimsiz,$1,32) { return $false } goto $1 :isimsiz var %· = 1 | while $read($2,%·) { if $v1 isin $3- { return $true } | inc %· } | return $false) } on @*:text:*:#:if $gurkan(isimsiz,kufur.txt,$1-) { .mode $chan +b $wildsite | kick $chan $nick 1 Argo İçerikli Kelime Kullanmak Yasaktir.. %logo } alias antipity { dialog -m antipity antipity } dialog antipity { title "BadNick & Kufur Koruma" size -1 -1 226 102 option dbu list 2, 38 22 70 58, size list 5, 118 22 70 58, size edit "", 10, 38 12 70 10 edit "", 11, 118 12 70 10 box "KARA LiSTE", 6, 5 3 107 81 box "KUFUR", 7, 114 3 107 81 button "T A M A M", 1, 38 87 148 12,ok button "EKLE", 3, 10 14 24 28 button "KALDIR", 4, 10 45 24 28 button "EKLE", 8, 192 14 24 28 button "KALDIR", 9, 192 45 24 28 } on *:dialog:antipity:INIT:*: { if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } if (%badnick) .didtok $dname 2 32 $ifmatch if (%kufur) .didtok $dname 5 32 $ifmatch } on *:dialog:antipity:sclick:*:{ if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 } if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 } if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel } } on *:dialog:antipity:sclick:1:{ set %badnick $didtok($dname,2,44) set %kufur $didtok($dname,5,44) }

Deneme;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[13:57:41] <ChanServ> deneme 3«13:57:41» • Mode : Toprak mode değiştirdi +b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net «13:57:41» • Kick : ChanServ , Toprak Tarafından Atıldı Sebep: (1 Argo İçerikli Kelime Kullanmak Yasaktir..) [14:06:02] <ChanServ> selam deneme selam 3«14:06:02» • Mode : Toprak mode değiştirdi +b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net «14:06:02» • Kick : ChanServ , Toprak Tarafından Atıldı Sebep: (1 Argo İçerikli Kelime Kullanmak Yasaktir..)


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan