Kod

on $*:text:/^[.!]takvim/i:#: {   if %takvimchan { return } | set -eu10 %takvimchan $chan | takvim  }
alias takvim { if $sock(takvim1) { .sockclose takvim1 } | .sockopen takvim1 $st 80 }
on *:sockopen:takvim1:{   $m GET /index.php?page=onyuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim1:{ 
  var %takvim
  sockread -f %takvim
  if (*#61A6CF* iswm %takvim) { $a $xturkcex($htmlfree(%takvim))  }
  if (*gundurumu_band* iswm %takvim)  { $a [Gun Durumu] | $a $xturkcex($htmlfree(%takvim))  }
  if (%gunsozudevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunsozudevam  }  }
  if (*gununsozu* iswm %takvim) {  $a [Gunun Sozu] | $a $xturkcex($htmlfree(%takvim)) | if  *</div>* !iswm %takvim { set %gunsozudevam OK  }  }
  if (%gunolaydevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunolaydevam  }  }
  if *gununolayi* iswm %takvim {  $a [Gunun Olayi] | $a $xturkcex($htmlfree(%takvim)) | if  *</div>* !iswm %takvim { set %gunolaydevam OK  }  }
}
on *:sockclose:takvim1:takvim2
alias takvim2 { if $sock(takvim2) { .sockclose takvim2 } | .sockopen takvim2 $st 80 }
on *:sockopen:takvim2:{   $m GET /index.php?page=arkayuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim2:{ sockread -f %takvim | if *<div class="alt">* iswm %takvim { $a $xturkcex($htmlfree(%takvim)) } }
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias -l a return msg %takvimchan  | unset %takvim
alias -l st return www.turktakvim.com 
alias -l m return  sockwrite -n $sockname
alias -l xturkcex { return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ) }