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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 28 Kasım 2007, 04:52   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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"
 




Konu maharajah tarafından (28 Kasım 2007 Saat 05:58 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 25 Ağustos 2010, 21:21   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: böyle bir tcl var mı yada olabilirmi.




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

 
Alıntı ile Cevapla

Alt 27 Ağustos 2010, 00:07   #3
Çevrimdışı
Raw
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 Kod:   Kodu kopyalamak için üzerine çift tıklayın!
########################################
#                                      #
#       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(komutsvsbot
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"
### 


__________________
ĻêģäĻ Düšűņ īĻĹęğàĻ Yàşà! ~

Konu Raw tarafından (27 Ağustos 2010 Saat 20:39 ) değiştirilmiştir. Sebep: bir kaç düzenleme ;d
 
Alıntı ile Cevapla

Cevapla

Etiketler
bîr, boyle, böyle, olabilirmi, tcl, var, yada


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

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
Böyle Bir ŞEy Olabilirmi Tejxele IRCServices 1 07 Ekim 2012 21:50
böyle bir kod olabilirmi Set mIRC Scripting Sorunları 2 08 Mayıs 2009 19:03
Evet Böyle Bişi Olabilirmi Sevgili üstatlar Linqu Unreal IRCd 10 20 Mayıs 2008 17:15