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