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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   !topic Mesajınız (Botunuz topic atsın ) (https://www.ircforumlari.net/tcl-scriptler/265603-topic-mesajiniz-botunuz-topic-atsin.html)

Raw 29 Eylül 2009 23:20
!topic Mesajınız (Botunuz topic atsın )
 
arkadaşlar bir süre önce foruma yazmıştım cevap veren olmadı .. konuyuda bulamadım aramada :s yazayım dedim tekrar ben kendi kendime keşfettim bu tcl i :) napalım yazan olmayınca :) buyrun topic tcl ..

Kod:

set oper_kanali "#OperKanaliniz"

bind pub !topic topic_raw

proc topic_raw {nick uhost hand chan args} {
global oper_kanali
if {[onchan $nick $oper_kanali} {
puthelp "chanserv set $chan topiclock off"
puthelp "TOPIC $chan : [lindex $args 0]"
puthelp "chanserv set $chan topiclock on"
}
}
arkadaşlar eğer botunuz services root yetkilerine sahipse bu komut ile kanalın topic kilidini açar topiği atar ve yeniden topic kilidini aktif hale getirir .. ben sunucumda sorunsuz kullanıyorum .. İyi Forumlar ..

RebeLLious 29 Eylül 2009 23:28
Cevap: !topic Mesajınız (Botunuz topic atsın )
 
teşekkürler kardeşim çok yaradı

BuCaLI 30 Eylül 2009 12:24
Cevap: !topic Mesajınız (Botunuz topic atsın )
 
İşe yarar ama biraz hata var;


set oper_kanali "#OperKanaliniz"

bind pub - !topic topic_raw ; #Kullanımı bu şekilde olmalı

proc topic_raw {nick uhost hand chan args} {
global oper_kanali
if {[onchan $nick $oper_kanali]} { ; #Köşeli parantezi kapatmayı unutmuşsun ;)
puthelp "chanserv set $chan topiclock off"
puthelp "chanserv TOPIC [lindex $args 0] [lrange $args 1 end]" ; #Burayıda bu şekilde kullanman daha doğru olur.
puthelp "chanserv set $chan topiclock on"
}
}

!topic <#kanal> <topic mesajın> şeklinde kullanacaksan komudu "[lindex $args 0] [lrange $args 1 end]" yerine sadece "$args" şeklinde kullanman yeterli olurdu ancak orada ilk kelimeyi veya ondan sonrasını nasıl alabileceğini göstermek için o şekilde yaptım.

Raw 30 Eylül 2009 15:40
Cevap: !topic Mesajınız (Botunuz topic atsın )
 
BuCaLı , teş yeni yeni öğreniyoruz bu kadar hatayı mazur gör hoca :)

Rhall 16 Ekim 2011 02:22
Cevap: !topic Mesajınız (Botunuz topic atsın )
 
Hocam hata yok ancak işlev de görmüyor. Bot admin listtede ekli yani herşey tamam ama işlev görmüyor sorun nedir ?

CLubber 16 Ekim 2011 13:22
Cevap: !topic Mesajınız (Botunuz topic atsın )
 
Kod:
bind pub - !topic msg_topic
proc msg_topic {nick uhost handle chan text} {
  global botnick
  if {[onchan $nick "#Opers"]} {
    set kanal [lindex $text 0]
    set topic [lrange $text 1 end]
    putquick "ChanServ ACCESS $kanal add $botnick 999"
    putquick "ChanServ SOP $kanal add $botnick"
    putquick "ChanServ SET $kanal topiclock off"
    putquick "ChanServ TOPIC $kanal $topic"
    putquick "ChanServ SET $kanal topiclock on"
    putquick "ChanServ ACCESS $kanal del $botnick"
    putquick "ChanServ SOP $kanal del $botnick"
    putquick "PRIVMSG #Opers :$kanal kanalına topiciniz atılmıştır."
  }
}
putlog "Topic TCL v1.0 - Written By CLubber"
#Opers kanal genelinde Kullanımı: <!topic #kanal mesaj>"


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:10.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net