[immortaL]

Bildiğimiz üzre ''NoMerCy'' Dediğimiz Sunucu Botunda Kullanılan Sistemle Birebir Aynı
NoMerCy Botunun Özeline .Greet ekle Mesaj Şeklinde Kullandıgımız Komut Artık Sizlerle

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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) 
} 
}