alias ostat ostats #
alias -l zecho echo -a $+ $colour(info) $+ *** $1-
alias -l ostats_check_type if ($opent == null) || ($opent !isnum) || ($opent < 0) || ($opent > 1) { .disable #ostats_Open_Desktop 0 }
alias -l qtime .timerQTIME $+ $1 off | .timerQTIME $+ $1 1 0 $1-
alias -l getpercent return $round($calc($1 / $2 * 100),$iif($3,$3,0)) $+ %
alias -l osc {
if ($dialog(ostats_m) == $null) { return }
did -ra ostats_m 1 $1-
}
alias -l ostats_selchan {
if ($dialog(ostats_selchan) == $null) {
dialog - $+ $iif($opent == 1,md,m) ostats_selchan ostats_selchan | return
}
}
alias -l oisopen {
if ($dialog(ostats) == $null) {
$iif($dialog(ostats_selchan),dialog -x ostats_selchan)
$iif($dialog(ostats_m),dialog -x ostats_m)
.timeroSTATS2 off
}
}
alias -l makestat {
var %tmp.calc = $calc($len($gettok($did(ostats,2),2,58)) - 1), %tmp.chanc = $right($gettok($did(ostats,2),2,58),%tmp.calc)
if ($me !ison %tmp.chanc) { zecho Hata: %tmp.chanc $+ ! Lütfen kanaldan çikip tekrar girin.Dosya olusturulacak... | return }
ostats %tmp.chanc
$iif($1,return)
status
}
alias -l refresh_selchan_list {
if ($server == $null) {
zecho Bir servere bagli degilsiniz...
$iif($dialog(ostats_selchan),dialog -x ostats_selchan)
$iif($dialog(ostats),dialog -x ostats)
}
did -r ostats_selchan 3
var %tmp.max = $chan(0), %tmp.while = 1
While (%tmp.max >= %tmp.while) {
did -a ostats_selchan 3 $chan(%tmp.while)
inc %tmp.while
}
}
alias -l output_newchan {
var %tmp.chan = $did(ostats_selchan,3,$did(ostats_selchan,3).sel)), %tmp.lines = $did(ostats_selchan,3).sel
if ($server == $null) {
zecho Bir servere bagli degilsiniz...
$iif($dialog(ostats),dialog -x ostats)
dialog -x ostats_selchan
return
}
if (%tmp.chan == $null) { zecho Bir seçim yapilmadi! | return }
if ($me !ison %tmp.chan) {
zecho Suan istatiklerini görmek istediginiz kanalda degilsiniz...
refresh_selchan_list
return
}
if (%tmp.lines) {
if ($dialog(ostats_save)) { did -ra ostats_save 7 Outputting Statistics: %tmp.chan }
ostats %tmp.chan
dialog -x ostats_selchan
}
}
alias -l ostats {
if ($server == $null) { zecho Bir servere bagli degilsiniz... | return }
if ($dialog(ostats)) { goto timers }
ostats_check_type
dialog - $+ $iif($opent == 1,md,m) ostats ostats
:timers
.timeroSTATS2 off
.timeroSTATS2 0 0 oisopen
did -ra ostats 2 Kanal istatistiklerine bakiliyor.Lütfen Bekleyin
:resume
%^_ostats.tmp.Here = 0
%^_ostats.tmp.Away = 0
%^_ostats.tmp.IrcOps = 0
.enable #ostats2
who $1
}
alias -l uselist {
if ($dialog(ostats) == $null) { zecho istatistik hata! | return }
var %tmp.total = $did(ostats,4), %tmp.ops = $did(ostats,7) : $did(ostats,34), %tmp.voice = $did(ostats,9) : $did(ostats,35), %tmp.regular = $did(ostats,11) : $did(ostats,36), %tmp.Here = $did(ostats,13) : $did(ostats,37), %tmp.Away = $did(ostats,15) : $did(ostats,38), %tmp.IrcOps = $did(ostats,17) : $did(ostats,39), %tmp.Helpers = $did(ostats,19) : $did(ostats,40), %tmp.Chan = $did(ostats_save,9)
if ($1 == sendchan) {
if ($me !ison %tmp.Chan) { zecho Kanalda oldugunuzdan emin olun: %tmp.Chan | save_chans | return }
msg %tmp.Chan Kanal istatistikleri: %tmp.Chan -=[ $chr(160) Toplam Users: %tmp.Total $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Ops: %tmp.Ops $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Voice: %tmp.Voice $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Regulars: %tmp.Regular $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Here: %tmp.Here $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Away: %tmp.Away $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) IrcOps: %tmp.IrcOps $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Helpers: %tmp.Helpers $chr(160) ]=-
return
}
var %tmp.nick = $did(ostats_save,18), %tmp.txt = %tmp.Chan $+ .txt, %tmp.html = %tmp.Chan $+ .html, %tmp.findtxt = $findfile($scriptdirstats,%tmp.txt,1), %tmp.findhtml = $findfile($scriptdirstats,%tmp.html,1)
if (%tmp.nick == $null) { zecho Invalid User Selection! | return }
if ($1 == file) {
if ($exists(%tmp.findtxt) == $false) && ($exists(%tmp.findhtml) == $false) { zecho Hata!!! istatistik dosyasi olusturulamadi. | return }
if ($exists(%tmp.findtxt)) { dcc send %tmp.nick %tmp.findtxt | return }
.dcc send %tmp.nick %tmp.findhtml
}
if ($1 == msg) {
%tmp.Nick = $did(ostats_save,12)
if (%tmp.nick == $null) { zecho Invalid User Input! | return }
.msg %tmp.Nick Kanal istatiskleri >>: %tmp.Chan -=[ $chr(160) Toplam Users: %tmp.Total $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Ops: %tmp.Ops $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Voice: %tmp.Voice $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Regulars: %tmp.Regular $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Here: %tmp.Here $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Away: %tmp.Away $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) IrcOps: %tmp.IrcOps $chr(160) $+ $chr(93) $+ $chr(160) $+ $chr(91) $+ $chr(160) Helpers: %tmp.Helpers $chr(160) ]=-
}
}
dialog ostats {
option dbu
size -1 -1 130 150
title "Kanal istatistikleri"
button "&Tamam", 1, 91 113 26 10, ok
box "", 2, 3 3 114 106
text "Toplam:", 3, 15 14 29 10
edit "", 4, 55 12 35 10, center, multi, return, read
box "", 5, 15 22 90 4
text "Operatör:", 6, 15 31 24 10
edit "", 7, 55 29 17 10, center, multi, return, read
edit "", 34, 71 29 19 10, center, multi, return, read
text "Voice:", 8, 15 42 20 10
edit "", 9, 55 40 17 10, center, multi, return, read
edit "", 35, 71 40 19 10, center, multi, return, read
text "Düzenli:", 10, 15 53 22 10
edit "", 11, 55 51 17 10, center, multi, return, read
edit "", 36, 71 51 19 10, center, multi, return, read
text "User:", 12, 15 64 22 10
edit "", 13, 55 62 17 10, center, multi, return, read
edit "", 37, 71 62 19 10, center, multi, return, read
text "Away:", 14, 15 75 22 10
edit "", 15, 55 73 17 10, center, multi, return, read
edit "", 38, 71 73 19 10, center, multi, return, read
text "IrcOp:", 16, 15 86 22 10
edit "", 17, 55 84 17 10, center, multi, return, read
edit "", 39, 71 84 19 10, center, multi, return, read
text "HeLper:", 18, 15 97 22 10
edit "", 19, 55 95 17 10, center, multi, return, read
edit "", 40, 71 95 19 10, center, multi, return, read
menu "&Ayarlar", 21
item "&Yeni Tarama...", 22
item break, 23
item "Çi&kis", 24, cancel
button "&Yenile", 33, 61 113 25 10
}
dialog ostats_selchan {
option dbu
size -1 -1 126 98
title "Bir Kanal Seçiniz..."
button "&Kapat", 1, 97 84 25 10, ok
box "istatistiklerine bakilacak kanali seçiniz...", 2, 4 2 118 77
list 3, 7 11 112 70, vsbar, sort
button "&Baslat", 4, 4 84 35 10
button "&Yenile", 5, 41 84 28 10
}
on *:dialog:ostats:init:0: {
ostats_check_type
$iif($opent == 1,did -c ostats 28)
}
on *:dialog:ostats:menu:22: {
if ($server == $null) { zecho Bir Servere bagli degilsiniz... | dialog -x $dname | return }
ostats_selchan
}
on *:DIALOG:ostats:sclick:31:makestat
on *:DIALOG:ostats:sclick:33:makestat Refreshing
on *:DIALOG:ostats_selchan:init:0:refresh_selchan_list
on *:DIALOG:ostats_selchan:dclick:3:output_newchan
on *:DIALOG:ostats_selchan:sclick:4:output_newchan
on *:DIALOG:ostats_selchan:sclick:5:refresh_selchan_list
on *:DIALOG:ostats_a:init:0:did -a $dname 2 $crlf v2.00
on *:DIALOG:ostats_m:init:0: did -h $dname 2
#ostats2 off
raw 315:*: {
osc Checking Dialogs
if ($dialog(ostats) == $null) { .disable #ostats2 | haltdef | return }
osc Variablesler ataniyor
if (%^_ostats.tmp.Here == $null) { %^_ostats.tmp.Here = 0 }
if (%^_ostats.tmp.Away == $null) { %^_ostats.tmp.Away = 0 }
if (%^_ostats.tmp.IrcOps == $null) { %^_ostats.tmp.IrcOps = 0 }
did -ra ostats 2 Kanal istatiskleri: $2
did -ra ostats 4 $nick($2,0)
osc Hesaplamalar: Ops
var %tmp.full = $nick($2,0), %tmp.opC = $nick($2,0,o), %tmp.voiceC = $nick($2,0,v), %tmp.regularC = $nick($2,0,r), %tmp.helperC = $nick($2,0,h), %tmp.ops = $getpercent(%tmp.opC,%tmp.full), %tmp.voice = $getpercent(%tmp.voiceC,%tmp.full), %tmp.regular = $getpercent(%tmp.regularC,%tmp.full), %tmp.helper = $getpercent(%tmp.helperC,%tmp.full), %tmp.Away = $getpercent(%^_ostats.tmp.Away,%tmp.full), %tmp.Here = $getpercent(%^_ostats.tmp.Here,%tmp.full), %tmp.IrcOps = $getpercent(%^_ostats.tmp.IrcOps,%tmp.full)
osc Ana dialoga yaziliyor.
did -ra ostats 7 %tmp.OpC
did -ra ostats 34 %tmp.ops
did -ra ostats 9 %tmp.VoiceC
did -ra ostats 35 %tmp.voice
did -ra ostats 11 %tmp.RegularC
did -ra ostats 36 %tmp.regular
did -ra ostats 13 %^_ostats.tmp.Here
did -ra ostats 37 %tmp.Here
did -ra ostats 15 %^_ostats.tmp.Away
did -ra ostats 38 %tmp.Away
did -ra ostats 17 %^_ostats.tmp.IrcOps
did -ra ostats 39 %tmp.IrcOps
did -ra ostats 19 %tmp.HelperC
did -ra ostats 40 %tmp.Helper
}
raw 352:*: {
osc Away + Ircop Users' Datalari olusturuluyor
if (H isin $7) { inc %^_ostats.tmp.Here }
if (G isin $7) { inc %^_ostats.tmp.Away }
if ($chr(42) isin $7) { inc %^_ostats.tmp.IrcOps }
haltdef
}
#ostats2 end
on *:CONNECT:.events on | $o.reg(oChanStats,2.00)
on *:DISCONNECT:unset %o.using
menu channel {
..-
..» Kanal istatistikleri ( $+ # $+ ):/ostat #
}
on *:load: {
if ($version >= 5.81) {
echo -a 4Kanal istatistikleri4 Channel, Popups'una 14Yüklendi
}
else {
echo -a 14 ScripT Version'nunuz Bu addon için yeterli değil.
echo -a 14Lütfen 4 [url]http://www.mirc.co.uk[/url] 14 adresinden mIRC v5.81 'i veveya daha yüksek bir versionu indiriniz.
echo -a 14ScripT $imdilik 4Unload 14 Edildi...
.unload -rs $script
}
}
Herhangi bir kanalda toplam kaç kişinin bulundugunu,kanaldaki operator sayısını,voice sayısını,operleri,helperleri,away sayısını vs. vs... gösterenbir kod
umarım işinize yarar.
mIRC Açık İken Alt+R Yapıp Dosya, Yeni Deyip Bu Kodları Yapıştırıp Ok Diyoruz veya;
Bir NotDefteri Açıp Bu Kodları NotDefterine Aktarıyoruz. Dosya İsimini misal ''kanalistatistik'' olarak kayıt Ettikten Sonra Script Klasörümüze Bu Dosyayı Atıyoruz. Daha Sonra mIRC Açık İken /load -rs kanalistatistik.txt yazıyoruz. Kod Scriptimize Yüklenmiş Oluyor. Yükledikten Sonra Popups Menüde Görebilirsiniz. (Herhangi Bir Kanalda Sağ Tıkladığınızda Açılan Menü)
Konu CooL tarafından (01-16-2007 Saat 01:55 PM ) değiştirilmiştir..
Sebep: smile
01-16-2007
Kanal istatistiklerine bakma
