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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Greet Tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/206409-greet-tcl.html)

Merhaba Arkadaslar ben EggdropBotuma Greet Msj eklemek istiyorum birde !help yazinca Kanala

[13:11] -RedShells- ++++++++++( Redshells Command list for !help )++++++++++
[13:11] -RedShells- (rS) - !admin
[13:11] -RedShells- (rS) - !staff
[13:11] -RedShells- (rS) - !vhost
[13:11] -RedShells- (rS) - !website
[13:11] -RedShells- (rS) - !bank
[13:11] -RedShells- (rS) - !uptime
[13:11] -RedShells- (rS) - !contact
[13:11] -RedShells- (rS) - !promotion
[13:11] -RedShells- (rS) - !rules
Sunlarin cikmasini istiyorum

!admin yazinca kanala kanalda bunlari göstersin
[13:14] -RedShells- ++++++++++( Redshells Admin for !admin )++++++++++
[13:14] -RedShells- (rS) - Azrul Bin Ibrahim ( Admin )
[13:14] -RedShells- (rS) - Tel : 012-4023241
[13:14] -RedShells- (rS) - Nickname : Izam
[13:14] -RedShells- (rS) - Email : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Nasil yapabiliriz Bunu acaba

Cevap: Greet Tcl

aradığınız bu şekildir. fakat konu açmadan önce araştırsaydınız kendinizde yapabilirdiniz..
Link: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

 

bind pub - !admin Administrator

 proc Administrator {n c uh h a} {

    putquick  "privmsg $c ++++++++++( Redshells Admin for !admin )++++++++++"

    putquick  "privmsg $c Azrul Bin Ibrahim ( Admin )"

    putquick  "privmsg $c Nickname : Izam"

    putquick  "privmsg $c Email : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

}

Cevap: Greet Tcl

Peki Ben Sizden Nasıl Yardım alabilirim .
7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
IRC.xxxx.com 12 Sunucu SôrumLûsu 7 Sistem Admini Nick Sunucuya Giriş Yapmıştır. bunun tcL hali varmı kardeşim

Cevap: Greet Tcl

Kod:

set sahip toXic

set sahip2 economist

set sahip3 KardiyoloG

bind join - * karsilama

proc karsilama { nick uhost hand chan } {

  global sahip sahip2 sahip3

  if {$nick==$sahip} {

     putserv "PRIVMSG $chan :10 IRC.KELEBEK.GEN.TR Teknik Admini, Kanala Giriş Yaptı."

     putserv "NOTICE $chan :10 IRC.KELEBEK.GEN.TR Teknik Admini, Kanala Giriş Yaptı."

  } elseif {$nick==$sahip2} {

    putserv "PRIVMSG $chan :ROOT Admin KANALA Giris Yaptı."

  } elseif {$nick==$sahip3} {

    putserv "PRIVMSG $chan :Sanalnikah Founderi Kanala Giris Yaptı."

    putserv "NOTICE $chan :Sanalnikah Founderi Kanala Giris Yaptı."

  ;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..

  } else {

    putserv "PRIVMSG $nick :$nick  #Sanalnikah Kanalına Hos Geldiniz."

  }

}

Söyle birsey vardı sende kendine göre ayarla ;)

Cevap: Greet Tcl

set sahip aSi
set sahip2 Y4r4m4z`JoJuk
set sahip3 aSy`JoJuk
set sahip4 hAkkAn
set sahip5 Tikky_j3oys
set sahip6 Efendy
set sahip7 Googlee
set sahip8 kaLpSzy`
set sahip9 ZecK
set sahip10 KaSırGa
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7 sahip8 sahip9 sahip10
if {$nick==$sahip} {
putserv "PRIVMSG $chan :10 IRC.mIRCTRSohbet.Com Server Sahibi Root Admini,[ 4aSi 10] Kanala Giriş Yaptı."
putserv "NOTICE $chan :10 IRC.mIRCTRSohbet.Com Teknik Destek Admini, Kanala Giriş Yaptı."
} elseif {$nick==$sahip2} {
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sahibi ROOT Admin [ 4Y4r4m4z`JoJuk 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip3} {
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Kanal Sorumlusu ve System Sorumlusu [ 4aSy`JoJuK 10] KANALA Giriş Yaptı"
putserv "NOTICE $chan :10Sohbet Founderi Kanala Giris Yaptı."
} elseif {$nick==$sahip4}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Radyo Sorumlusu NETWORK Admin [ 4hAkkAn 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip5}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sorumlusu NETWORK Admin [ 4Tikky_j3oys9 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip6}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sorumlusu Services Admin [ 4Efendy 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip7}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sorumlusu Services Admin [ 4Googlee 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip8}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sorumlusu Services Admin [ 4kaLpSzy` 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip9}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sorumlusu Co Admin [ 4ZecK 10] KANALA Giris Yaptı."
} elseif {$nick==$sahip10}
putserv "PRIVMSG $chan :10IRC.mIRCTRSohbet.Com Server Sorumlusu Co Admin [ 4KaSırGa 10] KANALA Giris Yaptı."
{
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $nick :$nick #Sohbet Kanalına Hos Geldiniz."
}
}
Bunu Böyle Çoğalttım Ama Yanlış veriyor
Hata :
"proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7 sahip8 sahip9 sahip10
if {$nick==$sahip} {
p..."
(file "scripts/aSi.tcl" line 12)
invoked from within
"source scripts/aSi.tcl"
(file "soz.conf" line 283)
Bunu Nasıl Düzeltirim

Cevap: Greet Tcl

Hatayı Çözdüm Saolasınız. Ama Bu Seferde YAZI yazmıyor :) toXic yardımcı olurmusunuz

Cevap: Greet Tcl

yazı yazmıyor derken karşılama olayını yapmıyor mu ?

Cevap: Greet Tcl

sanırım sen bunu sunucu geneli için her kanala girdiklerinde karşılama mesajı cıksın şeklinde istiyorsan bu tcl o şekilde yaramaz sadece botun olduğu kanala girdiklerinde belirlediğin nicklerin mesajları cıkar buna dikkat edin eğer sadece dediğim gibi sadece botun girdiği kanallarda cıksın istiyorsan olmaması için sebep yoktur.