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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 08 Haziran 2009, 22:16   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
mırce şiir vsvs eklemek




Arkadaslar elimde şiir vs gibi bazı komık seyler var bunları mircime eklemek istiyorum menü seklınde cıkcak ismini tıklayınca yanda içini gosterek gönder deyince gönderecek bir kısayolllu istiyorum yardım etmek isteyen arkadaslarım pm atarsa sevirim iyi forumlar

Eklenen Resim Ön İzlemesi Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.

Konu ahmet_corum tarafından (08 Haziran 2009 Saat 23:41 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 09 Haziran 2009, 09:36   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




Forumda Arama Yaptım Senın Icın Bır Diyalog Buldum.
Bu Kodu Remote Bölümüne Eklıyorsun Tabı Bu Addonun Calısması Icın Mdx.dll si Gerkıyor Eger Scriptinde Dll klasorunun Icınde Mdx.dll Yoksa Forumdan Aratıp Bulabılırsın.
Dll klasoru Olup Icıne Mdx.dll sini Koyman Gerekır
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bilgi {
  echo -
at 0,6 Bilgi 0,4 »»  12 $1-
}

alias ascii {
  
_dialog ascii
}
dialog ascii {
  
title "ASCII Kodları"
  
size --1 86 131
  option dbu
  
list 35 6 75 105size
  box 
""42 0 82 114
  button 
"Kapat"52 117 38 12ok
}
on *:dialog:ascii:*:*: {
  if 
$devent == init {
    
mdxinit
    mdx SetControlMDX $dname 3 ListView report single grid showsel nosortheader nolabelwrap 
$views
    did 
-i $dname 3 1 headerdims 63 50
    did 
-i $dname 3 1 headertext Karakter $chr(9Kod
    kalin 3 12
    
var %i 33
    
while %<= 255 {
      if 
$chr(%i) {
        
did -a $dname 3 $chr(%i$chr(9) %i
      
}
      
inc %i
    
}
    
did -c $dname 3 1 1
    bilgi Kopyalamak istediğiniz karakterin üzerine çift tıklayınız
.
  }
  if 
$devent == dclick {
    if 
$did == {
      var %
k $gettok($gettok($did($dname,3).seltext,4-,48),1,9)
      if %
{
        
clipboard %k
        bilgi Karakter kopyalandı
:4 $gettok($gettok($did($dname,3).seltext,4-,48),1,9)
      }
    }
  }
}
;; 
alias sanat {
  if $
{
    
set %sanat $1
  
}
  /
dialog -m sanat sanat
}
dialog sanat {
  
title "Şiir/hikaye/komik/özdeyişler"
  
size --1 438 301
  option pixels
  button 
"Kapat"32 270 76 24cancel
  
list 13 9 156 214size extsel
  tab 
"Tab 1"5, -50 -50 600 400
  edit 
""2161 9 275 214tab 5 read multi return autovs vsbar
  combo 4
3 226 155 85tab 5 size drop
  edit 
""6251 228 100 21tab 5
  button 
"Gönder"7360 226 76 24tab 5
  text 
"Rumuz/#kanal:"8174 232 72 16tab 5
  text 
"* Göndermek istediğiniz rumuz/#kanalı yazın ve gönder butonuna tıklayın. Seçtiğiniz eser otomatikman gönderilecektir."9183 255 252 44tab 5
  tab 
"Tab 2"12
  box 
"Quit ve Part Mesajları Düzenleme"13171 3 336 282tab 12
  combo 14
177 33 239 241tab 12 size hsbar vsbar
  button 
"Ekle"15425 32 76 24tab 12
  button 
"Çıkar"16425 65 76 24tab 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 okuyabiliralt 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 == && 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 == {
        
set %sanat.dosya siir
      
}
      if 
$did(sanat,4).sel == {
        
set %sanat.dosya hikaye
      
}
      if 
$did(sanat,4).sel == {
        
set %sanat.dosya komik
      
}
      if 
$did(sanat,4).sel == {
        
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 == {
      
sanat.yukle
    
}
    if 
$did == {
      if %
sanat.dosya && %sanat.{
        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 rumuzunayazı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 rumuzunayazı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 okuyabiliralt bölümdeki kutucuğa gönderilecek rumuzu/#kanalı yazıp gönderebilirsiniz.
  
if $did(sanat,4).sel == {
    
set %sanat.dosya siir
  
}
  if 
$did(sanat,4).sel == {
    
set %sanat.dosya hikaye
  
}
  if 
$did(sanat,4).sel == {
    
set %sanat.dosya komik
  
}
  if 
$did(sanat,4).sel == {
    
set %sanat.dosya ozdeyis
  
}
  var %
i 1
  
while %<= $findfile($+(texts\,%sanat.dosya),*.txt,0) {
    
did -a sanat 1 $left($nopath($findfile($+(texts\,%sanat.dosya),*.txt,%i)),-4)
    
inc %i 1
  


Bu Kodu Remote ye Ekledıkden Sonra Scriptin Alias Kısmına Sunları Eklıyoruz.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
mdxinit {
  
mdx SetMircVersion $version
  mdx MarkDialog $dname
}
kalin {
  
mdx SetFont $dname $$2 800 tahoma
}
mdx { return $dll(DLL\mdx.dll,$1,$2-) 

Ve Scriptin Icınde Texts Dosyasının Icıne Istedıklerını Ekleyebılırsın.
Ekran Görüntüsü.

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

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

Alt 09 Haziran 2009, 22:12   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




aynen yaptım ama olmadı alias dediğin aliases dosyasının en altına ekledim ama olmadı :S

 
Alıntı ile Cevapla

Alt 09 Haziran 2009, 22:30   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




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

Dosyayı mirc ana klasörüne atıyosun /load -rs siir/siir.txt şeklinde mirce yüklüyosun. Açmak için /sanat yazman yeterli..
Kolay gelsin

 
Alıntı ile Cevapla

Alt 09 Haziran 2009, 22:41   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




/sanat yazınca pencere acılıyor ama ıcındeki dosyaları gormuyor :S

 
Alıntı ile Cevapla

Alt 09 Haziran 2009, 23:24   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




Dostum içinde zaten birer örnek dosya koydum. Sen şiirlerini texts klasorunun içine at. Bu kadar zor değil yani.

 
Alıntı ile Cevapla

Alt 09 Haziran 2009, 23:31   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadaşım bende öyle yaptım ama ne senin eklediğin örnekleri görüyor nede benim attıklarımı :S

 
Alıntı ile Cevapla

Alt 10 Haziran 2009, 00:34   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




Hata veriyor mu . Varsa hata mesajını iletirmisin yardımcı olmaya çalışayım.

 
Alıntı ile Cevapla

Alt 10 Haziran 2009, 03:19   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mırce şiir vsvs eklemek




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadasım hata mesajı değil /sanat yazınca menu acılıyor ama menude sececek şiir öz deyiş yok. senin içine koyduğun örnekleri ve benim attıklarımı gormuyor.hata bu

 
Alıntı ile Cevapla

Cevapla

Etiketler
eklemek, mirc download, mirc indir, mirce, mırce, siir, vsvs, ş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