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

1Casper · 06 Mart 2007, 01:01

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

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

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

if ($nick==$sahip) {

degil

if {$nick==$sahip} {

olmaliydi.

mirc gibi () islemleri {} olarak algilanir

1Casper · 06 Mart 2007, 01:18

Saol adil
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

1Casper · 06 Mart 2007, 01:35

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

BuCaLI · 06 Mart 2007, 01:48

her nick için farklı mesaj şeklinde bahsediyorsan

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

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

CcehennemM Nickli Üyeden Alıntı

her nick için farklı mesaj şeklinde bahsediyorsan

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

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

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


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


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

TataR · 19 Kasım 2007, 00:40

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

kArabaSan Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

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

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

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


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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

SHaNS · 10 Eylül 2008, 18:05

[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)

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
karşılama tcl	Shiniori	TCL Scriptler	2	14 Ağustos 2013 23:08
Gül'e jet karşılama	PassioN	Haber Arşivi	0	17 Nisan 2012 20:03
Dj KaRŞıLaMa	Goemon	mIRC Scripting Sorunları	3	29 Ocak 2009 19:12
Bot KarşıLama	kaya43	mIRC Scripting Sorunları	3	26 Ekim 2007 16:52

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.