mIRC Namaz vakitleri

on *:input:#:if $1 = !namaz && $2 { nmzid $tkarakter($2) $chan }
alias -l turkish return $replace($1,\u015f,ş,\u015e,Ş,\u00e7,ç,\u00c7,Ç,\u0131,ı,\u0130,İ,\u00f6,ö,\u00d6,Ö,\u011f,ğ,\u011e,Ğ,\u00fc,ü,\u00dc,Ü)
alias -l tkarakter { return $replace($1-,ı,i,İ,I,ğ,g,Ğ,G,ş,s,Ş,S,ö,o,Ö,O,ç,c,Ç,C,ü,u,Ü,U) }
alias -l nmzid { var %s $+(as,$r(1,999)) | sockopen  %s api.fazilettakvimi.com 80 | sockmark %s $1- }
on *:sockopen:as*: {
  if $sockerr { echo -a Hata! }
  var %s sockwrite -n $sockname
  %s GET /api/v3/gunluk/index/79 HTTP/1.1
  %s Host: $sock($sockname).addr
  %s $crlf
}
on *:sockread:as*: {
  var %s | sockread -f %s
  if $regex($tkarakter($turkish(%s)),/\{\"id\"\:(\d+) $+ $chr(44) $+ \"adi\"\:\" $+ $token($sock($sockname).mark,1,32) $+ \"/gi) {
    nmzbak $regml(1) $sock($sockname).mark
  }
}
alias -l nmzbak { var %s $+(nmz,$r(1,999)) | sockopen %s api.fazilettakvimi.com 80 | sockmark %s $1- }
on *:sockopen:nmz*: {
  var %s sockwrite -n $sockname
  %s GET $+(/api/v3/gunluk/index/,$token($sock($sockname).mark,1,32)) HTTP/1.1
  %s Host: $sock($sockname).addr
  %s $crlf
}
on *:sockread:nmz*: {
  var %s | sockread -f %s | if $regex($tkarakter($turkish(%s)),/\{\"tarih\"\:\" $+ $date(yyyy-mm-dd) $+ \" $+ $chr(44) $+ \"(imsak|sabah|gunes|ogle|ikindi|aksam|yatsi)\"\:(.*?)\"\}/gi) {
    msg $token($sock($sockname).mark,3,32) $upper($token($sock($sockname).mark,2,32)) için vakitler: $regsubex($regsubex($regsubex($regsubex($regsubex($token($regml(2),2-,44),/(")/g,$chr(32)),/(T|Z)/g,$chr(32)),/(:\s+| $+($chr(44),|,$date(yyyy-mm-dd)) $+ )/g,),/([a-z]+)/g,$+($chr(3),6,$upper($left(\1,1)),$right(\1,-1),$chr(3),$chr(32))),/(\d+\:\d+\:\d+)/g,$time($duration(\1)))
  }
}