Kod

on $*:text:/^[.!]takvim/i:#sohbet: { 
  if (%takvimkanal) { msg # $nick Takvim sorgusu yapmak için 30 saniye beklemelisiniz. | return }
  set -eu31 %takvimkanal #
  set %takvimchan $chan
  .remove tkv.txt
  .remove tkv_gun.txt
  .remove tkv_dur.txt
  .remove tkv_soz.txt
  .remove tkv_oly.txt
  run -h C:\CURL\bin\curl.exe -s -H "Cache-Control: no-cache" -H "Pragma: no-cache" -o tkv.txt https://www.turktakvim.com/index.php?page=onyuz
  .timer 1 3 takvim_oku
}
alias takvim_oku {
  if (!$isfile(tkv.txt)) { msg %takvimchan Dosya yok. | return }
  filter -ff tkv.txt tkv_gun.txt *#61A6CF*
  filter -ff tkv.txt tkv_dur.txt *gundurumu_band*
  filter -ff tkv.txt tkv_soz.txt *gununsozu*
  filter -ff tkv.txt tkv_oly.txt *gununolayi*
  if ($lines(tkv_gun.txt)) { 
    var %frb = $tkv_temiz($read(tkv_gun.txt,1))
    if (%frb) { msg %takvimchan %frb }
  }
  if ($lines(tkv_gun.txt) > 1) { 
    var %frb = $tkv_temiz($read(tkv_gun.txt,2))
    if (%frb) { msg %takvimchan %frb }
  }
  if ($lines(tkv_dur.txt)) { 
    var %durline = $read(tkv_dur.txt,1)
    var %frb = $tkv_temiz(%durline)
    if (%frb) { msg %takvimchan [Gun Durumu] | msg %takvimchan %frb }
  }
  if ($lines(tkv_soz.txt)) { 
    var %frb = $tkv_temiz($read(tkv_soz.txt,1))
    if (%frb) { msg %takvimchan [Gunun Sozu] | msg %takvimchan %frb }
  }
  if ($lines(tkv_oly.txt)) { 
    var %frb = $tkv_temiz($read(tkv_oly.txt,1))
    if (%frb) { msg %takvimchan [Gunun Olayi] | msg %takvimchan %frb }
  }
  unset %takvimchan
}
alias tkv_temiz {
  var %t = $1-
  var %t = $xturkcex(%t)
  var %t = $remove(%t,<div class="yazi_box" >,<div class="gundurumu_band" align="center">,<div id="gununsozu">,<div id="gununolayi">,<div>,</div>,<span>,</span>,<br>,<br />,align="center")
  var %t = $regsubex(%t,/<[^>]+>/g,$chr(32))
  var %t = $regsubex(%t,/\s+/g,$chr(32))
  var %t = $strip(%t)
  return %t
}
alias xturkcex { return $replacecs($1-,&rsquo;,$chr(39),&uuml;,$chr(252),&Ouml;,$chr(214), ,$chr(32),î,î,â,â,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ) }