alias ekle {
  write users/ $+ $+($1,.txt) İsmi: $$?"İsmini Yazınız"
  write users/ $+ $+($1,.txt) Şehir: $$?"Şehrin iYazınız"
  write users/ $+ $+($1,.txt) Yaş: $$?"Yaşını Yazınız"
  write users/ $+ $+($1,.txt) Okul: $$?"Okulunu Yazınız"
  write users/ $+ $+($1,.txt) MSN: $$?"MSN Yazınız"
}
on *:open:?: {
  if  $findfile($mircdirusers\, $+ $nick $+ .txt,0) {
    echo 4 $nick $read(users/ $+ $nick $+ .txt,1)
    echo 12 $nick $read(users/ $+ $nick $+ .txt,2)
    echo 7 $nick $read(users/ $+ $nick $+ .txt,3)
    echo 11 $nick $read(users/ $+ $nick $+ .txt,4)
    echo 3 $nick $read(users/ $+ $nick $+ .txt,5)
  }
}
on *:input:*: {
  if $1 == /query && $2 {
    if  $findfile($mircdirusers\, $+ $2 $+ .txt,0) {
      .timer 1 1 echo 4 $2 $read(users/ $+ $2 $+ .txt,1)
      .timer 1 1 echo 12 $2 $read(users/ $+ $2 $+ .txt,2)
      .timer 1 1 echo 7 $2 $read(users/ $+ $2 $+ .txt,3)
      .timer 1 1 echo 11 $2 $read(users/ $+ $2 $+ .txt,4)
      .timer 1 1 echo 3 $2 $read(users/ $+ $2 $+ .txt,5)
    }
  }
  if $1 == /q && $2 {
    if  $findfile($mircdirusers\, $+ $2 $+ .txt,0) {
      .timer 1 1 echo 4 $2 $read(users/ $+ $2 $+ .txt,1)
      .timer 1 1 echo 12 $2 $read(users/ $+ $2 $+ .txt,2)
      .timer 1 1 echo 7 $2 $read(users/ $+ $2 $+ .txt,3)
      .timer 1 1 echo 11 $2 $read(users/ $+ $2 $+ .txt,4)
      .timer 1 1 echo 3 $2 $read(users/ $+ $2 $+ .txt,5)
    }
  }
}
alias bakbir {
  if  $findfile($mircdirusers\, $+ $snicks $+ .txt,0) {
    echo 4 $snicks $read(users/ $+ $snicks $+ .txt,1)
    echo 12 $snicks $read(users/ $+ $snicks $+ .txt,2)
    echo 7 $snicks $read(users/ $+ $snicks $+ .txt,3)
    echo 11 $snicks $read(users/ $+ $snicks $+ .txt,4)
    echo 3 $snicks $read(users/ $+ $snicks $+ .txt,5)
  }
}