| Emre |
04.Haziran.2022 22:50 |
Tarihte bugün
Tarihte bugün adından da anlaşılabileceği üzre tarihte bugün neler yaşandığını gösteren bir kod. Vikipedi tabanlı çalışmakta
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 isin %a { write tariha.fxt drawtext -ro @Tarih $rgb(145,104,0) Tahoma 17 15 %ydeyer • $tarihtr($htmlfree(%a)) | inc %ydeyer 20 }
if 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 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, ) | return %x }
menu @Tarih {
sclick: { if ($inrect($mouse.x,$mouse.y,$calc(((%ymaxdeyer +40) -64) /2),$calc(%ydeyer +12),64,20)) window -c @Tarih } }
/tarih komutuyla çalıştırabilirsiniz. |
