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/)
-   -   Karşılama Tcl (https://www.ircforumlari.net/tcl-scriptler/28441-karsilama-tcl.html)

1Casper 06 Mart 2007 01:01

Karşılama Tcl
 
Selam arkadaşlar karşılama tcl yi bir yerden bulmuştum ama çalışmıyor sorun neden acaba?
Kod:

set sahip Casper
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
  global sahip
  if ($nick==$sahip) {
  putserv "PRIVMSG $nick Hoşgeldin."
  }
  return 0
}


Brain 06 Mart 2007 01:09

Cevap: Karşılama Tcl
 
if ($nick==$sahip) {

degil

if {$nick==$sahip} {

olmaliydi.

mirc gibi () islemleri {} olarak algilanir

1Casper 06 Mart 2007 01:18

Yanıt: Karşılama Tcl
 
Saol adil ;)

1Casper 06 Mart 2007 01:35

Yanıt: Karşılama Tcl
 
Birşey daha isteyecem bunu hem nick hemde karşılama mesajı olarak nasıl çogaltabilirim ?

BuCaLI 06 Mart 2007 01:48

Cevap: Karşılama Tcl
 
her nick için farklı mesaj şeklinde bahsediyorsan

Kod:

set sahip Casper
set sahip2 Ben
set sahip3 Baskasi

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
  global sahip sahip2 sahip3
  if {$nick==$sahip} { putserv "PRIVMSG $nick Hoşgeldin." }
  if {$nick==$sahip2} { putserv "PRIVMSG $nick Niye Geldin." }
  if {$nick==$sahip3} { putserv "PRIVMSG $nick Gözlerimiz Yollarda kaldı" }
}


Brain 06 Mart 2007 15:58

Cevap: Karşılama Tcl
 
Alıntı:

CcehennemM Nickli Üyeden Alıntı
her nick için farklı mesaj şeklinde bahsediyorsan

Kod:

set sahip Casper
set sahip2 Ben
set sahip3 Baskasi

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
  global sahip sahip2 sahip3
  if {$nick==$sahip} { putserv "PRIVMSG $nick Hoşgeldin." }
  if {$nick==$sahip2} { putserv "PRIVMSG $nick Niye Geldin." }
  if {$nick==$sahip3} { putserv "PRIVMSG $nick Gözlerimiz Yollarda kaldı" }
}


;)

PHP- Kodu:

set sahip Casper
set sahip2 Ben
set sahip3 Baskasi

bind join 
- * karsilama
proc karsilama 
nick uhost hand chan } {
  global 
sahip sahip2 sahip3
  
if {$nick==$sahip} { 
     
putserv "PRIVMSG $nick :Hoşgeldin." 

  
} elseif {$nick==$sahip2} { 
    
putserv "PRIVMSG $nick :Niye Geldin." 

  
} elseif {$nick==$sahip3} { 
    
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı" 

  
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
  } else {
    
putserv "PRIVMSG $nick :$nick Hos geldiniz"
  
}



sorguyu siraya koymak surekli sorgu gondermekten daha mantikli calisir.

Casper sanirim istediginde buydu, listede ismi olan kullanicilkar disinda giris yapanlarada klasik bir mesaj gonderecektir.


Uygulama Gelistirme ipuclari: global degiskenler 1.8 paketler icin $::degisken seklinde global deger tasimadan da cagirilabilir.

PHP- Kodu:

set degisken deneme
set degisken2 deneme2
proc test 
{} {
 
putlog "$::degisken ve $::degisken2 bilgiler ekrana yazildi"



TataR 19 Kasım 2007 00:40

Cevap: Karşılama Tcl
 
Paylaşımınız için ben Tsk ederimde Bu Verdiginiz tcl kodu sanırım şahsen ben öyle ekledim ve sadece Server'a giren Usherlere Yazıyor..
Peki Bunun Kanallara Yazanı Yok mu Mesela kArabaSan Kanala girdiginde Bot global Atıcak..

GhostLy 19 Kasım 2007 03:22

Cevap: Karşılama Tcl
 
Alıntı:

kArabaSan Nickli Üyeden Alıntı (Mesaj 288538)
Paylaşımınız için ben Tsk ederimde Bu Verdiginiz tcl kodu sanırım şahsen ben öyle ekledim ve sadece Server'a giren Usherlere Yazıyor..
Peki Bunun Kanallara Yazanı Yok mu Mesela kArabaSan Kanala girdiginde Bot global Atıcak..

bot global değilde kanala yazabilir.

Kod:

set sahip Casper
set sahip2 Ben
set sahip3 Baskasi
 
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $chan :Hoşgeldin."
 
} elseif {$nick==$sahip2} {
putserv "PRIVMSG $chan :Niye Geldin."
 
} elseif {$nick==$sahip3} {
putserv "PRIVMSG $chan :Gözlerimiz Yollarda kaldı"
 
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $chan :$nick Hos geldiniz"
}
 
}

şeklinde bot hangi kanallardaysa o kana giris yaptiğinda mesaj gonderecekdir. iyi çalişmalar.

BuKeLamuN 29 Kasım 2007 17:09

Cevap: Karşılama Tcl
 
Kod:

# TCL Scripts 2oo5 - 2oo6 – CennetShell.Net( By`Bedri – BuKeLamuN )
Kod:


proc join_greet {nick uhost handle channel } {

putserv "PRIVMSG $nick :
2Merhaba 4 $nick "
putserv "PRIVMSG $nick :
2CennetSheLL.Net 2ailesine 2hoşgeldiniz. "
putserv "PRIVMSG $nick :
2Sunucumuzda 2kurallarina lütfen 2uyunuz. "
putserv "PRIVMSG $nick :
2Sunucumuzda 2yardim 2kanalımız 4#help 2kanalıdir."
putserv "PRIVMSG $nick :
2Sunucumuzda 2Oyun 2kanalımız 4#Oyun 2kanalıdir."
putserv "PRIVMSG $nick :
2Sunucumuzda 2Oyun 2kanalımız 4#English 2kanalıdir."
putserv "PRIVMSG $nick :
2Sunucumuzda 2Oyun 2kanalımız 4#Kelime 2kanalıdir."
putserv "PRIVMSG $nick :
2Sunucumuzda 2Radyo 2kanalımız 4#Radyo 2kanalıdir."
putserv "PRIVMSG $nick :
2Sunucumuzda 2Sohbet 2kanalımız 4#Sohbet 2 kanallaridir."
putserv "PRIVMSG $nick :
2Winampı Olmayanlar bizleri 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
uzerinden dinleyebilirler."

putserv "PRIVMSG $nick :
2Radyo CennetSheLLFM! yayınlarımız başlamıştır bütün dostlarımızı 9,1 http://CennetSheLL.Net:1416/listen.pls "
putserv "PRIVMSG $nick :
2Adresinden radyomuza bekliyoruz ii eğlenceler dileriz ."
putserv "PRIVMSG $nick :
2İsteklerinizi 4#Radyo 2kanalindan yapabilirsiniz..."
putserv "PRIVMSG $nick :
2Diğer bilgilerimiz için 4/motd 2yazabilirsiniz."
}
bind join - * join_greet

Arkadaşlar eyer Hata verirse İletişim Adresim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SHaNS 10 Eylül 2008 18:05

Cevap: Karşılama Tcl
 
[17:54] Tcl error in file 'koruma.conf':
[17:54] missing close-brace
while executing
"proc seslenme { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $chan :5Serverimiz Root admiNLerinde..."
(file "scripts/seslenme.tcl" line 10)
invoked from within
"source scripts/seslenme.tcl"
(file "koruma.conf" line 348)
[17:54] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

SHaNS 10 Eylül 2008 18:06

Cevap: Karşılama Tcl
 
boLe sorun aLdım yardımcı oLur musunuz

SHaNS 10 Eylül 2008 23:14

Cevap: Karşılama Tcl
 
Yok mu yardim edecek biriLeri arkadaşLar

BuCaLI 10 Eylül 2008 23:39

Cevap: Karşılama Tcl
 
kullandığın kodlarıda verirsen daha rahat bulabiliriz hatayı..

SHaNS 11 Eylül 2008 00:12

Cevap: Karşılama Tcl
 
Kod:


set sahip SHaNS
set sahip2 sessizkral
set sahip3 Sefir
set sahip4 By_GoLGe
set sahip5 _Braynn
set sahip6 deep_blue
set sahip7 endemik
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7
if {$nick==$sahip} {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden SHaNS Şu anda onLine.YakışıkLıLıkta Başa BeLa Kardeşim:Pp"

} elseif {$nick==$sahip2} {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden sessizkral Şu anda onLine.AbiLerin_abisi"
} elseif {$nick==$sahip3} {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden Sefir Şu anda onLine.Karizma Desen onda :)"
} elseif {$nick==$sahip4} {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden By_GoLGe Şu anda onLine.aiLemizin BirtaneSi:)"

} elseif {$nick==$sahip5} {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden _Braynn Şu anda onLine.I Love you Baby :)"
} elseif {$nick==$sahip6} {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden deep_blue Şu anda onLine.I Love you Baby :)"
if {$nick==$sahip7} {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden endemik Şu anda onLine.AnneLerin_anneSi"
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."
}

}


SHaNS 11 Eylül 2008 00:14

Cevap: Karşılama Tcl
 
sabahtan beri bekLiyorum ve yapamadım degistiriyorum gene hata verdi Bi bu tcl ile kanala girş yaptıgımızda ozeLeme yoksa koruma botu kanaLda yazacak bu yazdıkLarımı

BuCaLI 11 Eylül 2008 05:15

Cevap: Karşılama Tcl
 
Kod:

set sahip SHaNS
set sahip2 sessizkral
set sahip3 Sefir
set sahip4 By_GoLGe
set sahip5 _Braynn
set sahip6 deep_blue
set sahip7 endemik
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7
if { $nick == $sahip } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden SHaNS Şu anda onLine.YakışıkLıLıkta Başa BeLa Kardeşim:Pp"
} elseif { $nick == $sahip2 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden sessizkral Şu anda onLine.AbiLerin_abisi"
} elseif { $nick == $sahip3 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden Sefir Şu anda onLine.Karizma Desen onda :)"
} elseif { $nick == $sahip4 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden By_GoLGe Şu anda onLine.aiLemizin BirtaneSi:)"
} elseif { $nick == $sahip5 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden _Braynn Şu anda onLine.I Love you Baby :)"
} elseif { $nick == $sahip6 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden deep_blue Şu anda onLine.I Love you Baby :)"
} elseif { $nick == $sahip7 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden endemik Şu anda onLine.AnneLerin_anneSi"
} else {
putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."
}
}

Bu şekilde bir dene.

GemLik 11 Eylül 2008 05:20

Cevap: Karşılama Tcl
 
Kod:

if {$nick==$sahip7} {
satırının başına } else eklenmesi unutulmuş

SHaNS 11 Eylül 2008 18:51

Cevap: Karşılama Tcl
 
Evet insan goremiyor BazeN arkadaşLar eLinize sagLık yardımLarınız için teşekkur ederim.

Z 14 Eylül 2009 02:12

Cevap: Karşılama Tcl
 
Bunu nasıl Kuruyoruz Anlatsanız arkadaşlar...

GemLik 14 Eylül 2009 10:20

Cevap: Karşılama Tcl
 
Alıntı:

Gonen Nickli Üyeden Alıntı (Mesaj 802440)
Bunu nasıl Kuruyoruz Anlatsanız arkadaşlar...

BuCaLI arkadaşımızın verdiği son şekli alıp bir karsilama.tcl oluşturup
tcl yi kendimize göre düzenleyip eggdrop/scripts içine atıyorus daha sonra
conf dosyamıza tcl yi ekleyip çalıştırıyoruz

BaRaN 15 Ekim 2009 21:14

Cevap: Karşılama Tcl
 
bi sorun var sanirim, BuCaLI arkadasimizin son yazdigini tcl olarak scripts klasörüne attim.. confa tcl yi tanittim.. ama tik yok :S

bang 20 Haziran 2010 05:15

Cevap: Karşılama Tcl
 
Öncelikle bilgiler için tşk ederim.Eggdrop içinde scripts içinde karşılama.tcl yok.kaos.tcl filan var ama karşılama bulamadım.kanalda 2 kişinin nickine Dikkat! xxx şeklinde msj gidiyor.shellci eklemiş.site ile ben ilgileniyorum.kendim öğrenmek istiyorum.karşılama.tcl nin adı farklı olabilir mi?bir yere eklemiş belli ama bulamadım.tşkler

MeeT 20 Haziran 2010 09:59

Cevap: Karşılama Tcl
 
farklı olabilir neden olmasın

Webneti 10 Kasım 2011 09:51

Cevap: Karşılama Tcl
 
Alıntı:

GemLik Nickli Üyeden Alıntı (Mesaj 802691)
BuCaLI arkadaşımızın verdiği son şekli alıp bir karsilama.tcl oluşturup
tcl yi kendimize göre düzenleyip eggdrop/scripts içine atıyorus daha sonra
conf dosyamıza tcl yi ekleyip çalıştırıyoruz

yenı bır conf dosyasımı oluşturmamız gerekıyor oluşturacaksak içine ne yazmamız lazım. hıcbır bılgım yok lutfen yardım edersenız sevinirim. conf dosyasının içine atılacak yazmısınız bende bır cok conf dosyası var hangısıne eklıyoruz ve nasıl eklıyoruz. Ayrıca bu vesileyle Bucalı ve gemlikli yerde yürekten teşekur ederim bır cok çalışmaları sunucularımıza gercekten renk katıyor zevklı hale getırıyor

Webneti 10 Kasım 2011 10:42

Cevap: Karşılama Tcl
 
yardım lutfen arkadaslar :S

CLubber 10 Kasım 2011 15:37

Cevap: Karşılama Tcl
 
Verilen kodları karsilama.tcl olarak kaydedin, scripts klasörüne atın ve botunuzun conf dosyasının en alt satırına

Kod:

source scripts/karsilama.tcl
satırını ekleyin.

Webneti 11 Kasım 2011 12:10

Cevap: Karşılama Tcl
 
valla verdıklerınızı aynen yapıyorum conf a da eklıyorum olmuyor sureklı bı satırda hata verıyor.

CLubber 11 Kasım 2011 16:05

Cevap: Karşılama Tcl
 
Hatayı buraya kopyalarsanız, yardımcı olmaya çalışırız.

ALp€® 17 Aralık 2011 17:35

Cevap: Karşılama Tcl
 
O uyarıyı veren Bot'un nickinden conf dosyasına girin .tcl uzantılı dosyaları kontrol edin bence

Sanquin 25 Şubat 2014 03:01

Cevap: Karşılama Tcl
 
Renkli yazmasi icin ne yapmamiz gerekiyor peki? Renk kodu koyunca calismiyor, duz yazilida sorun yok.

MesqeN 25 Şubat 2014 12:59

Cevap: Karşılama Tcl
 
Alıntı:

Sanquin Nickli Üyeden Alıntı (Mesaj 1041397940)
Renkli yazmasi icin ne yapmamiz gerekiyor peki? Renk kodu koyunca calismiyor, duz yazilida sorun yok.




renklendir..


normal txt de itdgin ctrl + k ile renk verblirsin. veya


\00305 \007 veya 00507 gibi ctrl + k sistemi ile aynıır


1 siyah 2 lacivert 3 eşil 4 kırmızı sadece \00 gibi düşün..

Sanquin 25 Şubat 2014 18:10

Cevap: Karşılama Tcl
 
Birsey anlamadim desem ayip olurmu :)) ben normalde mirc den crt + k seklide renklendiriyordum, peki ekteki dosyayinin ilk renklendirmis oldugum satirini sizin dediginiz sekilde yaparmisiniz rica etsem bakayim bende o sekilde cozerim belki olayi[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kutluhan 26 Şubat 2014 14:37

Cevap: Karşılama Tcl
 
Toplam 1 Eklenti bulunuyor.
Mircten ctrl + k yaptığında çıkan rengi kopyalayıp txt içerisinde renklendirmek istediğin yere yapıştırırsan sorun çözülecektir.Veyada eklemiş olduğum txt dosyasını değiştirip kullanabilirsin.

MySelf 04 Ocak 2015 13:02

Cevap: Karşılama Tcl
 
Merhabalar;

Arkadaşlar bu Sahip.tcl karşılama olayını çözemedim Eggdrop içerisin de Scripts de Sahip.tcl mevcut onun içerisine bu kodları aynen kopyalıyorum

set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen
set sahip4 XoXo
set sahip5 AriS
set sahip6 deep_blue
set sahip7 endemik
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7
if { $nick == $sahip } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden MySelf Şu anda onLine.YakışıkLıLıkta Başa BeLa Kardeşim:Pp"
} elseif { $nick == $sahip2 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden Ozgur Şu anda onLine.AbiLerin_abisi"
} elseif { $nick == $sahip3 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden SenBen Şu anda onLine.Karizma Desen onda :)"
} elseif { $nick == $sahip4 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden XoXo Şu anda onLine.aiLemizin BirtaneSi:)"
} elseif { $nick == $sahip5 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden AriS Şu anda onLine.I Love you Baby :)"
} elseif { $nick == $sahip6 } {
putserv "PRIVMSG $chan :Serverimiz Net admiNLerinden deep_blue Şu anda onLine.I Love you Baby :)"
} elseif { $nick == $sahip7 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden endemik Şu anda onLine.AnneLerin_anneSi"
} elseif {
putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."
}
}

Ardından Koruma.Conf içerisin de Score sahip.tcl ekli telnetten koruma.conf u çıkarıp yeniden kanala alıyorum Yukarıda ki belirtilen Rumuzlar giriş yapınca bir karşılama olmuyor Nerede eksik yapıyorum çözemedim.. Bilgi paylaşımı olursa sevinirim Teşekkürler..

No_FeaR 04 Ocak 2015 13:11

Cevap: Karşılama Tcl
 
Merhabalar ;

Kod:

set sahip No_FeaR
set sahip2 NİCK2
set sahip3 NİCK3

bind join
- * karsilama
proc karsilama
{ nick uhost hand chan } {
  global
sahip sahip2 sahip3
 
if {$nick==$sahip} { 
   
putserv "PRIVMSG $nick :Hosgeldiniz." 

 
} elseif {$nick==$sahip2} { 
   
putserv "PRIVMSG $nick :Niye Geldin ? :-)" 

 
} elseif {$nick==$sahip3} { 
   
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)" 

 
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
  } else {
   
putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler."
 
}

}



Denendi Çalışıyor.
Bu tcl, kanala giriş yapan user'i, ve belirlediginiz, oper'leri karşılar.
Örnek Olarak ; Botun.Conf'un İçersine Greet.TCL Diyerekten Eklersin. Daha Sonra da Sunucudan Çıkartıp Tekrardan Sokarsın.

source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...

Daha Sonra Telnetten, kill -9 Pidno Olarak Killeyip Tekrardan Sokarsın. Olası ki bi Hata Alırsan /.eggdrop -nm bot.Conf Olarak Siteye Tekrar Yolla. Yine Hata Alırsan Buraya Paylaş Burdan Yine Yardımcı Oluruz.

Ek Olarakta Bunları Deneyebilirsin, Hepsi Denendi Çalışıyor. Kendine Göre Ekleme/Silme Yapabilirsin. Hoşça Forumlar.

Kod:

set sahip No_FeaR
set sahip2 GFB
set sahip3 Doktor
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
  global sahip sahip2 sahip3
  if {$nick==$sahip} {
    putserv "PRIVMSG $chan :10 IRC.Sunucu.Com Teknik Admini, Kanala Giriş Yaptı."
    putserv "NOTICE $chan :10 IRC.Sunucu.Com Teknik Admini, Kanala Giriş Yaptı."
  } elseif {$nick==$sahip2} {
    putserv "PRIVMSG $chan :ROOT Admin KANALA Giris Yaptı."
  } elseif {$nick==$sahip3} {
    putserv "PRIVMSG $chan :Fear Founderi Kanala Giris Yaptı."
    putserv "NOTICE $chan :Fear Founderi Kanala Giris Yaptı."
  ;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
  } else {
    putserv "PRIVMSG $nick :$nick  #Fear Kanalına Hos Geldiniz."
  }
}


MySelf 04 Ocak 2015 13:32

Cevap: Karşılama Tcl
 
Merhabalar;

Söylediğiniz şekilde ekledim fakat yine olmadı sanırım bir yerlerde eksik yapıyorum ... verdiğiniz kodu aynen alıp scriptte ki sahiptcl içerisine kopyaladım

set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $nick :Hosgeldiniz."

} elseif {$nick==$sahip2} {
putserv "PRIVMSG $nick :Niye Geldin ? :-)"

} elseif {$nick==$sahip3} {
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)"

;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler."
}

}

Yukarıda ki gibi sonra Koruma.conf un içerisine sölediğiniz gibi
source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...

ekledim Koruma botu sunucudan cıkarım tekrar sunucuya aldığım da denedim olmadı .. Teşekkürler..

No_FeaR 04 Ocak 2015 16:11

Cevap: Karşılama Tcl
 
Alıntı:

MySelf61 Nickli Üyeden Alıntı (Mesaj 1041584032)
Merhabalar;

Söylediğiniz şekilde ekledim fakat yine olmadı sanırım bir yerlerde eksik yapıyorum ... verdiğiniz kodu aynen alıp scriptte ki sahiptcl içerisine kopyaladım

set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $nick :Hosgeldiniz."

} elseif {$nick==$sahip2} {
putserv "PRIVMSG $nick :Niye Geldin ? :-)"

} elseif {$nick==$sahip3} {
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)"

;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler."
}

}

Yukarıda ki gibi sonra Koruma.conf un içerisine sölediğiniz gibi
source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...

ekledim Koruma botu sunucudan cıkarım tekrar sunucuya aldığım da denedim olmadı .. Teşekkürler..


Merhabalar, Sunucu Adını ve Bilgilerinizi PM İle İletirmisiniz Yardımcı Olayım.

SeckiN 04 Ocak 2015 20:10

Cevap: Karşılama Tcl
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tcl'yi ftp'ne attıktan sonra sunucunda /rehash komutu uygulayıp conf dosyasını tekrar aktif et.

saywhat 04 Ocak 2015 20:48

Cevap: Karşılama Tcl
 
-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aynı kişiye ait birden çok nick var ise örnek :

myself - yourself - himself { putserv "....
şeklinde ,aralarına boşluk tire boşluk koyarak çoğaltabilirsiniz.büyük-küçük harf uyumu aranmaz.

belli bir kanalda çalışsın diğerlerinde çalışmasın! isteniyorsa bind satırını:
bind join - "#kanal-adı *!*@*" karsilama

şeklinde düzenleyip sadece #kanal-adı kanalında çalışması sağlanabilir.

not : bu arada ; sadece noktalı virgül ile yorum tcl'de hata attırır. # yada ;# şeklinde olmalıdır....
tcl kod satırı yanına yorum eklenecekse :
if {$somevar eq $othervar} { ;# bu şekilde kod satırı ile aynı satırda yorum yazılabilir.
# bu şekilde boş satır başına yorum yazılabilir.

No_FeaR 04 Ocak 2015 22:44

Cevap: Karşılama Tcl
 
Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041584152)
-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aynı kişiye ait birden çok nick var ise örnek :

myself - yourself - himself { putserv "....
şeklinde ,aralarına boşluk tire boşluk koyarak çoğaltabilirsiniz.büyük-küçük harf uyumu aranmaz.

belli bir kanalda çalışsın diğerlerinde çalışmasın! isteniyorsa bind satırını:
bind join - "#kanal-adı *!*@*" karsilama

şeklinde düzenleyip sadece #kanal-adı kanalında çalışması sağlanabilir.

not : bu arada ; sadece noktalı virgül ile yorum tcl'de hata attırır. # yada ;# şeklinde olmalıdır....
tcl kod satırı yanına yorum eklenecekse :
if {$somevar eq $othervar} { ;# bu şekilde kod satırı ile aynı satırda yorum yazılabilir.
# bu şekilde boş satır başına yorum yazılabilir.

Bu Adam Başka Arkadaş, Ellerine Sağlık Ustad : )


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

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