Kod

alias -l hbotkanal return #DJYONETİMKANALI
on *:text:!online*:#DJYONETİMKANALI:{
set -eu5 %hbotkanal $chan
set -eu10 %onlineacik on
if ($1 == !online) {
unset %toponl %dngrls %kckztur
}
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ınız.
return
}
if (%es == ekle) {
if ($2 == $me) { return }
if $read($yt,w,$+(%nk,.,*)) {
msg # $+(,%nk,) 4DJ 1online listesine eklenemez. 4[ Daha önceden eklenmiş. 4]
return
}
else {
set %eklnck $nick
ns info %nk
return
}
}
if (%es == sil) {
if !$read($yt,w,$+(%nk,.,*)) {
msg # $+(,%nk,) 4DJ 1online listesinden silinemez. 4[ Listede mevcut değil. 4]
return
}
else {
write $+(-dw,%nk,.,*) $yt
msg # $+(,%nk,) 4DJ 1online listesinden silindi.
return
}
}
if (%es == bak) {
if !$read($yt,w,$+(%nk,.,*)) {
msg # $+(,%nk,) 4DJ 1online süresine bakılamaz. 4[ Listede mevcut değil. 4]
return
}
else {
ns info %nk
return
}
}
}
if ($1 == !onlineliste) {
if ($lines($yt) == 0) { msg # 4DJ 1Online listesine henüz kimse eklenmemiş. | 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-> Takibimde $+(,$lines($yt),) adet 4 DJ 1 bulunmaktadır.
}
}
if ($1 == !onlinereset && $nick(#,$nick)) {
if ($2) {
msg # Tüm 4DJ 1online listesini temizlerken nick belirtmeniz gerekmez, tek bir nicki silecekseniz "!onlinesil nick" komutunu kullanin.
return
}
if !$isfile($yt) { msg # 4DJ 1Online listesi daha önceden temizlenmiş. | return }
write -c $yt
msg # 4DJ 1Online listesi temizlendi.
}
if ($1 == !onlinehelp) {
msg # Online Komut Yardımı:
msg # 1Online takibi listesine 4 DJ 1 eklemek için ;2!onlineekle Nick
msg # 1Online takibi listesinden 4 DJ 1 silmek için 2!onlinesil Nick (Sadece Founder kullanabilir.)
msg # 1Nick'in online süresi tablosuna bakmak için ; 2!onlinebak Nick
msg # 1Listedeki tüm 4 DJ 1lerin listesine bakmak için ;2!onlineliste
msg # 1Toplam online bilgisi için ; 2!onlinetoplam
msg # 1Online sürelerini sıfırlamak için ; 2!onlinereset 1(Sadece Founder kullanabilir.)
msg # 1 DJ online botu hakkında bilgi detay öğrenmek için ; 2!onlinebilgi
msg # 4Komutlarını # kanalı geneline yazınız.
}
if ($1 == !onlinebilgi) {
msg # 2 BİLGİ :
msg # 4 1-)1Takip listesine alınacak 4 DJ 1 in ilk önce Dj takısı alındıktan sonraki nick'ini 4 Link 1 yada 4Register 1 komutu uygulaması gerekmektedir.
msg # 4 2-)1Periyot, nickin eklendigi saatten itibaren geçen zaman dilimidir.
msg # 4 3-)1Ort.Gün.Onl.Süre'si nickin günlük ortalama online süresidir.
msg # 4 4-)1İçeriğin okutması ve kanala yansıması biraz zaman alabilir , lütfen bekleyin ard ard'a kod'u işlem'e almayın.
msg # 4 5-)1Nick'inizi Linklemek için 2 /Ns Link Dj-Nick'iniz 1 şeklinde linkleyebilirsiniz.
msg # 4 5-)4NOT: 6 Dj takısı alan arkadaşların 12 Private 6 seçeneği kapalı olmak zorundadır.
}
if ($1 == !onlinetoplam) {
if ($lines($yt) == 0) { msg # 4DJ 1Online listesine henüz kimse eklenmemiş. | return }
set %toponl OK
unset %myuzde
msg $chan Listede olan tüm 4 DJ 1 lerin online süreleri yüzdeleri ile veriliyor..
var %i = 1
set %kckztur $lines($yt)
while (%i <= $lines($yt)) {
ns info $gettok($read($yt,%i),1,46)
inc %i
}
}
}
alias -l hesapla {
msg %hbotkanal 1[Toplam 4 DJ 1 Online Süre İstatistiği]
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-1) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 1-2) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal 0-
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 2-3) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 3-4) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 4-5) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 5-6) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 6-7) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 7-8) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 8-9) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 9-10) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 10-11) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 11-12) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal 0-
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 12-13) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 13-14) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal 0-
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 14-15) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal 0-
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 15-20) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 20-25) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 30-35) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 40-45) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 50-55) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 60-65) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 70-75) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 80-85) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 90-95) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
if (%yuzde isnum 100) {
msg %hbotkanal 4 DJ Nick'i ~14 %nick 4 ~
msg %hbotkanal İSTATİSTİK YÜZDESİ : 6 %grfk 1 % $+ %yuzde
msg %hbotkanal 0-
goto de
}
:de
inc %j'
}
.timer 1 5 msg %hbotkanal 4 % 1 0-15 aralığındaki 4 DJ 1 ler minimum yayın alanlardır , biraz daha gayret edin 4YAYIN 1 online sürenizi arttırın. :) +v
.timer 1 7 msg %hbotkanal 4 % 1 5-50 aralığındaki 4 DJ 1 ler orta düzeyde yayın alanlardır , ha gayret kanalın popüler 4 DJ 1 i olmanıza az kaldı. :) +h
.timer 1 9 msg %hbotkanal 4 % 1 50-75 aralığındaki 4 DJ 1 ler üst düzey yayın alanlardır , Kanallar'da karşılama mesajı hediyesi verilecektir. +o
.timer 1 11 msg %hbotkanal 4 % 1 75-100 aralığındaki 4 DJ 1 ler süper yayıncı statüsündedir , unutmayın süper yayıncılara çeşitli hediyelerimiz olacak. :) +a
.timer 1 13 msg %hbotkanal 4 HEDİYELER : 1 Özel Host , Özel Karşılama mesajı , Gold Üyelik veya 1 aylık 4 IRCOPER 1 olarak adminlik verilecektir.
}
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 4 DJ 1online listesine eklenemez. 4[ $iif($2 == özel,Özel,Kayıtsız) Nick 4]
}
elseif (* isim: * iswm $1-) { set %onick $1 }
elseif (*Toplam Online Süresi* 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 BİLGİ :
msg %hbotkanal 2Nick: %onick
msg %hbotkanal 2Toplam Online Süresi: $round($calc(%onlsure /3600),1) saat
msg %hbotkanal 2Periyot: $round($calc(%period /3600),1) saat
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 4 NOT : 1 24 saat üzerinden baz alınarak güncelleme yapılır ve tabloya o şekilde eklenir , 1Zaman dilimi 4 00:00 1' da güncellenip genel tabloya eklenir.
}
}
}
}
}
alias yt return onlineread.txt
alias zcvr return $replace($1-,secs,sn,mins,dk,min,dk,sec,sn,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)