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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 12 Eylül 2009, 12:58   #1
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
############################################################################# ### ### ### #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 ?" } }


__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 12 Eylül 2009, 18:54   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
############################################################################# ### ### ### #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.


Konu BuCaLI tarafından (12 Eylül 2009 Saat 20:01 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 12 Eylül 2009, 19:24   #3
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ..

__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
 
Alıntı ile Cevapla

Alt 12 Eylül 2009, 20:02   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




kodu şimdi değiştirdiğim şekilde dene bakalım.

 
Alıntı ile Cevapla

Alt 12 Eylül 2009, 23:49   #5
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ..

__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~
 
Alıntı ile Cevapla

Alt 18 Ocak 2010, 09:48   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




BuCaLI Nickli Üyeden Alıntı
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!
############################################################################# ### ### ### #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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(

 
Alıntı ile Cevapla

Alt 18 Ocak 2010, 10:34   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




Raw Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:   Kodu kopyalamak için üzerine çift tıklayın!
############################################################################# ### ### ### #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" } }


 
Alıntı ile Cevapla

Alt 18 Ocak 2010, 17:38   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




toXic Nickli Üyeden Alıntı
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!
############################################################################# ### ### ### #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

 
Alıntı ile Cevapla

Alt 18 Ocak 2010, 17:41   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




./eggdrop -mn ile bağlan sshden görürsün hatalari

 
Alıntı ile Cevapla

Alt 18 Ocak 2010, 18:44   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper.TCL de ufak bir değişiklik istiyorum ( ÜSTADLAR yardım )




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if "mode $yrdmk -v $kim" { putquick "MODE $yrdmk +b $kim" putquick "KICK $yrdmk $kim $reason" }

bu sekil dene


Konu toXic tarafından (18 Ocak 2010 Saat 19:08 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
de, değişiklik, degisiklik, helpertcl, istiyorum, ufak, ustadlar, yardim, yardım, Üstadlar


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

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
Üstadlar Yardım..! beydagi44 mIRC Scripting Sorunları 7 22 Kasım 2011 10:07
Toolbar Yardım Üstadlar beydagi44 mIRC Scripting Sorunları 3 28 Ekim 2011 13:40
Nokia'dan ufak bir değişiklik Slipknot Cep Telefonlar 0 24 Ağustos 2010 15:21
Üstadlar bi yardım. !Op MaRaShaL Eggdrop, NeoStats, BNC 6 04 Şubat 2008 23:36
Üstadlar yardım eren_o7 Eggdrop, NeoStats, BNC 1 04 Şubat 2008 23:25