Kod

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