Kod

Alias tarih { 
  if $window(@Tarih) { echo -a Pencere açık. | halt }
  elseif $sock(Wikipedia) { echo -a Veriler alınıyor bekleyin. | halt }
  $iif($isfile(tariha.fxt),.remove tariha.fxt)
  sockclose Wikipedia
  sockopen Wikipedia tr.wikipedia.org 80
  set %ydeyer 70
  set %ymaxdeyer 100
}
on *:SockOpen:Wikipedia:{ var %s sockwrite -nt $sockname | %s GET /wiki/Vikipedi:Tarihte_bugün HTTP/1.1 | %s Host: tr.wikipedia.org | %s $crlf }
on *:sockread:wikipedia:{ 
  var %a | sockread %a
  if <big> isin %a { write tariha.fxt drawtext -ro @Tarih $rgb(145,104,0) Tahoma 17 15 %ydeyer • $tarihtr($htmlfree(%a)) | inc %ydeyer 20  }
  if <li>En fazla* iswm %a { sockclose $sockname |  write tariha.fxt //drawrect -r @Tarih $rgb(0,129,234) 2 $calc(((%ymaxdeyer +40) -64) /2) $calc(%ydeyer +12) 64 20 
  write tariha.fxt //drawtext -or @Tarih $rgb(19,29,96) Tahoma 13 $calc(((%ymaxdeyer +50) -54) /2) $calc(%ydeyer +14) KAPAT | tarihim | return }
  if <li> isin %a && VP:TB !isin %a {
    write tariha.fxt //drawtext -r @Tarih $rgb(13,34,38) Tahoma 13 15 %ydeyer • $tarihtr($htmlfree(%a)) 
if %ymaxdeyer < $width($tarihtr($htmlfree(%a)),Tahoma,13) { set %ymaxdeyer $v2 } | inc %ydeyer 18 } }

alias tarihim { var %yh $calc(%ymaxdeyer +72)
  window -aCk0w1dp +dL @Tarih 0 0 %yh $calc(%ydeyer +54)
  drawfill -r @Tarih $rgb(88,158,211) - 0 0 
  drawrect -rd @Tarih $rgb(0,129,234) 3 16 18 $calc(%yh -40) 27 12 12
  drawtext -ro @Tarih $rgb(19,29,96) Tahoma 17 $calc((%yh -217) /2) 20 Tarihte bugün neler olmuştu?
  /play -sc tariha.fxt 0
}
alias tarihtr return $replace($1-,Ç,Ç,Ä°,İ,Åž,Ş,Ãœ,Ü,ı,ı,ÅŸ,ş,Ç,Ç,ç,ç,ÄŸ,ğ,ÅŸ,ş,ü,ü,ı,ı,ö,ö,Ö,Ö,Ä,Ğ,ÄŸ,ğ,Ö,Ö,ü,ü,ó,o,é,é)
alias htmlfree {  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x }
menu @Tarih {
sclick: { if ($inrect($mouse.x,$mouse.y,$calc(((%ymaxdeyer +40) -64) /2),$calc(%ydeyer +12),64,20)) window -c @Tarih  } }