Çevrimdışı

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

__________________
Doğruları biliyorsan, yalanları dinlemek eğlencelidir.