Eggdrop bir soru yada deneme :) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Rhall · 16 Ekim 2011, 21:09

Şöyle birşey mümkün mü ? yazayım.

!Uyar #kanal
Bu komudu uyguladıgım zaman bot kanala girip belirlediğimiz topici atıcak.

!Yasakla #Kanal
Dediğimizde ise kanala girip kanalı suspendliyecek veya forbid ne oluyosa artık.

nasıl yapabiliriz

CLubber · 16 Ekim 2011, 21:51

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

bind pub - !uyar msg_warn
proc msg_warn {nick uhost handle chan text} {
  global botnick
  if {[string match -nocase "#Opers" $chan]} {
    set kanal [lindex $text 0]
    if {$kanal == ""} {putquick "PRIVMSG #Opers :Herhangi bir kanalı yönetim tarafından uyarmak için lütfen komutu doğru uygulayın. Kullanımı: <!uyar #kanal>";return}
    putquick "ChanServ CLEAR $kanal OPS"
    putquick "OperServ MODE $kanal +m"
    putquick "ChanServ SET $kanal TOPICLOCK off"
    putquick "TOPIC $kanal 4,1 \[0 UYARI 4\] 0Bu kanal sunucu görevlileri tarafından uyarı almıştır. Tekrarı halinde kanal kullanıma kapatılacaktır. Bilginize sunar, teşekkür ederiz. "
    putquick "MemoServ SEND $kanal 4,1 \[0 UYARI 4\] 0Sahibi olduğunuz $kanal isimli kanal sunucu yönetimi tarafından uyarı almıştır. Tekrarı halinde kullanıma kapatılacaktır. Detaylı bilgi için #OperHelp kanalını kullanabilirsiniz. "
    putquick "ChanServ SET $kanal TOPICLOCK on"
    putquick "PRIVMSG #Opers :Belirtilen $kanal kanalına uyarı gönderilmiştir."
  }
}
bind pub - !kapat msg_forbid
proc msg_forbid {nick uhost handle chan text} {
  global botnick
  if {[string match -nocase "#Opers" $chan]} {
    set kanal [lindex $text 0]
    if {$kanal == ""} {putquick "PRIVMSG #Opers :Herhangi bir kanalı kapatmak için lütfen komutu doğru uygulayın. Kullanımı: <!kapat #kanal>";return}
    putquick "ChanServ CLEAR $kanal USERS"
    putquick "ChanServ SET $kanal mlock +nti"
    putquick "ChanServ SET $kanal Founder $nick"
    putquick "TOPIC $kanal 4,1 \[0 UYARI 4\] 0Bu kanal yapılan uyarılara rağmen kötü kullanıma devam ettiği için süresiz olarak kapatılmıştır. Bilginize sunar, teşekkür ederiz."
    putquick "ChanServ Suspend $kanal Kanal Transferi"
    putquick "PRIVMSG #Opers :Belirtilen kanal kullanıma kapatılarak kanal sahibi $nick olarak değiştirilmiştir."
  }
}
putlog "Kanal Kontrol/Forbid TCL v1.0 Written By CLubber"

#Opers kanal genelinde <!uyar #kanal> ve <!kapat #kanal> komutları ile çalışır.
Uyarı yapıldığında kanal topicini değiştirir, opları deop yapar, kanal founderine memoserv mesaj atar.
Kanal kapatıldığında kanala kullanıcı girişine izin vermez. Mlock olarak modları +i olarak değiştirir.
TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Rhall · 16 Ekim 2011, 21:59

sagolun

Rhall · 17 Ekim 2011, 01:33

Botuma şunu nasıl ekliyebilirim /allsend users private global nick mesaj

yani biliyorsunuz komudu ben denedim biraz diğerlerinden ozenerek ama hatada vermedi calısmadıda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yardımcı olursanız sevinirim

EceLMeriC · 17 Ekim 2011, 10:18

Şimdi verilen kodlar açık ve basit biraz zorlasan kendin bile yapabilirsin 2 gün uğraş ama uğraş yani
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
takıldığın noktada burda takıldım dersin hoşunada gidecektir uğraşması birdene
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Rhall · 17 Ekim 2011, 11:19

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
tamam bunu ben yapacam oyleyse sagolun hocam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

EceLMeriC · 17 Ekim 2011, 12:31

Az uğraş bakalım yapamazsan zaten yine yardım edicez etmicez değil ama burda önemli olan seninde birşeyler öğrenmen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CLubber · 17 Ekim 2011, 19:15

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

bind pub - !global msg_global
proc msg_global {nick uhost handle chan text} {
  global botnick
  if {[string match -nocase "#Opers" $chan]} {
    if {$text == ""} {putquick "PRIVMSG #Opers :Sunucu üzerindeki tüm kullanıcılara mesaj göndermek için lütfen komutu doğru kullanın. Kullanım: <!global mesaj>";return}
    putquick "Allsend users private global $nick $text"
    putquick "PRIVMSG #Opers :Belirtilen mesajınız sunucu üzerindeki tüm kullanıcılara gönderilmiştir."
  }
}
putlog "Allsend TCL v.1.0 Written By CLubber"

#Opers kanalında <!global mesaj> şeklinde kullandığında tüm kullanıcıların özeline kendi nickinle mesaj gidecektir.

Sunucu üzerinde allsend modülünün kurulu olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Oyuncak Botu Eggdrop yada IRCBot	Asya	Eggdrop, NeoStats, BNC	5	23 Ocak 2023 19:44
Eggdrop bir soru	Rhall	Eggdrop, NeoStats, BNC	2	26 Aralık 2012 22:10
Eggdrop Komut Soru Botu	oPtimiSt	TCL Scriptler	0	19 Ocak 2012 11:03
Eggdrop bir soru	Rhall	Eggdrop, NeoStats, BNC	10	05 Kasım 2011 21:05
Eggdrop Önemli Soru	eren_o7	Eggdrop, NeoStats, BNC	5	21 Şubat 2008 00:54

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.