Hazır kod !Greet mesaj greetekle mesaj

kayitlimi off
raw 307:*: {
.set $+(%,yeah,.,$2) on
}
#kayitlimi end
alias kontrolet {
.enable #kayitlimi
.whois $1
}
on *:text:.greet *:%operkanali:{
if $2 == ekle {
if !$read(admin.txt,w,$nick) { .msg # $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
elseif $2 == $null { .msg # $+(",$nick,") .greet ekle Mesaj Seklinde Kodu Kullaniniz. }
elseif $3 == $null { .msg # $+(",$nick,") Lütfen Greet Mesajinizi Yaziniz }
else { kontrolet $nick | .msg %operkanali $+(",$nick,") Bekleyin Kontrol Ediliyor | .timer 1 2 kontrolet2 $nick $3- }
}
if $2 == sil {
if !$read(admin.txt,w,$nick) { .msg # $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
elseif $3 == $null { .msg # $+(",$nick,") Lütfen Silincek Nick Yaziniz }
else { greetsil $3 }
}
if $2 == list {
if !$read(admin.txt,w,$nick) { .msg # $+(",$nick,") Bu Komutu Kullanmaya Yetkili Degilsiniz. }
else { .msg $chan $nick Özelinize Bilgiler Verilmiştir , Lütfen Özelinizi Kontrol Ediniz | .msg $nick Greet Mesajlari Listeleniyor | greetlist | .msg $nick Greet Mesajlari Listesi Sonu }
}
}
alias greetsil { if $1 { if !$read(greet.txt,w,$+($1,*)) { .msg $chan  $1  Greet Mesaj'i listesinde yok. | halt } | else { write $+(-dl,$readn) greet.txt | .msg $chan - $1 - Greet Mesaj'i listesinden silindi. } } }
alias greetlist { var %s = 1,%ss = $lines(greet.txt) | while %s <= %ss { .msg $nick $read(greet.txt,%s) | inc %s } }
alias kontrolet2 {
if $($+(%,yeah,.,$1),2) == on {
if $read(greet.txt,w,$1 $+ *) {
.msg %operkanali $+(",$1,") zaten seçilmiş bir greet mesajınız vardı
.write -dl $+ $readn greet.txt
.msg %operkanali $+(",$1,") Seçilen Greet Mesajı değiştirildi
.write greet.txt $1 $+ $chr(11) $+ $2-
.msg %operkanali $+(",$1,") Eklenen Mesaj:4 $2-
}
else {
.write greet.txt $1 $+ $chr(11) $+ $2-
.msg %operkanali $+(",$1,") Greet mesajınız eklendi Mesaj:4 $2-
}
.unset $+(%,yeah,.,$1)
.disable #kayitlimi
}
else {
.msg %operkanali $+(",$1,") Nickiniz kayıtlı olmadığından dolayı malesef bu özelliği kullanamıyorsunuz
.msg %operkanali $+(",$1,") /ns register sifre email  Sifre Yerine Sifrenizi Email Yerine Msnenizi Yazarak Kayıt Edebilirsiniz Nickinizi
.disable #kayitlimi
}
}
on *:join:#:{
if $read(yönetimkanal.txt,w,$chan) { halt }
if $read(greet.txt,w,$+($nick,$chr(11),*)) {
.msg $chan $+([,$nick,]) $gettok($read(greet.txt,w,$nick $+ *),2,11)
}
}