on *:text:*:#: { tokenize 32 $strip($1-) if $regex($1,/[!.][ıi]ftar$/i) { if !$2 { msg # il belirtmediniz! | return } hadd -m verial kanal $chan iftar $lower($2) } } alias tr_ return $replacex($1-,ç,c,ı,i,ğ,g,ü,u,ş,s,ö,o) alias iftar { var %rand = $rand(1,999) sockopen $+(ssl,%rand) ajan.tk 80 sockmark $+(ssl,%rand) $+(https://www.hurriyet.com.tr/ramazan/,$tr_($1),-imsakiye/) hadd -m verial sehir $upper($1) } on *:sockopen:ssl*:{ var %komut = sockwrite -n $sockname %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1 %komut Host: $sock($sockname).addr %komut Connection: keep-alive %komut $crlf } alias iftarkalan { return $replace($duration($calc($duration($+($1,:00)) - $duration($time))),mins,dakika,secs,saniye,hrs,saat)) } on *:sockread:ssl*:{ var %63 | sockread %63 if $regex(%63,
404
) { .hfree -sw verial msg $hget(verial,kanal) **4 $hget(verial,sehir) ** adında il bulunamadi. sockclose $sockname } if $regex(%63,(.*?)) { hinc -m verial inc 1 if $hget(verial,inc) = 1 { msg $hget(verial,kanal) **4 $hget(verial,sehir) ** msg $hget(verial,kanal) - msg $hget(verial,kanal) Imsak(Sahur): $regml(1) } if $hget(verial,inc) = 2 { msg $hget(verial,kanal) Güneş: $regml(1) } if $hget(verial,inc) = 3 { msg $hget(verial,kanal) Öğle: $regml(1) } if $hget(verial,inc) = 4 { msg $hget(verial,kanal) Ikindi: $regml(1) } if $hget(verial,inc) = 5 { msg $hget(verial,kanal) Akşam(Iftar): $regml(1) (4Kalan: $iftarkalan($regml(1)) $+ ) } if $hget(verial,inc) = 6 { msg $hget(verial,kanal) Yatsı (Teravih): $regml(1) msg $hget(verial,kanal) - .hfree -sw verial sockclose $sockname } } }