Çevrimdışı

Öncelikle hepinize iyi akşamlar dilerim, forumda araştırma yaptım fakat aradığım sonuca ulaşamadım. Aradığım ircservices için online takip sistemi, örnek olarak myneti gösterebilirim. Bu bot

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

#myops

odasında bulunuyor ve giriş çıkışları kayıt ediyor

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

#onlinetakip

kanalında da

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

!stats nick tarih

biçiminde yazdığınız zaman myops'da bulunun kişilerin online durumunu söylüyor;
-

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

<%Aliveli4950> !stats MJR 19/06/2010
<@OnLineTakip> -- MJR Nicki Icin 19/06/2010 Tarihli Takip Listesi --
<@OnLineTakip> 02:08:59=Sunucudan Ayrildi. (Quit)
<@OnLineTakip> 12:57:08=Kanala Giris Yapti.
<@OnLineTakip> 13:04:37=Kanaldan Ayrildi.
<@OnLineTakip> 13:04:43=Kanala Giris Yapti.
<@OnLineTakip> 14:51:31=Kanaldan Ayrildi.
<@OnLineTakip> 16:03:09=Kanala Giris Yapti.
<@OnLineTakip> 18:26:24=Kanaldan Ayrildi.
<@OnLineTakip> 19:53:39=Kanala Giris Yapti.
<@OnLineTakip> 20:33:32=Sunucudan Ayrildi. (Quit)
<@OnLineTakip> 20:49:00=Kanala Giris Yapti.
<@OnLineTakip> TOPLAMONLINE=9Saat 31Dakika 42Saniye

-
-
Bu şekilde, eğer forumda böyle bir paylaşım var ise sizden link rica ediyorum ben bulamadım, yoksa, aranızda bu sistemin(botun) socket veya eggdropun TCL'si var ise paylaşmanızı istiyorum.
-
Hayırlı IF'ler

 

Çevrimdışı

on *:text:*:#yönetim: {
if ($1 == !ekle) { if (!$2) { return }
if ($2 == $me) { .msg # 5Beni takip listesine alamazsın $nick $+
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| return }
if ($ini(takip.ini,$2)) { .msg # 4 $+ $2  5nicki zaten listede ekli durumda. | return }
else {
writeini -n takip.ini $2 Pazartesi 0
writeini -n takip.ini $2 Salı 0
writeini -n takip.ini $2 Çarşamba 0
writeini -n takip.ini $2 Perşembe 0
writeini -n takip.ini $2 Cuma 0
writeini -n takip.ini $2 Cumartesi 0
writeini -n takip.ini $2 Pazar 0
.auser takip $2
.msg # 4 $+ $2  5nicki online listesine eklenmiştir.
if ($2 ison #yönetim) { $+(.timertakip,$2) 0 1 inc -e $+(%,$2) }
}
}
if ($1 == !sil) {
if (!$2) { return }
if (!$ini(takip.ini,$2)) { .msg # 4 $2  5Listede ekli değil | return }
else { .remini takip.ini $2 | .ruser takip $2 | .msg # $2 Listeden silindi.
if $+($timertakip,($2)) { $+(timertakip,$2) off | unset $+(%,$2) }
}
}
if ($1 == !onlines) {
if (!$2) { return }
if (!$ini(takip.ini,$2)) { .msg # 4 $2  5 Listede ekli değil | return }
kayit $2
.msg # 7 $str(-,10) 4 $2  5nicki için takip listesi 7 $str(-,10)
.play $+(-t,$2) # takip.ini 100
$+(.timerlist,$2) 1 1 .msg # 7 $str(-,10) 5Listenin sonu 7 $str(-,10)
}
}
on takip:join:#yönetim: { $+(.timertakip,$nick) 0 1 inc -e $+(%,$nick) }
on takip:part:#yönetim:{ if $+($timertakip,($nick)) { $+(.timertakip,$nick) off | kayit $nick } }
on takip:quit: { if $+($timertakip,($nick)) { $+(timertakip,$nick) off | kayit $nick } }
alias kayit { .remini takip.ini $1 $gün | writeini -n takip.ini $1 $gün $replace($duration($($+(%,$1),2)),mins,Dakika,hrs, Saat,secs,Saniye,min,Dakika,hr,Saat,sec,Saniye,day ,Gün,days,Gün) }
alias gün { return $replace($asctime($ctime,dddd),monday,Pazartesi,su nday,Pazar,wednesday,Çarşamba,friday,Cuma,saturday ,Cumartesi,tuesday,Salı,thursday,Perşembe) }


Boyle bi Kod Var

!ekle DaDaS
!sil DaDaS
!onlines DaDaS
şeklinede calısıyor kardesım Bılmem İŞİNİ GORURMU

[21:58] <DaDaS> !ekle PoLaTT
[21:58] <@KoRuMa> PoLaTT nicki online listesine eklenmiştir.
[21:58] <DaDaS> !onlines PoLaTT
[21:58] <@KoRuMa> ---------- PoLaTT nicki için takip listesi ----------
[21:58] <@KoRuMa> Pazartesi=0
[21:58] <@KoRuMa> Salı=0
[21:58] <@KoRuMa> Çarşamba=0
[21:58] <@KoRuMa> Perşembe=0
[21:58] <@KoRuMa> Cuma=0
[21:58] <@KoRuMa> Pazar=0
[21:58] <@KoRuMa> Cumartesi=10Saniye
[21:58] <@KoRuMa> ---------- Listenin sonu ----------

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
google_ad_section_end -->

 

Çevrimdışı

Teşekkürler, onlinetakip.txt 'in içine kodları attım ve dosya konumuna ekledim;
-

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

[22:25:18] «12@MaJoR» !ekle Sempatik
[22:25:18] «4%Aday» 4Sempatik  5nicki online listesine eklenmiştir.
[22:25:22] «12@MaJoR» !onlines Sempatik
[22:25:24] «12@MaJoR» !sil Sempatik
[22:25:24] «4%Aday» Sempatik Listeden silindi.

-
Ekle ve sil komutu verimli çalışıyor lakin !onlines komutunda

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

* /writeini: Yetersiz veya eksik parametre (Satır 37, onlinetakip.txt)

-
böyle bir hata veriyor, yardımcı olabilir misiniz.

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #yönetim yazan kısımı degıstırmen lazım ornegın #ops kanalında kullanacaksan #yönetim kanalı yazan yerlerı koddan sıl ıstedıgın kanalı ekle calısmasıda

!ekle DaDaS
!sil DaDaS
!onlines DaDaS
şeklinede calısıyor kardesım Bılmem İŞİNİ GORURMU

[21:58] <DaDaS> !ekle PoLaTT
[21:58] <@KoRuMa> PoLaTT nicki online listesine eklenmiştir.
[21:58] <DaDaS> !onlines PoLaTT
[21:58] <@KoRuMa> ---------- PoLaTT nicki için takip listesi ----------
[21:58] <@KoRuMa> Pazartesi=0
[21:58] <@KoRuMa> Salı=0
[21:58] <@KoRuMa> Çarşamba=0
[21:58] <@KoRuMa> Perşembe=0
[21:58] <@KoRuMa> Cuma=0
[21:58] <@KoRuMa> Pazar=0
[21:58] <@KoRuMa> Cumartesi=10Saniye
[21:58] <@KoRuMa> ---------- Listenin sonu ----------

bu sekılde kanal yerını ıstedıgın kanalı ekle o kanalda uygula komutları kodda sorun yok.

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
google_ad_section_end -->

 

Çevrimdışı

MaJoR ;

Senin istemiş olduğun kod, Raiden'inin Myopsları takip etmek için hazırladığı ve kimsede olmayan bir koddur. Onun yerine değişik kodları bulabilirsin mIRC Scripting bölümünde, online takip sistemiyle alakalı olarak.

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.

 

Çevrimdışı

Aradım ama bulamadım link varsa verebilir misiniz ?

 

Çevrimdışı

onlinetakip.txt boyle bır dosya yapmana gerek yok sadece mircinde atlt +r yap remote yap yedı dosya ıcıne vermıs oldugum kodu ekle tmmdır hangı kanlda kı nıcklerı takıbe alıcaksan o kanal ısmını koda yaz mırcınde !onlines nick yazdıgında cıkar !ekle nıck yazdıgında zaten mırc ana dosyalarının oldugu yerde puan.txt dıye dosya acıyor.

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
google_ad_section_end -->

 

Çevrimdışı

amacına ulasmısta nasıl ulasmıs soylesenız yada paylassanız bıde ogrensek ..

 

Çevrimdışı

Teşekkürler arkadaşlar, peki elinizde TCL'si var mı? Socket bot olunca ister istemez bağlantı kesiliyor, ping timeout olunuyor. Eggdrop'a entegre edersem daha verimli olur diye düşünüyorum.

- Bu konuda bilgisi olan varsa lütfen bana bildirsin.(Ücretli/ücretsiz paylaşabilcek olan benimle iletişime geçsin)

 

Çevrimdışı

Alıntı:

on *:text:*:#yönetim: { if ($1 == !ekle) { if (!$2) { return } if ($2 == $me) { .msg # 5Beni takip listesine alamazsın $nick $+ | return } if ($ini(takip.ini,$2)) { .msg # 4 $+ $2  5nicki zaten listede ekli durumda. | return } else { writeini -n takip.ini $2 Pazartesi 0 writeini -n takip.ini $2 Salı 0 writeini -n takip.ini $2 Çarşamba 0 writeini -n takip.ini $2 Perşembe 0 writeini -n takip.ini $2 Cuma 0 writeini -n takip.ini $2 Cumartesi 0 writeini -n takip.ini $2 Pazar 0 .auser takip $2 .msg # 4 $+ $2  5nicki online listesine eklenmiştir. if ($2 ison #yönetim) { $+(.timertakip,$2) 0 1 inc -e $+(%,$2) } } } if ($1 == !sil) { if (!$2) { return } if (!$ini(takip.ini,$2)) { .msg # 4 $2  5Listede ekli değil | return } else { .remini takip.ini $2 | .ruser takip $2 | .msg # $2 Listeden silindi. if $+($timertakip,($2)) { $+(timertakip,$2) off | unset $+(%,$2) } } } if ($1 == !onlines) { if (!$2) { return } if (!$ini(takip.ini,$2)) { .msg # 4 $2  5 Listede ekli değil | return } kayit $2 .msg # 7 $str(-,10) 4 $2  5nicki için takip listesi 7 $str(-,10) .play $+(-t,$2) # takip.ini 100 $+(.timerlist,$2) 1 1 .msg # 7 $str(-,10) 5Listenin sonu 7 $str(-,10) } } on takip:join:#yönetim: { $+(.timertakip,$nick) 0 1 inc -e $+(%,$nick) } on takip:part:#yönetim:{ if $+($timertakip,($nick)) { $+(.timertakip,$nick) off | kayit $nick } } on takip:quit: { if $+($timertakip,($nick)) { $+(timertakip,$nick) off | kayit $nick } } alias kayit { .remini takip.ini $1 $gün | writeini -n takip.ini $1 $gün $replace($duration($($+(%,$1),2)),mins,Dakika,hrs, Saat,secs,Saniye,min,Dakika,hr,Saat,sec,Saniye,day ,Gün,days,Gün) } alias gün { return $replace($asctime($ctime,dddd),monday,Pazartesi,su nday,Pazar,wednesday,Çarşamba,friday,Cuma,saturday ,Cumartesi,tuesday,Salı,thursday,Perşembe) }

* 'C:\mIRC\online.txt' Remotesi Yüklendi
-
* /writeini: Yetersiz veya eksik parametre (Satır 37, online.txt)
-
* /writeini: Yetersiz veya eksik parametre (Satır 37, online.txt)
-
* /writeini: Yetersiz veya eksik parametre (Satır 37, online.txt)

Kod bir çalışıp bir çalışmamakta. Kafasına göre bazen gösteriyor bazen göstermiyor. Sorun nerede acaba ?

EK OLARAK

[14:49:57] <~BiTTuRK> ---------- helloween nicki için takip listesi ----------
[14:49:57] <~BiTTuRK> Salı=0
[14:49:57] <~BiTTuRK> Çarşamba=0
[14:49:57] <~BiTTuRK> Perşembe=0
[14:49:57] <~BiTTuRK> Cuma=0
[14:49:57] <~BiTTuRK> Cumartesi=0
[14:49:57] <~BiTTuRK> Pazar=0
[14:49:57] <~BiTTuRK> Pazartesi=3Saniye

Pazartesi alt kısımda . Pazartesiyi üst kısımda 1. gün yapamazmıyız ?

Sanırım botun çalıştığı sunucu ile ilgili bir problem. Windows 2008 rc2 serverlarda windows saatini değiştiremiyorum ve 1 yıl geriden geliyor 09.09.2011 . Sistem saatini değiştirme şansımız olmadığı için pazartesi alt kısımda çıkıyor. Nasıl düzenleyip pazartesiyi üst kısımda gösterebiliriz ?