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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - nickezline (https://www.ircforumlari.net/mirc-scripting-sorunlari/135008-nickezline.html)

s.a ben bır addon yapmaya calısıyorum addonun kodu su

Kod:

on !*:join:#:if $read(ark.txt,w,$nick) { .timer 1 1 .msg # $read(bot/h.g.txt) | elseif $read(shun.txt,w,$nick) { shun $nick Küfür. }

ayrı ayır yapayım dedım olmadı bu ılk diyalog denemem bu arada :)

Ben basladım ama yapamaıyorum

Kod:

alias nickezline { if (!$dialog(nickezline)) dialog -m nickezline nickezline }

dialog nickezline {

  title "zline Rumuz Koruması"

  size -1 -1 200 180

  option dbu

  text "..:: Rumuz Listesi ::..", 999, 20 10 60 10

  combo 1, 5 20 90 130

  button "Ekle (+)", 2, 4 146 27 13

  button "Çıkar (-)", 3, 32 146 27 13

  button "Temizle (!)", 4, 60 146 35 13

  box "Kick Mesajınız", 10, 101 60 93 40

  edit "", 11, 106 76 83 10, autohs

  box "Açıklamalar", 12, 101 103 93 55

  text "zline Rumuz Koruması", 13, 106 110 85 40

  link "", 14, 108 164 52 15

  button "Kapat!", 15, 168 161 27 13

  text "..:: zline Rumuz Koruması ::..", 16, 13 165 80 10,disable

}

on *:dialog:nickezline:*:*:{

  if ($devent == init) {

    loadbuf -o $dname 1 $shortfn(kufur.txt) | did -c $dname 1 1

    did -a $dname 11 %kckmsg

  }

  if ($did == 15) {

    if ($did(11) == $Null) {

      echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.

      dialog -x nickezline nickezline 

      set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4*/Nick YeniRumuz* 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

    }

    else {

      set %kckmsg $did(11)

      dialog -x nickezline nickezline

    }

  }

}

}

on *:join:#:{

if $nickezline($nick) {

  if $istok(#turkiye #oyun #radyo #egitim,$chan,32) { halt }

  shun $Nick %kckmsg

  kick # $nick %kckmsg

}

}

Cevap: nickezline

Öncelikle "/nickezline" aliası, yalnızca dialog açmaya tanımlanmış. Bu nedenle, $nickezline($nick) gibi bir identifier kesinlikle çalışmayacaktır. Ayrıca dialog'un için oluşturduğun eventta da tonla hata var, olabildiğine kodu düzelttim. İşte kod:

Kod:

on *:dialog:nickezline:*:*:{

  if $devent == init { loadbuf -o $dname 1 $shortfn(kufur.txt) | did -c $dname 1 1 | did -a $dname 11 %kckmsg }

  if $devent == sclick {

    if $did == 2 { .auser zln %nck | echo *** %zln nicki, listeye başarıyla eklendi. | unset %zln }

    if $did == 3 { .ruser zln %nck | echo *** %zln nicki, listeden başarıyla silindi. | unset %zln }

    if $did == 15 {

      if !$did(11) { echo $timestamp *** Kick mesajı belirlenmediği için orjinal mesaj kullanılacak. | dialog -x nickezline nickezline | set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan niteliktedir. 4*/nick <yeni-rumuz>* 1komutuyla, rumuzunuzu değiştirmeden kanala giriş yapamazsınız. }

      else set %kckmsg $did(11) | dialog -x nickezline nickezline }

    }

  }

}

on !*:join:#:if $istok(#kanal1 #kanal2 #kanal3,#,32) { if $level($nick) == zln { shun $nick %kckmsg | kick # $nick %kckmsg } | else $iif($dialog(nickezline),dialog -m nickezline nickezline) }

Önemli: Verdiğin event kodlarını (on DIALOG ve on JOIN) silip, yukarıdakini ekleyeceksin. Dialog kodlarında herhangi bir değişiklik yapmana gerek yok.

Umarım işine yarar. Kolay gelsin.