IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım ) (https://www.ircforumlari.net/eggdrop-neostats-bnc/254887-helpertcl-de-ufak-bir-degisiklik-istiyorum-ustadlar-yardim.html)

Raw 12 Eylül 2009 12:58
Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
Merhaba arkadaşlar ben kendi ihtiyaçlarım dahilinde bir help tcl hazırladım . Bot eğer #Helpers kanalında op yoksa #yardim kanalına giren usere bunun uyarısını veriyor ve uzaklaştırıyor . Eğer #Helpers ta op varsa karşılama mesajı veriyor ve #helpers a uyarı veriyor ve #helpers kanal genelinden birini görevlendiriyor . Benim istediğim #helpers kanalından her hangi birini değilde , #helpers oplarından herhangi birini görevlendirsin . Bir türlü yapamadım ben . Eğer cevap gelmezse bu haliyle de işine yarıycak arkadaşlar iyi günlerde kullansınlar . Saygılarımızla ..

Kod:

#############################################################################
###                                                                      ###
###        #yardim odası için karşılama tcl edited by Raw                ###
###                                                                      ###
#############################################################################


set hkanal "#Helpers"
set yrdmk "#yardim"

bind join - * yardimkanal

proc yardimkanal {nick uhand host chan} {
if {$chan == "#yardim" && ![onchan $nick "#Opers"] && ![onchan $nick "#Helpers"]} {
 global hkanal yrdmk
helper:ara $nick
}
}
proc helper:ara {kim} {
global botnick hkanal yrdmk
set helpbulundu 0
set vaybe [chanlist $hkanal]
set abo [lindex $vaybe [rand [llength $vaybe]]]
foreach opcuk [chanlist $hkanal] {
if {[isop $opcuk $hkanal] && $opcuk != $botnick} {
set helpbulundu "1"
}
}
if {$helpbulundu != "1"} {
puthelp "PRIVMSG $yrdmk :1,11 Üzgünüz4 $kim 1su anda online yardım görevlisi bulunmamaktadır . Keyf4ALem1 Help Takımı Keyifli Sohbetler Diler .. "
puthelp "mode $yrdmk +b $kim"
puthelp "kick $yrdmk $kim :1Keyf4ALem1 HeLp Takımı"
} {
    putserv "notice $kim 1Merhaba 4 $kim 1; Resmi Yardim Odamıza Hos geldiniz!"
    putserv "notice $kim 12IRC1/4SERVICES1 komutları hakkında yardim almak için , "
    putserv "notice $kim 1Yardim Gorevlilerimizin ozelinden4 voice(+)1 talebinde bulunabilirsiniz."
    putserv "notice $kim 1Eger su anda yardim gorevlimiz bulunmuyorsa ; size yardim için hazırım."
    putserv "notice $kim 1Simdi yardim almak icin  ozelime 4yardim1 yaziniz."
    putserv "notice $kim 1Keyf4ALem1 KeyifLi SohbetLer DiLer.. "
    putquick "PRIVMSG $hkanal :0,2 HeLpers 4,4 4,4 1,4 | 0 $kim 1 | 4,4 4,4 0,2 Su anda 0,4 #yardim 0,2 odasına Giriş Yaptı "
    putquick "PRIVMSG $hkanal :0,2 İlgilecek yardım görevlisi 4,4 4,4 1,4 > 0 $abo 1 < 4,4 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Devoice(-v)0,2 etmek için 4,4 0,4 !bye1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Ban+Kick0,2 etmek için 4,4 0,4 !at1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,4 KomutLarini #Helpers genelinde KuLLabiLirsiniz "
    putserv "mode $yrdmk +v $kim"
    putserv "PRIVMSG $yrdmk :1Merhaba 4 $kim 1; Türkiye'nin en iyi helperlarının bulunduğu HeLp Takımı su anda sizi dinliyor . Size nasıL yardımcı oLabiliriz ?"
 }
}

BuCaLI 12 Eylül 2009 18:54
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
Kod:
#############################################################################
###                                                                      ###
###        #yardim odası için karşılama tcl edited by Raw                ###
###                                                                      ###
#############################################################################
 
 
set hkanal "#Helpers"
set yrdmk "#yardim"
 
bind join - * yardimkanal
 
proc yardimkanal {nick uhand host chan} {
if {$chan == "#yardim" && ![onchan $nick "#Opers"] && ![onchan $nick "#Helpers"]} {
 global hkanal yrdmk
helper:ara $nick
}
}
proc helper:ara {kim} {
global botnick hkanal yrdmk
set helpbulundu 0
set vaybe [chanlist $hkanal]
foreach opcuk [chanlist $hkanal] {
if {[isop $opcuk $hkanal] && $opcuk != $botnick} {
lappend x $opcuk
set helpbulundu "1"
}
}
if {[info exists x]} { set abo [lindex $x [rand [llength $x]]] }
if {$helpbulundu != "1"} {
puthelp "PRIVMSG $yrdmk :1,11 Üzgünüz4 $kim 1su anda online yardım görevlisi bulunmamaktadır . Keyf4ALem1 Help Takımı Keyifli Sohbetler Diler .. "
puthelp "mode $yrdmk +b $kim"
puthelp "kick $yrdmk $kim :1Keyf4ALem1 HeLp Takımı"
} {
    putserv "notice $kim 1Merhaba 4 $kim 1; Resmi Yardim Odamıza Hos geldiniz!"
    putserv "notice $kim 12IRC1/4SERVICES1 komutları hakkında yardim almak için , "
    putserv "notice $kim 1Yardim Gorevlilerimizin ozelinden4 voice(+)1 talebinde bulunabilirsiniz."
    putserv "notice $kim 1Eger su anda yardim gorevlimiz bulunmuyorsa ; size yardim için hazırım."
    putserv "notice $kim 1Simdi yardim almak icin  ozelime 4yardim1 yaziniz."
    putserv "notice $kim 1Keyf4ALem1 KeyifLi SohbetLer DiLer.. "
    putquick "PRIVMSG $hkanal :0,2 HeLpers 4,4 4,4 1,4 | 0 $kim 1 | 4,4 4,4 0,2 Su anda 0,4 #yardim 0,2 odasına Giriş Yaptı "
    putquick "PRIVMSG $hkanal :0,2 İlgilecek yardım görevlisi 4,4 4,4 1,4 > 0 $abo 1 < 4,4 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Devoice(-v)0,2 etmek için 4,4 0,4 !bye1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Ban+Kick0,2 etmek için 4,4 0,4 !at1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,4 KomutLarini #Helpers genelinde KuLLabiLirsiniz "
    putserv "mode $yrdmk +v $kim"
    putserv "PRIVMSG $yrdmk :1Merhaba 4 $kim 1; Türkiye'nin en iyi helperlarının bulunduğu HeLp Takımı su anda sizi dinliyor . Size nasıL yardımcı oLabiliriz ?"
 }
}

En basitinden bu şekilde istediğin gibi olur sanırım. tabi gereksiz kalan bazı kısımlarda var ama tamamen inceleyemedim şu halde çalışmasını etkilemez.

Raw 12 Eylül 2009 19:24
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
bucalı çalıştı ama bir fonksiyonu devredışı kaldı helpers kanalında op yokken uyarı verip atıyordu o bozuldu ve ekranda

Tcl error [yardimkanal]: can't read "x": no such variable

hatasını verdi ..

BuCaLI 12 Eylül 2009 20:02
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
kodu şimdi değiştirdiğim şekilde dene bakalım.

Raw 12 Eylül 2009 23:49
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
BuCaLı , bu bota #yardim kanalında useri devoice(-v) ettiğimizde oto olarak kick + ban yapması gibi bir özellik ekleyebilirmiyiz sence yardimcı olursan sevinirim . teşekkürler tekrardan ..

RahmetLi 18 Ocak 2010 09:48
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
Alıntı:
BuCaLI Nickli Üyeden Alıntı (Mesaj 800760)
Kod:
#############################################################################
###                                                                      ###
###        #yardim odası için karşılama tcl edited by Raw                ###
###                                                                      ###
#############################################################################
 
 
set hkanal "#Helpers"
set yrdmk "#yardim"
 
bind join - * yardimkanal
 
proc yardimkanal {nick uhand host chan} {
if {$chan == "#yardim" && ![onchan $nick "#Opers"] && ![onchan $nick "#Helpers"]} {
 global hkanal yrdmk
helper:ara $nick
}
}
proc helper:ara {kim} {
global botnick hkanal yrdmk
set helpbulundu 0
set vaybe [chanlist $hkanal]
foreach opcuk [chanlist $hkanal] {
if {[isop $opcuk $hkanal] && $opcuk != $botnick} {
lappend x $opcuk
set helpbulundu "1"
}
}
if {[info exists x]} { set abo [lindex $x [rand [llength $x]]] }
if {$helpbulundu != "1"} {
puthelp "PRIVMSG $yrdmk :1,11 Üzgünüz4 $kim 1su anda online yardım görevlisi bulunmamaktadır . Keyf4ALem1 Help Takımı Keyifli Sohbetler Diler .. "
puthelp "mode $yrdmk +b $kim"
puthelp "kick $yrdmk $kim :1Keyf4ALem1 HeLp Takımı"
} {
    putserv "notice $kim 1Merhaba 4 $kim 1; Resmi Yardim Odamıza Hos geldiniz!"
    putserv "notice $kim 12IRC1/4SERVICES1 komutları hakkında yardim almak için , "
    putserv "notice $kim 1Yardim Gorevlilerimizin ozelinden4 voice(+)1 talebinde bulunabilirsiniz."
    putserv "notice $kim 1Eger su anda yardim gorevlimiz bulunmuyorsa ; size yardim için hazırım."
    putserv "notice $kim 1Simdi yardim almak icin  ozelime 4yardim1 yaziniz."
    putserv "notice $kim 1Keyf4ALem1 KeyifLi SohbetLer DiLer.. "
    putquick "PRIVMSG $hkanal :0,2 HeLpers 4,4 4,4 1,4 | 0 $kim 1 | 4,4 4,4 0,2 Su anda 0,4 #yardim 0,2 odasına Giriş Yaptı "
    putquick "PRIVMSG $hkanal :0,2 İlgilecek yardım görevlisi 4,4 4,4 1,4 > 0 $abo 1 < 4,4 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Devoice(-v)0,2 etmek için 4,4 0,4 !bye1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Ban+Kick0,2 etmek için 4,4 0,4 !at1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,4 KomutLarini #Helpers genelinde KuLLabiLirsiniz "
    putserv "mode $yrdmk +v $kim"
    putserv "PRIVMSG $yrdmk :1Merhaba 4 $kim 1; Türkiye'nin en iyi helperlarının bulunduğu HeLp Takımı su anda sizi dinliyor . Size nasıL yardımcı oLabiliriz ?"
 }
}

En basitinden bu şekilde istediğin gibi olur sanırım. tabi gereksiz kalan bazı kısımlarda var ama tamamen inceleyemedim şu halde çalışmasını etkilemez.

bende calısmadı yaw :((

toXic 18 Ocak 2010 10:34
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
Alıntı:
Raw Nickli Üyeden Alıntı (Mesaj 801001)
BuCaLı , bu bota #yardim kanalında useri devoice(-v) ettiğimizde oto olarak kick + ban yapması gibi bir özellik ekleyebilirmiyiz sence yardimcı olursan sevinirim . teşekkürler tekrardan ..

Kod:

#############################################################################
###                                                                      ###
###        #yardim odası için karşılama tcl edited by Raw                ###
###                                                                      ###
#############################################################################
 
 
set hkanal "#Helpers"
set yrdmk "#yardim"
set reason "sebep"
bind join - * yardimkanal
 
proc yardimkanal {nick uhand host chan} {
if {$chan == "#yardim" && ![onchan $nick "#Opers"] && ![onchan $nick "#Helpers"]} {
global hkanal yrdmk
helper:ara $nick
}
}
proc helper:ara {kim} {
global botnick hkanal yrdmk
set helpbulundu 0
set vaybe [chanlist $hkanal]
foreach opcuk [chanlist $hkanal] {
if {[isop $opcuk $hkanal] && $opcuk != $botnick} {
lappend x $opcuk
set helpbulundu "1"
}
}
if {[info exists x]} { set abo [lindex $x [rand [llength $x]]] }
if {$helpbulundu != "1"} {
puthelp "PRIVMSG $yrdmk :1,11 Üzgünüz4 $kim 1su anda online yardım görevlisi bulunmamaktadır . Keyf4ALem1 Help Takımı Keyifli Sohbetler Diler .. "
puthelp "mode $yrdmk +b $kim"
puthelp "kick $yrdmk $kim :1Keyf4ALem1 HeLp Takımı"
} {
    putserv "notice $kim 1Merhaba 4 $kim 1; Resmi Yardim Odamıza Hos geldiniz!"
    putserv "notice $kim 12IRC1/4SERVICES1 komutları hakkında yardim almak için , "
    putserv "notice $kim 1Yardim Gorevlilerimizin ozelinden4 voice(+)1 talebinde bulunabilirsiniz."
    putserv "notice $kim 1Eger su anda yardim gorevlimiz bulunmuyorsa ; size yardim için hazırım."
    putserv "notice $kim 1Simdi yardim almak icin  ozelime 4yardim1 yaziniz."
    putserv "notice $kim 1Keyf4ALem1 KeyifLi SohbetLer DiLer.. "
    putquick "PRIVMSG $hkanal :0,2 HeLpers 4,4 4,4 1,4 | 0 $kim 1 | 4,4 4,4 0,2 Su anda 0,4 #yardim 0,2 odasına Giriş Yaptı "
    putquick "PRIVMSG $hkanal :0,2 İlgilecek yardım görevlisi 4,4 4,4 1,4 > 0 $abo 1 < 4,4 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Devoice(-v)0,2 etmek için 4,4 0,4 !bye1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Ban+Kick0,2 etmek için 4,4 0,4 !at1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,4 KomutLarini #Helpers genelinde KuLLabiLirsiniz "
    putserv "mode $yrdmk +v $kim"
 
    putserv "PRIVMSG $yrdmk :1Merhaba 4 $kim 1; Türkiye'nin en iyi helperlarının bulunduğu HeLp Takımı su anda sizi dinliyor . Size nasıL yardımcı oLabiliriz ?"
}
 
 if {$mode == "-v $kim"} {
putquick "MODE $yrdmk +b $kim"
putquick "KICK $yrdmk $kim $reason"
}
}

RahmetLi 18 Ocak 2010 17:38
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
Alıntı:
toXic Nickli Üyeden Alıntı (Mesaj 1040299126)
Kod:

#############################################################################
###                                                                      ###
###        #yardim odası için karşılama tcl edited by Raw                ###
###                                                                      ###
#############################################################################
 
 
set hkanal "#Helpers"
set yrdmk "#yardim"
set reason "sebep"
bind join - * yardimkanal
 
proc yardimkanal {nick uhand host chan} {
if {$chan == "#yardim" && ![onchan $nick "#Opers"] && ![onchan $nick "#Helpers"]} {
global hkanal yrdmk
helper:ara $nick
}
}
proc helper:ara {kim} {
global botnick hkanal yrdmk
set helpbulundu 0
set vaybe [chanlist $hkanal]
foreach opcuk [chanlist $hkanal] {
if {[isop $opcuk $hkanal] && $opcuk != $botnick} {
lappend x $opcuk
set helpbulundu "1"
}
}
if {[info exists x]} { set abo [lindex $x [rand [llength $x]]] }
if {$helpbulundu != "1"} {
puthelp "PRIVMSG $yrdmk :1,11 Üzgünüz4 $kim 1su anda online yardım görevlisi bulunmamaktadır . Keyf4ALem1 Help Takımı Keyifli Sohbetler Diler .. "
puthelp "mode $yrdmk +b $kim"
puthelp "kick $yrdmk $kim :1Keyf4ALem1 HeLp Takımı"
} {
    putserv "notice $kim 1Merhaba 4 $kim 1; Resmi Yardim Odamıza Hos geldiniz!"
    putserv "notice $kim 12IRC1/4SERVICES1 komutları hakkında yardim almak için , "
    putserv "notice $kim 1Yardim Gorevlilerimizin ozelinden4 voice(+)1 talebinde bulunabilirsiniz."
    putserv "notice $kim 1Eger su anda yardim gorevlimiz bulunmuyorsa ; size yardim için hazırım."
    putserv "notice $kim 1Simdi yardim almak icin  ozelime 4yardim1 yaziniz."
    putserv "notice $kim 1Keyf4ALem1 KeyifLi SohbetLer DiLer.. "
    putquick "PRIVMSG $hkanal :0,2 HeLpers 4,4 4,4 1,4 | 0 $kim 1 | 4,4 4,4 0,2 Su anda 0,4 #yardim 0,2 odasına Giriş Yaptı "
    putquick "PRIVMSG $hkanal :0,2 İlgilecek yardım görevlisi 4,4 4,4 1,4 > 0 $abo 1 < 4,4 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Devoice(-v)0,2 etmek için 4,4 0,4 !bye1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,2 Yardim iŞLemi TamamLanan Kullanıcıyı4,2 Ban+Kick0,2 etmek için 4,4 0,4 !at1,4 $kim 4,4 "
    putquick "PRIVMSG $hkanal :0,4 KomutLarini #Helpers genelinde KuLLabiLirsiniz "
    putserv "mode $yrdmk +v $kim"
 
    putserv "PRIVMSG $yrdmk :1Merhaba 4 $kim 1; Türkiye'nin en iyi helperlarının bulunduğu HeLp Takımı su anda sizi dinliyor . Size nasıL yardımcı oLabiliriz ?"
}
 
 if {$mode == "-v $kim"} {
putquick "MODE $yrdmk +b $kim"
putquick "KICK $yrdmk $kim $reason"
}
}
Arkadaslar aynen burdakı komutşarı bota ekledım sunucuya girio ama ghiç bi tepkı vermıo calısmıo kodlar :S yardım edermısınız lutfen

toXic 18 Ocak 2010 17:41
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
./eggdrop -mn ile bağlan sshden görürsün hatalari

RahmetLi 18 Ocak 2010 18:44
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )
 
Kod:

if "mode $yrdmk -v $kim" {
putquick "MODE $yrdmk +b $kim"
putquick "KICK $yrdmk $kim $reason"
}
bu sekil dene


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

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