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)  

  }  

}