|
MySelf61 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Merhabalar..
Arkadaşlar karşılama tcl için MesqeN arkadaşımız sağ olsun ayarlamıştı fakat bir iki kişi daha eklemek istediğimde yapamadım sahip6 ve sahip7 yi ekledim aşağıda ki gibi
set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen
set sahip4 XoXo
set sahip5 AriS
set sahip6 bozkurt
set sahip7 EceM
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 bozkurt Şu anda onLine.AbiLerin_abisi "
} elseif { $nick == $sahip7 } {
putserv "PRIVMSG $chan :Serverimiz Root admiNLerinden EceM Şu anda onLine.I Love you Baby"
} elseif {
putserv "PRIVMSG $chan :$nick Hos geldiniz aLemin KraLLarı Set By ...."
}
}
Yukarıda ki bu karşılama tcl sinde eksik mi var sizce.. tekrar bir yardımcı olursanız sevinirim.. hata olarak ise
Tcl error [46.105.211.177:6667]: invalid command name "46.105.211.177:6667"
Tcl error [clsnotice]: syntax error in expression "$$::pr($) == 0": extra tokens at end of expression
yukarı da ki şekilde hata veriyor telnette.. Teşekkürer. |
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set sahip nick
set sahip2 nick
set sahip3 nick
set sahip4 nick
set sahip5 nick
set sahip6 nick
set sahip7 nick
set sahip8 nick
set sahip9 nick
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4 sahip5 sahip6 sahip7 sahip8 sahip9
if { $nick == $sahip } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Web-Forum Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip2 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Genel Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip3 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Chanserv Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip4 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Oyun Kanalı Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip5 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Güvenlik Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip6 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Help Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip7 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network OperDesk Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip8 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network GlobalOPS Sorumlusu nick Şu Anda Online ...!"
} elseif { $nick == $sahip9 } {
putserv "PRIVMSG $chan :6IRCYöneticisi IRC Network Server Sorumlusu nick Şu Anda Online ...!"
} else {
putserv "PRIVMSG $chan :$nick Hos Geldiniz "
}
}
Deneme Kod: Kodu kopyalamak için üzerine çift tıklayın!
6IRCYöneticisi IRC Network Server Sorumlusu No_FeaR Şu Anda Online ...!