Güncel Online % de Sorun - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

R3dLine · 07 Ekim 2015, 13:08

elimde Boyle bi kod var % de bolu hep %0 Gozukuyor Sorun nerde acaba

on *:text:!online*:#IRCD-Protection:{
if ($chan == #IRCD-Protection && $nick !isop $chan && $1 == !onlinetoplam) { return }
set %hbotkanal $chan
set -u10 %onlineacik on
if ($1 == !online) {
unset %toponl %dngrls %kckztur
msg %hbotkanal > Hatalar Giderildi..
}
var %nk = $strip($2)
if ($regex($1,/^!online(ekle|sil|bak)/i)) {
var %es = $regml(1)
if ($2 == $null) {
msg # $iif(%es == ekle,Eklenecek,$iif(%es == sil,Silinecek,Bakılacak)) nicki $+(",,!online,%es) nick" şeklinde yaz.
return
}
if (%es == ekle) {
if ($2 == $me) { return }
if $read($yt,w,$+(%nk,.,*)) {
msg # $+(,%nk,) online listesine eklenemez. 4[ Daha önceden eklenmis 4]
return
}
else {
set %eklnck $nick
ns info %nk
return
}
}
if (%es == sil) {
if !$read($yt,w,$+(%nk,.,*)) {
msg # $+(,%nk,) online listesinden silinemez. 4[ Listede mevcut degil 4]
return
}
else {
write $+(-dw,%nk,.,*) $yt
msg # $+(,%nk,) online listesinden silindi.
return
}
}
if (%es == bak) {
if !$read($yt,w,$+(%nk,.,*)) {
msg # $+(,%nk,) online süresine bakilamaz. 4[ Listede mevcut degil 4]
return
}
else {
ns info %nk
return
}
}
}
if ($1 == !onlineliste) {
if ($lines($yt) == 0) { msg # Online listesine henüz kimse eklenmemis | return }
else {
var %i = 1
msg # 14[Online Liste]
msg # 2__3__4__9__6__10__
while (%i <= $lines($yt)) {
msg # 5> $gettok($read($yt,%i),1,46)
inc %i
}
msg # 2__3__4__9__6__10__
msg # 2-> Listede toplam $+(,$lines($yt),) kişi bulunmakta.
}
}

if ($1 == !onlinereset && $nick(#,$nick,~)) {
if ($2) {
msg # Tüm online listesini temizlerken nick belirtmeniz gerekmez, tek bir nicki silecekseniz "!onlinesil nick" komutunu kullanin.
return
}
if !$isfile($yt) { msg # Online listesi daha onceden temizlenmis. | return }
write -c $yt
msg # Online listesi temizlendi.
}
if ($1 == !onlinehelp) {
msg # Online Komut Yardımı:!online2(ekle2|sil2|bak2|liste2 |toplam2|reset2|bilgi2) Nick
}
if ($1 == !onlinebilgi) {
msg # 2__3__4__9__6__10__
msg # Nickleri online iken eklemeyin.
msg # Periyot, nickin eklendiginden kontrolune gecen zaman dilimidir.
msg # Ort.Gün.Onl.Süre'si nickin günlük ortalama online süresidir.
msg # Sabirli olun, dogru sekilde kullanin.
msg # GeyikTR_Online_System.v1.00 developed by Avaiable
msg # 2__3__4__9__6__10__

}
if ($1 == !onlinetoplam) {
if ($lines($yt) == 0) { msg # Online listesine henüz kimse eklenmemis. | return }
set %toponl OK
unset %myuzde
msg %hbotkanal Bekleyin, bu biraz zaman alacak.
var %i = 1
set %kckztur $lines($yt)
while (%i <= $lines($yt)) {
ns info $gettok($read($yt,%i),1,46)
inc %i
}
}
}

alias hesapla {
msg %hbotkanal 2[Toplam Online Sure Grafik]
msg %hbotkanal 2---3---4---9---6---10---
var %j' = 1
var %string = $sorttok(%myuzde,32,nr)
while ($gettok(%string,%j',32)) {
var %yuzde = $gettok($v1,1,43)
var %nick = $gettok($v1,2,43)
var %grfk = $str(|,$calc(%yuzde / $2))
if (%yuzde isnum 0-10) {
msg %hbotkanal 1,1 %grfk 00 % $+ %yuzde 14 %nick
goto de
}
if (%yuzde isnum 10-15) {
msg %hbotkanal 5,5 %grfk 00 % $+ %yuzde 14 %nick
goto de
}
if (%yuzde isnum 15-20) {
msg %hbotkanal 7,7 %grfk 00 % $+ %yuzde 14 %nick
goto de
}
if (%yuzde isnum 20-30) {
msg %hbotkanal 8,8 %grfk 00 % $+ %yuzde 14 %nick
goto de
}
if (%yuzde > 30) {
msg %hbotkanal 3,3 %grfk 00 % $+ %yuzde 14 %nick
}
:de
inc %j'
}
msg %hbotkanal 2---3---4---9---6---10---
msg %hbotkanal 1,1||00ZAYIF 5,5||ORTA 7,7||NORMAL 8,8||IYI 3,3||SUPER
}

on *:notice:*:*:{
if (%onlineacik) {
if ($nick == nickserv) {
var %n = /(.+) (özel|kayitli) bir nick(tir|\S degil)?/i
if ($regex($strip($1-),%n)) {
msg %hbotkanal $1 online listesine eklenemez. 4[ $iif($2 == özel,Özel,Kayıtsız) Nick 4]
}
elseif (* isim: * iswm $1-) { set %onick $1 }
elseif (*Toplam*Online* iswm $1-) {
var %osure = $calc($replace($strip($4-),gün,* 86400,saat,* 3600,dakika,* 60,saniye,* 1,$chr(44),$+($chr(32),+),ve,+))
var %period = $calc($ctime - $gettok($read($yt,w,$+(%onick,.,*)),3,46))
var %onlsure = $calc(%osure - $gettok($read($yt,w,$+(%onick,.,*)),2,46))
if (%toponl) {
;msg %hbotkanal $+(2,%onick,:,) $zcvr($duration(%onlsure))
set %myuzde %myuzde $floor($calc((%onlsure / %period) * 100)) $+ + $+ %onick
inc %dngrls
if (%kckztur == %dngrls) {
hesapla
unset %toponl %kckztur %dngrls
return
}
return
}
if (!$read($yt,w,$+(%onick,.,*))) {
write $yt $+(%onick,.,%osure,.,$ctime,.,$time(dd.mm.yyyy),., %eklnck)
filter -ctff 1 1 $yt $yt
msg %hbotkanal $+(,%onick,) online listesine eklendi.
}
else {
msg %hbotkanal 2__3__4__9__6__10__
msg %hbotkanal 2Nick: %onick
msg %hbotkanal 2Online Süresi: $zcvr($duration(%onlsure))
msg %hbotkanal 2Periyot: $zcvr($duration(%period))
msg %hbotkanal 2Ekleyen: $gettok($read($yt,w,$+(%onick,.,*)),7,46)
msg %hbotkanal 2Eklenme Tarihi: $gettok($read($yt,w,$+(%onick,.,*)),4-6,46)
msg %hbotkanal 2Online Yüzdesi: $floor($calc((%onlsure / %period) * 100))
msg %hbotkanal 2Ort.Gün.Onl.Süre: $round($calc($round($calc(%onlsure / 3600),2) / $ceil($calc(%period / 86400))),1) saat
msg %hbotkanal 2__3__4__9__6__10__
}
}
}
}
}

alias -l yt return onlineread.txt
alias -l zcvr return $replace($1-,secs,sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,da ys,gün,day,gün,wks,hafta,wk,hafta)

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
xLine online web System Sorun..	KaraSah	Eggdrop, NeoStats, BNC	2	07 Ağustos 2009 20:16

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

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.