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

         menu channel,query,nicklist {

  -

  H » Nick Uyari Menüsü:/uyar

  -

}

alias uyar { .dialog -m uyar uyar }

dialog uyar {

  title "KiLLed Nick Uyarı Menüsü"

  size -1 -1 145 144

  option dbu

  edit "", 2, 10 15 60 10, return autohs

  list 3, 10 28 60 68, sort size

  button "Ekle", 4, 78 15 33 10

  button "SiL", 5, 78 28 33 10

  check "Uyarıyı Aç/Kapat", 10, 78 60 60 10

  check "Flash Aç/Kapat", 13, 78 72 60 10

  check "Yesil isik Aç/Kapat", 14, 78 84 60 10

  box "Nick Şeklinde Ekleyiniz...", 9, 6 4 134 110

  text " Eklenen nick nickinizi yazınca uyarı vermeyecektir", 11, 6 120 134 8

  button "Tamam", 12, 6 132 134 10, ok

  check "Ses Çal Aç/Kapat", 6, 78 48 60 10

  edit "", 7, 10 100 20 10, return autohs

  Text "Ctrl + Kod Kullanarak nick satırına Renk ver", 8, 34 101 104 8

}

on *:dialog:uyar:*:*:{

  if ($devent == edit) {

    if ($did == 7) { set %renks $did(7) }

  }

  if ($devent == sclick) {

    if ($did($dname,10).state == 1) { set %nuyar 1 } | else { set %nuyar 0 }

    if ($did($dname,13).state == 1) { set %fuyar 1 } | else { set %fuyar 0 }

    if ($did($dname,14).state == 1) { set %yiuyar 1 } | else { set %yiuyar 0 }

    if ($did($dname,6).state == 1) { set %suyar 1 } | else { set %suyar 0 }

    if ($did == 4) { .did -a uyar 3 $did(uyar,2) | .auser sus $did(uyar,2) | .did -r uyar 2 }

    if ($did == 5) { .ruser sus $did(uyar,3).seltext | .did -d uyar 3 $did(uyar,3).sel }

  }

  if ($devent == init) {

    if (%nuyar == 1) { did -c uyar 10 }

    if (%fuyar == 1) { did -c uyar 13 }

    if (%yiuyar == 1) { did -c uyar 14 }

    if (%suyar == 1) { did -c uyar 6 }

    did -ra $dname 7 %renks

    if $ulist(*,sus,0) > 0 {

      var %i 1

      while %i <= $ulist(*,sus,0) {

        .did -a uyar 3 $ulist(*,sus,%i)

        inc %i 

      }

    }

  }

}

on ^*:TEXT:$(* $+ $me $+ *):#:{ 

  if (%nuyar == 1) {

    if ($ulist($nick,sus,0) >= 1) { return }

    if ($active != $chan) {

      echo -a $timestamp 2 $nick $chan kanalında senden bahsediyor !!

      echo -a $timestamp 2 Yazdığı mesaj: " $+ $1- $+ " 

      echo $chan $timestamp 4[ < $+ $nick $+ > 4] %renks $1- 

      haltdef

    } 

    if (%suyar == 1) {

      if ($ulist($nick,sus,0) >= 1) { halt }

      if ($active != $chan) {

        .splay sounds\seniseviyorum.wav 

      }

    }

    if (%fuyar == 1) {

      if ($ulist($nick,sus,0) >= 1) { halt }

      else {

        flash $chan kanalından $nick size sesleniyor.

      }

    }

    if (%yiuyar == 1) {

      if ($ulist($nick,sus,0) >= 1) { halt }

      else {

        window -g2 #

      }

    }

  }

}

;-

on *:TEXT:$(* $+ $me $+ *):?:{ 

  if (%nuyar == 1) {

    if ($ulist($nick,sus,0) >= 1) { return }

    if ($active != $nick) {

      echo -a $timestamp 2 $nick Özelde senden bahsediyor !!

      echo -a $timestamp 2 Yazdığı mesaj: " $+ $1- $+ " 

    } 

  }

  if (%fuyar == 1) {

    if ($ulist($nick,sus,0) >= 1) { halt }

    else {

      flash $nick özelden size sesleniyor.

    }

  }

}