txt Dosyası buLunan Küfür Kanala Yansıtma Yakalanan Küfür - IRCForumu.NET

29 Ekim 2016, 13:29

alias argosil {
if ($read(Argo.txt,w,$+(*,$1-,*))) {
write -dl $+ $readn argo.txt
echo -a $1- Argo veri tabanindan çıkarıldı
}
}
alias argoekle { write argoo.txt $1- | echo -a $1- argosu veri tabanina eklendi }

#Argo on
on *@:text:*:#:{
var %i 1
while $read(Argo.txt,%i) {
if ($read(Argo.txt,%i) iswm $1-) { msg #ShiRoi 4Bilgi: $Chan $nick $1- Kötü Söz Kullanıldı }
inc %i
}
}
#Argo end

Ben böyLe Bir Şeyler Yaptım Ama Beceremedim Yardım Lütfen

31 Ekim 2016, 17:59

Yokmu Yardım Edicek biri ?

01 Kasım 2016, 21:14

Toprak Abi Ne Oldu Size Eskiden yardım Ederdiniz neden Artik yardım Etmiyorsunuz ?

**Feragat** · 02 Aralık 2016, 23:13

Kanala yazılan her metinde while döngüsü çalıştırmaktansa hash tablo kullan.
Bu yaptığın method hiç sağlıklı değil. Büyük bir sunucuda mirc'ini duman eder. (donar kalırsın)

29 Ekim 2016, 13:29	#1
ShiRoi Guest Üyelik Tarihi: Üye No: Şehir: WebSite: IRC: İlgi Alanım: Mesaj Sayısı: n/a Aldığı Beğeni: Beğendikleri: @ShiRoi	txt Dosyası buLunan Küfür Kanala Yansıtma Yakalanan Küfür alias argosil { if ($read(Argo.txt,w,$+(,$1-,))) { write -dl $+ $readn argo.txt echo -a $1- Argo veri tabanindan çıkarıldı } } alias argoekle { write argoo.txt $1- \| echo -a $1- argosu veri tabanina eklendi } #Argo on on @:text::#:{ var %i 1 while $read(Argo.txt,%i) { if ($read(Argo.txt,%i) iswm $1-) { msg #ShiRoi 4Bilgi: $Chan $nick $1- Kötü Söz Kullanıldı } inc %i } } #Argo end Ben böyLe Bir Şeyler Yaptım Ama Beceremedim Yardım Lütfen

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Görsel Yükle!