alias imsakiye-genel {
if !
$isfile(imsakiye.txt
) { echo $color(info
) > Kaynak dosyasi mirc klasorunde degil. |
return } var %me = 0, %ze = *[*]*, %ce = 1
while ($read(imsakiye.txt,w,%ze,%me)) {
var %vlyt+zmn = %vlyt+zmn $v1
inc %ce
if (2 // %ce) { var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,?ubat) $+ * | goto je }
var %ze = *[*]*
var %tmr = $replace($gettok(%vlyt+zmn,1,32),?,s,?,i,?,g,Ü,u,Ö,o,Ç,c,?,i,?,s,?,g,ü,u,ö,o,I,i)
$+
(.timer,imsak_,
%tmr) -o $gettok(%vlyt+zmn,
3,
9) 1 1 amsg $lower(%tmr) icin imsak vakti
$gettok(%vlyt+zmn,
3,
9) $+
(.timer,iftar_,
%tmr) -o $gettok(%vlyt+zmn,
7,
9) 1 1 amsg $lower(%tmr) icin iftar vakti
$gettok(%vlyt+zmn,
7,
9) | var
%vlyt+zmn
:je
var %me = $calc($readn + 1)
}
}
alias iftarlar { .timerimsakiye 0 300 imsakiye-genel }
on $*:text:/^[!.](i(ft|ms)a(r|k)) (.+)/i:#:{
var %turkcekar_duzelt = $chr(91) $+ $replace($2,?,?,?,?,i,?,?,?,?,?,I,?,ö,?,Ö,?,ü,?,Ü,?,?,?,?,?,ç,?,Ç,?) $+ $chr(93)
if $read(imsakiye.txt,w,%turkcekar_duzelt) {
var %readn = $readn
var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,?ubat) $+ *
if (?iftar iswm $1) {
if $read(imsakiye.txt,w,%ze,$calc(%readn + 1)) {
msg # >
$2 vilayeti icin iftar vakti
$chr(91) $+
$gettok($v1,
7,
9) $+
$chr(93) $chr(124) iftara kalan sure:
$replace($duration($calc($ctime($time(dd/mm/yy
) $gettok($v1,
7,
9)) -
$ctime)),secs, $+
$chr(32) $+ saniye,sec, $+
$chr(32) $+ saniye,hrs, $+
$chr(32) $+ saat,hr, $+
$chr(32) $+ saat,mins, $+
$chr(32) $+ dakika,min, $+
$chr(32) $+ dakika
) halt
}
}
if (?imsak iswm $1) {
if $read(imsakiye.txt,w,%ze,$calc(%readn + 1)) {
msg # >
$2 vilayeti icin imsak vakti
$chr(91) $+
$gettok($v1,
3,
9) $+
$chr(93) halt
}
}
}
}
on 1:start:{ .timerimsakiye 0 300 imsakiye-genel }
on *:connect:{ .timerimsakiye 0 300 imsakiye-genel }
