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

crazyy · 03 Şubat 2007, 19:19

Merhaba Arkadaslar..
basliktan greet.tcl gibi anlasilmis olabilir fakat istedigim su
ben botun adminiyim ve ben botun bulundugu kanala girince Hosgeldin Crazyy! yazmasini istiyorum
sadece ben kanala girince kanal geneline mesaj atip beni karsilamasini istiyorum boyle bir tcl bulunan varmi elinde ?

Catharsis · 03 Şubat 2007, 20:52

Öyle bir tcl var mıdır bilmiyorum ama en basitinden botservde bir bot yaratıp greet ayarlarını açabilirsin. Bilmem işini görür mü...

crazyy · 03 Şubat 2007, 21:00

görmüştüm bir yerde kanala botun admini girdiği zaman welcome master! ikazı verıyordu

BY_BuRN · 03 Şubat 2007, 22:54

başka bir tclden düzenlenmiş bi tcl olarak yapabildim.değiştirerek falan ama deneyemedim. umarım çalışır.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set opnick { 
 "By_BuRN" 
}
 
bind join - * baglanti2
proc baglanti2 {nick uhost hand chan } { 
global opnick botnick 
if {(![matchattr $hand b]) && ($nick != $botnick)} { 
  foreach opchange [string tolower $opnick] { 
   if {[string match *$opchange* [string tolower $nick]]} { 
    putserv "PRIVMSG $chan : Ownerım $nick şu anda $chan kanalına giriş yaptı.Hoş Geldin" 
    return 0 
    }  
  } 
 } 
}

SaW · 04 Şubat 2007, 08:13

O kodda gereksiz bir sürü şey var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
daha kısa yapılabilir:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set sahip crazzy
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
  global sahip
  if ($nick==$sahip) {
    putserv "PRIVMSG $chan :Sahibim geldi, hoş geldin $nick"
  }
  return 0
}

Umarım işine yarar.

crazyy · 04 Şubat 2007, 09:18

Çok teşekkür ederim arkadaşlar işimi gördü çok saolun

vezir · 05 Şubat 2007, 09:38

ben denedim olmuyo

BY_BuRN · 05 Şubat 2007, 09:58

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set sahip seninNickin
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
  global sahip
  if ($nick==$sahip) {
    putserv "PRIVMSG $chan :Sahibim geldi, hoş geldin $nick"
  }
  return 0
}

Kırmızı ile yazdığım yere senin nickin gelecek yeşille yazdığım yeri de istediğin gibi değiştirebilirsin.istersen değiştirmeyebilirsin. bunu tcl dosyasına atıyoruz. diyelim ki tanibeni.tcl adlı bir tcl dosyasına ekledik,bu tcl yi ftp deki eggdrop kolörümüzün içinde scripts klosörü vardır onun içine atıyoruz. daha sonra botumuzun conf dosyasının en altında botun kullanacağı tcller yazılıdır oraya source scripts/tanibeni.tcl yazısını ekliyoruz.Daha sonra botumuza telnetten kill atıyoruz.Ve tekrar geri çağırıyoruz.Şu şekilde:

cd eggdrop
ps x
kill -9 botnumarası
./eggdrop -m botununismi.conf

*bot numarasını telnette ps x yazınca görebilirsin.Botun conf isminin en başında yazan numaradır.

crazyy · 05 Şubat 2007, 12:26

By_BuRN
Arkadaşımın verdiği ilk kod oluyor sorunsuz çalışıyor
peki By_BuRN ben iki nicki veya 3 nickede bunu eklemek istiyorum calıştırabilirmiyim ?
join join1 join2 gibi yaptım farklı tcl olarak ekledim bota ama bu sefer hiç birisini çalıştırmadı başka nasıl bir yolla bunu yapabilirim?

BY_BuRN · 05 Şubat 2007, 12:28

Kod: Kodu kopyalamak için üzerine çift tıklayın!

set opnick { 
 "By_BuRN" 
"nick2"
"nick3"
"nick4"
}
 
bind join - * baglanti2
proc baglanti2 {nick uhost hand chan } { 
global opnick botnick 
if {(![matchattr $hand b]) && ($nick != $botnick)} { 
  foreach opchange [string tolower $opnick] { 
   if {[string match *$opchange* [string tolower $nick]]} { 
    putserv "PRIVMSG $chan : Ownerım $nick şu anda $chan kanalına giriş yaptı.Hoş Geldin" 
    return 0 
    }  
  } 
 } 
}

şeklinde istediğin kadar kişiye ekleyebilirsin.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
HOSGELDiN Gül EFENDiM...	Seyra	İslamiyet	0	08 Eylül 2014 19:49
Hosgeldin TCL	kheldor	Eggdrop, NeoStats, BNC	3	08 Eylül 2012 14:45

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.