Kod yerleştirmede hata - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kimimben · 02 Şubat 2014, 17:49

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

Sa Resimde görüldüğü bir dialog yapmaya calısıyorum dialog oldu ama kodlarda sorun var yardımcı olursanız sevinirim dialogun görevi kanal isimlerini eklemek ve eklenenleri listede alt alta çıkarmak şuan kanal isimlerini listede deyilde üst kısımda atmış gösteriyor bunu listeye atamadım sonra Gir butonuna basınca girmek birde eklemeyi yapamadım yardımcı olacak arkadaşa simdiden tsk ederim

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog tkgir {
  title "Kanallar Gir"
  size -1 -1 112 86
  option dbu
  box "", 1, 2 2 107 81
  edit "", 2, 5 10 57 68
  button "Gir", 3, 63 41 41 20
  button "Kapat", 4, 63 62 41 15, ok
  edit "", 6, 63 19 40 10
  button "Ekle", 7, 63 30 40 9
  text " Kanal ismi", 8, 64 10 28 8
}
on *:dialog:tkgir:init:*:{ 
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(222,254,219)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 +b Turkish 11 Tahoma 550
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 textbg $rgb(222,154,219)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 background $rgb(222,154,219)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 text $rgb(0,0,100) 
  $iif(%tkall,did -ra $dname 1 %tkall,did -a $dname 1 #Guzyeli #Sohbet #Radyo #Kelime #islam #Test #Bilgi #Yarisma) 
}
on *:dialog:tkgir:sclick:3:{ set %tkall $did(1).text | tokenize 32 $did(1).text | join $* }

twopac · 02 Şubat 2014, 18:14

Onu Bilemem Ama Zahmetsiz Bir Yöntem Önerebilirim..

/gir /j #chat,#sohbetl,#almanya,#avusturya,#kanalekle,#kan alekle,#kanalekle, vs coğaltabilirsin.

Bunu Ctrl R yaparak Alias kismina ekleyip; serverda iken /gir yazdiğinda eklediğin bütün kanallara otamatik girecektir.. Addon olarakta mirci kasmamiş olursun bu sade bir yöntem..

DnizaL · 02 Şubat 2014, 18:19

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog tkgir {
  title "Kanallar Gir"
  size -1 -1 112 86
  option dbu
  list 1, 5 10 57 68
  button "Gir", 3, 63 41 41 20
  button "Kapat", 4, 63 62 41 15, ok
  edit "", 2, 63 19 40 10
  button "Ekle", 7, 63 30 40 9
  text " Kanal ismi", 8, 64 10 28 8
}

on *:dialog:tkgir:*:*:{
  if $devent == init {
    mdx MarkDialog $dname
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) { 
      did -a tkgir 1 $ulist(*,kanal,%z)
      inc %z
    }
  }
  if $devent == dclick && $did == 1 {
    ruser Kanal $did(1).seltext
    did -d $dname 1 $did(1).sel
  }
  if $devent == sclick && $did == 7 && $did(2) {
    auser kanal $did(2)
    did -a $dname 1 $did(2)
  }
  if $devent == sclick && $did == 3 {
    join $did(1).seltext
  }
}

Kimimben · 02 Şubat 2014, 18:43

DnizaL Tsk ederim kod gayet istediğim gibi sadece kanal isimlerini dialoga atıyor ama gir diyince hepsine girmiyor

DnizaL · 02 Şubat 2014, 18:54

Listeden seçili olan kanala girecek şekilde ayarlamıştım.
Tüm kanallara giriş için ;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog tkgir {
  title "Kanallar Gir"
  size -1 -1 112 86
  option dbu
  list 1, 5 10 57 68
  button "Gir", 3, 63 41 41 20
  button "Kapat", 4, 63 62 41 15, ok
  edit "", 2, 63 19 40 10
  button "Ekle", 7, 63 30 40 9
  text " Kanal ismi", 8, 64 10 28 8
}

on *:dialog:tkgir:*:*:{
  if $devent == init {
    mdx MarkDialog $dname
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) { 
      did -a tkgir 1 $ulist(*,kanal,%z)
      inc %z
    }
  }
  if $devent == dclick && $did == 1 {
    ruser Kanal $did(1).seltext
    did -d $dname 1 $did(1).sel
  }
  if $devent == sclick && $did == 7 && $did(2) {
    auser kanal $did(2)
    did -a $dname 1 $did(2)
  }
  if $devent == sclick && $did == 3 {
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) {
    join $ulist(*,kanal,%z)
    }
  }
}

TeknikShell · 02 Şubat 2014, 19:12

Box yerine yazdırmıssın normaldir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kimimben · 02 Şubat 2014, 20:30

Malesef son verilen kodda sanırım ufak bi sorun var gibi Gir diyince Donduruyor mIRC i

TeknikShell · 02 Şubat 2014, 21:14

KiMiiMBeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Malesef son verilen kodda sanırım ufak bi sorun var gibi Gir diyince Donduruyor mIRC i

Alt kısımda

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 if $devent == sclick && $did == 3 {
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) {
    join $ulist(*,kanal,%z)
    }

Olan kısmı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 if $devent == sclick && $did == 3 {
    var %z = 1
    while (%z <= $ulist(*,kanal,0)) {
    join $ulist(*,kanal,%z)
    inc %z
    }

olarak degiştir.

DnizaL · 02 Şubat 2014, 21:22

pc ye geçince düzeltirim.

Kimimben · 02 Şubat 2014, 21:40

Sorun hal olmuştur Teknikshell'in son verdiği ile düzelmiştir önce Dnizal sonrasında Teknikshell Tsk ederim

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
phpMyAdmin 2.8.0-rc1 (HATA) girişte hata	troyka	PHP	3	14 Temmuz 2007 22:23
Unreal Kurulumu - Hata Hata Hata :@	fatal	Unreal IRCd	2	20 Şubat 2007 18:46

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.