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/)
-   -   Kimin Ne Kadar Ban Attigi Bilgisi (https://www.ircforumlari.net/mirc-scripting-sorunlari/31799-kimin-ne-kadar-ban-attigi-bilgisi.html)

SaintCty 18 Mayıs 2007 16:14

Kimin Ne Kadar Ban Attigi Bilgisi
 
el33t ustamın bu konuda bir kodesi var ama calışmıyor kod şu:

on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),%;) { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | return $iif(%:,Ban listesi durumu[Ban atan:ban sayısı]> %:,$1 kanalında ban atan yok.) } }
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }



şimdi benim ricam mesela #izmir kanalındaki opları sopların yani operraörlerin attıgı banları #izmirop kanalında ben master olmam şartıyla
tabi !badrapor yazdıgımda adnonu yükledigim botumun kanal genelinde hangi nick onlinen oldugu süreyle birlikte attıgı ban sayısının cıkması örnek

[16:08] <benimnick> !badkontrol
[16:08] <botum> ahmet 2saat 10 dakkadır online attıgı ban sayısı:6
[16:08] <botum> mehmet 20 dakkadır onlinen attıgı ban sayısı:13
[16:08] <botum> nazlı 1 saat 5 dakkadır onlien attıgı ban sayısı:30


yani böyle bir kod ben uzun zamandır ircdeyim ama adnonlara yeni merak sardım inşalla siz degerli ustalarım sayesinde ögrenecem yardım ederseniz memnun olurum ilgilerinize ve emeklerinize tşkler.not (acemi oldugum için detaylı anlatırsanız mümkünse sagolun)

CipriX 18 Mayıs 2007 19:07

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
raw 317:*:{
.set %baglantisaat $remove($calc($gettok($asctime($4,HH:nn:ss),1,58) - $gettok($time,1,58)),-)
.set %baglantidakika $remove($calc($gettok($asctime($4,HH:nn:ss),2,58) - $gettok($time,2,58)),-)
.set %baglantisaniye $remove($calc($gettok($asctime($4,HH:nn:ss),3,58) - $gettok($time,3,58)),-)
}
on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),%;) { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | .whois $gettok(%:,1,58) | .set %nik $remove($gettok(%:,1,58),) | return $iif(%:,Ban listesi durumu> %nik %baglantisaat Saat %baglantidakika Dakika %baglantisaniye Saniyedir Online Attığı Ban: $gettok(%:,2,58),$1 kanalında ban atan yok.) } }
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }

el33t'in yazdığı kodun &#252;zerine ekledim eğer o &#231;alışıyorsa bu &#231;alışıyordur denedim tek 1 nick ile &#231;alışıyor 2 nicki denemedim sen dene bakalım

<CipriX> Ban listesi durumu> CipriX 0 Saat 14 Dakika 19 Saniyedir Online Attığı Ban: 3

SaintCty 18 Mayıs 2007 19:39

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
Alıntı:

CipriX Nickli Üyeden Alıntı
raw 317:*:{
.set %baglantisaat $remove($calc($gettok($asctime($4,HH:nn:ss),1,58) - $gettok($time,1,58)),-)
.set %baglantidakika $remove($calc($gettok($asctime($4,HH:nn:ss),2,58) - $gettok($time,2,58)),-)
.set %baglantisaniye $remove($calc($gettok($asctime($4,HH:nn:ss),3,58) - $gettok($time,3,58)),-)
}
on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),%;) { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | .whois $gettok(%:,1,58) | .set %nik $remove($gettok(%:,1,58),) | return $iif(%:,Ban listesi durumu> %nik %baglantisaat Saat %baglantidakika Dakika %baglantisaniye Saniyedir Online Attığı Ban: $gettok(%:,2,58),$1 kanalında ban atan yok.) } }
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }

el33t'in yazdığı kodun üzerine ekledim eğer o çalışıyorsa bu çalışıyordur denedim tek 1 nick ile çalışıyor 2 nicki denemedim sen dene bakalım

<CipriX> Ban listesi durumu> CipriX 0 Saat 14 Dakika 19 Saniyedir Online Attığı Ban: 3

ustam tşk ederim yanlız bana şunu izah edermisin
1 benim nickim ahmet diyelim tam olarak nerelere yazacam
2 #izmir kanalındaki banları saymasını ordaki operatörlerin attıkları ban ve online süreleri vermem için başka mesela bu kodu #izmirop kanalında uygulayacam #izmirop kanalının genelinde ahmet Ban List mi yazcam tarif ederseni
z tam olrak sizide yoruyorum kusuruma bakmayın İlgi ve yardımlarınız için tşk

ha bu arada ben nasıl uyguladım onuda söleyim
kodu aldım
alt+r ile remoteye attım ve üstünde şöle kanal ve isim degiştim ü
yanlışım nerde

raw 317:*:{
.set %baglantisaat $remove($calc($gettok($asctime($4,HH:nn:ss),1,58) - $gettok($time,1,58)),-)
.set %baglantidakika $remove($calc($gettok($asctime($4,HH:nn:ss),2,58) - $gettok($time,2,58)),-)
.set %baglantisaniye $remove($calc($gettok($asctime($4,HH:nn:ss),3,58) - $gettok($time,3,58)),-)
}
#hehe off
on *:ban:#izmir:{
inc $+(%,ban.,#,.,$nick)
.whois $nick
.write hehe.txt $nick %topla $+(%,baglantisaat,.,$nick) Saat $+(%,baglantidakika,.,$nick) Dakika $+(%,baglantisaniye,.,$nick) Kadar Online.. Attığı Ban Sayısı: $+(%,ban.,#,.,$nick)
}
#hehe end
on *:BAN:#izmir:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),% { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | .whois $gettok(%:,1,58) | .set %nik $remove($gettok(%:,1,58),) | return $iif(%:,Ban listesi durumu> %nik %baglantisaat Saat %baglantidakika Dakika %baglantisaniye Saniyedir Online Attığı Ban: $gettok(%:,2,58),$1 kanalında ban atan yok.) } }
on *:text:ahmet Ban List:#:{ if $istok(ahmet ahmet2,$nick,32) { msg # $getban(#) } }

burda tek degiştigim nickim ahmet ve ban atılan kanal olarak izmir yanlışım nedir acaba ustam bir yardımcı olursan tşk

CipriX 18 Mayıs 2007 19:52

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }

Ahmet Mehmet vs.. 1. Kalın yere 2. Kalın Yere #IzmirOp

SaintCty 18 Mayıs 2007 20:33

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
Alıntı:

CipriX Nickli Üyeden Alıntı
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }

Ahmet Mehmet vs.. 1. Kalın yere 2. Kalın Yere #IzmirOp

ustam tşk cıldıracam nerde hata yapıyorum bilmiyorum
bak ustam son halini kopyalıyorum benim nickim ahmet
oplarımın nickleride ali,memet
mesajı almak istedigim kanalda #izmirop
#izmir kanalındaki atılan banların durumunu görmek istiyorum
kod editli hali

raw 317:*:{
.set %baglantisaat $remove($calc($gettok($asctime($4,HH:nn:ss),1,58) - $gettok($time,1,58)),-)
.set %baglantidakika $remove($calc($gettok($asctime($4,HH:nn:ss),2,58) - $gettok($time,2,58)),-)
.set %baglantisaniye $remove($calc($gettok($asctime($4,HH:nn:ss),3,58) - $gettok($time,3,58)),-)
}
#hehe off
on *:ban:#:{
inc $+(%,ban.,#,.,$nick)
.whois $nick
.write hehe.txt $nick %topla $+(%,baglantisaat,.,$nick) Saat $+(%,baglantidakika,.,$nick) Dakika $+(%,baglantisaniye,.,$nick) Kadar Online.. Attığı Ban Sayısı: $+(%,ban.,#,.,$nick)
}
#hehe end
on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),% { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | .whois $gettok(%:,1,58) | .set %nik $remove($gettok(%:,1,58),) | return $iif(%:,Ban listesi durumu> %nik %baglantisaat Saat %baglantidakika Dakika %baglantisaniye Saniyedir Online Attığı Ban: $gettok(%:,2,58),$1 kanalında ban atan yok.) } }
on *:text:ahmet Ban List:#:{ if $istok(ali mehmet,$nick,32) { msg #izmirop $getban(#) } }

aynen bu şekil remoteye ekliyorum ve aliye ban attırıyorum #izmirop kanal geneline şöyle yazıyorum ahmet Ban List ama ne bircevap nede başka bir yanıt yani bir icraat yok sen kodun üstünde uygularmısın ustam ahmey ban list yazyorum cıkmıyor senide yoruyorum ama yaptıgın ve sabrın allah razı olsun senden

detay 19 Mayıs 2007 00:33

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
kodda sorun yoksa ki arkadas denemis write ile dosyaya yazdirirken sorun cikmis olabilir(mircin bulundugu klasore gore)
write $+($shortfn($mircdir),dosya.txt) seklinde dene birde.

CipriX 19 Mayıs 2007 02:35

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
write durumu yok

#hehe off
on *:ban:#:{
inc $+(%,ban.,#,.,$nick)
.whois $nick
.write hehe.txt $nick %topla $+(%,baglantisaat,.,$nick) Saat $+(%,baglantidakika,.,$nick) Dakika $+(%,baglantisaniye,.,$nick) Kadar Online.. Attığı Ban Sayısı: $+(%,ban.,#,.,$nick)
}
#hehe end

burayı başka bir şey i&#231;in denemiştim arkadaşlar burayı sileceksin Kardeş..

SaintCty 19 Mayıs 2007 15:06

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
Alıntı:

CipriX Nickli Üyeden Alıntı
write durumu yok

#hehe off
on *:ban:#:{
inc $+(%,ban.,#,.,$nick)
.whois $nick
.write hehe.txt $nick %topla $+(%,baglantisaat,.,$nick) Saat $+(%,baglantidakika,.,$nick) Dakika $+(%,baglantisaniye,.,$nick) Kadar Online.. Attığı Ban Sayısı: $+(%,ban.,#,.,$nick)
}
#hehe end

burayı başka bir şey için denemiştim arkadaşlar burayı sileceksin Kardeş..

anlaşıldı ustam ben bu konuda gayet beceriksiz bir adamım
neyaptıysaam olmadı dedigin gibi yaptım kodun o bölümünbü cıkardım
yine olmadı yine olmadı #izmirop kanal genelinde bu raporu alamadım
ahmet ban list yazıyorum hiç bir hareket yok yani şimdi benim nickim ahmet
master olarak ben ne yapacamda ban listesini kanalda verecek
birde ben mircin içine ayrıca ahmet ban list diye bir tex dosyasımı acacam
dedigin yerileri şöle ayarladım alt+r remoteye uyguladım olmadı
kodun son hali
kod:

raw 317:*:{
.set %baglantisaat $remove($calc($gettok($asctime($4,HH:nn:ss),1,58) - $gettok($time,1,58)),-)
.set %baglantidakika $remove($calc($gettok($asctime($4,HH:nn:ss),2,58) - $gettok($time,2,58)),-)
.set %baglantisaniye $remove($calc($gettok($asctime($4,HH:nn:ss),3,58) - $gettok($time,3,58)),-)
}
on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),% { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | .whois $gettok(%:,1,58) | .set %nik $remove($gettok(%:,1,58),) | return $iif(%:,Ban listesi durumu> %nik %baglantisaat Saat %baglantidakika Dakika %baglantisaniye Saniyedir Online Attığı Ban: $gettok(%:,2,58),$1 kanalında ban atan yok.) } }
on *:text:ahmet Ban List:#:{ if $istok(ahmet ahmet2 ,$nick,32) { msg #izmirop $getban(#) } }


rapor alacagım yer #izmirop kanalı benim istedigim sadece #izmir kanalındaki atılan banlar
#izmirop kanalının genelinde bu raporu nasıl alcam seninde örnek verdigin gibi
<CipriX> Ban listesi durumu> CipriX 0 Saat 14 Dakika 19 Saniyedir Online Attığı Ban: 3
bu nu nasıl yapacam dogrusu strese girdim allah razı olsun senden yardımcı olmuyorsan
heralde kafasız olan benim sana zahmet şunu detaylı bir anlatırmısın ustam ilgileriniz ve yardımlarınız için herekse tşk ederim

CipriX 19 Mayıs 2007 15:26

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
(ahmet ahmet2 ,$nick,32)

Burda senin nickler var inş ?

SaintCty 19 Mayıs 2007 17:10

Cevap: Kimin Ne Kadar Ban Attigi Bilgisi
 
Alıntı:

CipriX Nickli Üyeden Alıntı
(ahmet ahmet2 ,$nick,32)

Burda senin nickler var inş ?

nick derken benim şahsi şu anda birtane nickim var oda ahmet
ustam benim ncikim ahmet zaten &#246;yle denedim olmadı yine
ben bu kodu bota atıyorum degilmi bota atıyorum ve ayrı bir programdan ahmet nickiyle giriş yapıyorum #izmirop kanalında bu raporu g&#246;remiyorum detaylı bilgi verirsen ustam m&#252;mk&#252;nse senide yordum kusuruma bakma allah razı olsun şimdiden


raw 317:*:{
.set %baglantisaat $remove($calc($gettok($asctime($4,HH:nn:ss),1,58) - $gettok($time,1,58)),-)
.set %baglantidakika $remove($calc($gettok($asctime($4,HH:nn:ss),2,58) - $gettok($time,2,58)),-)
.set %baglantisaniye $remove($calc($gettok($asctime($4,HH:nn:ss),3,58) - $gettok($time,3,58)),-)
}
on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),% { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | .whois $gettok(%:,1,58) | .set %nik $remove($gettok(%:,1,58),) | return $iif(%:,Ban listesi durumu> %nik %baglantisaat Saat %baglantidakika Dakika %baglantisaniye Saniyedir Online Attığı Ban: $gettok(%:,2,58),$1 kanalında ban atan yok.) } }
on *:text:ahmet Ban List:#:{ if $istok(ahmet ahmet2 ,$nick,32) { msg #izmirop $getban(#) } }


rapor alacagım yer #izmirop kanalı benim istedigim sadece #izmir kanalındaki atılan banlar
#izmirop kanalının genelinde bu raporu nasıl alcam seninde &#246;rnek verdigin gibi
<CipriX> Ban listesi durumu> CipriX 0 Saat 14 Dakika 19 Saniyedir Online Attığı Ban: 3
bu nu nasıl yapacam dogrusu strese girdim allah razı olsun senden yardımcı olmuyorsan
heralde kafasız olan benim sana zahmet şunu detaylı bir anlatırmısın ustam ilgileriniz ve yardımlarınız i&#231;in herkese tşk ederim


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net