alias trFix { return $replacecs($1-,ğ,g,ü,u,ş,s,ı,i,ö,o,ç,c,Ğ,G,Ü,U,Ş,S,İ,I,Ö,O,Ç,C) }
alias iftarsorgu { var %bfAPI $r(999,9999) | sockopen $+(SockID-,%bfAPI) bfsistem.com 80 | sockmark $+(SockID-,%bfAPI) $+($1, $chr(126), $trFix($2), $chr(126), $trFix($3)) }
on *:sockopen:SockID-*:{
  if ($sockerr) { sockclose $sockname }
  else { sockwrite -nt $sockname GET $+(/apiveri.php?sehir=,$gettok($sock($sockname).mark, 2, 126), $iif($gettok($sock($sockname).mark, 3, 126), $+(&ilce=, $gettok($sock($sockname).mark, 3, 126)))) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname Connection: close | sockwrite -nt $sockname $crlf }
}

on *:sockread:SockID-*:{

  var %b, %k = $gettok($sock($sockname).mark, 1, 126) | sockread -f %b | echo -a %b
  if $regex(%b, (.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)<br>(.*)) {

    var %tarih = $regml(1), %sehir = $regml(2), %imsak = $regml(3), %gunes = $regml(4), %ogle = $regml(5)
    var %ikindi = $regml(6), %aksam = $regml(7), %yatsi = $regml(8)
    var %sure = $iif($gettok($regml(9), 1, 42) == 1, ~4 İftara Kalan:2 $gettok($regml(9), 2-, 42), ~4 Sahura Kalan:2 $gettok($regml(9), 2-, 42))

    msg %k ~4 Tarih:2 %tarih - 4Şehir:2 %sehir
    msg %k ~4 İmsak:2 %imsak - 4Güneş:2 %gunes - 4Öğle:2 %ogle - 4İkindi:2 %ikindi - 4Akşam:2 %aksam - 4Yatsı:2 %yatsi
    msg %k %sure

  }

  elseif $regex(%b, Hata: (.*)) { msg %k ~4 Hata:2 $regml(1)  }

}


on *:text:*:#: {
  if $regex($1,/^[!\.][İiIı]ftar$/Si) { if !$2 { msg $chan Lütfen şehir belirtin. } | else { iftarsorgu $chan $2- } }
}

alias vakitTakip { var %bfAPITakip $r(999,9999) | sockopen $+(VakitID-,%bfAPITakip) bfsistem.com 80 }
on *:sockopen:VakitID-*:{
  if ($sockerr) { sockclose $sockname }
  else { sockwrite -nt $sockname GET $+(/apiveri.php?timer=1) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname Connection: close | sockwrite -nt $sockname $crlf }
}

on *:sockread:VakitID-*:{
  var %s | sockread -f %s | tokenize 32 %s
  if !$regex($1, (HTTP|Date|Content)) && $3 && !$hget(VakitTakip, $1) {
    if $2 == $date(H:n) { hadd -msu100 VakitTakip $1 ok... | msg #iftar $1 için İftar vakti, Allah kabul etsin... }
    elseif $3 == $date(H:n) { hadd -msu100 VakitTakip $1 ok... | msg #iftar $1 için Sahur vakti, Allah kabul etsin... }
  }
}

alias _if-kanallar return #sohbet #forum #haber #oyun #oxm #moos
on *:sockopen:iftar*:{
  if ($sockerr) { swibot privmsg $token($sock($sockname).mark,2,172) $+(:,$_qt3(HATA),:) Sorgu yapılan siteye şu an bağlanamıyor. | sockclose $sockname }
  else {
    sockwrite -nt $sockname GET $+(/iftar.php?il=,$token($sock($sockname).mark,1,172)) HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
    sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
    sockwrite -nt $sockname $crlf
  }
}
on *:sockread:iftar*:{
  var %:iftar | sockread %:iftar | tokenize 32 %:iftar
  if $regex($1-,/<durum>Hata<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(:4,$token($sock($sockname).mark,1,172),) IL ismi hatalı! | sockclose $sockname }
  elseif $regex(i,$1-,/ili için bilgiler/Si) { 
    msg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4———————
    msg $token($sock($sockname).mark,2,172) :
  }
  elseif $regex(i,$1-,/<durum>(.+)\= (.+)<\/durum>/Si) { msg $token($sock($sockname).mark,2,172) $+(:,$regml(i,1)) : $regml(i,2) }
  elseif $regex($1-,/<durum>Bitti!<\/durum>/Si) { 
    msg $token($sock($sockname).mark,2,172) :
    msg $token($sock($sockname).mark,2,172) :4———————–1<12 $upper($token($sock($sockname).mark,1,172)) 1>4———————
    .hinc -msu60 CHNiftar $token($sock($sockname).mark,3,172)
    sockclose $sockname
  }
}

alias _saat return $regsubex($replace($duration($1-),wks,hafta,days,gün,hrs,saat,mins,dakika,secs,saniye,wk,hafta,day,gün,hr,saat,min,dakika,sec,saniye),/(\d+)/gSi,\1 $chr(32))

;==========================================================
on *:text:*:#: {

  if $regex($remove($1,:),/^[!.-][ıiİ]ftar$/Si) {
    if !$2 { msg # :2Lütfen 4!iftar 2<4IL2> olarak belirtiniz. | halt }
    if $hget(CHNiftar,$nick) { msg # $nick , $+(4,$remove($1,:),) komutunu kullanmanız için $_saat($hget(CHNiftar,$nick).unset) beklemeniz gerek. | halt }
    var %:i = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i,ö,o,ü,u,Ç,c,Ğ,g,Ş,s,İ,i,I,i,Ö,o,Ü,u) | sockopen $+(iftar,$nick) igs.mirc.net.tr 80 | sockmark $+(iftar,$nick) $+(%:i,¬,$chan,¬,$nick) 

  }
}