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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Reklam , Argo Kontrol Addonu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/33634-reklam-argo-kontrol-addonu.html)

Reklam , Argo Kontrol Addonu

Kod:

#text on

on *:start:{ write argo.txt *a.q* | set %argo.kelime 0,4 Yasaklanmış Kelimeyi Kullandınız.! | disable #text }

#text end

alias argo { dialog -m argo argo }

menu status,channel {

  -

  Argo List:/.argo

  Korumayı Aç:/.enable #argo

  Korumayı Kapat:/.disable #argo

  -

}

dialog argo {

  title "Küfür Ekle Kaldır"

  size -1 -1 113 170

  option dbu

  list 1, 4 37 104 96, size

  button "Ekle", 2, 4 134 37 12

  button "Sil", 3, 70 134 37 12

  check "Korumayı Aç", 4, 5 6 50 10

  text "Kick Sebebi", 5, 5 23 31 8

  edit "", 6, 40 22 69 10, autohs

  button "Kapat !", 7, 38 155 37 12, flat ok

}

on *:dialog:argo:*:*:{

  if ($devent == init) {

    if ($group(#argo).status == on) { did -c argo 4 }    

    did -a argo 6 %argo.kelime

    var %i 1

    while (%i <= $lines(argo.txt)) {

      did -a argo 1 $read(argo.txt,%i)

      inc %i

    }

  }

  if ($devent == sclick) {

    if ($did == 2) {

      var %i $?"Argo Kelimeyi Ekleyin"

      write argo.txt %i

      did -a argo 1 %i

    }

    if ($did == 3) {

      if ($did(1).sel != $null) {

        write $+(-ds,$did(1).seltext) argo.txt

        did -d $dname 1 $did(1).sel

      }

    }

    if ($did == 4) {

      if ($did(4).state == 1) { enable #argo }

      else { disable #argo }

    }

  }

  if ($devent == edit) {

    set %argo.kelime $did(6)

  }

}

#argo on

on *:TEXT:*:#: {

  var %i 1

  while (%i <= $lines(argo.txt)) {

    if ($read(argo.txt,%i) iswm $1-) { ban -k $chan $nick %argo.kelime }

    inc %i

  }

}

#argo end

Arkadaşlar işinize yarayacaktır.!

Cevap: Reklam , Argo Kontrol Addonu

Emeğine Sağlık
Güzel Çalışmaların Var Tebrikler..

Cevap: Reklam , Argo Kontrol Addonu

Teşekkürler dahada güzel şeyler gelicek.!

Cevap: Reklam , Argo Kontrol Addonu

Bencede Geleceğini Biliyorm Sanırım mIRc.com.tr ...
--
EMEĞE SAYGI

Cevap: Reklam , Argo Kontrol Addonu

dostum eline koluna saglık yanlız bir şeyi gözden kacırmışsın oplarısa uyarıyor soplarıda onuda halt edersen tam süper olacak ::)

Cevap: Reklam , Argo Kontrol Addonu

Alıntı:

SaintCty Nickli Üyeden Alıntı (Mesaj 237628)

dostum eline koluna saglık yanlız bir şeyi gözden kacırmışsın oplarısa uyarıyor soplarıda onuda halt edersen tam süper olacak ::)

İşe yaradıkdan sonra sorunlar düzeltilir. ;)

Kısa zamanda içinde daha gelişmişini ve verimlisini paylasıcam suanda codluyorum.

Yanıt: Reklam , Argo Kontrol Addonu

Çok GüzeL Eline Emegine SAgLık

Cevap: Reklam , Argo Kontrol Addonu

yahu güzel diyceğinize bu dehaya bi teşekkür atın daa ((:

Cevap: Reklam , Argo Kontrol Addonu

Alıntı:

7610 Nickli Üyeden Alıntı (Mesaj 241456)

yahu güzel diyceğinize bu dehaya bi teşekkür atın daa ((:

Eğer Deha Moderator Olsaydı Atarlardı...

Emeğine Sağlık Özel MEsaj Attım Bakarsan Sevinirim...

Cevap: Reklam , Argo Kontrol Addonu

teşekkürler arkadaşlar. utandırmayın beni.