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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Mirc Şiir pLayer (https://www.ircforumlari.net/mirc-scripting-sorunlari/541916-mirc-siir-player.html)

ZenqerDenq 07 Ağustos 2013 23:37
Mirc Şiir pLayer
 
Selam mynet v3 script indeki gibi şiir player kodu yada remotesi arıyorum elinde olan var ise paylaşırmı lütfen

IvErSoN 07 Eylül 2013 03:57
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.

Krieq 07 Eylül 2013 11:39
Cevap: Mirc Şiir pLayer
 
Alıntı:
IvErSoN Nickli Üyeden Alıntı (Mesaj 1041337264)
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.

Toprak 07 Eylül 2013 18:23
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..

Feragat 08 Eylül 2013 04:26
Cevap: Mirc Şiir pLayer
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041324660)
Selam mynet v3 script indeki gibi şiir player kodu yada remotesi arıyorum elinde olan var ise paylaşırmı lütfen

Kod:
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ç", 8, 136 144 48 8
  button "Kapat", 9, 91 174 37 12, flat ok
  edit %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çeneğinden başlatabilirsin. Eğer kanal seçeneğini boş bırakırsan şiirleri okumaz. Kanal seçeneğini mutlaka doldur. Ayrıca şiir okunurken şiiri yapıştırdığın ekran pasif kalır. Ancak Yeni Şiir seçeneği ile başka bir şiiri okutmaya başlayabilirisin. Okuma hızı seçmek zorunda değilsin. Dialog hakkında geniş bir bilgim yok, bunuda mirc scripting dersleri bölümü ve mirc.chm yi inceleyerek yaptım (dialogun şekli basit görünüyor olabilir, üzgünüm). Sanırım istediğin şey buna benzer. İyi forumlar.

ZenqerDenq 08 Eylül 2013 06:57
Cevap: Mirc Şiir pLayer
 
çok teşekkürler alakanız icin tam olarak istediğim feragat arkadaşın verdiği kodlar gibidir ellerine sağlık

StanteaR 08 Eylül 2013 09:16
Cevap: Mirc Şiir pLayer
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
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:
mdxinit {
  mdx SetMircVersion $version
  mdx MarkDialog $dname
}
kalin {
  mdx SetFont $dname $1 $2 800 tahoma
}

effendy 20 Mart 2015 22:18
Cevap: Mirc Şiir pLayer
 
Ben bu addonu çalıştıramadım, bunu çalıştırabileceğim yardımcı olabilecek bir kimse var mı ?

Feragat 21 Mart 2015 00:40
Cevap: Mirc Şiir pLayer
 
Alıntı:
effendy Nickli Üyeden Alıntı (Mesaj 1041636169)
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:
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
}

effendy 12 Ağustos 2015 21:17
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 ?

ZorCocuK 12 Ağustos 2015 21:52
Cevap: Mirc Şiir pLayer
 
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.
Not: Bunları yeterince doğru yaptığına emin ol lütfen.

hakancann 23 Mart 2017 14:31
Cevap: Mirc Şiir pLayer
 
Çalışmıyor solda şiirlerin isimleri görünüyor fakat sağda şiirin kendisi görünmüyor Soldaki listeden herhangi bir eser seçip okuyabilir, alt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz. yazısı hiç degişmiyor gönder dediğimde BILGI Unknown command yazıyor yardımı olabilecek yok mu şimdiden teşekkürler

ZaLiM1979 31 Ağustos 2017 01:24
Cevap: Mirc Şiir pLayer
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041636234)
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:
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
}
selam..
ayenen denilenleri yaptim ama calismiyor..
siirler ismi sol pencerede gözteriyor ama tiklayinca sag pencerede siiri yazmiyor ve kanala gönder tikladigimizdada göndermiyor..

sorun ne bilen varmi? tskler..

HATA:
BILGI Unknown command
-
Simdi fark ettimde.. dialog'da bunlar yazili ama yoklaar dialogda :D

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

Feragat 31 Ağustos 2017 21:08
Cevap: Mirc Şiir pLayer
 
Alıntı:
ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1041867683)
selam..
ayenen denilenleri yaptim ama calismiyor..
siirler ismi sol pencerede gözteriyor ama tiklayinca sag pencerede siiri yazmiyor ve kanala gönder tikladigimizdada göndermiyor..

sorun ne bilen varmi? tskler..

HATA:
BILGI Unknown command
-
Simdi fark ettimde.. dialog'da bunlar yazili ama yoklaar dialogda :D

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
Aldığın hata mesajının sebebi, Kod içinde /bilgi komutu olması ve bu komutun çalışmasını sağlayacak işlevi barındıran alias bulunmaması.

Renkli bölümler değişen/oynanan kısımlar.

Ekle/Çıkar dialog tasarımı ve event'ı ile alakaladır.

Örnek Görüntü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
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 {
      set %sanat.y $did(sanat,1).seltext

      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
}
alias bilgi echo -a $1-

ZaLiM1979 01 Eylül 2017 20:06
Cevap: Mirc Şiir pLayer
 
Eyv üstadim calisti.. Hayirli Bayramlar cümletten..


Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041867733)
Aldığın hata mesajının sebebi, Kod içinde /bilgi komutu olması ve bu komutun çalışmasını sağlayacak işlevi barındıran alias bulunmaması.

Renkli bölümler değişen/oynanan kısımlar.

Ekle/Çıkar dialog tasarımı ve event'ı ile alakaladır.

Örnek Görüntü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
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 {
      set %sanat.y $did(sanat,1).seltext

      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
}
alias bilgi echo -a $1-

Tai_Pan 18 Şubat 2018 15:48
Cevap: Mirc Şiir pLayer
 
Harika bir diyalog.. Ellerinize sağlık.. Bu diyaloga, şiir okutma esnasında şiiri durdurabilmek için Durdur butonu ekleyebilir miyiz.. Ayrıca Gönder butonuna bir kaç kez peşpeşe basıldıgında kaç kez basıldıysa o kadar sayıda yeniden okumaya devam ediyor.. Gönder butonunu sadece şiir okutulurken deaktif edebilir miyiz yani ilk okuması bitmeden ikinci kez tıklanamasın..
Bilgisayarımızda kayıtlı olan şiir text dosyalarını da diyalogdaki mevcut Ekle / Çıkar butonları ile ekleyip çıkarabilme özelliği kazandırabilir miyiz.. Teşekkür ederim..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:24.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk