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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - helperhost.tcl (https://www.ircforumlari.net/tcl-scriptler/47392-helperhosttcl.html)

[KBSC] 12::58 <12GhostLy> !helper
14© 7Ask-Net5 Artik bir Helpdesksiniz. Basarılar
14© 7Ask-Net5 Bravo basariyla Helpdesk Hostunu, Identini, Ismini Ve Modelerini aldin.
14© 7Ask-Net5 Lutfen #Helpdesk kanalindaki kullancilarla iyi gecinin ve saygili olun.
[KBSC] 12::58 *** GhostLy Nick değiştirerek Nickini helpdesk_GhostLy yaptı
[KBSC] 12::58 <05Ask-Net> Basariyla helper oldunuz.

eggdrop'unuz. oper derecesi en az services olmalidir. nicki şifreli ve admin listte olmalidir.

Eggdrop botunuzun confunda su satiri bulun.

Kod:

putserv "oper botnicki ghostly"

ve hemen altina. gormus olduğunuz satiri ekleyin..

Kod:

putserv "PRIVMSG operserv :su şifre"

ve gelelim tcl'e

Helperhost.tcl olarak adlandiralim..

Kod:

 
 # IRCHostum.Net Internet Teknolojileri 
 # msn : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
 # server : /server IRC.IRCHostum.Net 
 # web : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2"># System Root : GhostLy 
 # duzenleyen : GhostLy

 
 bind msgm - root ghostly
 proc ghostly { nick uhost handle text } {
 putserv "PRIVMSG operserv :su şifre" }

 
 bind pub - !helper helperim
 proc helperim {nick uhand host chan text} {
 if {![isop $nick $chan]} {return 0} 
 putserv "PRIVMSG operserv :chghost $nick helpdesk.Domain.Com"
 putserv "PRIVMSG operserv :chgident $nick helpdesk"
 putserv "PRIVMSG operserv :chgname $nick Domain helpdesk Team"
 putserv "NOTICE $nick Artik bir Helpdesksiniz. Basarılar"
 putserv "NOTICE $nick Bravo basariyla Helpdesk Hostunu, Identini, Ismini Ve Modelerini aldin."
 putserv "NOTICE $nick Lutfen #Helpdesk kanalindaki kullancilarla iyi gecinin ve saygili olun."
 putserv "PRIVMSG operserv :raw svsmode $nick +hWq :1"
 putserv "PRIVMSG operserv :raw svsnick $nick helpdesk_$nick :1"
 putserv "privmsg $chan : $text Basariyla helper oldunuz."
 }
 putlog "helperhost.tcl  by GhostLy"

ben su pass nasıl olusturacan ?
işte bu şekilde.

Kod:

/os set supass yenişifre

tcl içindede burdaki yeri değişiniz. kendinize göre.

Kod:

putserv "PRIVMSG operserv :su şifre" }

botu sunuya bağlandiğinda operini girdikten sonra botun özeline

Kod:

root

yaziniz iyi çalişmalar.)

Cevap: helperhost.tcl

Güzel paylaşım işime yaradı Emeqine SaqLık.

Cevap: helperhost.tcl

Erkan eline sağlık ama Oto Host GüzeL ;dremel

Cevap: helperhost.tcl

Bir arkadaşın isteği üzerine gore duzenlemiştim :)

Cevap: helperhost.tcl

Peki GhostLy Hocam Bu Bot Helpdesk Kanalında. Şimdi Kanalda benim Access var Kanala girdim Kanala girdiğimde Takı Host vs veremez mi. Kanala giriyorum @ oluyorum ve Takı almak istiyorum. mümkün mü?

Cevap: helperhost.tcl

Mümkün şuan antalya'da iş nedeniyle giremiyorum ist donusumde cvp veririm iyi çalişmalar.

Cevap: helperhost.tcl

Peki Hocam Bekliyoruz. Eyw. Saolasın.

Cevap: helperhost.tcl

GhostLy Hocam Manavgata yakınsan Gel misafirim ol.

Cevap: helperhost.tcl

Yukardaki anlatima bakarak yapabilirsiniz.

Eren

istediğin şekilde duzenledim. helper kanalına !helper yazman yeterli olacaktir. host bolumu için.

Kod:

# duzenleyen : GhostLy

bind msgm - root ghostly

proc ghostly { nick uhost handle text } {

putserv "PRIVMSG operserv :su şifre" }

 

bind mode - * helper

proc helper {nick uhost hand chan mode text} {

if {$chan != "#help"} {return 0}

if {$mode == "+o"} {

putserv "PRIVMSG $chan $text Helper konumuna geçti."

putserv "PRIVMSG operserv :raw svsmode $text +hWq :1"

putserv "PRIVMSG operserv :raw svsnick $text helpdesk_$text :1"

putserv "privmsg $chan : $text Basariyla helper oldunuz."

return 1

}

return 1

}

 

bind pub - !helper helperim

 

proc helperim {nick uhand host chan text} {

if {![isop $nick $chan]} {return 0} 

putserv "PRIVMSG operserv :chghost $nick helpdesk.Domain.Com"

putserv "PRIVMSG operserv :chgident $nick helpdesk"

putserv "PRIVMSG operserv :chgname $nick Domain helpdesk Team"

putserv "NOTICE $nick Artik bir Helpdesksiniz. Basarılar"

putserv "NOTICE $nick Bravo basariyla Helpdesk Hostunu, Identini, Ismini Ve Modelerini aldin."

putserv "NOTICE $nick Lutfen #Helpdesk kanalindaki kullancilarla iyi gecinin ve saygili olun."

}

putlog "helperhost.tcl  by GhostLy"

Cevap: helperhost.tcl

Emegine Sağlık Hocam. Senin Uğraşını gördüm Allah razı olsun ;)

Cevap: helperhost.tcl

Alıntı:

eren_o7 Nickli Üyeden Alıntı (Mesaj 357186)

GhostLy Hocam Manavgata yakınsan Gel misafirim ol.

antalya merkezdeydim kale içi v.s v.s gezdim aslen manavgatlıyım istanbulda oturuyorum ne yazikki senin yazdığında istanbula yeni indim cvp verim dedim ;oki

Cevap: helperhost.tcl

;) Biliyorum :))))))) Konustuk zaten :) Loglari yollicaktım da :) Kanaldan /hop yapınca gitmis :)

Cevap: helperhost.tcl

bot sunucuya giriyor çalısıyor sorun yok iyi güzelde !helper helperim yazdıkdan sonra userin hostunu identini değiştirmiyor

Cevap: helperhost.tcl

Alıntı:

CrazyRomeo Nickli Üyeden Alıntı (Mesaj 366423)

bot sunucuya giriyor çalısıyor sorun yok iyi güzelde !helper helperim yazdıkdan sonra userin hostunu identini değiştirmiyor

bot sorunsuz çalişiyor. op kanalında kişi @ olunca !helper komutunu kullanabilir user'ler değil. iyi çalişmalar

Cevap: helperhost.tcl

yani söle diyim !helper yazdıkdan sonra helperlerin hostları ve identleri değiştirmiyor sadece helper oldunuz diyor.TCL de su kodlar var bu komutlar sunucuda işlemiyor bunun için değiştiremiyor.Neyapmamız lazım

putserv "PRIVMSG operserv chghost $nick Helper.Sohbetport.Net"
putserv "PRIVMSG operserv chgident $nick helpdesk"
putserv "PRIVMSG operserv chgname $nick Sohbetport.Net Help Team"

Cevap: helperhost.tcl

Alıntı:

CrazyRomeo Nickli Üyeden Alıntı (Mesaj 366739)

komutları yanlış uygulatıyorsun Şu şekilde yap

Kod:

 

putserv "chghost $nick Helper.Sohbetport.Net"

putserv "chgident $nick helpdesk"

putserv "chgname $nick Sohbetport.Net Help Team"

Cevap: helperhost.tcl

Bu şekilde kullanabilirsiniz.

Kod:

bind mode - * helper

proc helper {n uh h c mode a} {

if {$c != "#help"} {return 0}

if {$mode == "+o"} {

putquick "PRIVMSG $c $a Helper konumuna geçti."

putquick "PRIVMSG operserv :raw svsmode $a +hWq :1"

putquick "CHGHOST $a helper.Domain.Com"

putquick "CHGIDENT $a Services"

putquick "CHGNAME $a Domain help Team"

putquick "NOTICE $a Artik bir Helpersiniz. Basarılar"

putquick "NOTICE $a Bravo basariyla Helper Hostunu, Identini, Ismini Ve Modelerini aldin."

putquick "NOTICE $a Lutfen #Help kanalindaki kullancilarla iyi gecinin ve saygili olun."

 }

}

Cevap: helperhost.tcl

güzel bi paylasım tertip ellerine saglık :)