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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - böyle bir tcl var mı yada olabilirmi. (https://www.ircforumlari.net/eggdrop-neostats-bnc/42554-boyle-bir-tcl-var-mi-yada-olabilirmi.html)

böyle bir tcl var mı yada olabilirmi.

tcl şöyle olucak
!yarat vb. komut ile eggbot istenilen nick te bir svsbot oluşturucak
veya olabiliyorsa
!yarat nick #kanal şeklinde bot oluşturulucak ve istenilen kanala sokulucak mümkün olmayan birşey yokturda bunuda yapması biraz zor sanırım ugrastım ama kafam almadı
şimdiden teşekkurler..
(servis olarak ircservices)

Oluşturmayı yaptımda kanala nasıl sokturucam

PHP- Kodu:

   bind pub - !yarat bnick
#PROC
proc bnick  {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os Raw : NICK $text 1 1 Services services.m-net  services.xxx.net :Kanal Botu."
putquick "privmsg $chan : $text Basariyla Oluşturuldu $nick"
 
}

Cevap: böyle bir tcl var mı yada olabilirmi.

PHP- Kodu:

   set ops_chan "#Opers"
 
bind pub - !yarat yarat
 
proc yarat {nick uhost handle chan text} {
global ops_chan
set gnick [lindex $text 0]
set kanal [lindex $text 1]
if {![validchan $kanal]} {
putquick "OperServ Raw :$gnick join $kanal"
putquick "PRIVMSG $ops_chan $nick Tarafından $gnick Nicki $kanal Kanalına Alınmıştır."
}

İşini Görücektir..

Cevap: böyle bir tcl var mı yada olabilirmi.

Aslında SaW basit tcl yazmamıza kızıyor ama işini görürse mutlu olacağımdan yazmak istedim :) Buyur kodlar gerekli ayarlamaları yapıp kullanırsın, iyi forumlar ..

!botyap nick #kanal

komutu yada belirlediğin başka bir komut ile kullanabilirsin.

PHP- Kodu:

   ########################################
#                                      #
#       Services Bot TCL by Raw        #
#                                      #
#                                      #
# !botyap nick #kanal  komutu ile      #
# belirlediğimiz nickte ve +B flagıyla #
# services bot oluşturup belirlenen    #
# kanala alıcaktır.                    #
#                                      #
#         senali [ @ ] live.com        #
#                                      #
########################################
 
 
# Çalıştırcak komutu girelim
set svs(komut) "!botyap"
 
# Komutun çalışacağı kanalı girelim
set svs(chan) "#opers"
 
# Bot için fullname girelim
set svs(realname) "Service Bot"
 
# Bot hostumuzu girelim
set svs(host) "domain.com"
 
# Bot identimizi girelim
set svs(ident) "services"
 
# Services Hostumuzu Girelim
set svs(name) "services.domain.com"
 
 
###############################
#   Ayar bitti ,TCL yazalım   #
#  Bilmiyosak kurcalamayalım  #
###############################
 
bind pub - $svs(komut) svsbot
proc svsbot {nick uhost hand chan text} {
 global svs
    set snick [lindex $text 0]
    set schan [lindex $text 1]
   if {![string match -nocase $svs(chan) $chan]} {return 0}
   if { $schan == "" } {
    putquick "privmsg $chan Nick yada kanal belirtmediniz. Kullanım : < $svs(komut) nick #kanal > şeklindedir."
    return 0
      }
   if {![string match -nocase "#*" $schan]} {
    putquick "privmsg $chan Kanal adı girerken başında # belirtiniz. Kullanım : < $svs(komut) $snick #$schan > şeklindedir."
    return 0
      }
    putquick "privmsg OperServ raw nick $snick 1 1 $svs(ident) $svs(host) $svs(name) :$svs(realname)"
    putquick "privmsg OperServ raw svsmode $snick +B"
    putquick "privmsg OperServ raw :$snick join $schan"
    putquick "privmsg $chan *** $snick , başarı ile oluşturulup $schan odasına alındı."
}
 
###
putlog "Service Bot TCL yuklendi - coded by Raw"
###