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

8Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Haziran 2011, 14:46   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




Üstad Bu Anopeye oLur mu Peki?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 19 Haziran 2011, 20:06   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




Tcl nin servislerle bir alakası yok ki. Arkadaş orda tcl'i yapmış, anlatımınıda vermiş. Sen de onun dediklerini aynen uygularsan sorunsuz olarak çalışacaktır.

__________________
IRC ve Sanal bitmiştir.
 
Alıntı ile Cevapla

Alt 21 Haziran 2011, 16:45   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




üstad mesela ben bu tcl yi esokey sisteminde kullanmak istiyorum esokey webde yazılan mesela selam yazınca unrealde LMSG selam diye görünüyor bu tcl yi ne sekilde düzenlersem esokey sisteminde !op yazınca op olmasını istiyorum nasıl bir düzenleme yapmam lazım tcl üstünde

tesekkürler şimdiden


Konu SkyStaR35 tarafından (21 Haziran 2011 Saat 16:58 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 23 Haziran 2011, 15:54   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######################################## # Fantasy TCL v1.0 # ######################################## bind pub - lmsg kenan proc kenan {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} set komut [lindex $text 0] set person [lindex $text 1] set sebep [lindex $text 2] set deopla "!deop" set voicele "!voice" set kickle "!kick" set banla "!ban" set temizle "!temizle" if {$komut == $deopla} { putquick "MODE $chan -o $nick"; return 0 } if {$komut == $voicele} { putquick "MODE $chan +v $person"; return 0 } if {$komut == $kickle} { putquick "KICK $chan $person $sebep"; return 0 } if {$komut == $banla} { putquick "MODE $chan +b $person"; return 0 } if {$komut == $temizle} { putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\002" putquick "PRIVMSG $chan :\00302Kanal geneli \00304$nick \00302tarafından temizlenmiştir. Keyifli sohbetler dileriz. \00304$chan\00304"; return 0 } }


 
Alıntı ile Cevapla

Alt 07 Temmuz 2014, 20:43   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




Selamun aleyküm arkadaşlar konu belkide şuanda hortlayacak ama benim bir sıkıntım var bu komutları osmode olarak değiştirdiğimde line hatası alıyorum line 60 hatası ayrıca ben bu tcl yi oper olacak bir eggdropda değil normal bir kanalda yetkisi olan bir eggdropa ekleyeceğim yardımcı olursanız sevinirim

 
Alıntı ile Cevapla

Alt 07 Temmuz 2014, 23:02   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




Kardeşim Bende Pek Anlamam Ama Bide Böyle Dene İstersen ;(
Denemedim de Sadece İhtimal İşte
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############### # Hazırlayan by: CanCeL ########################### bind pub - !ban banned #PROC proc banned {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan +b $text" putquick "privmsg $chan : $text Basariyla Banlandi $nick" } bind pub - !unban ubanned #PROC proc ubanned {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan -b $text" putquick "privmsg $chan : $text Basariyla Banı Kaldırıldı $nick" } bind pub - !kick kicked #PROC proc kicked {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan $text Aykırı Davranış!" putquick "privmsg $chan : $text Odadan uzaklastırıldı $nick" } bind pub - !kb kban #PROC proc kban {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan +b $text" putquick "kick $chan $text Aykırı Davranış!" putquick "privmsg $chan : $text Odadan banlanıp uzaklastırıldı $nick" } bind pub - !voice vops #PROC proc vops {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan +v $text" putquick "privmsg $chan : $text Voice konumuna cıkarıldı. $nick" } bind pub - !devoice dvop #PROC proc dvop {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan -v $text" putquick "privmsg $chan : $text Voice konumundan indirildi. $nick" } bind pub - !op top #PROC proc top {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan +o $text" putquick "privmsg $chan : $text Operator Konumuna Cıkarıldı $nick" } bind pub - !deop deop #PROC proc deop {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "chanserv $chan -o $text" putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick" } bind pub - !temizle clear #PROC proc clear {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :." putquick "PRIVMSG $chan :Oda Ekranı Temizlendi $nick !" }


 
Alıntı ile Cevapla

Alt 08 Temmuz 2014, 01:30   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




oper olmayacak bir botta kullanılacaksa ,niye operserv komutlarıyla değiştirme ihtiyacı duydunuz ki?

henüz uyandım bir saat bile olmadı, konuyu görüp yazdım bir kod, şimdi bitti ,buraya atıyorum.denemek isteyen denesin... hata vs alınırsa bildirin çaresine bakarız.. syntax check/yazım kontrolü yaptım (olurda ayraç hatası vs gözden birşey kaçırmışmıyım diye) sorun yok... ama deneyip "iş üstünde" görmeniz gerek...

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ı : $::lastbind <hedef-nick>"; return } if {[onchan $hedef $chan] && [botisop $chan] && [isop $hedef $chan] && ![isbotnick $hedef]} { puthelp "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ı : $::lastbind <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]} { puthelp "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ı : $::lastbind <hedef-nick>"; return } if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isvoice $hedef $chan]} { puthelp "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ı : $::lastbind <hedef-nick>"; return } if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isbotnick $hedef]} { puthelp "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]} { puthelp "notice $nick :$chan kanalı temizleniyor.." puthelp "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 } puthelp "privmsg $chan :$chan kanalında temizlik tamamlandı..." } else { puthelp "notice $nick :of Houston of...işimiz var seninle..." } } default { return } } return 0 } putlog "ok..."


 
Alıntı ile Cevapla

Alt 08 Temmuz 2014, 03:39   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




şimdi denemek için vaktim oldu... görebildiğim kadar, sorun/lar lastbind komutu görünen o ki pubm bind'i için uygun değilmiş ... (daha önce fark etmemiştim...) birde komutu kullanan kişiye atılan bilgi notice'lerinin ,örnek !kick yada !banla komutunda putkick yada pushmode ,puthelp'ten daha hızlı olduğu görülüyor. o nedenlede işlem yapıldıktan sonra komutu kullanana notice gidiyor..du ..
düzeltildi iki konuda...puthelp notice'leri daha hızlı olan putserv ile değiştirildi,lastbind yerine kullanılan komut/lar olduğu gibi girildi....
komut işleyişlerinde vs zaten sorun yoktu...

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..." } } default { return } } return 0 } putlog "ok..."


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 20 Temmuz 2014, 11:41   #19
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları




Bot üzerinde verdiğiniz tcl kodları çalıştıramadım ya da çalışmadı !deopla yapıyorum olmuyor rehash a çektim restart da yaptım bota olmadı

 
Alıntı ile Cevapla

Alt 20 Temmuz 2014, 13:28   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları





Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bota telnet / dcc bağlıyken : .chanset #kanal +komutlar


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

.chaninfo #kanal komutuyla aktif olup olmadığı görülür.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kodda sorun yok...

 
Alıntı ile Cevapla

Cevapla

Etiketler
banunbankickopdeop, kodlari, kodları


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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