IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

17Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Ağustos 2013, 23:37   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Mirc Şiir pLayer




Selam mynet v3 script indeki gibi şiir player kodu yada remotesi arıyorum elinde olan var ise paylaşırmı lütfen

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 07 Eylül 2013, 03:57   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




on *:text:*:#kanal:{
if $1 == !oku {
msg # $read(siir.txt)
}
if $1 == !yaz {
if !$2 {
Lütfen bir yazı metni giriniz.
}
else {
write siir.txt $2
msg # Bilgiler kaydedildi.
}
}
}
mirc.exe nin bulundugu klasöre siir.txt doyasınızı atın.
Daha sonra #kanal kanalında !oku dediğiniz zaman şiir yada özgün sözler neyse artık o kanala gönderir.
Ayrıca !yaz söz yazarak siir.txt dosyasına mircden yazmak istedğinizi sözü yazdırabilirsiniz.

 
Alıntı ile Cevapla

Alt 07 Eylül 2013, 11:39   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




IvErSoN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:text:*:#kanal:{
if $1 == !oku {
msg # $read(siir.txt)
}
if $1 == !yaz {
if !$2 {
Lütfen bir yazı metni giriniz.
}
else {
write siir.txt $2
msg # Bilgiler kaydedildi.
}
}
}
mirc.exe nin bulundugu klasöre siir.txt doyasınızı atın.
Daha sonra #kanal kanalında !oku dediğiniz zaman şiir yada özgün sözler neyse artık o kanala gönderir.
Ayrıca !yaz söz yazarak siir.txt dosyasına mircden yazmak istedğinizi sözü yazdırabilirsiniz.


-Kodlarınızı CODE tag kullanarak paylaşınız.
-Bu şekilde textten sadece random bir satır seçerek gönderir.Tümünü göndermek için while ile satırları birer artırarak $lines eşitlene kadar artırabilirsiniz.
-2.kısımda write siir.txt $2- olacaktır.

Konu sahibi arkadaş,sanırım kimsenin elinde yok.Ama tam olarak nasıl birşey istediğini yazarsan yardımcı olabilirim.

 
Alıntı ile Cevapla

Alt 07 Eylül 2013, 18:23   #4
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




Krieq'in dedigi gibi kod'ları "Code Tag" arasında paylaşırsanız daha iyi olur. Konu sahibi arkadaş istediginizi tam olarak açıklayabilirseniz yardımcı olacak arkadaşların işini kolaylaştırmış olursunuz..

 
Alıntı ile Cevapla

Alt 08 Eylül 2013, 04:26   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




ZenqerDenq Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Selam mynet v3 script indeki gibi şiir player kodu yada remotesi arıyorum elinde olan var ise paylaşırmı lütfen


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { .Siir Diyalogu:/dialog -m siiroku siiroku } dialog siiroku { title "Şiir Okuyucu" size -1 -1 190 187 option dbu edit "", 1, 3 3 183 141, multi return autohs autovs hsbar vsbar limit 1000 button "Oku", 2, 5 159 37 12, flat button "Dur", 3, 48 159 37 12, flat button "Yeni Şiir", 4, 91 159 37 12, flat radio "2 saniye", 5, 136 151 50 10 radio "3 saniye", 6, 136 163 50 10 radio "4 saniye", 7, 136 174 50 10 text "Okuma Hızı Se&#231;", 8, 136 144 48 8 button "Kapat", 9, 91 174 37 12, flat ok edit &#37;skanal , 10, 37 145 35 10, multi text "Kanal:", 11, 6 146 25 8 } alias baslatim { if $dialog(siiroku) { .timersiir 1 2 /play -a /msg %skanal siirler.txt %suresi } } on *:dialog:siiroku:close:*: { if $play(0).status == 1 { .play stop } /write -c siirler.txt | /unset %suresi | .timersiir off } on *:dialog:siiroku:init:*: { /unset %suresi | /write -c siirler.txt } on *:dialog:siiroku:sclick:*: { if $did == 4 { .play stop | did -r $dname 1 | write -c siirler.txt | /did -e $dname 1 } elseif ($did == 2) { /set %skanal $did(10).text | /did -b $dname 1 | /baslatim | var %ss1 = 1,%ss2 = $cb(0,u) | while %ss1 <= %ss2 { /write siirler.txt $cb(%ss1,u) | inc %ss1 } } elseif ($did == 3) { .play stop } elseif ($did(5).state == 1) { /set -e %suresi 2000 } elseif ($did(6).state == 1) { /set -e %suresi 3000 } elseif ($did(7).state == 1) { /set -e %suresi 4000 } }

Herhangi bir ekranda Sağ tık ile Şiir Okuyucu se&#231;eneğinden başlatabilirsin. Eğer kanal se&#231;eneğini boş bırakırsan şiirleri okumaz. Kanal se&#231;eneğini mutlaka doldur. Ayrıca şiir okunurken şiiri yapıştırdığın ekran pasif kalır. Ancak Yeni Şiir se&#231;eneği ile başka bir şiiri okutmaya başlayabilirisin. Okuma hızı se&#231;mek zorunda değilsin. Dialog hakkında geniş bir bilgim yok, bunuda mirc scripting dersleri b&#246;l&#252;m&#252; ve mirc.chm yi inceleyerek yaptım (dialogun şekli basit g&#246;r&#252;n&#252;yor olabilir, &#252;zg&#252;n&#252;m). Sanırım istediğin şey buna benzer. İyi forumlar.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 08 Eylül 2013, 06:57   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




&#231;ok teşekk&#252;rler alakanız icin tam olarak istediğim feragat arkadaşın verdiği kodlar gibidir ellerine sağlık

 
Alıntı ile Cevapla

Alt 08 Eylül 2013, 09:16   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer





Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sanat { if $1 { set %sanat $1 } /dialog -m sanat sanat } dialog sanat { title "Şiir/hikaye/komik/ö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 "* Göndermek istediğiniz rumuz/#kanalı yazın ve gönder butonuna tıklayın. Seçtiğiniz eser otomatikman gönderilecektir.", 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 } on *:dialog:sanat:*:*: { if $devent == init { mdxinit mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views mdx SetColor $dname 2 text $rgb(255,255,255) mdx SetColor $dname 2 textbg $rgb(89,162,166) mdx SetColor $dname 2 background $rgb(89,162,166) 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(99,99,156) didtok $dname 4 44 Şiirler,Hikayeler,Komikler,Özdeyişler did -c $dname 4 1 did -a $dname 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz. 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 %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor... } else { var %im $$?"Gönderilecek rumuzu veya #kanal ismini yazınız:" 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 %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor... } } } else { bilgi Göndermek için herhangi bir şiir/hikaye/komik/özdeyiş seçmediniz. } } } if $devent == close { unset %sanat* } } alias sanat.yukle { did -r sanat 1,2 did -a sanat 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz. 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 } }

Burdada şiirler falan var

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yanlız mdxinit uzantısı var bunuda alias a ekle. bendeki bu yanı alıntıdır taxi scriptten

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
mdxinit { mdx SetMircVersion $version mdx MarkDialog $dname } kalin { mdx SetFont $dname $1 $2 800 tahoma }


__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..

Konu Feragat tarafından (21 Mart 2015 Saat 00:26 ) değiştirilmiştir. Sebep: mIRC Kod'larını CODE Tagı içinde paylaşın lütfen..
 
Alıntı ile Cevapla

Alt 20 Mart 2015, 22:18   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




Ben bu addonu çalıştıramadım, bunu çalıştırabileceğim yardımcı olabilecek bir kimse var mı ?

 
Alıntı ile Cevapla

Alt 21 Mart 2015, 00:40   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




effendy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ben bu addonu çalıştıramadım, bunu çalıştırabileceğim yardımcı olabilecek bir kimse var mı ?

Kodu altta verdiğim şekilde, Boş bir REMOTE sayfasına eklemelisin. (ALT + R)

1- mIRC klasörünün içinde dll isimli bir klasör olacak o klasörün içine mdx.dll dosyasını atman gerekiyor.
Link: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

2- mIRC klasörünün içinde texts isimli bir klasör açıp içerisine siir hikaye komik ozdeyis isminde klasör daha açmalısın ve bu 4 klasörün içine ilgili kategori ile alakalı sözler - şiirler bulunan metin belgeleri atmalısın örnek komik1.txt gibi. Bunu yaptığın takdirde oluşturduğun metin dosyaların dialog ekranında gözükecek ve metin okutma işlemini yapabileceksin.

- mirc ana dizinini açmak için //run $mircdir komutunuda kullanabilirsin.

İşlemler bittikten sonra /sanat yazıp başlatabilirsin. İyi forumlar.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sanat { if $1 { set %sanat $1 } /dialog -m sanat sanat } dialog sanat { title "Şiir/hikaye/komik/ö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 "* Göndermek istediğiniz rumuz/#kanalı yazın ve gönder butonuna tıklayın. Seçtiğiniz eser otomatikman gönderilecektir.", 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 } on *:dialog:sanat:*:*: { if $devent == init { mdxinit mdx SetControlMDX $dname 1 Treeview fullrowselect singleexpand nohscroll > $views mdx SetColor $dname 2 text $rgb(255,255,255) mdx SetColor $dname 2 textbg $rgb(89,162,166) mdx SetColor $dname 2 background $rgb(89,162,166) 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(99,99,156) didtok $dname 4 44 Şiirler,Hikayeler,Komikler,Özdeyişler did -c $dname 4 1 did -a $dname 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz. 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 %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor... } else { var %im $$?"Gönderilecek rumuzu veya #kanal ismini yazınız:" 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 %sanat.y dosyası $iif($left(%im,1) == $chr(35),%im kanalına,%im rumuzuna) yazılıyor... } } } else { bilgi Göndermek için herhangi bir şiir/hikaye/komik/özdeyiş seçmediniz. } } } if $devent == close { unset %sanat* } } alias sanat.yukle { did -r sanat 1,2 did -a sanat 2 Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz. 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 mdx dll dll\mdx.dll $1- alias mdxinit { mdx SetMircVersion $version mdx MarkDialog $dname } alias kalin { mdx SetFont $dname $1 $2 800 tahoma }


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 12 Ağustos 2015, 21:17   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Mirc Şiir pLayer




Düz bir mirc'e bu söylediğin gibi yapıyorum , Tema açılıyor fakat yazıyı göndermyor yardımcı olabilirmisiniz ?

 
Alıntı ile Cevapla

Cevapla

Etiketler
Şiir


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Video Player v1.1 [ mIRC Media Center ] CipriX mIRC Scripting Hazır Kodlar 1 22 Şubat 2022 17:15
Afrikalı Zenci Bir Adam'ın, 2005 Yılında En İyi Şiir Olmaya Aday Gösterilmiş Şiir'i Sevda Şiir, Hikaye ve Güzel Sözler 3 27 Ağustos 2011 09:14
Şiir yazmana gerek yok, şiir sensin. Luis Şiir, Hikaye ve Güzel Sözler 0 07 Mart 2010 22:03