IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Belirttiğim Kanalda Korumayı Uygulamasın

Kod:

on 1:TEXT:*:#: {

  set %i 0

  :checking

  inc %i 1

  set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt 

  if (%currentsword == $null) { .unset %i | goto end }

  else {

        if (%currentsword isin $1-) { goto offense }

        else { goto checking }

  }

  :offense

  /kkufuralert

  goto end  

  :end

}

on 1:action:*:#: {

  set %i 0

  :checking

  inc %i 1

  set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt 

  if (%currentsword == $null) { .unset %i | goto end }

  else {

        if (%currentsword isin $1-) { goto offense }

        else { goto checking }

  }

  :offense

  /kkufuralert

  .goto end  

  :end

}

on 1:notice:*:#: {

  if (Serv isin $nick) || ($nick == Wcoc) || ($nick == global) || ($nick == $network) { goto end }

  set %i 0

  :checking

  inc %i 1

  set %currentsword $read -l $+ %i $mircdir\kanalkufur.txt 

  if (%currentsword == $null) { .unset %i | goto end }

  else {

        if (%currentsword isin $1-) { goto offense }

        else { goto checking }

  }

  :offense

  /kkufuralert 

  .goto end  

  :end

}

alias kkufuralert {

  if ($nick !ison $chan) {

        ban -u180 $chan $nick 2

  }

  ban -u180 $chan $nick 2

  kick $chan $nick ( Kanalda Küfürlu Konuşmak YASAKTIR! )

}

alias kkufur dialog -m kkufur kkufur

menu status,menubar,channel {

  Küfür Koruması:kkufur

}

dialog kkufur {

  title "Küfür Ekleme (Kanala Küfür Koruması)"

  size -1 -1 300 177

  option pixels

  icon $iconn

  button "Tamam", 5, 20 137 136 30, flat ok

  text "Eklenmiş oLan Küfürler:", 921, 170 5 123 15

  list 2, 170 23 119 152

  text "Eklenecek Küfür:", 9, 40 5 93 15

  edit "", 3, 16 25 140 20

  button "Ekle", 6, 18 69 66 25, flat

  button "Sil", 7, 90 69 66 25, flat

}

on 1:DIALOG:kkufur:*:*: {

  if ($devent == init) {

        kkufurview 

  }

  if ($devent == sclick) {

        if ($did == 6) { kkufuradd $did(2) $did(3)  }

        if ($did == 7) {

          if ($did(2,$did(2).sel)) { kkufurdel $did(2,$did(2).sel) }

        }

        if ($did == 12) && ($did(12).state == 1) 

        if ($did == 13) && ($did(13).state == 1) 

        if ($did == 14) && ($did(14).state == 1)

  }

}

alias kkufurdel {

  if ($1 != $null) { set %del $1 }

  write -ds $+ %del $mircdir\kanalkufur.txt | unset %del 

  kkufurview $$1 

}

alias kkufuradd {

  if ($1 == $null) { goto end }

  if ($1 != $null) { set %add $1 }

  write -ds $+ %add $mircdir\kanalkufur.txt | write $mircdir\kanalkufur.txt %add |  unset %add 

  kkufurview $$1 

  :end

  unset %add 

}

alias kkufurview  {

  set %sw.file $mircdir\kanalkufur.txt

  did -r kkufur 2

  if ($lof(%sw.file) == 0) { halt }

  set %e $lines(%sw.file) | set %num 1

  :start

  did -a kkufur 2 $read -l $+ %e %sw.file

  dec %e 1 | inc %num | if (%e < 1) { unset %e | unset %num | halt }

  else { goto start }

}

alias kkufur  { 

  set %sw.file $mircdir\kanalkufur.txt

  set %e 0 | set %lines $lines(%sw.file)

  if (%lines == 0) { goto end }

  :start | inc %e

  if (%e > %lines) { goto end }

  if (%e < %lines) { goto start }

  :end 

  unset %lines %sw.file %e  %add

}

Alıntı:

Not: Öncelikle sunu belirteyim yukarıdaki kod bir arkadastan alıntıdır.Yani calıntı deil..

Yukarıdaki addona hariç kanal listesi yapabilir miyim? Yani kısaca demek istedigim şey belirttigim kanalda korumayı uygulamıycak.Devre dısı bırakcak. Bu mumkun mu? Ben cok urastım ama bir turlu yapamadım..Yardım ederseniz sevinirim..