| |
|
| |
04 Eylül 2025, 22:08
| #1 | |
| Çevrimiçi  IF Ticaret Sayısı: (0) | Bu sorun nasıl çözülür ? İyi forumlar x-One mircini indirdim fakat toolbarların bazıları tıklanınca hata uyarısı veriyor ve butonlar çalışmıyor aşağıda sorunla ilgili ss mevcuttur sorun ne olabilir remote dosyasını da paylaşabilirim yardımcı olunursa çok sevinirim. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | |
| |  |
|
Dün, 17:13
| #2 |
| Çevrimdışı  IF Ticaret Sayısı: (0) | Cevap: Bu sorun nasıl çözülür ? 300~400 satır arasını bir dosyaya kopyala at buraya. bakalım eksik "*/" açıklama etiketi yada "}" kapanış parnatezi olabilir.
__________________ 2b|!2b=? ~ mircscripting.net |
| | |
|
Dün, 22:41
| #3 |
| Çevrimiçi IF Ticaret Sayısı: (0) | Cevap: Bu sorun nasıl çözülür ? [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... Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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... Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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= } n358= if ($did($dname,1).sel = 8) { 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 * Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. evoice:#:{ 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.aktifkayi t)):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)),<,<,>,> Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ,<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 } CoCoRiCo ustadım ; ) --IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:41 -->-> Daha önceki mesaj 22:41 -- [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... Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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... Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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= } n358= if ($did($dname,1).sel = 8) { 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 * Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. evoice:#:{ 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.aktifkayi t)):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)),<,<,>,> Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ,<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 } CoCoRiCo ustadım ; ) |
| | |
|
Bugün, 19:11
| #4 | ||||
| Çevrimiçi IF Ticaret Sayısı: (0) | Cevap: Bu sorun nasıl çözülür ?
Mircteki remote.ini dosyasının kodunu paylaşıyorum hata nereden kaynaklanıyor bakabilir misiniz . Kod: Kodu kopyalamak için üzerine çift tıklayın!
| ||||
| | |
 |
| Konuyu Toplam 5 Üye okuyor. (1 Kayıtlı üye ve 4 Misafir) | |
| BlackForce |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Evlilik Sorunları Nasıl Çözülür? | YaRen | Aile Evlilik ve Çocuklar | 2 | 03 Eylül 2025 23:24 |
| Erkeklerin dili nasıl çözülür? | Sarya | Ah Erkekler | 6 | 24 Haziran 2025 01:25 |
| Bebeklerde uyku sorunu nasıl çözülür | System | Çocuk Sağlığı | 1 | 25 Ağustos 2019 22:59 |
| iOS 10 Problemleri Nasıl Çözülür? | Ebru | Cep Telefonu İşletim Sistemi | 0 | 17 Eylül 2016 21:04 |
| İnsülin direnci nasıl çözülür? | AngeLus | Sağlık Köşesi | 0 | 14 Kasım 2009 09:37 |
Hybrid-Şeklinde
