Kod

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 {
  var %zaman $duration($calc($duration($+($1,:00)) - $duration($time)))
  if - isin %zaman {
    var %zaman $duration($calc($duration($time) - $duration($+($1,:00))))
    return 3Geçen: $replace(%zaman,mins,dakika,secs,saniye,hrs,saat)
  }
  return 4Kalan: $replace(%zaman,mins,dakika,secs,saniye,hrs,saat)
}
on *:sockread:ssl*:{
  var %63 | sockread %63
  if $regex(%63,<div class="hata">404</div>) {
    .hfree -sw verial
    msg $hget(verial,kanal) **4 $hget(verial,sehir) **  adında il bulunamadi.
    sockclose $sockname
  }
  if $regex(%63,<span class="pray-time">(.*?)</span>) {
    hinc -m verial inc 1
    if $hget(verial,inc) = 1 { 
      msg $hget(verial,kanal) **4 $hget(verial,sehir) **4 $date tarih verisi.
      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) ( $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
    }
  }
}