Çevrimdışı

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 ?

 

sana kim kill atıyor onu söyle yardımcı olalım...

 

Çevrimdışı

e-kolay adminleri kill atıyor işde kanala bot küfürlü nicke mesaj atınca otomatik kill yiyor..

 

Çevrimiçi

kill nedeni nedir acaba flood mu deildir ama reklam içerikli bir kelime olabilir kill nedenini yazarsan bişiler yapılabilir

 

Çevrimdışı

INSANIYET NAMINA


;bunalim

 

Çevrimdışı

Arkada$lar ßu Cod'u Kim yazmı$sa Emeğine Sağlık Sizlerede çok tesekkür Ederim

 

Çevrimiçi

arkadaslar bu codu remoteye ekledim pc yi kasti mirc dondu napmam gerek yardim edermisiniz . ?

 

Çevrimdışı

Şu an kullandığın bilgisayarı çöpe at ya da server olarak kullan, kendine yeni ve daha hızlı işlemcili bir bilgisayar al? Ya da bu önerilerimi dinlemeyip yukardaki kodu kullanma, kendine baştan istediğin şekilde bir kod yaz.

 

Çevrimdışı

Doğru fAkat Ihtimal Olarak Eger Cok Yüksek Giriş CıkışLı KanaLda Denediysende Olabilir..

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

Burası Kastırabilir Cok giriş Cıkış Varsa Cunku Whois Cekiliyor Who Cektirerek Dene..

 

Çevrimdışı

Ne işe Yarıyor bu Kod. biLen Arkadaş Varsa Paylaşırsa Memnum Olurum