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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Hosgeldin TCL (https://www.ircforumlari.net/tcl-scriptler/27265-hosgeldin-tcl.html)

crazyy 03 Şubat 2007 19:19

Hosgeldin TCL
 
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

Yanıt: Hosgeldin TCL
 
Ö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

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

BY_BuRN 03 Şubat 2007 22:54

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

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

Yanıt: Hosgeldin TCL
 
O kodda gereksiz bir sürü şey var :) daha kısa yapılabilir:
Kod:

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

Yanıt: Hosgeldin TCL
 
Çok teşekkür ederim arkadaşlar işimi gördü çok saolun

vezir 05 Şubat 2007 09:38

Yanıt: Hosgeldin TCL
 
ben denedim olmuyo

BY_BuRN 05 Şubat 2007 09:58

Yanıt: Hosgeldin TCL
 
Kod:

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

Yanıt: Hosgeldin TCL
 
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

Yanıt: Hosgeldin TCL
 
Kod:

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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:47.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk