mirc'de takvim ve saat kodu

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
}