Bot veya Komut Yardimi? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

NefeS · 27 Ekim 2010, 12:52

Merhabalar Arkadaslar,

size bir Sorum olucakti, Bir Kanal icin özel Kod gerekmekte yada bu Kodu Bota ekliyebilir miyiz?

Örnek:

#DJ Kanalinda accessi olupda 4 Gündür gelmeyen kisilerin otomatik Yetkilerinin #Dj , #Radyohelp, #Dj_Sohbet vs vs Kanalardan silinmesini isdiyorum.

Yani eger Kullanici 4 gündür giris yapmadiysa ozaman Bot onun nickini belirtdigim Kanalardan silsin. Ve mümkünse Bir Belli Nicke (Örnek : NefeS ) yada Kanala ( Örnek : #Opers ) Memo göndersin.

Örnek veriyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

NefeS Nicki Sunucuya 4 gündür baglanmadigi icin, #Dj #Radyohelp ... Kanalarindan tarafimca silinmistir.

gibisine..

Böyle bir Kodu Kanal icin yapabilir miyiz, yoksa Botami Kod eklemek gerekir, eger evet ise Kod nasil olmalidir.

Yardimlariniz icin simdiden tsk ederim

Hayirli IF`ler

NefeS

Difuzyon · 27 Aralık 2010, 12:51

Aşağıdaki kodu #DJ kanalında (ve aynı zamanda #DJ_Sohbet #Radyohelp kanallarında da) yetkisi* olan bir mirc bota (kendi nickinizin olduğu mirce değil!) eklemelisiniz.

yetkisi*: ACC-LIST ve ACC-CHANGE düzeyinde olmalıdır.

Ardından NefeS nicki #DJ kanalı genelinde !tanit yazdığı takdirde,kod harekete geçecektir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on $*:text:/[!]tan(i|ı)t$/ASi:#dj:if $nick NefeS { set -eu6 %dify users | cs access $chan list }
on *:notice:*:*:{
  if $nick == Chanserv && %dify && $2 isnum { 
    set -e %difyDJ $addtok(%difyDJ,$3,32) 
    $iif(!$timer(senkron),.timersenkron 1 5 ns info $token(%difyDJ,1,32))
  }
  elseif $nick == Nickserv && %difyDJ {
    if $regex($1-,/Son\sgorulen\szaman\x3A\s(\w+)\s(\d+)\s\S+\s(\d+)/iS) { 
      var %NefeS $calc($ctime($date) -345600)
      if %NefeS > $ctime($+($regml(2),/,$replace($regml(1),Oca,01,Sub,02,Mar,03,Nis,04,May,05,Haz,06,Tem,07,Agu,08,Eyl,09,Ekm,10,Ksm,11,Ara,12),/,$regml(3))) {
        cs access #Dj del $token(%difyDJ,1,32)  
        cs access #Dj_Sohbet del $token(%difyDJ,1,32)
        cs access #Radyohelp del $token(%difyDJ,1,32)
        ms send NefeS [BILGI] $token(%difyDJ,1,32) nicki 4 gündür online olmadığı için #Dj #Dj_Sohbet ve #RadyoHelp kanallarıyla ilişiği kesilmiştir.
      }
    }
    if $regex($1-,/(Kayit zamani|özel bir nick)/iS) && %difyDJ {
      set %difyDJ $deltok(%difyDJ,1,32)
      if %difyDJ == $null { unset %difyDJ | halt }
      else { ns info $token(%difyDJ,1,32) }
    }
  }
}

Kod içerisindeki işlemler:
1) #DJ kanalı access listesini 1 %variables'te bütünleştirir.
2) %variables'teki 1.nicke /ns info nick komutunu uygular.
3) Nickserv info satırında:
-NickServ- Son gorulen zaman: Ara 26 22:15:49 2010 EET [0 gün, 13 saat, 39 dakika ve 24 saniye önce]
Son gorulen zaman ifadesinden sonraki Ara 26 2010 tarih değerini alıp,bunu $ctime değerine dönüştürür.
Eğer sunucunuzdaki bilgiler farklı kelimelerden ve dizayndan oluşuyorsa bunu konuya örneklerle belirtmeniz halinde yardımcı olacağım.
4) 1 günün $ctime değeri 86400 saniyedir. 4 günün $ctime değeri (4*86400) yaklaşık 345600 saniyeye denk gelmektedir.
Buda demek oluyor ki 345600 sayısını kendinize göre değişebilirsiniz,4 gün değilde 3 gün yada 7 gün vb...
5) Nickserv satırındaki Son gorulen zamanın $ctime değeri güncel $date yani bugünün,4gün öncesine ait $ctime değerinden çıkarılır,eğer değer belirtilen gün değerinden küçükse "bu durumda nick 4 günden fazla online olmamış demektir" belirtilen kanallardan yetkileri silinir ve bilgilendirme memo'su NefeS nickine gönderilir.
6) 2. sıradaki nicke geçiş için
-NickServ- Kayit zamani:........
veya
-NickServ- Difuzyon özel bir nicktir.
satırlarının bulunması gerekiyor.Özel nick konumunda bulunananlar tarih taramasından muaftırlar.Çünkü nick INFO bilgileri gizlendiğinden,verilere ulaşamıyoruz.

Bunu anlatmamın sebebi benzer konularda size fikir oluşturabilmesi adınadır.Örneğin: Kanalıma nick kaydı 3 günden az olan nickler girdiği takdirde uzaklaştırılsın?
Türünden sorunlarınıza yanıtlar için yararlanabileceğiniz işlemler bu kodda mevcuttur.

Hoşca paylaşımlar dilerim...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Telnet yardimi.	LieS	Unreal IRCd	3	14 Ağustos 2013 21:31
KOD Yardimi	MesqeN	Eggdrop, NeoStats, BNC	12	05 Şubat 2012 01:14
Telnet/Ssh Yardimi	eMuLe	Servisler	2	11 Nisan 2006 00:09
Bot Yardimi	Deniz	mIRC Scripting Sorunları	1	08 Kasım 2005 18:29
Kod Yardimi pLease	LaGoodLife	mIRC Scripting Sorunları	2	23 Ağustos 2005 21:09

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.