on *:snotice:*:{

  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {

    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)

    msg %_nick Merhaba, %_nick

    msg %_nick Doğum tarihini sisteme kayıt ettirebilirsiniz.

    msg %_nick Doğum gününüz geldiğinde, kanallar genelinde voice(+) 'e sahip olabilirsiniz..

    msg %_nick Doğum tarihinizi eklemek için 4!dogumgunu Tarih yazabilirsiniz.

  }

}

on *:text:*:?:{

  if $regex($1,/^[!.]do[gğĞ]umg[uüÜ]n[uüÜ]$/Si) {

    if !$regex($2,/^(\d{2}\/\d{2}\/\d{4})$/S) { msg $nick Lütfen 4!dogumgunu Tarih olarak belirtiniz. 4ÖRN: !dogumgunu 09/09/1991 }

    else { .hadd -ms Trh $nick $regml(1) | who $nick }

  }

}

raw 352:*:{

  if $hget(Trh,$6) {

    if !$regex($7,/r/) { msg $6 Nickiniz kayıtsız olduğundan dolayı sisteme eklenemedi, lütfen nickinizi kayıt ediniz... | .hdel -ms Trh $6 }

    else {

      sockopen $+(tarih,$6) yas.hesaplama.in 80 | sockmark $+(tarih,$6) $+($6,¿,$hget(Trh,$6))

      .hadd -ms Tarih $6 $hget(Trh,$6) | .hsave -o Tarih Tarih.tprk | .hdel -ms Trh $6

    }

  }

}

on ^*:join:#:{

  if $token($hget(Tarih,$nick),1-2,47) == $token($date,1-2,47) {

    mode # +v $nick

    msg # Doğum gününüz kutlu olsun,4 $nick

  }

}

on *:start:if $isfile(Tarih.tprk) { .hmake Tarih | .hload Tarih Tarih.tprk }

alias _tr return $replace($1-,Ç,Ç,Ä°,İ,ü,ü,ÅŸ,ş,ÄŸ,ğ,ç,ç,ı,ı,ö,ö,Å,Ş,Ä,Ğ,Ãœ,Ü,Ö,Ö)

on *:sockopen:tarih*:{ 

  if ($sockerr) { .sockclose $sockname | return }

  var %:sockmark $token($sock($sockname).mark,2,191), %:hesap $+(gun=,$token(%:sockmark,1,47),&ay=,$token(%:sockmark,2,47),&yil=,$token(%:sockmark,3,47))

  sockwrite -nt $sockname POST /yas-hesaplama-dogum-gunu-hesaplama-burc-hesaplama/ HTTP/1.1 

  sockwrite -nt $sockname Host: $sock($sockname).addr

  sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Content-length: $len(%:hesap)

  sockwrite -nt $sockname Accept: text/html, application/xhtml+xml

  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)

  sockwrite -nt $sockname Content-Type: application/x-www-form-urlencoded

  sockwrite -nt $sockname

  sockwrite -nt $sockname %:hesap

}

on *:sockread:tarih*:{ 

  var %:tarih | sockread %:tarih | tokenize 32 $_tr(%:tarih)

  if $regex($1-,/<b>(.+?) günü <\/b>doğdunuz/i) { msg $token($sock($sockname).mark,1,191) $+(4,$regml(1),) günü doğdunuz }

  if $regex($1-,/tam olarak (.+?) yaşındasınız/i) { msg $token($sock($sockname).mark,1,191) $+(4,$regml(1),) yaşındasınız }

  if $regex($1-,/Yaşanılan Toplam Süre<\/b>\=(.+?)<br> <b>/i) { msg $token($sock($sockname).mark,1,191) Yaşanılan Toplam Süre =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Ay Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Ay Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Gün Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Gün Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Saat Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Saat Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Dakika Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Dakika Sayısı =4 $regml(1) }

  if $regex($1-,/Doğum gününüze kalan süre<\/b>\:(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Doğum gününüze kalan süre =4 $regml(1) }

  if $regex($1-,/Burcunuz\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Burcunuz =2 $regml(1) | sockclose $sockname }

}