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

on $*:text:/^[.!]greet

greet-fiil

selamlamak
greet, salute, hail, salaam, herald

karşılamak
welcome, meet, satisfy, fulfill, compensate, greet

kutlamak
celebrate, congratulate, commemorate, greet, felicitate, emblazon

çarpmak
bump, multiply, bump into, hit, crash, greet

selam vermek
salute, say hi, greet, say hello, salaam

karşılaşmak
encounter, meet, come across, experience, cross, greet