mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
21 Mart 2020, 19:53 | #1 |
Help BOT'unuz için Online İstatistik Kodu İsterseniz.
Kodalias 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
________________
[Z] ~ [This is the way, let them come] ~ Zaman, onun bile bir gün sonu gelecek.. |
|
|
22 Ağustos 2020, 00:41 | #2 |
Emeğinize sağlık paylaşım için teşekkürler
________________
~ E & B ~ |
|
|
22 Ağustos 2020, 00:49 | #3 |
Hiç Anlamiyorum Su Kodlamalaradan Emeğinize Sağlik. . .
|
|
|
22 Ağustos 2020, 00:56 | #4 |
emeginize saglik
________________
Hope. . . ✨
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|