IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Online Takip Sistemi (https://www.ircforumlari.net/mirc-scripting-sorunlari/340517-online-takip-sistemi.html)

MaJoR 19 Haziran 2010 21:20

Online Takip Sistemi
 
Ö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:

#myops
odasında bulunuyor ve giriş çıkışları kayıt ediyor
Kod:

#onlinetakip
kanalında da
Kod:

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

<%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

DaDaS 19 Haziran 2010 21:58

Cevap: Online Takip Sistemi
 
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) }


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 ----------

MaJoR 19 Haziran 2010 22:05

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

[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:

* /writeini: Yetersiz veya eksik parametre (Satır 37, onlinetakip.txt)
-
böyle bir hata veriyor, yardımcı olabilir misiniz.

DaDaS 19 Haziran 2010 22:16

Cevap: Online Takip Sistemi
 
[Ü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.

Lucifer 19 Haziran 2010 22:23

Cevap: Online Takip Sistemi
 
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.

MaJoR 19 Haziran 2010 22:30

Cevap: Online Takip Sistemi
 
Aradım ama bulamadım link varsa verebilir misiniz ?

DaDaS 19 Haziran 2010 22:40

Cevap: Online Takip Sistemi
 
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.

biss_126 07 Temmuz 2010 11:37

Cevap: Online Takip Sistemi
 
amacına ulasmısta nasıl ulasmıs soylesenız yada paylassanız bıde ogrensek ..

MaJoR 19 Ekim 2010 21:18

Cevap: Online Takip Sistemi
 
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)

kheldor 09 Eylül 2012 16:08

Cevap: Online Takip Sistemi
 
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 ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:04.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk