Tarih..
 

alias cal {
if ($window(@cal) && $1 != -v) { window -c @cal }
if ($1 == -v) { drawrect -snfr @cal $rgb(255,255,255) 1 0 0 166 168 | tokenize 32 $2- }
else window -dpo +t @cal -1 -1 180 168 fixedsys 12
if (!$1) tokenize 32 $asctime(m) $asctime(yyyy)
var %cal.c = drawtext -rn @cal $rgb(0,0,0) fixedsys 12, %cal.buf = Ocak,Şubat,Mart,Nisan,Mayıs,Haziran,Temmuz,Ağustos ,Eylül,Ekim,Kasım,Aralık, %cal.mon = $gettok(%cal.buf,$1,44), %cal.year = $2 , %i = 1, %cal.nd = $cal.monthday($2,$1)
drawfill -snr @cal $rgb(255,255,255) $color($color(background)) 0 0
%cal.c $int($calc($calc(166 - $width(%cal.mon %cal.year,fixedsys,12)) / 2)) 5 %cal.mon %cal.year
%cal.c 0 23 Pz Pzt Sa Ça Pe Cu Ct
if ($asctime(mm yyyy) == $cal.lf($1) $2) var %cal.sameday = $asctime(dd)
while (%i <= %cal.nd) {
if (%cal.sameday == $cal.lf(%i)) drawtext -rn @cal $rgb(255,0,0) fixedsys 12 $calc(($cal.rowcol($2,$1,%i).col -1) * 24) $calc(($cal.rowcol($2,$1,%i).row -1) * 15 + 40) $cal.lf(%i)
else %cal.c $calc(($cal.rowcol($2,$1,%i).col -1) * 24) $calc(($cal.rowcol($2,$1,%i).row -1) * 15 + 40) $cal.lf(%i)
inc %i
}
drawpic @cal
set %cal.cur $1 $2
}
alias cal.rowcol {
if ($prop == row) return $cal.round($calc(((7- (7- $cal.daycalc($1,$2,1))) + $3) /7))
if ($prop == col) {
var %cal.t = $calc(($calc($3 % 7) + $calc(7 - (7 - $cal.daycalc($1,$2,1)))))
%cal.t = $iif(%cal.t > 7,$calc(%cal.t % 7),%cal.t)
return $iif(%cal.t == 0,7,%cal.t)
}
}
menu @cal {
sclick: { tokenize 32 %cal.cur | cal -v $iif($1 > 11,1,$calc($1 + 1)) $iif($1 > 11,$calc($2 +1),$2) }
rclick: { tokenize 32 %cal.cur | cal -v $iif($1 < 2,12,$calc($1 - 1)) $iif($1 < 2,$calc($2 -1),$2) }
}
alias cal.lf { return $iif($len($1) < 2,$+(0,$1),$1) }
alias cal.daycalc {
var %c = $int($calc($1 / 100)), %y = $calc($right($1,2) % 100), %m, %d, %y1,%y2,%y3
%c = $iif($1 < 1752,$calc(18 - %c),$calc(2 * (3 - (%c % 4))))
%y = $calc(($int($calc(%y / 12)) + $calc(%y % 12) + $int($calc($calc(%y % 12) / 4))) % 7)
%m = $mid(033614625035,$2,1)
%d = $iif(($calc($1 % 4) == 0 && $calc($1 % 100) != 0 || $calc($1 % 400) == 0) && ($2 == 1 || $2 == 2),$calc(($3 -1) %7),$calc($3 % 7))
return $calc((%c + %y + %m + %d) % 7)
}
alias cal.round return $iif($1 != $int($1),$int($calc($1 + 1)),$1)
alias cal.monthday {
if ($findtok(1.3.5.7.8.10.12,$2,1,46)) return 31
if ($2 == 2) {
if ($calc($1 % 4) == 0 && $calc($1 % 100) != 0 || $calc($1 % 400) == 0) { return 29 }
return 28
}
return 30
}
on *:load:{
.echo -a CipriX...
.echo -a [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
.echo -a Kodların hepsi CipriX'e Ait değildir.
}



Görünüm: