Tekil Mesaj gösterimi
Alt 31 Ocak 2006, 16:49   #1
Çevrimdışı
NeLix
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Karşılama mesajı




on *:join:#izmir:{ set %loginnick $nick | set %loginchan $chan | checklogin %loginnick }
alias checklogin {
if ($read(registered1.txt,s,%loginnick) = EVET) {
msg #izmir %loginnick [Welcome Messages]: %loginnick izmir kanalına hosgeldiniz.
msg #izmir %loginnick Siz kayıtlı kullanıcımız izmir kanalında farkı ßir sohbeti bizimle yaşayın. | msg %loginnick Lütfen !login olunuz. }
else { whois %loginnick | .enable #catchraw | unset %loginnick | %loginchan }
}
#catchraw on
raw 307:*:{
if (%sifregonder != true) {
msg #izmir [Welcome Messages]: $2 izmir kanalına hosgeldiniz.
msg #izmir [ $2 ]: Lütfen özelime gelerek nickinizi kayıtlayınız.
checkreg $2
}
elseif (%sifregonder = true) { msg $2 Şifreniz: $read(bot-registered.txt,s,$2) }
if (!$read(registered.txt,s,$2)) { write registered.txt $2 EVET }
}
raw 318:*:{
if (%sifregonder != true) {
}
elseif (%sifregonder = true) { unset %sifregonder }
}
#catchraw end
alias checkreg {
if ($read(bot-registered.txt,s,$2)) { msg $1 Bu nick sisteme kayıtlı bir nicktir, lütfen !login olunuz. }
else {
msg $1 Kayıt olmak icin lutfen özelime !Register Şifre Yazınız.
msg $1 Önemli Not; Kendi kayıtlı nickinizin sifresini yazmayın!
msg $1 Örnektir. !register 12345
}
}
on *:text:*:?:{
if ($1 = !register) {
if ($read(registered.txt,s,$nick) = EVET) {
if ($read(bot-registered.txt,s,$nick)) { msg $nick Bu nick zaten kayıtlı! }
else { if $2 { write bot-registered.txt $nick $2 | write registered1.txt $nick EVET | msg $nick Sisteme kayıt oldunuz. Şifreniz: $2  } | elseif !$2 { msg $nick Lütfen Şifrenizide Giriniz. } }
}
elseif ($read(registered.txt,s,$nick) != EVET) { msg $nick Nickinizin nickserv'de kayıtlı olması gerekmektedir, bot nickinizin kayıtlı olmadığını tespit etti, eğer kayıtlıysa lütfen kanaldan çıkıp, tekrar giriniz. }
}
if ($1 = !login) {
if ($read(registered.txt,s,$nick) = EVET) {
if ($read(bot-registered.txt,s,$nick)) {
if !$2 { msg $nick Lütfen Şifrenizide Giriniz. } | elseif $2 { if ($read(bot-registered.txt,s,$nick) = $2) { msg #izmir ( $nick ): Login Oldunuz. Aramıza Hoş Geldin. | mode #izmir +v $nick } | elseif ($read(bot-registered.txt,s,$nick) != $2) { msg $nick Yanlış Şifre!! } }
}
elseif !$read(bot-registered.txt,s,$nick) { msg $nick Nickiniz kayıtlı değil, kaydetmek için !register Şifre yazınız. }
}
elseif ($read(registered.txt,s,$nick) != EVET) { msg $nick Nickinizin nickserv'de kayıtlı olması gerekmektedir, eğer kayıtlı ise lütfen kanaldan çıkıp tekrar girin. }
}
if ($1 = !unregister) {
if ($read(registered1.txt,s,$nick) = EVET) {
if ($read(bot-registered.txt,s,$nick)) {
write $+(-ds,$nick) registered.txt $nick
write $+(-ds,$nick) registered1.txt $nick
write $+(-ds,$nick) bot-registered.txt $nick
msg $nick Nickiniz kaydı başarı ile silinmiştir.
}
else { if $2 { msg $nick Sisteme kayıtlı Değil. } }
}
elseif ($read(registered.txt,s,$nick) != EVET) { msg $nick Nickinizin nickserv'de kayıtlı olması gerekmektedir, bot nickinizin kayıtlı olmadığını tespit etti, eğer kayıtlıysa lütfen kanaldan çıkıp, tekrar giriniz. } }
}
on *:text:!şifre:#:{
if ($read(registered1.txt,s,$nick) = EVET) {
if (!$read(bot-registered.txt,s,$nick)) { msg $nick Bu nickin sisteme kayıtlı olmadığı tespit edildi! }
else {
whois $nick | set %sifregonder true | .enable #catchraw }
}
else { msg $nick Nickinizin nickserv'de kayıtlı olmadığı tespit edildi, eğer kayıtlı ise lütfen kanaldan çıkıp tekrar giriniz. }
}
alias gvoice { if $1 { var %a = $comchan($1,0) | while %a { if ($me isop $comchan($1,%a)) { dec %a } } }


Arkadaşlar bende bu code var Kanala Nicki registerli ve küfürlü biri girdiğinde kill yiyorum. Bu code'yi ona göre ayarlayaßilir miyiz ? yani öle biri geldiğinde mesaj yollamicek ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet