[script]
n0=dialog x-one {
n1= title "eheheh"
n2= size 0 -5 187 141
n3= option dbu
n4=}
n5=dialog _amsg {
n6= title "Ame / Amsg Muaf menüsü"
n7= size -1 -1 163 95
n8= option dbu
n9= tab "Tab 1", 1, -8 -26 180 130
n10= tab "Tab 2", 6
n11= tab "Tab 3", 8
n12= button "Ame", 2, 4 2 32 12
n13= button "Amsg", 3, 39 2 32 12
n14= text "X-One Script", 4, 5 31 112 25, tab 1
n15= text "Ame / Amsg Muaf Menusu", 5, 5 62 112 25, tab 1
n16= list 7, 3 19 67 72, tab 8 vsbar size
n17= list 9, 3 19 67 72, tab 6 vsbar size
n18= edit "#Kanal Yaziniz", 10, 76 19 82 10, tab 8
n19= button "Amsg Muaf Ekle", 11, 77 33 81 12, tab 8
n20= text "Silmek istediğiniz kanalın üzerine 2 kere tıklayınız.", 12, 77 53 81 36, tab 8
n21= text "Silmek istediğiniz kanalın üzerine 2 kere tıklayınız.", 13, 77 53 81 36, tab 6
n22= button "Ame Muaf Ekle", 14, 77 33 81 12, tab 6
n23= edit "#Kanal Yaziniz", 15, 76 19 82 10, tab 6
n24=}
n25=dialog _t {
n26= title "toolbar!"
n27= size -1 -1 612 6
n28= option dbu
n29= list 1, 119 0 385 20
n30= text "IrCbaStarD", 2, 28 0 50 8
n31= text "IrCbaStarD", 3, 35 10 20 8
n32= text "Lag", 4, 2 0 21 8, center
n33= text "Ram", 5, 2 10 30 8, center
n34= text "?¿", 6, 80 0 21 8, center
n35= text "Ram", 7, 59 10 31 8, center
n36= text "IrCbaStarD", 8, 90 10 20 8
n37=}
n38=alias bands {
n39= did -ra _t 5 $bsize($gettok($hAte(band,band,1),2,32)),1)
n40= did -ra _t 7 $bsize($gettok($hAte(band,band,1),3,32)),1)
n41= did -ra _t 3 $gettok($round($bsize($gettok($hAte(band,band,1),2,32)),1),1,$asc(.))
n42= did -ra _t 8 $gettok($round($bsize($gettok($hAte(band,band,1),3,32)),1),1,$asc(.))
n43=}
n44=alias bsize {
n45= if (($1 >= 1024) && ($1 < 1048576)) { %rez = $round($calc($1 / 1024),2) $+ Kb/s }
n46= elseif (($1 >= 1048576) && ($1 < 67108864)) { %rez = $round($calc($1 / 1048576),2) $+ Mb/s }
n47= elseif ($1 >= 67108864) { %rez = $round($calc($1 / 67108864),2) $+ Gb/s) }
n48= else { %rez = $1 $+ B/s }
n49= return %rez
n50=}
n51=alias Helplag {
n52= if ($dialog(_T)) {
n53= did -a _t 2 $round($calc($$1 * 100),2)
n54= did -a _t 6 $iif(($2), $$1 $+ .00 , $$1)
n55= }
n56=}
n57=alias mlag { .notice $me LAG $ticks }
n58=on ^*:notice:LAG*:*: {
n59= haltdef
n60= if ($2 !isnum) { return }
n61= if ($calc($ticks - $2) > 0) {
n62= Helplag $calc(($ticks - $2) / 1000)
n63= }
n64=}
n65=on *:connect: {
n66= update.toolbar
n67= .timerxx 0 2 .mlag
n68=}
n69=on *:disconnect: {
n70= update.toolbar
n71= .timerxx off
n72=}
n73=on *:close:*: {
n74= update.toolbar
n75=}
n76=alias update.toolbar {
n77= if (!$dialog(_t)) { halt }
n78= else {
n79= scid $activecid
n80= if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
n81= did -o _t 1 2 +a 1 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır.
n82= }
n83= else {
n84= did -o _t 1 2 +a 2 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
n85= }
n86= }
n87=}
n88=alias muaf {
n89= if !$file(srjn/x.x) { write -c srjn/x.x }
n90= if !$file(srjn/y.x) { write -c srjn/y.x }
n91= if !$hget(ame) { hmake ame | hload ame srjn/y.x }
n92= if !$hget(amsg) { hmake amsg | hload ame srjn/x.x }
n93= if $1 == amsg {
n94= if $2 == ekle {
n95= hadd -m amsg $3 Böyle geldi böyle gider... :)
n96= hsave ame srjn/x.x
n97= }
n98= if $2 == sil {
n99= hdel -m amsg $3
n100= hsave ame srjn/x.x
n101= }
n102= }
n103= if $1 == ame {
n104= if $2 == ekle {
n105= hadd -m ame $3 Böyle geldi böyle gider... :)
n106= hsave ame srjn/y.x
n107= }
n108= if $2 == sil {
n109= hdel -m ame $3
n110= hsave ame srjn/y.x
n111= }
n112= }
n113= if $1 == liste {
n114= if $hget($2) && $dialog($3) {
n115= var %s 1, %h $hget($2,0).item
n116= while %s <= %h {
n117= did -a $3 $4 $hget($2,%s).item
n118= inc %s
n119= }
n120= }
n121= }
n122=}
n123=on *:start:{
n124= starts
n125= _d _t
n126= _d x-one
n127= hmake amsg | hmake ame
n128= hload amsg srjn/x.x | hload ame srjn/y.x
n129=}
n130=alias starts {
n131= clear
n132= ;echo -ts 4X-One 2o13 IrCbaStarD Edition.
n133= echo -ts 4Clone Script 2o13 IrCbaStarD Edition.
n134= echo -ta
n135= ;echo -ta Scripti dilediğiniz gibi editleyebilirsiniz, ahmet mehmet osman script yapabilirsiniz sorun yok. :d
n136= echo -ta Online destek irc.kalbim.net #mIRCHelp
n137= echo -ta Online destek için ayrıyetten socket bot mevcut /destek komutuyla bağlayabilirsiniz.
n138= echo -ta
n139= echo -ta İletişim:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
n140= if !$file(srjn/x.x) { write -c srjn/x.x }
n141= if !$file(srjn/y.x) { write -c srjn/y.x }
n142=}
n143=alias Ayarlar if $dialog(Ayarlar) { dialog -c Ayarlar Ayarlar } | else { dialog -m Ayarlar Ayarlar }
n144=
n145=dialog Ayarlar {
n146= title "X-One Script Ayarlar"
n147= size -1 -1 112 166
n148= option dbu
n149= box "", 1, 1 37 108 53
n150= check "İsteyeni pingle", 2, 5 44 52 8
n151= check "Clone Uyar", 3, 5 55 51 9
n152= check "Özelde Karşılama Mesajı", 4, 5 67 84 8
n153= box "", 5, 1 89 108 75
n154= list 6, 7 96 94 11, size
n155= icon 8, 2 3 108 33, Grafik\Png\toolbar.PNG, 0 noborder
n156= check "Nick Uyarıcı", 7, 5 78 84 8
n157= list 9, 7 113 94 11, size
n158= list 10, 7 131 94 11, size
n159= list 11, 52 148 59 11, size
n160=}
n161=alias bass { dll $hate.aux(dll\amk.dll) $1 $$2- }
n162=on *:text:*:#:{
n163= if (%pingle == 1) && (lag isin $1-) {
n164= .ping $nick
n165= .notice $nick 4Pingledim seni :$ %Sercan 4Script
n166= haltdef
n167= }
n168= if (%pingle == 1) && (Ping isin $1-) {
n169= .ping $nick
n170= .notice $nick 4Pingledim seni :$ %Sercan 4Script
n171= haltdef
n172= }
n173= if (%Awayseslen == 1) && ($away == $true) && ($me isin $1-) && ($active != #) {
n174= .notice $nick 4Şuanda Awayım Gelince Cevap Vericeğim.
n175= }
n176= if (%Seslenme == 1) && ($me isin $1-) && ($active != #) {
n177= echo -a %sercan *** 4 $chan Kanalından Size4 $nick Sesleniyor.
n178= }
n179=}
n180=on *:Action:*:#:{
n181= if (%pingle == 1) && (lag isin $1-) {
n182= .ping $nick
n183= .notice $nick 4Pingledim seni :$ %Sercan 4Script
n184= haltdef
n185= }
n186= if (%pingle == 1) && (Ping isin $1-) {
n187= .ping $nick
n188= .notice $nick 4Pingledim seni :$ %Sercan 4Script
n189= haltdef
n190= }
n191=}
n192=
n193=alias _d if $dialog($1) { dialog -c $1 $1 } | else { dialog -m $1 $1 }
n194=alias hAte {
n195= if $1 == mdx { return $hAte.aux(dll\Mdx.dll) }
n196= elseif $1 == bars { return $hAte.aux(dll\Bars.mdx) }
n197= elseif $1 == 2 { return $hAte.aux(dll\2.dll) }
n198= elseif $1 == rebar { return $hAte.aux(dll\rebar.dll) }
n199= elseif $1 == mdc { return $hAte.aux(dll\mdc.dll) }
n200= elseif $1 == dialog { return $hAte.aux(dll\dialog.mdx) }
n201= elseif $1 == views { return $hAte.aux(dll\views.mdx) }
n202= elseif $1 == ctl { return $hAte.aux(dll\CTL_GEN.MDX) }
n203= elseif $1 == img { return $hAte.aux(dll\ImgDlg.dll) }
n204= elseif $1 == x { return $hate.aux(dll\Amk1.DLL) }
n205= elseif ($1 == demid) { return $hate.aux(dll\Demid.dll) }
n206= elseif $1 == band { return $dll($hAte.aux(dll/Band.dll),$2,$3-) }
n207=}
n208=alias d_d dll $hate(x) SetMircTitle $1-
n209=alias hAte.aux return $+(srjn\,$1)
n210=
n211=tab "Tab 1", 1, -8 -26 180 130
n212=tab "Tab 2", 6
n213=tab "Tab 3", 8
n214=button "Ame", 2, 39 2 32 12
n215=button "Amsg", 3, 4 2 32 12
n216=text "X-One Script", 4, 5 31 112 25, tab 1
n217=text "Ame / Amsg Muaf Menusu", 5, 5 62 112 25, tab 1
n218=list 7, 3 19 67 72, tab 8 vsbar size
n219=list 9, 3 19 67 72, tab 6 vsbar size
n220=edit "#Kanal Yaziniz", 10, 76 19 82 10, tab 8
n221=button "Amsg Muaf Ekle", 11, 77 33 81 12, tab 8
n222=text "Silmek istediğiniz kanalın üzerine 2 kere tıklayınız.", 12, 77 53 81 36, tab 8
n223=text "Silmek istediğiniz kanalın üzerine 2 kere tıklayınız.", 13, 77 53 81 36, tab 6
n224=button "Ame Muaf Ekle", 14, 77 33 81 12, tab 6
n225=edit "#Kanal Yaziniz", 15, 76 19 82 10, tab 6
n226=
n227=on *:dialog:*:*:*:{
n228= if $dname == _amsg {
n229= if $devent == init {
n230= dll $hate(mdx) MarkDialog $dname
n231= dll $hate(mdx) SetFont $dname 4,5 +a 23 900 Tahoma
n232= muaf liste amsg _amsg 7
n233= muaf liste ame _amsg 9
n234= }
n235= if $devent == sclick {
n236= if $did == 2 { did -f $dname 6 }
n237= if $did == 3 { did -f $dname 8 }
n238= if $did == 11 {
n239= if $did($dname,10).text isin #Kanal Yaziniz {
n240= echo -a Kanal yaz a bu. :D
n241= }
n242= }
n243= }
n244= }
n245= if $dname == ayarlar {
n246= if $devent == init {
n247= dll $hate(mdx) MarkDialog $dname
n248= dll $hate(mdx) SetFont $dname 1,2,3,4,5,6,7,9,10,11 +a 13 900 Tahoma
n249= dll $hate(mdx) SetControlMDX $dname 6,9,10,11 ToolBar flat wrap arrows nodivider list > $hate(2)
n250= dll $hate(mdx) SetBorderStyle 6,9,10,11
n251= did -i $dname 6 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n252= did -i $dname 6 1 bmpsize 17 17
n253= did -i $dname 6 1 setimage icon large grafik\icon\ok.ico
n254= did -a $dname 6 +a 1 $chr(32) X-One Op Teşekkür Menüsü $chr(9) $+ Op voice teşekkür menüsü
n255= did -i $dname 9 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n256= did -i $dname 9 1 bmpsize 17 17
n257= did -i $dname 9 1 setimage icon large grafik\icon\ok.ico
n258= did -a $dname 9 +a 1 $chr(32) X-One Away Menüsü $chr(9) $+ Away
n259= did -i $dname 10 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n260= did -i $dname 10 1 bmpsize 17 17
n261= did -i $dname 10 1 setimage icon large grafik\icon\ok.ico
n262= did -a $dname 10 +a 1 $chr(32) Ame/Amsg muaf $chr(9) $+ Ame/Amsg Muaf menüsü
n263= did -i $dname 11 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n264= did -i $dname 11 1 bmpsize 17 17
n265= did -i $dname 11 1 setimage icon large grafik\icon\cancel.ico
n266= did -a $dname 11 +a 1 $chr(32) X-One Kapat $chr(9) $+ X-One Dialogu kapat
n267= if (%pingle == 1) { did -c $dname 2 }
n268= if (%Cloneu == 1) { did -c $dname 3 }
n269= if (%karsıla == 1) { did -c $dname 4 }
n270= if (%Seslenme == 1) { did -c $dname 7 }
n271= }
n272= if $devent == sclick {
n273= if $did == 2 {
n274= if ($did($dname,2).state == 1) { set %pingle 1 } | else { set %pingle 0 }
n275= }
n276= if $did == 3 {
n277= if ($did($dname,3).state == 1) { set %Cloneu 1 } | else { set %Cloneu 0 }
n278= }
n279= if $did == 4 {
n280= if ($did($dname,4).state == 1) { set %karsıla 1 } | else { set %karsıla 0 }
n281= }
n282= if $did == 7 {
n283= if ($did($dname,7).state == 1) { set %Seslenme 1 } | else { set %Seslenme 0 }
n284= }
n285= if $did == 6 {
n286= Optes
n287= }
n288= if $did == 9 {
n289= Aways
n290= }
n291= if $did == 10 {
n292= _d _amsg
n293= }
n294= if $did == 11 {
n295= .timer 1 0 dialog -x $dname $dname
n296= }
n297= }
n298= }
n299= if $dname == x-one {
n300= if $devent == init {
n301= dll $hate(mdx) MarkDialog $dname
n302= dll $hate(mdx) SetDialog $dname style
n303= dll $hate(img) ImgDlg 1 1 $dialog(x-one).hwnd srjn/img/logo.bmp
n304= dll $hate(demid) SetTopic $dname
n305= dll $hate(demid) DlgParent $dname STATIC $active
n306= }
n307= }
n308= if $dname == _t {
n309= if $devent == init {
n310= .timerzzzzzz 0 1 bands
n311= dll $hate(mdx) MarkDialog $dname
n312= dll $hate(mdx) SetDialog $dname style
n313= dll $hate(mdx) SetControlMDX $dname 1 toolbar flat list wrap arrows nodivider > $hAte(2)
n314= dll $hate(mdx) SetControlMDX $dname 2,3,8 Progressbar smooth > $hate(ctl)
n315= dll $hate(mdx) SetBorderStyle 1
n316= dll $hate(rebar) HideToolbar .
n317= dll $hate(rebar) Dock $dialog(_t).hwnd > Top
n318= did -i $dname 1 1 bmpsize 32 32
n319= did -i $dname 1 1 setimage icon large grafik\icon\2.ico
n320= did -i $dname 1 1 setimage icon large grafik\icon\1.ico
n321= did -i $dname 1 1 setimage icon large grafik\icon\Ayar.ico
n322= did -i $dname 1 1 setimage icon large grafik\icon\ok.ico
n323= did -i $dname 1 1 setimage icon large Grafik\icon\Koruma.ico
n324= did -i $dname 1 1 setimage icon large Grafik\icon\Kanal.ico
n325= did -i $dname 1 1 setimage icon large Grafik\icon\Ayarlar.ico
n326= did -i $dname 1 1 setimage icon large Grafik\icon\Hakkında.ico
n327= did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
n328= did -a $dname 1 +a -
n329= did -a $dname 1 +a 3 $chr(32) Ayarlar $chr(9) $+ Bağlantı Ayarlarını Yapar.
n330= did -a $dname 1 +a -
n331= did -a $dname 1 +a 4 $chr(32) Bağlantı $chr(9) $+ Kanallara Giriş Penceresini Açar.
n332= did -a $dname 1 +a -
n333= did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.
n334= did -a $dname 1 +a -
n335= did -a $dname 1 +a 6 $chr(32) Kanallar $chr(9) $+ Kanallar
n336= did -a $dname 1 +a -
n337= did -a $dname 1 +a 7 $chr(32) Ayarlar $chr(9) $+ Ayarlar Menusünü Açar.
n338= did -a $dname 1 +a -
n339= did -a $dname 1 +a 8 $chr(32) Hakkında $chr(9) $+ Script Hakkında
n340= }
n341= if $devent == sclick {
n342= if $did == 1 {
n343= if ($did($dname,1).sel = 2) {
n344= if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
n345= else {
n346= scid $activecid server
n347= }
n348= update.toolbar
n349= did -f $dname 1
n350= scid $activecid window -a "status window"
n351= }
n352= if ($did($dname,1).sel = 4) {
n353= bass ALT o
n354= }
n355= if ($did($dname,1).sel = 6) {
n356= Start
n357= }
n3555= if ($did($dname,1).sel = 6) {
n359= Korumalar
n360= }
n361= if ($did($dname,1).sel = 10) {
n362= List
n363= }
n364= if ($did($dname,1).sel = 12) {
n365= Ayarlar
n366= }
n367= if ($did($dname,1).sel = 14) {
n368= Hakkında
n369= }
n370= }
n371= }
n372= }
n373= if $dname == away {
n374= if $devent == init {
n375= dll $hate(mdx) MarkDialog $dname
n376= dll $hate(mdx) SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 +a 13 900 Tahoma
n377= did -a $dname 3 $me $+ -Afk
n378= did -a $dname 3 $me $+ `Afk
n379= did -a $dname 3 $me $+ -Yok
n380= did -a $dname 3 $me $+ -Yoq
n381= did -a $dname 3 $me $+ -Meşgul
n382= did -a $dname 3 $me $+ -Offline
n383= did -a $dname 3 $me $+ -Sleeping
n384= did -a $dname 5 Meşgul
n385= did -a $dname 5 W.c
n386= did -a $dname 5 Yatıyorum. xD
n387= did -a $dname 5 Yokum.
n388= if (%Awayame == 1) { did -c $dname 6 }
n389= if (%Awayecho == 1) { did -c $dname 9 }
n390= if (%awayname == 1) { did -c $dname 2 | did -e $dname 3 }
n391= if (%awayname == 0) { did -b $dname 3 }
n392= if (%awayLog == 1) { did -c $dname 7 }
n393= if (%awayseslen == 1) { did -c $dname 8 }
n394= }
n395= if $devent == sclick {
n396= if $did == 2 {
n397= if ($did($dname,2).state == 1) { set %Awayname 1 | did -e $dname 3 } | else { set %Awayname 0 | did -b $dname 3 }
n398= }
n399= if $did == 6 {
n400= if ($did($dname,6).state == 1) { unset %awayecho | set %Awayame 1 } | else { set %Awayame 0 }
n401= }
n402= if $did == 7 {
n403= if ($did($dname,7).state == 1) { set %AwayLog 1 } | else { set %AwayLog 0 }
n404= }
n405= if $did == 8 {
n406= if ($did($dname,8).state == 1) { set %Awayseslen 1 } | else { set %Awayseslen 0 }
n407= }
n408= if $did == 9 {
n409= if ($did($dname,9).state == 1) { unset %Awayame | set %Awayecho 1 } | else { set %Awayecho 0 }
n410= }
n411= if $did == 10 {
n412= if (%Awayname == 1) {
n413= if $away == $true {
n414= echo -t %sercan Zaten Away Konumundasın!
n415= }
n416= if $did(3) == $null {
n417= Echo -a %sercan Nick Seçiniz.
n418= }
n419= if $did(5) == $null {
n420= Echo -a %sercan Away Sebebi Seçiniz.
n421= }
n422= else {
n423= set %Awaynick $$me
n424= nick $did(3)
n425= away $did(5)
n426= if (%Awayame == 1) { /amsg %sercan Şuanda Awayım Özelime Not Bıraka Bilirsiniz Saat $time Away Sebeb : $did(5) }
n427= if (%Awayecho == 1) { /echo -a %sercan Başarıyla Away Oldunuz. }
n428= dialog -c $dname $dname
n429= }
n430= }
n431= }
n432= if $did == 11 {
n433= if $away == $false {
n434= Echo -a %sercan Zaten Away Değilsiniz.
n435= .dialog -c $dname $dname
n436= }
n437= if (%Awayname == 1) {
n438= .nick %Awaynick
n439= .away
n440= if (%Awayame == 1) { /amsg %sercan Awaydan Döndüm. }
n441= if (%Awayecho == 1) { /echo -a %sercan Başarıyla Away'dan Döndünüz. }
n442= dialog -c $dname $dname
n443= }
n444= else {
n445= dialog -c $dname $dname
n446= }
n447= }
n448= }
n449= }
n450= if $dname == Helps {
n451= if $devent == init {
n452= dll $hate(mdx) MarkDialog $dname
n453= dll $hate(mdx) SetFont 1,2 -11 700 Tahoma
n454= dll $hate(mdx) SetControlMDX $dname 1,2 ToolBar flat wrap arrows nodivider list > $hate(2)
n455= dll $hate(mdx) SetBorderStyle $dname 1,2
n456= did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n457= did -i $dname 1 1 bmpsize 55 55
n458= did -i $dname 1 1 setimage icon large Grafik\icon\10.ico
n459= did -a $dname 1 +a 1 $chr(32) Yardım Et $chr(9) $+ Gelen Useri Karşılar
n460= did -i $dname 2 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n461= did -i $dname 2 1 bmpsize 55 55
n462= did -i $dname 2 1 setimage icon large Grafik\icon\cancel.ico
n463= did -a $dname 2 +a 1 $chr(32) Yoksay $chr(9) $+ Useri Kickler
n464= }
n465= if $devent == sclick {
n466= if ($did == 1) {
n467= .join #Help | .timer 1 0 .dialog -x Helps Helps
n468= }
n469= if ($did == 2) {
n470= timer 1 0 .dialog -x Helps Helps
n471= }
n472= }
n473= }
n474= if $dname == iden {
n475= if $devent == init {
n476= dll $hate(mdx) SetMircVersion $version
n477= dll $hate(mdx) MarkDialog $dname $dialog($dname).hwnd
n478= dll $hate(mdx) SetFont 14 -52 1100 LCD
n479= dll $hate(mdx) SetColor $dname 3,5 background $rgb(9,1,1)
n480= dll $hate(mdx) SetColor $dname 14,3,5 text $rgb(2,155,255)
n481= dll $hate(mdx) SetColor $dname 3,5 textbg $rgb(9,1,1)
n482= dll $hate(mdx) SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13 -11 700 Tahoma
n483= dll $hate(mdx) SetControlMDX $dname 6,7 ToolBar flat wrap arrows nodivider list > $hate(2)
n484= dll $hate(mdx) SetBorderStyle $dname 6,7
n485= did -i $dname 6 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n486= did -i $dname 6 1 bmpsize 16 16
n487= did -i $dname 6 1 setimage icon large Grafik\icon\Liste.ico
n488= did -a $dname 6 +a 1 $chr(32) Şifreni Gir $chr(9) $+ Gelen Useri Karşılar
n489= did -i $dname 7 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n490= did -i $dname 7 1 bmpsize 16 16
n491= did -i $dname 7 1 setimage icon large Grafik\icon\Liste.ico
n492= did -a $dname 7 +a 1 $chr(32) Nick Değiştir $chr(9) $+ Gelen Useri Karşılar
n493= did -a iden 9 $me
n494= did -a iden 11 $server
n495= did -a iden 13 $date
n496= .timer 0 1 Saaat
n497= }
n498= if $devent == sclick {
n499= if $did == 6 {
n500= .msg nickserv identify $did(iden,3) | .timer 1 0 .diaLog -x iden iden
n501= }
n502= if $did == 7 {
n503= .nick $did(iden,5) | .timer 1 0 .dialog -x iden iden
n504= }
n505= }
n506= }
n507= if $dname == opvotes {
n508= if $devent == init {
n509= dll $hate(mdx) MarkDialog $dname
n510= dll $hate(mdx) SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 +a 13 900 Tahoma
n511= dll $hate(mdx) SetControlMDX $dname 14 ToolBar flat wrap arrows nodivider list > $hate(2)
n512= dll $hate(mdx) SetBorderStyle 14
n513= did -i $dname 14 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
n514= did -i $dname 14 1 bmpsize 17 17
n515= did -i $dname 14 1 setimage icon large grafik\icon\ok.ico
n516= did -i $dname 14 1 setimage icon large grafik\icon\cancel.ico
n517= did -a $dname 14 +a 1 $chr(32) Kaydet / Cık $chr(9) $+ Kaydedip Cıkar
n518= did -a $dname 14 +a -
n519= did -a $dname 14 +a 2 $chr(32) Vazgeç $chr(9) $+ Vazgeçer xD
n520= if (%Optes == 1) { did -c $dname 15 | did -e $dname 8,9,10,11,12,13 }
n521= if (%Optes == 0) { did -b $dname 8,9,10,11,12,13 }
n522= }
n523= if $devent == sclick {
n524= if $did == 15 {
n525= if ($did($dname,15).state == 1) { set %Optes 1 | did -e $dname 8,9,10,11,12,13 } | else { set %Optes 0 | did -b $dname 8,9,10,11,12,13 }
n526= }
n527= if $did == 14 {
n528= if ($did($dname,14).sel = 2) {
n529= set %Opmsg $did(8)
n530= set %Halfopmsg $did(9)
n531= set %Voicemsg $did(10)
n532= set %DeOpmsg $did(11)
n533= set %DeHalfopmsg $did(12)
n534= set %DeVoicemsg $did(13)
n535= .timer 1 0 .dialog -x $dname $dname
n536= }
n537= if ($did($dname,14).sel = 4) {
n538= .timer 1 0 .dialog -x $dname $dname
n539= }
n540= }
n541= }
n542= }
n543=}
n544=alias aways if $dialog(Away) { dialog -c Away Away } | else { dialog -m Away Away }
n545=dialog Away {
n546= title "X-One Away"
n547= size -1 -1 259 70
n548= option dbu
n549= icon 1, 6 5 96 39, Grafik\Png\toolbar.PNG, 0 noborder
n550= combo 3, 154 4 101 60, edit drop
n551= check "Away Nick :", 2, 110 5 42 8
n552= text "Away Sebeb :", 4, 110 16 43 8
n553= combo 5, 154 16 101 38, drop edit
n554= radio "Away Oldugum Kanala Yansıtılsın (Amsg)", 6, 110 28 133 8, flat
n555= check "Awayken Log Tutulsun", 7, 6 48 115 8
n556= check "Kanalda Seslenildiğinde Uyarı Gönder", 8, 6 59 115 8
n557= radio "Kanala Yansıtılmasın! (Echo)", 9, 110 39 133 8, flat
n558= button "Away Ol", 10, 125 49 64 19
n559= button "Away'dan Dön", 11, 191 49 64 19
n560=}
n561=On *:text:*:?:{
n562= if (%AwayLog == 1) && ($away == $true) {
n563= window -z @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Log
n564= echo -t @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Log 4Away'ken Özelinize Gelen'ler Burada xD
n565= echo -t @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Log < $+ $nick $+ > $1-
n566= }
n567= if (%Awayseslen == 1) && ($away == $true) && ($me isin $1-) && ($active != #) {
n568= .notice $nick 4Şuanda Awayım Gelince Cevap Vericeğim.
n569= }
n570= if (%Seslenme == 1) && ($me isin $1-) && ($active != #) {
n571= echo -a %sercan *** 4 Özelden Size4 $nick Sesleniyor.
n572= }
n573=}
n574=
n575=dialog Helps {
n576= title "#Help'e giriş Oldu ne Yapalım ?"
n577= size -1 -1 136 43
n578= option dbu
n579= list 1, 7 6 61 41, size
n580= list 2, 77 6 57 42, size
n581=}
n582=
n583=alias sSerJanSs {
n584= if $server == $null {
n585= echo -at %sercan Herhangi Bi Sunucuya Bağlı Değilsiniz
n586= }
n587=}
n588=dialog iden {
n589= title "X-One Şifre Paneli"
n590= size -1 -1 113 135
n591= option dbu
n592= box "", 1, 2 -1 110 55
n593= text "Şifren", 2, 4 7 35 8
n594= edit "Şifre?", 3, 43 6 62 11
n595= text "Nick Değiştir", 4, 4 21 35 8
n596= edit "Nick?", 5, 43 20 62 11
n597= list 6, 4 38 49 13, size
n598= list 7, 56 38 54 13, size
n599= text "Nick :", 8, 3 62 33 8, center
n600= text "", 9, 44 62 66 8, center
n601= text "Server", 10, 4 78 31 8, center
n602= text "", 11, 44 78 66 8, center
n603= text "Tarih", 12, 4 94 32 8, center
n604= text "", 13, 44 94 66 8, center
n605= text "Saat", 14, 5 107 103 26, center
n606=}
n607=alias saaat {
n608= if $dialog(iden) {
n609= did -ra iden 14 $chr(32) $chr(32) $time
n610= }
n611=}
n612=on *:NOTiCE:*NickServ identify*:?:{
n613= if ($nick == NickServ) {
n614= dialog -m iden iden
n615= }
n616=}
n617=on *:NOTiCE:*Gecersiz sifre*:?:{
n618= if ($nick == NickServ) {
n619= dialog -m iden iden
n620= }
n621=}
n622=
n623=on ^*:text:*:#:{
n624= var %s $nick(#,$nick).color, %c $nick(#,$nick).pnick
n625= if $count($1-,$chr(3)) >= 20 {
n626= inc $+(%,.x-one.sil-,renksayi)
n627= echo -t $chan $+(<,$chr(3),%s,%c,$chr(3),>) $replace($strip($remove($1-,,)),',')
n628= if $($+(%,.x-one.sil-,renksayi),2) <= 10 {
n629= echo -t $chan ( $+ $count($1-,$chr(3)) ctrl + k) Çok fazla renk karakteri oldugundan scriptin kasmaması adına gösterilmiyor.
n630= }
n631= halt
n632= }
n633= echo -t $chan $+(<,$chr(3),%s,%c,$chr(3),>) $replace($remove($1-,,),',')
n634= haltdef
n635=}
n636=
n637=on *:join:*: {
n638= %clones = $ialchan($wildsite,#,0)
n639= if (%cloneu == 1) && ( %clones > 1 ) {
n640= var %count = 1
n641= set %clone.nicks -->
n642= while (%count <= %clones) {
n643= %clone.nicks = %clone.nicks $ial($wildsite,%count).nick
n644= inc %count }
n645= /echo $chan %sercan Clone Tespit Edildi. 4[ $remove(%clone.nicks,-->) 4]12 %clones Tane }
n646= set %change $read -s $+ $address($nick,4) notes.ini
n647= if (%change == $null) {
n648= haltdef
n649= halt
n650= }
n651=}
n652=
n653=on *:open:?:*:{
n654= if (%karsıla == 1) {
n655= if $istok(Nickserv Chanserv Memoserv Operserv,$nick,32) { return }
n656= msg $nick 4Merhaba $nick
n657= msg $nick 4Bugün14 $date ve saat14 $time(HH:nn.ss)
n658= msg $nick 4Şu an 14 $+($query(0),.) özelsin ve toplamda 14 %q! kişi pencere açtı, size nasıl yardımcı olabilirim $nick $+ ?
n659= inc %q!
n660= }
n661=}
n662=alias Optes if $dialog(Opvotes) { dialog -c Opvotes Opvotes } | else { dialog -m Opvotes Opvotes }
n663=dialog Opvotes {
n664= title "Op Halfop Voice teşekkür menüsü."
n665= size -1 -1 426 51
n666= option dbu
n667= icon 1, 0 4 115 41, Grafik\Png\toolbar.PNG, 0 noborder
n668= text "Op", 2, 117 3 29 8
n669= text "Halfop", 3, 117 15 29 8
n670= text "Voice", 4, 116 27 29 8
n671= text "DeOp", 5, 272 3 29 8
n672= text "DeHalfop", 6, 272 15 29 8
n673= text "Devoice", 7, 272 27 29 8
n674= edit %Opmsg, 8, 149 3 120 10
n675= edit %Halfpmsg, 9, 149 15 120 10
n676= edit %Voicemsg, 10, 149 26 120 10
n677= edit %DeOpmsg, 11, 304 3 120 10
n678= edit %DeHalfpmsg, 12, 304 15 120 10
n679= edit %DeVoicemsg, 13, 304 26 120 10
n680= list 14, 232 37 163 2
n681= check "Op Halfop Voice Teşekkür ", 15, 116 39 94 8
n682=}
n683=
n684=
n685=On *:Op:#:{
n686= if (%Optes == 1) && ($nick == $me) {
n687= msg $chan $nick $+ , %Opmsg
n688= }
n689=}
n690=On *:deop:#:{
n691= if (%Optes == 1) && ($nick == $me) {
n692= msg $chan $nick $+ , %DeOpmsg
n693= }
n694=}
n695=On *:Help:#:{
n696= if (%Optes == 1) && ($nick == $me) {
n697= msg $chan $nick $+ , %halfopmsg
n698= }
n699=}
n700=On *:deHelp:#:{
n701= if (%Optes == 1) && ($nick == $me) {
n702= msg $chan $nick $+ , %Dehalfopmsg
n703= }
n704=}
n705=
n706=On *:Voice:#:{
n707= if (%Optes == 1) && ($nick == $me) {
n708= msg $chan $nick $+ , %voicemsg
n709= }
n710=}
n711=
n712=On *:Devoice:#:{
n713= if (%Optes == 1) && ($nick == $me) {
n714= msg $chan $nick $+ , %devoicemsg
n715= }
n716=}
n717=
n718=on ^*:join:#: {
n719= %saat = 4[ $+ $time $+ 4]
n720= if $nick == $me {
n721= echo # %saat 14 $+ # kanalına girdiniz. [ $+ $me rumuzu ile, $replace($replace($asctime,sun,Pazar,mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,sat,Cumártesi,fri,Cuma,jan,Ocak,feb,Şubat,mar,Mart,apr,Nisan,may,Mayıs,jun,Haziran,jul,Temmuz,aug,Ağustos,sep,Eylül,oct,Ekim,nov,Kasım,dec,Aralık),á,a) $+ ]
n722= echo -t # %sercan Script By IrCbaStarD
n723= return
n724= }
n725= var %c # , %nc $nick , %ret
n726= if $ialchan($address(%nc,2),%c,0) > 1 {
n727= var %i 1
n728= while %i <= $ialchan($address(%nc,2),%c,0) {
n729= if $ialchan($address(%nc,2),%c,%i).nick != %nc {
n730= %ret = $addtok(%ret,$ialchan($address(%nc,2),%c,%i).nick,44)
n731= }
n732= inc %i
n733= }
n734= }
n735= echo $color(join) -t # [Giriş: $nick ][ $+ $address $+ ] $iif(%ret,$+(,$color(join),$chr(40),Clone: $ifmatch,$chr(41)))
n736= haltdef
n737=}
n738=on ^*:quit: {
n739= %sercan = 4,1X0,1-One
n740= set %quit 0
n741= :start
n742= inc %quit
n743= if ($comchan($nick,%quit) != $null) {
n744= echo $color(quit) -t $comchan($nick,%quit) [Çıktı: $nick $+ ][ $+ $address $+ ] $1-
n745= goto start
n746= }
n747= haltdef
n748=}
n749=on ^*:part:#:{
n750= .haltdef
n751= if $nick !== $me {
n752= echo $color(part) -t $chan [Ayrıldı: $nick $+ ][ $+ $address $+ ] (Part)
n753= }
n754=}
n755=
n756=alias kayitgosterici.mo {
n757= var %s = $$input($nopath($longfn($1-) dosyasi icinde aramak istediginizi yaziniz: ),eq,Arama)
n758= if ($window(f@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama)) { clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama }
n759= window -k0z @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama
n760= var %t = $ticks
n761= kte_echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $parantez($nopath($longfn($1-))) dosyasinda $parantez(%s) icin arama yapildi $+ ...
n762= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama
n763= filter -fwbp $1- @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $+(*,%s,*)
n764= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama
n765= kte_echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $nopath($longfn($1-)) dosyasinda arnan $+(',%s,',) ile ilgili $parantez($filtered) sonuc $round($calc(($ticks - %t) / 1000),2) saniyede bulundu.
n766=}
n767=alias kayitgosterici {
n768= if ($window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici)) { close -@ @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici }
n769= window -k0l16zS @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n770= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici $logdir icinde $parantez($nopath($findfile($logdir,*.log,0,kayit.yukle $1-))) log dosyasi bulundu.
n771= if ($isfile($1-)) {
n772= if ($lines($1-) > 64000) {
n773= if ($input(Bu log mIRC $+ $chr(44) ile gosterilebilmesi icin fazla buyuk. Bu logu not defteri ile birlikte acmak ister misiniz?,wy)) { run $1- }
n774= halt
n775= }
n776= set %kayitgosterici.aktifkayit $shortfn($1-)
n777= loadbuf -
pr @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici $1-
n778= titlebar @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici - $nopath($mid($left($1-,-1),2))
n779= }
n780=}
n781=alias kayitgosterici.yenile {
n782= if ($window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici)) {
n783= clear -l @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n784= clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n785= .echo -q $nopath($findfile($logdir,*.log,0,kayit.yukle $1-))
n786= if ($1 != -c) {
n787= if (%kayitgosterici.aktifkayit) { loadbuf -
pr @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici %kayitgosterici.aktifkayit }
n788= else { echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici Loglar yenilendi... }
n789= }
n790= }
n791=}
n792=alias kayitfilter {
n793= filter -fwbp $1 @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $+(*,$2-,*)
n794= inc %kayitaaranan2
n795= if ($filtered) {
n796= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $filtered sonuc $parantez($longfn($1)) dosyasinda bulundu...
n797= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama
n798= inc %kayitabulunan $filtered
n799= }
n800= rline @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama 1 $deltok($line(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama,1),-1,32) $int($calc(%kayitaaranan2 / %kayitaaranan *100)) $+ %
n801=}
n802=alias kayitmod.aktif { if ($dialog(lsetmode)) { did -e $ifmatch 21 } }
n803=alias kayit.yukle {
n804= if (#* iswm $nopath($1-)) { aline -l @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici $+ $remove($1-,$logdir) }
n805= else { aline -l @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici $remove($1-,$logdir) }
n806=}
n807=
n808=menu @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama {
n809= $style(2) $+([,$active,]):x
n810= -
n811= Sonuclari Kaydet {
n812= var %x = $$sfile(c:\*.log,Bu arama sonuclarini nereye kaydetmek istersiniz?,Kaydet)
n813= write -c %x
n814= savebuf $active %x
n815= }
n816= -
n817= Kapat:close -@ $active
n818=}
n819=menu @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici {
n820= dclick {
n821= var %f = $shortfn($+($logdir,$strip($line(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,$1-,1))))
n822= if ($lines(%f) > 64000) {
n823= if ($input(Bu log mIRC $+ $chr(44) ile gosterilebilmesi icin fazla buyuk. Bu logu not defteri ile birlikte acmak ister misiniz?,wy,Log Fazla Buyuk)) { run %f }
n824= halt
n825= }
n826= set %kayitgosterici.aktifkayit %f
n827= loadbuf -
pr @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici %f
n828= titlebar @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici - $strip($line(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,$1-,1))
n829= }
n830= -
n831= Ara
n832= .Tum Loglarda {
n833= set %kayitabulunan 0
n834= set %kayitaaranan $findfile($logdir,*.log,0)
n835= set %kayitaaranan2 0
n836= var %s = $$input(Eger buyuk log dosyalarina sahipseniz arama islemi uzun zaman alacaktir. Devam etmek istiyorsaniz $+ $chr(44) aramak istediginizi kutuya yazin.,eq,Arama)
n837= if ($window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama)) { clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama }
n838= window -k0z @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama
n839= var %t = $ticks
n840= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $+(',%s,' icin arama yapiliyor...) 0%
n841= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Arama $findfile($logdir,*.log,0,kayitfilter $1 %s).shortfn log dosyasinda $+(',%s,' arandi.) Toplam $parantez(%kayitabulunan) sonuc $round($calc(($ticks - %t) / 1000),2) saniyede bulundu.
n842= unset %kayitabulunan %kayitaaranan %kayitaaranan2
n843= }
n844= .$iif($mouse.lb,$strip($1)):kayitgosterici.mo $shortfn($+($logdir,$strip($1)))
n845= .$iif(!$mouse.lb,$nopath(%kayitgosterici.aktifkayit)):kayitgosterici.mo %kayitgosterici.aktifkayit
n846= $iif($mouse.lb,HTML Olustur):crlog $shortfn($+($logdir,$strip($1)))
n847= $iif(!$mouse.lb,HTML Olustur):crlog %kayitgosterici.aktifkayit
n848= $iif($mouse.lb,Logu Goster) {
n849= var %f = $shortfn($+($logdir,$strip($1)))
n850= if ($lines(%f) > 64000) {
n851= if ($input(Bu log mIRC $+ $chr(44) ile gosterilebilmesi icin fazla buyuk. Bu logu not defteri ile birlikte acmak ister misiniz?,wy,Log Fazla Buyuk)) {
n852= run %f
n853= halt
n854= }
n855= else { halt }
n856= }
n857= set %kayitgosterici.aktifkayit %f
n858= loadbuf -
pr @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici %f
n859= titlebar @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici - $strip($1-)
n860= }
n861= $iif(!$mouse.lb && %kayitgosterici.aktifkayit,Not Defteriyle Ac):run %kayitgosterici.aktifkayit
n862= Log Dizinini Ac:run $+(",$logdir,")
n863= -
n864= Sil
n865= .Tum Loglari {
n866= if ($input(Butun loglarinizi silmek istediginizden emin misiniz?,wy)) {
n867= clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n868= clear -l @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n869= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici Loglar siliniyor...
n870= .echo -q $findfile($logdir,*.log,0,.remove $1-).shortfn
n871= clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n872= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici Butun log dosyalariniz basariyla silindi.
n873= titlebar @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici - acik log yok
n874= }
n875= }
n876= .Aktif logu {
n877= if ($1 == $null) {
n878= clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n879= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici Lutfen ilk once silmek istediginiz logu listeden secin.
n880= halt
n881= }
n882= var %t = $sline(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,0)
n883= if ($input( $+ $$1 loguni silmek istediginizden emin misiniz? Not: Log su anda kullanimdaysa silinmeyebilir.,wy)) {
n884= unset %kayitgosterici.aktifkayit
n885= var %i = $sline(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,0)
n886= while (%i >= 1) {
n887= if ($isfile($logdir $+ $strip($sline(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,%i)))) { .remove $+(",$logdir,$strip($sline(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,%i)),") }
n888= dline -l @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici $sline(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici,%i).ln
n889= dec %i
n890= }
n891= clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n892= echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici $parantez(%t) log dosyas(lar)i basariyla silindi.
n893= }
n894= titlebar @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici - acik log yok
n895= }
n896= -
n897= Yenile:kayitgosterici.yenile
n898= Kapat:close -@ @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici
n899=}
n900=
n901=alias crlog {
n902= var %f = $shortfn($iif($1,$1-,$$sfile($logdir $+ *.log,Hangi log dosyasindan HTML dosyasi olusturmak istiyorsunuz?,Tamam))),%o = $shortfn($$sfile($+(c:\,$deltok($nopath(%f),-1,46),.htm),Bir cikis dosyasi secin,Olustur!)),%p = $ticks
n903= if ($isfile(%f)) {
n904= write -c %o
n905= dialog -m htmlolustur htmlolustur
n906= did -a htmlolustur 1 1 0 999
n907= did -ra htmlolustur 2 Olusturuluyor...
n908= did -ra htmlolustur 3 Kaynak:
n909= did -ra htmlolustur 4 Satir:
n910= did -ra htmlolustur 5 Biten:
n911= did -ra htmlolustur 6 Kalan Sure:
n912= did -ra htmlolustur 7 $nopath($longfn(%f))
n913= did -ra htmlolustur 8,9,10 ?
n914= window -h @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur
n915= var %i = 4,%b = 0,%tt = $lines(%f),%u = 0
n916= aline @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur $+(<html><head><title>,$nopath($longfn(%f)),</title></head><style type="text/css"><!--)
n917= aline @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur body $chr(123) $+(background-color=",$hexcolor(back),"; font-family:",$window($active).font,"; font-size:",$window($active).fontsize,"; color=",$hexcolor(normal),") $chr(125)
n918= aline @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur -
n919= loadbuf 1-2001 @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur %f
n920= while (%u <= %tt) {
n921= rline @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur %i $+($replace($strip($line(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur,%i)),<,<,>,>),<br>)
n922= if (%i == 2001) {
n923= var %i = 1
n924= inc %b 2001
n925= savebuf -a @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur %o
n926= loadbuf $+($calc(%b +1),-,$calc(%b +2001)) -r @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur %f
n927= continue
n928= }
n929= if (!$calc(%i % 100)) {
n930= did -a htmlolustur 1 %u 0 %tt
n931= did -ra htmlolustur 8 $+(%u,/,%tt)
n932= did -ra htmlolustur 9 $+($int($calc(%u / %tt *100)),%)
n933= if (%u > 5000) { did -ra htmlolustur 10 $duration($int($calc(($ticks - %p) / 1000 / %u * %tt - (($ticks - %p) / 1000)))) }
n934= }
n935= inc %i
n936= inc %u
n937= }
n938= aline @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur </html>
n939= savebuf -a @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur $+(",%o,")
n940= close -@ @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]olustur
n941= dialog -c htmlolustur
n942= write -l3 $+(",%o,") --></style>• HTML log dosyasi MyOpers5 tarafindan $tarih tarihinde $round($calc(($ticks - %p) / 1000),2) saniyede,<br>• $nopath($longfn(%f)) dosyasindan olusturuldu $parantez(Orijinal dosya %tt satir $+ $chr(44) $bytes($file(%f).size).suf),<br><br>)
n943= if ($input(HTML log dosyasi $round($calc(($ticks - %p) / 1000),2) $+(saniye icinde basariyla olusturuldu.,$crlf,$crlf,Dosya: ,$nopath(%o) $parantez($bytes($file(%o).size).suf),$crlf,Kaynak: ,$nopath(%f) $parantez($bytes($file(%f).size).suf),$crlf,Satir: ,%tt,$crlf,$crlf,Log dizini ',$longfn(%o),'.,$crlf,Simdi calistirmak ister misiniz?),iy,HTML logu)) { url -an %o }
n944= }
n945= else { errdialog Dosya cikis hatasi %f $+ ! }
n946=}
n947=
n948=dialog htmlolustur {
n949= size -1 -1 120 49
n950= option dbu
n951= text "?",2,2 3 116 8,center
n952= text "",1,2 12 116 10
n953= text "?",3,2 24 50 8,right
n954= text "?",4,2 32 50 8,right
n955= text "?",5,2 40 50 8,right
n956= text "?",6,2 48 50 8,right
n957= text "?",7,55 24 60 8
n958= text "?",8,55 32 60 8
n959= text "?",9,55 40 60 8
n960= text "?",10,55 48 60 8
n961=}
n962=
n963=on *:dialog:htmlolustur:init:0:{
n964= mdx SetMircVersion $version
n965= mdx MarkDialog $dname $dialog($dname).hwnd
n966= mdx SetControlMDX $dname 1 ProgressBar smooth > dll\ctl_gen.mdx
n967= mdx SetDialog $dname style dlgmodal
n968= did -i $dname 1 1 bgcolor $rgb(hilight)
n969= did -i $dname 1 1 barcolor $rgb(text)
n970=}
n971=
n972=on *:close:@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Gosterici:{ unset %kayitgosterici.aktifkayit }
04 Eylül 2025, 22:08
Benzer Konular 
Normal
