mirc\'de takvim ve saat kodu
mirc\'de takvim ve saat kodu

irc kod:
on *:load:{ if ($version >= 6.21) { c.about } | else { c.about This addon only work in mIRC version 6.21+ | set %a.cal 1 } }
alias cal { calendar $1- }
alias calendar {
if (!$1) && ($window(@calendario)) && ($window(@calendario).state != hidden) { window -a @calendario | return }
if ($1 == -a) { tokenize 32 $null }
if (!$hget(calendario)) { hmake calendario 100 }
if (!$exists(Calendar.ini)) { hac lang en | hac xy $window(-2).w $window(-2).h | hac transp 210 | hac clock 1 | hac sombra 1 | hac ontop 1 | hac custom texto.1 texto.2 texto.3 back.1 back.2 borda relogio.h relogio.m relogio.s | hac theme green | clt green | sc }
else { hload -i calendario Calendar.ini }
if (!$1) { tokenize 32 $date(dd/mm/yy) }
elseif ($1 == -x) { window -c @calendario | .timerCAL off | if ($window(@relogio)) { window -c @relogio } | if ($window(@ctc)) { window -c @ctc | unset %ctc } | if ($window(@cdias)) { window -c @cdias } | unset %cld | sc | hfree calendario | return }
else {
if ($regex($1,/^([0-9]{2}\\/){2}[0-9]{4}$/)) {
if ($istok(01 03 05 07 08 10 12,$regml(2),32)) { if ($regml(1) > 31) { return } }
if ($istok(04 06 09 11,$regml(2),32)) { if ($regml(1) > 30) { return } }
if ($regml(2) == 2) { if ($calc($regml(3) % 4)) { return } }
set %cld $gettok($1,1-2,$asc(/)) $+ / $+ $right($gettok($1,3,$asc(/)),2)
}
else { return }
}
if (!$window(@Calendario)) { set %cld $1 | window -pdhkB $+ $iif($hc(ontop),o) +dL @Calendario $hc(xy) 170 170 }
var %ct = $ctime(%cld 12:00:00),%cm = $asctime(%ct,mmmm),%ca = $asctime(%ct,yyyy)
drawrect -rfn @calendario $hc(back.2) 1 0 0 $window(@calendario).w $window(@calendario).h
drawrect -rfn @calendario $hc(back.1) 1 0 0 $window(@calendario).w 26
if ($hc(sombra)) { drawtext -rn @Calendario $hc(texto.2) tahoma 14 $calc(($window(@calendario).w - $width(%cm / %ca,tahoma,14))/2 -1) 4 %cm / %ca }
drawtext -rn @Calendario $hc(texto.1) tahoma 14 $calc(($window(@calendario).w - $width(%cm / %ca,tahoma,14))/2) 5 %cm / %ca
drawrect -rn @calendario $hc(borda) 1 0 0 $window(@calendario).w 26
drawrect -rn @calendario $hc(borda) 1 0 0 $window(@calendario).w $window(@calendario).h
relogio
calendario.n $asctime(%ct,ddd) $asctime(%ct,m) $asctime(%ct,yyyy)
drawdot @calendario
if ($window(@calendario).state == hidden) { if (!$istok(nt 95 98 me,$os,32)) { setlayer $hc(transp) @calendario } | window -a @calendario }
.timerCAL -m 0 100 calendar -a
}
alias relogio {
window -phB +d @relogio 4 4 104 104
drawrect -rfn @relogio 0 1 0 0 $window(@relogio).w $window(@relogio).h
noop $regex($time(hh:nn:ss),/([0-9]{2})/g) | var %s = $calc(6* $regml(3)),%m = $calc(6* $regml(2)),%h = $calc(30 * ((($regml(1) *60) + $regml(2)) /60))
drawline -rn @relogio $hc(relogio.s) 2 53 53 $calc($cos($calc(%s -90)).deg *50+54) $calc($sin($calc(%s -90)).deg *50+54)
drawline -rn @relogio $hc(relogio.m) 2 53 53 $calc($cos($calc(%m -90)).deg *40+54) $calc($sin($calc(%m -90)).deg *40+54)
drawline -rn @relogio $hc(relogio.h) 2 53 53 $calc($cos($calc(%h -90)).deg *30+54) $calc($sin($calc(%h -90)).deg *30+54)
drawdot @relogio
if ($hc(clock)) { drawcopy -tn @relogio 0 0 0 $window(@relogio).w $window(@relogio).h @calendario $calc(($window(@calendario).w - $window(@relogio).h)/2) $calc(($window(@calendario).h - $window(@relogio).h)/2 +13) }
window -c @relogio
}
alias calendario.n {
if (!$window(@cdias)) {
var %cnd = $replace($1,Sun,1,Mon,2,Tue,3,Wed,4,Thu,5,Fri,6,Sa t,7),%cnm = $iif($2 == 2,$iif(!$calc($3 % 4),29,28),$replacex($2,12,31,11,30,10,31,9,30,8,31 ,7,31,6,30,5,31,4,30,3,31,1,31))
window -phB +d @cdias 5 5 160 140
drawrect -rf @cdias 1 1 0 0 $window(@cdias).w $window(@cdias).h
var %dias = S.M.T.W.T.F.S. $+ $str($chr(160) $+ .,$calc(%cnd -1)) $+ $regsubex($str(¬,%cnm),/(.)/g,$base(\\n,10,10,2) $+ .)
var %x = 1,%y = 1,%dx = 8,%dy = 5,%z = 1
while ($gettok(%dias,%x,46)) {
if ($hc(sombra)) { drawtext -r @cdias $hc(texto.2) tahoma 14 $calc(%dx -1) $calc(%dy -1) $gettok(%dias,%x,46) }
drawtext -r @cdias $hc(texto. $+ $iif($gettok(%cld,1,$asc(/)) == $gettok(%dias,%x,46),3,1)) tahoma 14 %dx %dy $gettok(%dias,%x,46)
inc %x | inc %dx 22 | inc %y | if (%y == 8) { %y = 1 | %dx = 5 | inc %dy $iif(%z,24,18) | %z = 0 }
}
}
drawcopy -tn @cdias 1 0 0 $window(@cdias).w $window(@cdias).h @calendario 5 30
}
alias clt {
if ($1 == green) {
hac texto.1 16777215 | hac texto.2 0 | hac texto.3 255
hac back.1 12632192 | hac back.2 12632128
hac relogio.h 96 | hac relogio.m 24576 | hac relogio.s 6291456
hac borda 4210752 | hac theme green
}
if ($1 == dark) {
hac texto.1 16777215 | hac texto.2 12632256 | hac texto.3 255
hac back.1 4210752 | hac back.2 0
hac relogio.h 255 | hac relogio.m 65280 | hac relogio.s 16711680
hac borda 65535 | hac theme dark
}
if ($1 == purple) {
hac texto.1 0 | hac texto.2 16777215 | hac texto.3 65535
hac back.1 12591106 | hac back.2 16744560
hac relogio.h 255 | hac relogio.m 65280 | hac relogio.s 16711680
hac borda 0 | hac theme purple
}
if ($1 == pink) {
hac texto.1 16777215 | hac texto.2 0 | hac texto.3 16711935
hac back.1 16744703 | hac back.2 15073510
hac relogio.h 96 | hac relogio.m 24576 | hac relogio.s 6291456
hac borda 0 | hac theme pink
}
sc | window -c @cdias
}
alias ctcustom {
if ($window(@calendario)) {
if (!$1) && (!$window(@ctc)) {
set %ctc 1
window -pdohBC +d @ctc -1 -1 400 150
goto draw
}
if ($1 == -a) {
:draw
drawrect -rfn @ctc 0 1 0 0 $window(@ctc).w $window(@ctc).h
drawrect -rn @ctc $rgb(255,255,0) 2 0 0 $window(@ctc).w $window(@ctc).h
drawrect -rn @ctc $rgb(255,255,255) 1 20 20 20 20
drawrect -rn @ctc $rgb(255,255,255) 1 258 20 20 20
drawrect -rn @ctc $rgb(255,255,255) 1 20 50 258 20
drawrect -rn @ctc $rgb(255,255,255) 1 20 80 258 20
drawrect -rn @ctc $rgb(255,255,255) 1 20 110 258 20
drawrect -rn @ctc $rgb(255,255,255) 1 288 20 $calc($window(@ctc).w -308) 20
drawrect -rn @ctc $rgb(255,255,255) 1 288 50 $calc($window(@ctc).w -308) 80
drawtext -rn @ctc $rgb(255,255,255) tahoma 14 $calc($calc(($window(@ctc).w -308) - $width(OK,tahoma,14))/2 +288) $calc($height(OK,tahoma,14) /2 +13) OK
drawtext -rn @ctc $rgb(255,255,255) tahoma 16 23 20 <
drawtext -rn @ctc $rgb(255,255,255) tahoma 16 262 20 >
drawtext -rn @ctc $rgb(255,255,255) tahoma 16 $calc((196 - $width($ct,tahoma,16))/2 +50) 20 $ct
ctcrgb | window -a @ctc
}
}
}
alias ctcrgb {
var %cc = $rgb($hc($gettok($hc(custom),%ctc,32))),%cr = $gettok(%cc,1,44),%cg = $gettok(%cc,2,44),%cb = $gettok(%cc,3,44)
if ($2 isnum 21-276) {
if ($1 == r) { tokenize 32 $calc($2 -21) %cg %cb }
if ($1 == g) { tokenize 32 %cr $calc($2 -21) %cb }
if ($1 == b) { tokenize 32 %cr %cg $calc($2 -21) }
}
else { tokenize 32 %cr %cg %cb }
drawrect -rfn @ctc 0 1 21 51 256 18
drawline -rn @ctc $rgb(255,0,0) 1 $calc($1 +21) 51 $calc($1 +21) 69
drawrect -rfn @ctc 0 1 21 81 256 18
drawline -rn @ctc $rgb(0,255,0) 1 $calc($2 +21) 81 $calc($2 +21) 99
drawrect -rfn @ctc 0 1 21 111 256 18
drawline -rn @ctc $rgb(0,0,255) 1 $calc($3 +21) 111 $calc($3 +21) 129
drawrect -rfn @ctc $rgb($1,$2,$3) 1 289 51 $calc($window(@ctc).w -310) 78
hac $gettok($hc(custom),%ctc,32) $rgb($1,$2,$3) | hac theme custom | sc
drawdot @ctc
}
alias ct { return $replace($gettok($hc(custom),%ctc,32),texto.1,$iif ($lg($hc(lang),c1),$v1,Text),texto.2,$iif($lg($hc( lang),c2),$v1,Back text),texto.3,$iif($lg($hc(lang),c3),$v1,Day text),back.1,$iif($lg($hc(lang),c4),$v1,Background 1),back.2,$iif($lg($hc(lang),c5),$v1,Background 2),borda,$iif($lg($hc(lang),c6),$v1,Edge),relogio. h,$iif($lg($hc(lang),c7),$v1,Pointer of hours),relogio.m,$iif($lg($hc(lang),c8),$v1,Pointe r of minutes),relogio.s,$iif($lg($hc(lang),c9),$v1,Poin ter of seconds)) }
alias hc { return $hget(calendario,$1) }
alias sc { hsave -i calendario Calendar.ini }
alias hac { hadd calendario $1 $2- }
alias qc { return $input($1-,eq,$iif($lg($hc(lang),ndt),$v1,Calendar)) }
alias cv { return 2.1 }
alias lg { if ($exists(calendar.lang)) { return $iif($readini(calendar.lang,$1,$2),$v1,0) } | else { return 0 } }
alias c.about {
window -pdohBC +dL @c.About -1 -1 300 120
drawrect -rfn @c.about $rgb(255,255,255) 1 0 0 $window(@c.about).w $window(@c.about).h
drawrect -rn @c.about 0 2 0 0 $calc($window(@c.about).w -1) $calc($window(@c.about).h -1)
var %t = Calendar v $+ $cv * Addon by xXx
drawtext -rn @c.about 0 tahoma 18 $calc(($window(@c.about).w - $width(%t,tahoma,18))/2) 10 %t
%t = #Script / Sohbet.Net
drawtext -rn @c.about 0 tahoma 18 $calc(($window(@c.about).w - $width(%t,tahoma,18))/2) 35 %t
if ($1) { %t = $1- | drawtext -rn @c.about 255 tahoma 12 $calc(($window(@c.about).w - $width(%t,tahoma,12))/2) 70 %t }
%t = Click here to close this window.
drawtext -rn @c.about 0 tahoma 14 $calc(($window(@c.about).w - $width(%t,tahoma,14))/2) $calc($window(@c.about).h - $height(%t,tahoma,14) -5) %t
window -a @c.about
}

menu @calendario {
sclick:{ set %xcld $mouse.x | set %ycld $mouse.y }
uclick:{ unset %xcld %ycld | hac xy $window(@calendario).x $window(@calendario).y | sc }
leave:{ if (%xcld) && (%ycld) { window @calendario $calc($mouse.dx - %xcld) $calc($mouse.dy - %ycld) $window(@calendario).w $window(@calendario).h } }
mouse:{ if (%xcld) && (%ycld) { window @calendario $calc($mouse.dx - %xcld) $calc($mouse.dy - %ycld) $window(@calendario).w $window(@calendario).h } }
$iif($lg($hc(lang),nd),$v1,New date...):calendar $$qc($iif($lg($hc(lang),ndm),$v1,Type the new date: [Format: dd/mm/yyyy])) | window -c @cdias
-
$iif($lg($hc(lang),ct),$v1,Change theme)
.$style($iif($hc(theme) == green,3,0)) $iif($lg($hc(lang),ct1),$v1,Green):clt green
.$style($iif($hc(theme) == dark,3,0)) $iif($lg($hc(lang),ct2),$v1,Dark):clt dark
.$style($iif($hc(theme) == purple,3,0)) $iif($lg($hc(lang),ct3),$v1,Purple):clt purple
.$style($iif($hc(theme) == pink,3,0)) $iif($lg($hc(lang),ct4),$v1,Pink):clt pink
.-
.$style($iif($hc(theme) == custom,1,0)) $iif($lg($hc(lang),ctc),$v1,Customize...):ctcustom
$iif($istok(nt 95 98 me,$os,32),$style(2)) $iif($lg($hc(lang),ty),$v1,Transparency) $iif($istok(nt 95 98 me,$os,32),$chr(9) (Win XP+))
.$style($iif($hc(transp) == 210,3,0)) $iif($lg($hc(lang),tyd),$v1,Default) $chr(9) (210):setlayer 210 @calendario | hac transp 210 | sc
.$style($iif($hc(transp) == 255,3,0)) $iif($lg($hc(lang),tys),$v1,Solid) $chr(9) (255):setlayer 255 @calendario | hac transp 255 | sc
.-
.$style($iif(!$istok(210 255,$hc(transp),32),1,0)) $iif($lg($hc(lang),tyu),$v1,Define...) $chr(9) ( $+ $hc(transp) $+ ):if ($qc($iif($lg($hc(lang),tyud),$v1,Type a number between 100 and 255 [Default: 180])) isnum 100-255) { setlayer $$v1 @calendario | hac transp $$v1 | sc }
$style($hc(sombra)) $iif($lg($hc(lang),us),$v1,Use shadows):window -c @cdias | hac sombra $iif($hc(sombra),0,1) | sc
$style($hc(ontop)) $iif($lg($hc(lang),ot),$v1,On top):hac ontop $iif($hc(ontop),0,1) | window - $+ $replace($hc(ontop),1,o,0,u) @calendario | sc
$style($hc(clock)) $iif($lg($hc(lang),sc),$v1,Show clock):hac clock $iif($hc(clock),0,1) | sc
-
$style($iif($exists(calendar.lang),0,2)) $iif($lg($hc(lang),lg),$v1,Select language)
.$style($iif($hc(lang) == en,3,0)) English:hac lang en | sc
.$style($iif($hc(lang) == pt,3,0)) Português:hac lang pt | sc
.$style($iif($hc(lang) == sp,3,0)) Español:hac lang sp | sc
.$style($iif($hc(lang) == fr,3,0)) Français:hac lang fr | sc
.$style($iif($hc(lang) == it,3,0)) Italiano:hac lang it | sc
.$style($iif($hc(lang) == al,3,0)) Deutsch:hac lang al | sc
-
$iif($lg($hc(lang),ab),$v1,About):c.about
-
$iif($lg($hc(lang),cl),$v1,Close):calendar -x
}
menu @ctc {
sclick:{
if ($inrect($mouse.x,$mouse.y,20,20,20,20)) { dec %ctc | if (%ctc == 0) { set %ctc 9 } | ctcustom -a }
if ($inrect($mouse.x,$mouse.y,258,20,20,20)) { inc %ctc | if (%ctc == 10) { set %ctc 1 } | ctcustom -a }
if ($inrect($mouse.x,$mouse.y,288,20,$calc($window(@c tc).w -308),20)) { window -c @ctc | sc | unset %ctc }
if ($inrect($mouse.x,$mouse.y,21,51,256,18)) { set %ctrgb r | ctcrgb r $mouse.x }
if ($inrect($mouse.x,$mouse.y,21,81,256,18)) { set %ctrgb g | ctcrgb g $mouse.x }
if ($inrect($mouse.x,$mouse.y,21,111,256,18)) { set %ctrgb b | ctcrgb b $mouse.x }
}
dclick:{
if ($inrect($mouse.x,$mouse.y,20,20,20,20)) { dec %ctc | if (%ctc == 0) { set %ctc 9 } | ctcustom -a }
if ($inrect($mouse.x,$mouse.y,258,20,20,20)) { inc %ctc | if (%ctc == 10) { set %ctc 1 } | ctcustom -a }
}
mouse:{
if (%ctrgb == r) { if ($mouse.x < 21) { var %c2tmp = 21 } | if ($mouse.x > 277) { var %c2tmp = 277 } | ctcrgb r $iif(%c2tmp,$v1,$mouse.x) }
if (%ctrgb == g) { if ($mouse.x < 21) { var %c2tmp = 21 } | if ($mouse.x > 277) { var %c2tmp = 277 } | ctcrgb g $iif(%c2tmp,$v1,$mouse.x) }
if (%ctrgb == b) { if ($mouse.x < 21) { var %c2tmp = 21 } | if ($mouse.x > 277) { var %c2tmp = 277 } | ctcrgb b $iif(%c2tmp,$v1,$mouse.x) }
}
uclick:{ unset %ctrgb }
leave:{ unset %ctrgb }
}
menu @c.about {
sclick:{ window -c @c.about | if (%a.cal) { unset %a.cal | .unload -rs $qt($script($script(0))) } }
}
menu menubar,status {
Calendar v $+ $cv:calendar
}