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/)
-   -   Kod yerleştirmede hata (https://www.ircforumlari.net/mirc-scripting-sorunlari/562792-kod-yerlestirmede-hata.html)

Kimimben 02 Şubat 2014 17:49

Kod yerleştirmede hata
 

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

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:

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

Cevap: Kod yerleştirmede hata
 
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

Cevap: Kod yerleştirmede hata
 
Kod:

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

Cevap: Kod yerleştirmede hata
 
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

Cevap: Kod yerleştirmede hata
 
Listeden seçili olan kanala girecek şekilde ayarlamıştım.
Tüm kanallara giriş için ;


Kod:

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

Cevap: Kod yerleştirmede hata
 
Box yerine yazdırmıssın normaldir :)

Kimimben 02 Şubat 2014 20:30

Cevap: Kod yerleştirmede hata
 
Malesef son verilen kodda sanırım ufak bi sorun var gibi Gir diyince Donduruyor mIRC i

TeknikShell 02 Şubat 2014 21:14

Cevap: Kod yerleştirmede hata
 
Alıntı:

KiMiiMBeN Nickli Üyeden Alıntı (Mesaj 1041387764)
Malesef son verilen kodda sanırım ufak bi sorun var gibi Gir diyince Donduruyor mIRC i


Alt kısımda
Kod:

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

Olan kısmı

Kod:

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

Cevap: Kod yerleştirmede hata
 
pc ye geçince düzeltirim.

Kimimben 02 Şubat 2014 21:40

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

Kimimben 15 Şubat 2014 21:34

Cevap: Kod yerleştirmede hata
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu resimde kelimeyi yazıp ekle butonuna basınca dialogumda kelimeyi eklemek istiyorum ekleme komutu söle
Kod:

/set -u2 %spamkelime $$?="Reklam, Kufur gibi eklenen kelimelere Gline Atacaktır" | /spamfilter add cpnNPqdu gline 999d Guvenlik %spamkelime | /msg #Kontrol .glineekle $+(*,%spamkelime,*)
Dialog
Kod:

dialog cvc {
  title "Spam Listesi"
  size -1 -1 134 152
  option dbu
  edit "", 4, 2 111 81 10
  box "", 5, 2 122 129 15
  text " Silmek için kelimenin ustunu çift tıklayınız.", 6, 3 127 126 8
  button "Kapat", 7, 2 138 129 12, ok
  button "Ekle", 2, 83 111 47 10
  list 1, 2 4 129 103, size vsbar
}

Yardımcı olacak arkadaşlara tsk ederim.

IRC-Dancer 15 Şubat 2014 22:20

Cevap: Kod yerleştirmede hata
 
;--- Genel olarak hep aynı hatalar yapılmakta.Spamfilter'i kullanmadan önce genel olarak bilgi edinme mecburiyetindesiniz.
;--- Ordaki tek bir hata bütün sunucuyu ucura bilir.Gzline ekliyorsun ; '' cpnNPqdu '' qd < bunlar işlevinde yok saten.en onemlisi ; '' a - c - p '' olandır.Gerisi sunucu Looking le alakalı : u gibi.
;--- Ekle - Kontrol - Liste - Sil < olmatıktan sonra , elindeki kod hiç bir işe yaramaz.Çünki yaptıgın hatayı silesiye kadar ; Sunucu coktan ucar.
Burayı gözden geçir : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

;--- F tuşlarıylada yapabilirsin istersen dialog kısmı ilede.
Kod:

F1 /Spamfilter add u block 24h 1[2IRC_Security_Protection] ( $+ $$?="Yasaklayacağınız Nick?" $+ !.+@.+:.+)$ 
F2 /spamfilter add u block 24h 1[2IRC_Security_Protection] (.+! $+ $$?="Yasaklayacağınız Ident?" $+ @.+:.+)$
F3 /Spamfilter add u block 24h 1[2IRC_Security_Protection] ( $+  .+!.+@.+: $+ $$?="Yasaklayacağınız FULL" $+ )$ 
F4 /Spamfilter add c gzline 24h [Spam] $$?="Yasak Kanal Sebeb gLine"
F5 /Spamfilter add c  block - [Spam]  $$?="Yasak Kanal Sebeb bLock"
F6 /Spamfilter add p block - [Spam]  $$?="Yasak Özel Sebeb bLock"

;--- Spamfilter kullanacaksanda Dialoglu kullanmanı öneririm.
Kod:

dialog spamdialog {
  title "Spamfilter Dialog | Ekleme - Silme - Düzenleme | "
  size -1 -1 405 250
  option dbu
  list 1, 10 10 285 132, size extsel hsbar
  box "Görüntüle - Düzenle", 2, 300 7 95 135
  text "Hedef:", 3, 304 28 25 8
  text "Uygulama:", 4, 344 28 30 8
  text "Süre:", 5, 344 50 20 8
  text "Sebep:", 6, 304 72 25 8
  text "Yakalanacak Metin:", 7, 304 94 61 8
  text "Ekleyen:", 8, 304 116 50 8
  edit "", 9, 303 36 35 10, read
  edit "", 10, 343 36 35 10, read
  edit "", 11, 343 58 35 10, read
  edit "", 14, 303 80 85 10, read
  edit "", 13, 303 102 85 10, read
  edit "", 12, 303 124 85 10, read
  check "Düzenle", 15, 353 13 35 10
  combo 17, 343 36 35 50, hide size drop
  combo 18, 343 58 35 50, hide size drop
  check "c", 19, 303 36 10 10, hide push
  check "p", 20, 314 36 10 10, hide push
  check "n", 21, 325 36 10 10, hide push
  check "a", 22, 303 47 10 10, hide push
  check "N", 23, 314 47 10 10, hide push
  check "d", 24, 325 47 10 10, hide push
  check "t", 25, 303 58 10 10, hide push
  check "u", 26, 314 58 10 10, hide push
  check "P", 27, 325 58 10 10, hide push
  button "Sıfırla", 62, 309 119 35 12, hide
  button "Uygula", 28, 353 119 35 12, hide
  box "Yeni Spam Ekle:", 16, 10 163 385 65
  box "Hedef:", 29, 15 172 166 50
  check " c : Kanal Msj.", 30, 20 182 43 10
  check " p : Özel Msj.", 31, 70 182 43 10
  check " a : Away Msj.", 32, 125 182 45 10
  check " n : Özel Notice", 33, 20 194 50 10
  check " N : Kanal Notice", 34, 70 194 50 10
  check " d : DCC", 35, 125 194 35 10
  check " t : Topic", 36, 20 206 30 10
  check " u : nick!user@host:realname", 37, 98 206 80 10
  check " P : Part Msj.", 38, 54 206 40 10
  box "Uygulama:", 61, 185 172 100 50
  radio "Kill", 39, 190 182 28 10, group
  radio "Shun", 40, 190 194 28 10
  radio "kline", 41, 190 206 28 10
  radio "Gline", 42, 219 182 28 10
  radio "Zline", 43, 219 194 28 10
  radio "gzline", 44, 219 206 28 10
  radio "Block", 45, 248 182 30 10
  radio "DccBlock", 46, 248 194 32 10
  radio "TempShun", 47, 248 206 34 10
  text "Sebep:", 48, 290 177 19 8
  edit "", 49, 310 176 80 10, autohs
  text "Yakalanacak Metin:", 50, 290 190 52 8
  edit "", 51, 290 198 100 10, autohs
  button "Ekle", 52, 360 211 30 12
  button "Yenile", 53, 70 147 37 12
  button "Tamam", 54, 147 233 35 12, ok
  button "Kapat", 55, 222 233 35 12, cancel
  button "Seçilen(ler)i Sil", 56, 10 147 50 12
  text "Süre:", 57, 290 213 17 8
  combo 58, 310 212 35 50, size drop
  check "Spamfilteri TXT'den Okut:", 59, 311 149 69 10, left
  box "", 60, 300 142 95 21
}


on *:dialog:spamdialog:init:*:{
  didtok $dname 17 44 kill,shun,gzline,gline,zline,kline,block,dccblock,tempshun
  didtok $dname 18,58 44 -,15dk.,30dk.,45dk.,1saat,3saat,5saat,1gün,5gün,10gün
  did -c $dname 58 1
  $iif(%spm_txt,did -c $dname 59)
}
on *:dialog:spamdialog:sclick:59:{
  if %spm_txt { unset %spm_txt | did -u $dname 59 } | else { set %spm_txt 1 | filter -if $dname 1 spamlist.txt | did -c $dname 59 }
}
on *:dialog:spamdialog:sclick:15:{
  var %satır = $did(1,$did(1).sel).text
  did -v $dname 8-12 | did -h $dname 17-28,62 | did -m $dname 13,14 | did -u $dname 19-27
  if $did(15).state == 1 {
    did -h $dname 8-12 | did -v $dname 17-28,62 | did -n $dname 13,14 | did -u $dname 19-27
    did -c $dname 17 $findtok($didtok(17,44),$did(10,$did(10).sel).text,1,44)
    did -c $dname 18 $findtok($didtok(18,44),$did(11,$did(11).sel).text,1,44)
    if c isincs $gettok(%satır,2,32) { did -c $dname 19 }
    if p isincs $gettok(%satır,2,32) { did -c $dname 20 }
    if n isincs $gettok(%satır,2,32) { did -c $dname 21 }
    if a isincs $gettok(%satır,2,32) { did -c $dname 22 }
    if N isincs $gettok(%satır,2,32) { did -c $dname 23 }
    if d isincs $gettok(%satır,2,32) { did -c $dname 24 }
    if t isincs $gettok(%satır,2,32) { did -c $dname 25 }
    if u isincs $gettok(%satır,2,32) { did -c $dname 26 }
    if P isincs $gettok(%satır,2,32) { did -c $dname 27 }
  }
}
on *:dialog:spamdialog:sclick:1:{
  var %satır = $did(1,$did(1).sel).text
  if ($gettok(%satır,1,32) === f) {
    did -ub $dname 15 | did -v $dname 8-12 | did -h $dname 17-28,62 | did -m $dname 13,14 | did -u $dname 19-27
  }
  if ($gettok(%satır,1,32) === F)  {
    did -eu $dname 15 | did -v $dname 8-12 | did -h $dname 17-28,62 | did -m $dname 13,14 | did -u $dname 19-27
  }
  if $did(15).state == 1 {
    did -u $dname 19-27
  }
  if ($did(1,0).sel > 1) { did -ub $dname 15 | did -r $dname 9-14 }
  else {
    did -ra $dname 9 $gettok(%satır,2,32)
    did -ra $dname 10 $gettok(%satır,3,32)
    did -ra $dname 11 $süre_spm($gettok(%satır,4,32))
    did -ra $dname 12 $gettok($gettok(%satır,6,32),1,33)
    did -ra $dname 13 $gettok(%satır,7-,32)
    did -ra $dname 14 $gettok(%satır,5,32)
  }
}
on *:dialog:spamdialog:sclick:62:{
  var %satır = $did(1,$did(1).sel).text
  did -u $dname 19-27
  did -c $dname 17 $findtok($didtok(17,44),$did(10,$did(10).sel).text,1,44)
  did -c $dname 18 $findtok($didtok(18,44),$did(11,$did(11).sel).text,1,44)
  did -ra $dname 13 $gettok(%satır,7-,32)
  did -ra $dname 14 $gettok(%satır,5,32)
  if c isincs $gettok(%satır,2,32) { did -c $dname 19 }
  if p isincs $gettok(%satır,2,32) { did -c $dname 20 }
  if n isincs $gettok(%satır,2,32) { did -c $dname 21 }
  if a isincs $gettok(%satır,2,32) { did -c $dname 22 }
  if N isincs $gettok(%satır,2,32) { did -c $dname 23 }
  if d isincs $gettok(%satır,2,32) { did -c $dname 24 }
  if t isincs $gettok(%satır,2,32) { did -c $dname 25 }
  if u isincs $gettok(%satır,2,32) { did -c $dname 26 }
  if P isincs $gettok(%satır,2,32) { did -c $dname 27 }
}
on *:dialog:spamdialog:sclick:28:{
  var %satır = $did(1,$did(1).sel).text
  var %y = 19 { while %y <= 27 { if $did(%y).state == 1 { set -u5 %hedef $addtokcs(%hedef,$did(%y),44) } | inc %y } }
  spamfilter del $gettok(%satır,2,32) $gettok(%satır,3,32) $gettok(%satır,4,32) $gettok(%satır,5,32) $gettok(%satır,7-,32)
  spamfilter add $remove(%hedef,$chr(44)) $did(17,$did(17).sel).text $saniye($did(18,$did(18).sel).text) $&
    $iif(!$did(14),-,$replace($did(14),$chr(32),$chr(95))) $did(13)
  noop $input(Spamfilter belirttiğiniz şekilde düzenlendi.,o)
  if %spm_txt {
    write $+(-l,$did(1).sel) spamlist.txt F $remove(%hedef,$chr(44)) $did(17,$did(17).sel).text $&
      $saniye($did(18,$did(18).sel).text) $iif(!$did(14),-,$replace($did(14),$chr(32),$chr(95))) $&
      $address($me,5) $did(13)
  loadbuf -ro $dname 1 spamlist.txt } | else { did -r $dname 1 | stats f }
}
on *:dialog:spamdialog:sclick:56:{
  if $did(1,0).sel == 1 {
    if $left($did(1).seltext,1) === f { noop $input(Bu spamfilter silinemez!,ohud,Hata!) | goto son }
    spamfilter del $gettok($did(1).seltext,2-5,32) $gettok($did(1).seltext,7-,32)
    $iif(%spm_txt,write $+(-d,$did(1).sel) spamlist.txt)
  }
  else {
    var %a = 1
    while %a <= $did(1,0).sel {
      $iif($left($did(1,$did(1,%a).sel).text,1) === f, inc %h)
      spamfilter del $gettok($did(1,$did(1,%a).sel).text,2-5,32) $gettok($did(1,$did(1,%a).sel).text,7-,32)
      $iif(%spm_txt,write $+(-d,$did(1).sel) spamlist.txt)
      inc %a
    }
  }
  noop $input(Seçtiğiniz $qt($did(1,0).sel) spamfilter girdisinden $qt($calc($did(1,0).sel - %h)) tanesi silindi.,o)
  unset %h | did -r $dname 1 | $iif(%spm_txt,loadbuf -o $dname 1 spamlist.txt,stats f)
  :son
}
on *:dialog:spamdialog:sclick:53:{ did -r $dname 1 | $iif(%spm_txt,loadbuf -o $dname 1 spamlist.txt,stats f) }
on *:dialog:spamdialog:sclick:52:{
  var %y = 30 { while %y <= 38 { if $did(%y).state == 1 { set -u5 %hedef $addtokcs(%hedef,$mid($did(%y),2,2),44) } | inc %y } }
  var %z = 39 { while %z <= 47 { if $did(%z).state == 1 { set -u5 %uygulama $lower($did(%z)) } | inc %z } }
  if (!%hedef || !%uygulama) { noop $input(Yeni spamfilter için hedef ya da uygulama seçmediniz!,ohud,Hata!) }
  else {
    spamfilter add $remove(%hedef,$chr(44)) %uygulama $saniye($did(58,$did(58).sel).text) $&
      $iif(!$did(49),-,$replace($did(49),$chr(32),$chr(95))) $did(51)
    $iif(%spm_txt,write spamlist.txt F $remove(%hedef,$chr(44)) %uygulama $saniye($did(58,$did(58).sel).text) $&
      $iif(!$did(49),-,$replace($did(49),$chr(32),$chr(95))) $address($me,5) $did(51))
    noop $input(Belirttiğiniz spamfilter eklendi.,o)
    did -r $dname 1,49,51
    did -u $dname 30-47
    did -c $dname 58 1
    $iif(%spm_txt,loadbuf -o $dname 1 spamlist.txt,stats f)
  }
}
alias süre_spm { return $replace($duration($1),secs,saniye,sec,saniye,mins,dk.,hrs,saat,days,gün,day,gün,wk,hafta,min,dk.,Hr,saat) }
alias saniye {
  if gün isin $1- { return $calc($remove($1-,gün) * 86400) }
  if dk. isin $1- { return $calc($remove($1-,dk.) * 60) }
  if saat isin $1- { return $calc($remove($1-,saat) * 3600) }
  else { return - }
}
menu status,query,channel {
  $iif(o !isincs $usermode,$style(2)) Spamfilter Dialog:spamdialog
}
alias -l spamdialog { dialog $iif($dialog(spamdialog),-v,-m spamdialog) spamdialog | stats f }
raw 229:*:{ if $dialog(spamdialog) { tokenize 32 $1- | did -az spamdialog 1 $2-4 $7- | halt } }
raw 219:*:{ if $2 === f && $dialog(spamdialog) { $iif(%spm_txt,filter -if spamdialog 1 spamlist.txt) | halt } }

;--- Bütün ayrıntılarıyla mevcuttur.

Kimimben 15 Şubat 2014 22:28

Cevap: Kod yerleştirmede hata
 
Öncelikle tskler ama bahsettigim kendi dialogumda olanı yapmak ve benim o dialogumda listeleme yaptırdım dialog acılınca ekli olanları zaten gösteriyor simdi ekleme yaptıracam

IrCbaStarD 15 Şubat 2014 23:57

Cevap: Kod yerleştirmede hata
 
on *:dialog:cvc:sclick:2:var %kelime $did($dname,4) | spamfilter add cpnNPqdu gline 999d Guvenlik %kelime | msg #Kontrol .glineekle $+(*,%kelime,*)

Kimimben 16 Şubat 2014 00:20

Cevap: Kod yerleştirmede hata
 
Kod ile kelime eklendi ama anında dialoga geçirmemiş

IrCbaStarD 16 Şubat 2014 02:38

Cevap: Kod yerleştirmede hata
 
Alıntı:

KiMiiMBeN Nickli Üyeden Alıntı (Mesaj 1041393618)
Kod ile kelime eklendi ama anında dialoga geçirmemiş

dediğin dialogdaki list kontrolune eklemek ise, "did -a $dname 1 %kelime" yide eklemelisin oraya. :)

ScorpioN 16 Şubat 2014 10:06

Cevap: Kod yerleştirmede hata
 
Ircbastardin dediği seyi sclick uygularken yapacak sekilde eklemelisin.Tum kelimeleri listte gostermek icin de dialog acarken init kismina okutup listelemesini sağlamalisin.

Yine de sunu diyeyim ki veriable yerine userliste eklemen her zaman daha pratik ve duzenli olacaktir.

Yine de yapamadiysaniz burdan yardimci olmaya calisayim.

Kimimben 16 Şubat 2014 12:53

Cevap: Kod yerleştirmede hata
 
Kod:

on *:dialog:cvc:sclick:2:var %kelime $did($dname,4) | spamfilter add cpnNPqdu gline 999d Guvenlik %kelime | msg #Kontrol .glineekle $+(*,%kelime,*) did -a $dname 1 %kelime
on *:dialog:cvc:dclick:1: did -d $dname 1 $did(1).sel
on *:dialog:cvc:sclick:2: {
  if ($did(4)) {
    did -a $dname 1 $did(4)
    did -r $dname 4
  }
}

Evet denemelerim olumlu olmadığı için kodu burdan paylaşayım

ScorpioN 16 Şubat 2014 14:25

Cevap: Kod yerleştirmede hata
 
Kod:

dialog cvc {
  title "Spam Listesi"
  size -1 -1 134 152
  option dbu
  edit "", 4, 2 111 81 10
  box "", 5, 2 122 129 15
  text " Silmek için kelimenin ustunu çift tıklayınız.", 6, 3 127 126 8
  button "Kapat", 7, 2 138 129 12, ok
  button "Ekle", 2, 83 111 47 10
  list 1, 2 4 129 103, size vsbar
}
on *:dialog:cvc:init:*:{
  var %p = 1
  while (%p <= $ulist(*,spamkel,0)) {
    did -a cvc 1 $ulist(*,spamkel,%p)
    inc %p
  }
}
on *:dialog:cvc:sclick:*:{

  if ($did == 2) {
    auser spamkel $did(4)
    did -a $dname 1 $did(4)
    spamfilter add cpnNPqdu gline 999d Guvenlik $did(4)
    msg #Kontrol .glineekle $+(*, $+ $did(4) $+ ,*)
  }
}
on *:dialog:cvc:dclick:*:{
  if ($did == 1) {
    msg #Kontrol .glinesil $+(*,$did(1).seltext,*)
    ruser spamkel $did(1).seltext
    spamfilter del cpnNPqdu gline 999d Guvenlik $did(1).seltext
    did -d $dname 1 $did(1).sel


  }
}


#Kontrol kanalına .glineekle yada .glinesil komutları ile bota işlem mi yaptırıyorsunuz.
Eğer öyleyse tekrar /spamfilter add ve /spamfilter del komutlarına gerek yok.onların olduğu satırları silin.

Kimimben 16 Şubat 2014 17:21

Cevap: Kod yerleştirmede hata
 
Glineekle ile botada ekliyor ben kelime eklediğim zaman hem bota hemde spamfiltere ikisinede aynı anda ekletiyordum ben bunu f tuşları ile yapıyordum mesela f1 ekleme f2 silme f3 ilede aktif pencereme listeletiyordum ama ben bunu dialoga çevirdim tek dialogda listeleme silme ekleme yapmak için simdi senin kodu koydum bu seferde listelemeyi göstermedi listelemek içinde söyle bir kodum var
Kod:

#yasaklikelimeler off
raw 229:*:{
  if (Guvenlik == $8) {
    spam
    did -a cvc 1 $10
  }
  halt
}
raw 229:*: { /halt }
raw 219:*: { /halt }
#yasaklikelimeler end
alias yasaklikelimeler {
  .enable #yasaklikelimeler
  .spamfilter
  .timer 1 2 .disable #yasaklikelimeler
}

Bununla spamdaki kelimeleri listeliyordum dialoga ve statüde bunları gizleyerek yaptım ama simdi listemelede sorun verdi.Senin son koodda ekleme yaptı dialogda anında gösterdi hem bota hemde spamfilter burasıda tmm simdide listelemede sorun verdi. Kayıtlı kelimeleri mrc den almıyor spamfilter ile Güvenlik diye eklenenleri listeliyor.

Kimimben 17 Şubat 2014 01:21

Cevap: Kod yerleştirmede hata
 
Sorunu halletim tşk ederim yardım edenlere.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02: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