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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Karşılama Tcl (https://www.ircforumlari.net/tcl-scriptler/28441-karsilama-tcl.html)

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

}

Cevap: Karşılama Tcl

if ($nick==$sahip) {

degil

if {$nick==$sahip} {

olmaliydi.

mirc gibi () islemleri {} olarak algilanir

Yanıt: Karşılama Tcl

Birşey daha isteyecem bunu hem nick hemde karşılama mesajı olarak nasıl çogaltabilirim ?

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ı" }

}

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"
}

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..

Cevap: Karşılama Tcl

Alıntı:

kArabaSan Nickli Üyeden Alıntı (Mesaj 288538)

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.

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...]

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)