| Zadrich | 21 Mart 2020 19:53 |
Help BOT'unuz için Online İstatistik Kodu İsterseniz.
Kod:
alias online {
if $read(kayit.txt,w,$+(*,$1,*)) && !$istok(%omuaf,$1,32) {
write $+(-,l,$readn) kayit.txt $1 $calc($token($read(kayit.txt,$readn),2,32) + 1) saniye gorev yapmistir. %ot. [ $+ [ $1 ] ] }
else {
.set %ot. [ $+ [ $1 ] ] $date
write kayit.txt $1 1 saniye gorev yapmistir. %ot. [ $+ [ $1 ] ]
}
else { timer $+ $1 off }
}
on *:join:#help:{
if ($nick == $me) {
timerTT 1 5 .ck #help
}
}
alias ck {
.set %c.t $calc($nick($1,0,o) + $nick($1,0,h) - 1)
msg #helpteam #Help kanalinda aktif gorunen %c.t gorevlinin online kaydi aliniyor..
while (%c.t > 0) {
if ($nick($1,%c.t) != $me) {
if !$istok(%omuaf,$nick($1,%c.t),32) {
timer $+ $nick($1,%c.t) 0 1 online $nick($1,%c.t)
msg #helpteam $nick($1,%c.t) : Online süreniz kayda alinmaya baslandi.
}
}
dec %c.t
}
}
alias hot {
.unset %hot
var %b.lines $lines(kayit.txt)
while (%b.lines > 0) {
.set %hot $calc(%hot + $gettok($read(kayit.txt,%b.lines),2,32))
dec %b.lines
}
return %hot
}
alias hotyuzde {
.set %yuzde $chr(37) $+ $calc($1 * 100 / $hot)
.return $left(%yuzde,5)
}
on *:rawmode:#Help:{
if +o == $1 && $istok(%omuaf,$2,32) == $false {
/timer $+ $2 0 1 /online $2
}
if +h == $1 && $istok(%omuaf,$2,32) == $false {
/timer $+ $2 0 1 /online $2
}
if +oa == $1 && $istok(%omuaf,$2,32) == $false {
/timer $+ $2 0 1 /online $2
}
if +oq == $1 && $istok(%omuaf,$2,32) == $false {
/timer $+ $2 0 1 /online $2
}
if -o == $1 || $istok(%omuaf,$2,32) == $true {
/timer $+ $2 off
}
if -oa == $1 || $istok(%omuaf,$2,32) == $true {
/timer $+ $2 off
}
if -h == $1 || $istok(%omuaf,$2,32) == $true {
/timer $+ $2 off
}
}
on *:part:#Help:{ /timer $+ $nick off }
on *:quit:{ /timer $+ $nick off }
on *:text:*:#Helpteam:{
if $nick isop #helpteam {
if (!online iswm $1) {
if (!$2) { msg $chan Yanlis kullanim !online rumuz seklinde kullaniniz. }
elseif (!$read(kayit.txt,w,$+(*,$2,*))) { /msg $chan $2 rumuzu veritabaninda bulunmamaktadir. }
else {
.set %ba $read(kayit.txt,w,$+(*,$2,*)))
msg $chan -[4Nick]1 $gettok(%ba,1,32 ) [4Online Süresi]2 $replace($duration($($+($gettok(%ba,2,32 )),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,secs, $chr(32) Saniye,min,dakika,hr,Saat,sec,saniye)
}
}
if (!olist iswm $1) {
if $nick isop #helpteam {
msg $chan 4 ( $+ $lines(kayit.txt) $+ )2 Tane Kayitli 4İRC-Helper Bulunmakta..
msg $chan 1 Tek Helper için denemek isterseniz:4 !Online Rumuz 1yaziniz.
msg $chan -
msg $chan -#Help 2Kanalı Online istatistik bilgileri..
msg $chan -
var %ok 1
while (%ok <= $lines(kayit.txt)) {
;msg $me $read(kayit.txt,%ok)
msg $chan -[4Nick]1 $gettok($read(kayit.txt,%ok),1,32 ) [4Online Süresi] 2 $replace($duration($($+($gettok($read(kayit.txt,%ok),2,32 )),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,secs, $chr(32) Saniye,min,dakika,hr,Saat,sec,saniye)
:msg $chan -[4Nick] $gettok($read(kayit.txt,%ok),1,32 ) [4Online süresi][4Saat:Dakika:Saniye] $+ 2 $duration($($+($gettok($read(kayit.txt,%ok),2,32 )),2),3)
inc %ok
}
}
}
if (!osil iswm $1) {
if $nick isop #helpteam {
if !$2 { msg $chan Yanlis kullanim !osil nick seklinde kullaniniz. }
elseif (!$read(kayit.txt,w,$+(*,$2,*))) { /msg $chan $2 rumuzu veritabaninda bulunmamaktadir. }
elseif ($read(kayit.txt,w,$+(*,$2,*)) != $null) {
write -dl $+ $readn kayit.txt
.msg $chan $2 rumuzu veritabanindan silindi.
timer $+ $2 off
}
}
}
}
if !osıfırla iswm $1 {
if $nick isop #helpteam {
/msg $chan Online veritabanini sifirlamak istediginizden emin misiniz?
/msg $chan Sifirlamayi onaylamak icin !Oevet
/msg $chan Sifirlama islemini iptal etmek icin !Ohayir
}
else {
/msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
}
}
if !oevet iswm $1 {
if $nick isop #helpteam {
/remove kayit.txt
/msg $chan Online veritabani basari ile sifirlandi $nick
}
else {
/msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
}
}
if !ohayir iswm $1 {
if $nick isop #helpteam {
/msg $chan Online veritabani sifirlanma islemi durduruldu.
}
else {
/msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
}
}
if $1 == !omuaf { .set %omuaf $addtok(%omuaf,$2,32) | msg $chan O-Muaf: %omuaf }
if $1 == !omuafsil { .set %omuaf $remove(%omuaf, $2 ) | msg $chan O-Muaf: %omuaf }
}
on *:text:*:?:{
if $nick == $me {
if *saniye* iswm $1- {
/msg #Helpteam 4,1[0 $2 4 $replace($duration($($+($3),2)),mins, $chr(32) 0dakika,hrs, $chr(32) saat,secs, $chr(32) 0Saniye,min,dakika,hr,Saat,sec,saniye) 0gorev yapmistir.4]
}
}
}
- Açıklama:
Bu Kod ile Helper'inizin online istatistik verilerini kayıt edebilir ve listeliye bilirsiniz veya muaf ekliyebilirsiniz.
- Kullanımı: !online nick = Tek Bir Helper'in Online Süresine Bakmak için !olist = Bütün Helper'lerin Online Sürelerine Bakmak için !osil nick = Tek Bir Helper'in Online Süresini Silmek için !osıfırla = Bütün Helper'lerin Online Süresini Silmek için !oevet = Bütün Online Sürelerini Silme Onayını Kabul etmek için !ohayir = Bütün Online Sürelerini Silme Onayını Reddet etmek için !omuaf nick = Belirleriniğiniz Helper'i Online Süresinden Muaf tutmak için !omuafsil nick = Belirlediğiniz Helper'in Online Süresinin Muaf'iyetini kaldırmak için
-
Kendinize Göre Uyarlamayı, Unutmayınız.
-
Klavyeniz den Alt + R Tuşlarına Basarak Acılan Pencere de REMOTE Kısmına Basıyoruz
Ardından DOSYA Kısmına Basarak Yeni Bir Sayfa acarak içine atıyoruz ve kapatıyoruz |
