IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   !ban-!unban-!kick-!op-!deop vs... Kodları (https://www.ircforumlari.net/tcl-scriptler/40198-ban-unban-kick-op-deop-vs-kodlari.html)

SkyStaR35 19 Haziran 2011 14:46
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları
 
Üstad Bu Anopeye oLur mu Peki?

dEathLeSs 19 Haziran 2011 20:06
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.

SkyStaR35 21 Haziran 2011 16:45
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

CLubber 23 Haziran 2011 15:54
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları
 
Kod:
########################################
#        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 }
}

mmycropp 07 Temmuz 2014 20:43
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

No_FeaR 07 Temmuz 2014 23:02
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları
 
Kardeşim Bende Pek Anlamam Ama Bide Böyle Dene İstersen ;(
Denemedim de Sadece İhtimal İşte ;)

Kod:
###############
# 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 !"
}

saywhat 08 Temmuz 2014 01:30
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:
# .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..."

saywhat 08 Temmuz 2014 03:39
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:
# .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..."
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mmycropp 20 Temmuz 2014 11:41
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ı

saywhat 20 Temmuz 2014 13:28
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bota telnet / dcc bağlıyken : .chanset #kanal +komutlar

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
.chaninfo #kanal komutuyla aktif olup olmadığı görülür.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodda sorun yok...


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:48.
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk