| immortaL | 30 Haziran 2016 14:44 |
Greet Giris. *JOIN*
PHP- Kodu:
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 $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 # Greet Mesajlari Listeleniyor | greetlist | msg # 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 $chan $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(greet.txt,w,$+($nick,*)) {
.msg $chan $+([,$nick,]) $gettok($read(greet.txt,w,$nick $+ *),2,11)
}
}
Coded ; Aeg
NOT :
%operkanali > #kontrolkanali olarak'da değiştire Bilirsiniz. |
