; Mascovy calendar ... USage: /my.calendar <month> <year>  or /my.year.calendar <Year>
; This Command Will Display calendar for Requested Month or Year, From 1970-2037
; User Allow To Enter Any Year. Example. : /my.calendar october 2037 <-- Will Display calendar October 2037
;                                   : /my.year.calendar 2004 <--- Will Display Calendar For Year 2004
; Try Its Your Self  ..... Comment/Support/Question: mindforce83@yahoo.com - BiskutMeri - Mascovy - © 2004 
on 1:LOAD:var %in = $input(Mascovy Calendar Loaded $crlf Right Click To view Calendar,io,Mascovy Calendar Loaded) | halt
menu @calendar* {
  &Save:{ var %mfiles =  $sfile($logdir,Select Filename,&Save) |  if (%mfiles) { drawsave -q100 $active $iif(!$numtok(%mfiles,46) == 0,$+(",%mfiles,.jpg"),$+(",%mfiles,")) | echo 12*** File Save $iif(!$numtok(%mfiles,46) == 0,$+(",%mfiles,.jpg"),$+(",%mfiles,")) } } 
}
menu status,menubar,channel,query,@calendar* { 
  -
  &My calendar:my.calendar.proc $input(In Order to view the Custom calendar Please State Month And Year $crlf $str($chr(160),5) Example. October 2004 $str($chr(160),5) or  $str($chr(160),5) 10 2004 $crlf $crlf In Order to view Yearly calendar Just State the Year  $crlf $str($chr(160),5) Example. 2004 ,ieo,Require Month And Year) 
}
alias -l my.calendar.proc { 
  if (!$1) { my.year.calendar $gettok($date,3,47) | halt }
  if ($2) { my.calendar $1- | halt } 
  if (!$2) { my.year.calendar $1 | halt }
}
alias my.calendar { 
  ;Change or edit this script if you like.... :)
  ;Checking Validation input
  var %month = January Febuary March April May June July August September October November Disember , %mont = $1
  if ($1 isalpha) var %mont = $findtok(%month,$1,32) 
  if ($2 < 1970) || ($2 > 2037) { echo 12*** Year Must Be Between 1970-2037 Only | halt }
  if ($2 !isnum) || (!%mont) || (%mont > 12) { echo 12*** Invalid Input Usage:/my.calendar  Month Years | halt }

  ;Create Active Window
  var %win = $+(@,Calendar,$chr(160),$gettok(%month,%mont,32),$chr(160),$2) 
  if ($window(%win)) { var %info = $input(You Already Open Selected Calendar,io,ERROR) | window -a %win | halt }
  if (!$window(%win)) window -aBkpRd +elz %win 150 150 180 180 | drawfill %win 15 1 1 100 200

  ;Creating Template
  var %sday = Mon Tue Wed Thu Fri Sat Sun ,%tnum = 0 , %cmap = 30 , %xgb = 14009920 12886011 12441728 16051111 14995685 13558433 11389371
  while (%tnum < $numtok(%sday,32)) {  inc %tnum |  drawrect -fr %win $gettok(%xgb,%tnum,32) 5 1 %cmap 170 15 | drawtext -o %win 12 "Times New Roman" 12 5 %cmap $gettok(%sday,%tnum,32) | inc %cmap 15 }
  drawtext -o %win 6 "Comic Sans Ms" 12 25 5 $+([,$gettok(%month,%mont,32) $2,]) | drawtext %win 1 "Comic Sans Ms" 10 80 140 $decode(LU1hc2NvdnktrjIwMDQ=,m) MY

  ;Calculation
  var %lajur = 45 , %baris = 25, %mon , %tue , %wed , %thu , %fri , %sat , %sun , %min = 0 
  while (%min < 31) {
    inc %min | var %code = $asctime($ctime($+(%min,/,%mont,/,$2)),ddd) 
    if (%code == Mon) { drawtext -o %win 1 "Times New Roman" 12 %lajur 30 $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Tue) { drawtext -o %win 1 "Times New Roman" 12 %lajur 45 $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Wed) { drawtext -o %win 1 "Times New Roman" 12 %lajur 60 $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Thu) { drawtext -o %win 1 "Times New Roman" 12 %lajur 75 $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Fri) { drawtext -o %win 1 "Times New Roman" 12 %lajur 90 $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Sat) { drawtext -o %win 1 "Times New Roman" 12 %lajur 105 $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Sun) { drawtext -o %win 1 "Times New Roman" 12 %lajur 120 $iif(%min < 10,$+(0,%min),%min) }
    ;Change To New Vertical Position
    if (%code == sun) { inc %lajur 20 }
  }
}
alias my.year.calendar { 
  ;Change / edit this script if you like.... :)
  ;Checking Validation input
  var %month = January Febuary March April May June July August September October November Disember , %mont = $1
  if ($1 < 1970) || ($1 > 2037) { echo 12*** Year Must Be Between 1970-2037 Only | halt }
  if ($1 !isnum) || (!%mont) { echo 12*** Invalid Input Usage:/my.year.calendar Years | halt }

  ;Create Active Window
  var %win = $+(@,calendar,$chr(160),$1,$chr(160),BY,$chr(160),MasCovy) 
  if ($window(%win)) { var %info = $input(You Already Open Selected Calendar,io,ERROR) | window -a %win | halt }
  if (!$window(%win)) window -aBkpR +elz %win -1 -1 700 500 | drawfill %win 15 1 1 100 200
  ;Creating Template
  var %sday = Mon Tue Wed Thu Fri Sat Sun  , %xgb = 14009920 12886011 12441728 16051111 14995685 13558433 11389371 , %disk = 0 , %temp.l = 5
  :do
  if (%disk = 12) { goto next } 
  var %cmap = 30 , %tnum = 0  | inc %disk 1
  if (%disk == 5) || (%disk == 9) { var %temp.l = 5 }
  if ((%disk >= 9) && (%disk <= 12)) { var %cmap = 180 }
  if ((%disk >= 5) && (%disk <= 8)) { var %cmap = 340 }
  while (%tnum < $numtok(%sday,32)) {  inc %tnum |  if (%disk == 5) || (%disk == 9) || (%disk == 1) drawrect -fr %win $gettok(%xgb,%tnum,32) %temp.l 1 %cmap 700 15 | drawtext -o %win 12 "Times New Roman" 12 %temp.l %cmap $gettok(%sday,%tnum,32) | inc %cmap 15 }
  drawtext %win 1 "Comic Sans Ms" 10 530 450 $decode(LU1hc2NvdnktrjIwMDQ=,m) MY
  inc %temp.l 180
  goto do
  :next
  drawtext -o %win 6 "Comic Sans Ms" 12 25 5 $+([,$gettok(%month,1,32) $1,]) $str($chr(160),20) $+([,$gettok(%month,2,32) $1,]) $str($chr(160),20) $+([,$gettok(%month,3,32) $1,]) $str($chr(160),20) $+([,$gettok(%month,4,32) $1,])
  drawtext -o %win 6 "Comic Sans Ms" 12 25 160 $+([,$gettok(%month,5,32) $1,]) $str($chr(160),24) $+([,$gettok(%month,6,32) $1,]) $str($chr(160),23) $+([,$gettok(%month,7,32) $1,]) $str($chr(160),23) $+([,$gettok(%month,8,32) $1,])
  drawtext -o %win 6 "Comic Sans Ms" 12 25 320 $+([,$gettok(%month,9,32) $1,]) $str($chr(160),20) $+([,$gettok(%month,10,32) $1,]) $str($chr(160),15) $+([,$gettok(%month,11,32) $1,]) $str($chr(160),15) $+([,$gettok(%month,12,32) $1,])

  ;Calculation
  var  %baris = 25, %date = 0 ,  %mark = 30,45,60,75,90,105,120 180,195,210,225,240,255,270 340,355,370,385,400,415,430
  :ping 
  inc %date 
  if (%date > 12) { goto end }
  if (%date == 1)  || (%date == 5) || (%date == 9) { var %lajur = 34 , %gate = $iif(%date == 1 || %date == 5,$iif(%date == 5,2,1),3) }
  if (%date == 2)  || (%date == 6) || (%date == 10) { var %lajur =  215 } | if (%date == 3)  || (%date == 7) || (%date == 11) { var %lajur =  395 } | if (%date == 4)  || (%date == 8) || (%date == 12) { var %lajur =  575 }
  var  %mon , %tue , %wed , %thu , %fri , %sat , %sun , %min = 0 
  while (%min < 31) {
    inc %min | var %code = $asctime($ctime($+(%min,/,%date,/,$1)),ddd) , %cctg = $gettok(%mark,%gate,32) 
    if (%code == Mon) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,1,44) $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Tue) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,2,44) $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Wed) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,3,44) $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Thu) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,4,44) $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Fri) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,5,44) $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Sat) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,6,44) $iif(%min < 10,$+(0,%min),%min) }
    if (%code == Sun) { drawtext -o %win 1 "Times New Roman" 12 %lajur $gettok(%cctg,7,44) $iif(%min < 10,$+(0,%min),%min) }
    ;Change To New Vertical Position
    if (%code == sun) { inc %lajur 20 }
  }
  goto ping
  :end
}