!ban-!unban-!kick-!op-!deop vs... Kodları - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

mmycropp · 20 Temmuz 2014, 15:23

User defined channel flags:
-komutlar

aktif duruma nasıl getirebilirim ?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:23 -->-> Daha önceki mesaj 15:18 --

tamam şimdi komutlar çalıştı ancak,

<.mycrop> !kick dsa
-Mycro-Bot- Houston sesim geliir mü?
<.mycrop> !kick dsa noway
-Mycro-Bot- Houston sesim geliir mü?
<.mycrop> !opla dsa
<.mycrop> !banla dsa
-Mycro-Bot- Houston seninle benim bir sorunumuz olduğu kesin!...
<.mycrop> !temizle
-Mycro-Bot- of Houston of...işimiz var seninle...

saywhat · 20 Temmuz 2014, 15:54

örnek olarak !kick komutu için istenen şartlar:

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

 {[onchan $hedef $chan] && [botisop $chan] && ![isbotnick $hedef]} {

kickle diye verilen "hedef" kanalda mı? ve bot kanalda op mu? ve hedef bot değilse ...
şartları konulmuş ..bu şartlar var ise istenen komut uygula, şartlardan herhangi biri uyuşmuyorsa o aldığınız "sorun" çıktısı verip uyarıyor sizi...

her komutta bu uyarıyı aldığınıza bakarak ,botunuz kanalda "op" değilmiş gibi düşündürüyor.. çünkü her komutta botun kanalda op olması "koşul" olarak istenmiş....
(!opla komutu yok benim verdiğim kodda !deopla var.. başka başka komutlar eklenip komut sayısı istendiği kadar çoğaltılabilir ....)

saywhat · 20 Temmuz 2014, 18:31

arka sayfadaki koddaki komutlara (kick,banla,temizle,deopla,voice) komutlarına ek olarak,
opla, devoice, halfop, dehalfop, rehash, restart, die, hata, gir , çık ve cycle komutları eklenmiş hali :

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

# .chanset #kanal +komutlar
# kanal üstünde aktif eder.
setudef flag komutlar

# komutlara erişimi olacak kullanıcılar : m = bot master | n = bot sahibi
set yetkiler "mn"

# !temizle komutunda kaç satır ile temizlenmesi isteniyor.
set temizsatir "15"

bind pubm - "*" kmt_pubs

proc kmt_pubs {nick uhost hand chan text} {
   if {![channel get $chan komutlar]} { return 0 }
   if {![matchattr [nick2hand $nick] $::yetkiler $chan]} {
       puthelp "notice $nick :Komutları kullanmak için en az $::yetkiler flaglarına sahip olmalısınız..."
       return 0
    }
       set kmt [lindex [split [string tolower $text]] 0]
       set hedef [lindex [split [string tolower $text]] 1]
       set neden [join [lrange [split [string tolower $text]] 2 end]]
      
       switch -exact -- $kmt {
    !deopla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !deopla <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && [isop $hedef $chan] && ![isbotnick $hedef]} {
                  putserv "notice $nick :$hedef $chan kanalında deoplanıyor.."
                  pushmode $chan -o $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston bir sorunumuz var..."
                  }
            }
      !kick { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !kick <hedef-nick> <sebep>"
                  puthelp "notice $nick :Bir <sebep> belirtilmezse, öntanımlı olarak \"istek üzerine\" sebep olarak eklenecektir..."
                  return 0
                  }
              if {[llength $neden] eq 0} { set neden "istek üzerine";}
              if {[onchan $hedef $chan] && [botisop $chan] && ![isbotnick $hedef]} {
                  putserv "notice $nick :$hedef ,$chan kanalında ,$neden sebebiyle kickleniyor..."
                  putkick $chan $hedef :$neden
                  } else {
                  puthelp "notice $nick :Houston sesim geliir mü?"
                  }
            }
     !voice { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !voice <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isvoice $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında voicelanıyor.."
                  pushmode $chan +v $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston nedir senden çektiğim böyle hıh?!..."
                  }
            }
     !banla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !banla <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isbotnick $hedef]} {
                  putserv "notice $nick :$hedef $chan kanalında banlanıyor.."
                  pushmode $chan +b $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston seninle benim bir sorunumuz olduğu kesin!..."
                  }
            }
   !temizle { if {[validchan $chan] && [botonchan $chan] && [botisop $chan]} {
                  putserv "notice $nick :$chan kanalı temizleniyor.."
                  putserv "privmsg $chan :$chan kanalı için temizlik vakti..."
                  set i 0; set j "\00300,04 \u262A   \003"
                  while {$i < $::temizsatir} { puthelp "privmsg $chan :$j"; incr i }
                  putserv "privmsg $chan :$chan kanalında temizlik tamamlandı..."
                  } else {
                  puthelp "notice $nick :of Houston of...işimiz var seninle..."
                  }
            }
      !opla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !opla <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && ![isop $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında oplanıyor.."
                  pushmode $chan +o $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston dertlerim hiç bitmiyor..."
                  }
            }
   !devoice { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !devoice <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && [isvoice $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında devoicelanıyor.."
                  pushmode $chan -v $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston bırak sen artık bu işleri..."
                  }
            }
    !halfop { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !halfop <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && ![ishalfop $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında halfoplanıyor.."
                  pushmode $chan +h $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston olmıyacak bu iş seninle..."
                  }
            }
  !dehalfop { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !dehalfop <hedef-nick>"; return }
              if {[onchan $hedef $chan] && [botisop $chan] && [ishalfop $hedef $chan]} {
                  putserv "notice $nick :$hedef $chan kanalında dehalfoplanıyor.."
                  pushmode $chan -h $hedef
                  flushmode $chan
                  } else {
                  puthelp "notice $nick :Houston arkası gelmez dertlerimin..."
                  }
            }
    !rehash { putquick "privmsg $chan :Yeniden yükleniyor..."
              rehash
              puthelp "privmsg $chan :Yükleme tamamlandı..."
            }
   !restart { putquick "privmsg $chan :Yeniden başlatılıyor...Dönüşüm muhteşem olacak, beni bekleyin..."
              restart
            }
      !hata { foreach hata [split $::errorInfo "\n"] { 
                 puthelp "privmsg $chan :$hata" 
                 }
            }
       !die { set mesaj [join [lrange [split $text] 1 end]]
              if {[llength $mesaj] eq 0} { set mesaj "ah! vuruldum, ölüyorum!!!..";}
              die "$mesaj"
            }
       !gir { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !gir <#hedef-kanal>"; return }
              if {![string match -nocase "#*" $hedef]} {
                  puthelp "notice $nick :Kanal adını doğru girdiğinize emin olun..."
                  return 0
                 }
                  putserv "notice $nick :$hedef kanalına giriliyor..."
                  channel add $hedef
                  puthelp "privmsg $hedef :Aleyküm Selam ağalar..."
            }
       !çık { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !çık <#hedef-kanal>"; return }
              if {[botonchan $hedef] && [validchan $hedef]} {
                  putserv "notice $nick :$hedef kanalından çıkılıyor..."
                  channel remove $hedef
                  puthelp "notice $nick :kanaldan çıkıldı..."
                 } else {
                  puthelp "notice $nick :dertlerim hiç bitmiyor houston..."
                 }
            }
     !cycle { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !cycle <#hedef-kanal>"; return }
              if {[botonchan $hedef] && [validchan $hedef] && [string match -nocase "#*" $hedef]} {
                  channel set $hedef +inactive
                  channel set $hedef -inactive
                  puthelp "notice $nick :$hedef kanalında cycle edildi..."
                 } else {
                  puthelp "notice $nick :hep dert ,hep dert houston,,,böyle olmuyor ama bak deyim sana..."
                 }
            }
    default { return }
            }
        return 0
    }
   
    putlog "ok..."

daha fazlasını eklemek isteyen eklesin benden bu kadar..sıkıldım...

ReaXiOn · 30 Ağustos 2019, 16:50

bind pub - !ban banned #PROC proc banned {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "samode $chan +b $text" putquick "privmsg $chan : $text Basariyla Banlandi $nick" }

!ban nick yapınca banlıyor sonrasında Egg bot hemen banı -b yapıyor bunun nedeni ne olabilir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

birde nick i banlamak yerine ip ye ban nasıl attırabilirim.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Kanalda Toplu İşlemler [Msg\|Notice\|İnvite\|Kick\|Ban\|Op\|Deop\|Voice\|Devoice]	Med Cezir	mIRC Parça Kodlar	2	01 Haziran 2013 20:23
!unban /unban değişimi	fener1907	mIRC Scripting Sorunları	8	17 Eylül 2009 23:49
ban,deop,kick korumaları	FeriT	mIRC Scripting Sorunları	2	21 Ocak 2008 14:20
KişiseL Ban Koruması (deop - Kick - ban+kick Yapıyor )	LauReLL	mIRC Scripting Hazır Kodlar	0	29 Haziran 2007 06:22

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.