IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Coder'i : xXx
Code Adi : Calendar v2.1

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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 }

Status panelini açın ve Sağ tuşa tıklayıp Calendar Client ine tıklayın.
Umarim İşinize Yarar :)
Not : Alintidir.