AOBA.PL   

<

^

>


                                                  ($z='$A=2;$o="\n";$b="\e[";$a=29.53
                                          058885                                       3;use
                                     >Ti                                                      me:
                                 :Lo                                                              ca
                             l;@                                                                     p=
                          ("$                                                       {                  b}
                 9      0;       4                                   0m              ",                  "$
               {b }   3         7                                      ;               4    0              m"    ,"${
              b   }30   ;4     7                            m"         ,"               $    {              b} 30   ;47m
            ","$  {    b      }          9                  0;          40               m    ",             "${    b}  9
            6  ;40   m"      ,          "$                   {           b}               3    0;          10       6    m
         ");s  u    b>      g           {r                   et           ur               n    >l         oc    a     lt
         i   me    $       l;          }s                    ub           >f                {    (           $x,$   y    ,
         $  z     ,       $u           ,$                    v,           $w)               =g    ;           $l   =timelo
        ca l     (        0           , 0                     ,0          ,$ k               ?    $u           :1,$v    ,
        $ w     )        ;}          su b                     >h           { pr              in    t              $     _[
        0]     i        f$           _  [                     1]           ;  }               @    t              =     (t
       im     e)       ;if           (  !$                    #A           R   G              V    ){             if    ($
       AR     G        V[0          ]   !~                    /^(          [   0-             9     ]              +    )-
       (     [        0-9]          +    )                     -(          [    0             -9    ]              +     )
      $      /        | |!         de    f                     in          e    d(            $t    [              0     ]
     =e     va       l{ ti         m      e                    lo          c     a            l(    0              ,     0
     ,      0        ,   $         3      ,$                   2-1         ,     $            1-    1              9     0
     0  )   }        )   )         {       h                   "Un         a     bl           e>    t              o     >
    p   a   r        s   e         >        $                  ARG         V      [           0]    >             as     >
    Y  YY   Y       -M   M-        D         D                 $o"        ,1      ;           ex    i             t      >
    1  ;    }       }f    o        r($i       =                0 ;   $i<  $       A          ;$i    +             +      )
    {  $    l        =              $   t[     $i              ] ;($     x,       $         y,$z    ,            $      u,
   $v ,$    w)       =              g            ;             p u      sh        @        r,[$     w           ,       $v
   ,$ i?     -       1               :            $u          ]; $      k         =           0    ;f          o        r(
   f; ;f      )       {                             ($x       ,  $                            y    ,$         z         ,$
   u, $v,     $k         ,$s)=g;las                                     t>if!$s;$l-=          4    3        200         ;
    } $ t      [$         i]=$l;@c=@m=()                            ;for($j=0;$j<42;$j++      )    {      ($x,$         y
    , $ z,     $u,      $v,           $w,$s                        ,$k)=   g;$k+=     $w*3    6   5    +i   nt(         ~
    -$w  /4     )-      in          t(~-$w/10                      0)       +int(($     w+29 9)   / 400);p ush@         m
    ,$k    -    int      (      $   k/$a)*$a;                     p    u   sh@c,($v-     $r[ $i  ][1]?     0:$u         -
    $r[$        i][2           ]?1:2);$l+=12 9                        600;f;}for($j=     0;$j<  41      ;    $j         +
    +){$         c [$          j]| =4>if$ m[                          $   j]<=15   .5    &   &  1   5.5  <$   m[       $j
    +1 ];        p  us         h   @c,0;}  p                         us   h@q,[@c  ]        ;  h  "> >    >    "       ,$
     i ;pr        i  nt        f    "${b   }                          9   7;40m$   {        b }4 m   >%   0    4       d
     -   %        0   2d        "          .                          (    ">"x   2        6 ). "     $        {       b
    }0             m   "                                                                  , $r   [    $      i]        [
    0]             +1  90                                                                0,$r    [   $i    ][1         ]
    +1              ;p  u                                                               sh@   t,$  t[   $i]+3          6
    28        8     0 0 ;}                                                             h$o   ,1  ;   for(   $         j=
   0;$j       <     7  ;$j                                                            ++)      {  for  (    $         i=
   0 ;$        i    <    $A                                                          ;$    i    ++    ){   h"         >
   > ",        $    i     ;f                                                        or   ($  k=0      ;    $k <       7
   ; $k         +   +      ){                                                      $   x=            $q   [$i ]       [
  $j *7+        $   k        ];                      $y=6<                           $j              *    7+  $       k
  ?  $q[         $  i]         [$                   j     *                       7+$               k-   7 ]  :       0
  ;  $ z      =   $  x           |$y                ;      $                   z=$                  z    - 7  ?       $z
 :2  | ($      x  -2 &              &$y              -     2                ?4:                     0   ); h  "        $
 p   [  $       z  ]>>>                 >${                            b}0m                        >"   ,  1  ;}       }
 h   $  o       ,1   ;if                    ($j<                  6){f                             o    r  (  $i       =0
 ;   $i  <       $A   ;$i                       ++){       $l=$t[                                  $    i] ;h ">>       "
,$   i;  fo       r(    $s                          =0;$s<                                         7     ;$s+  + )       {
($    x   ,$        y     ,$z,                                                                     $       u)  =g;p      ri
n     t     f"%s>%2d>${b}0m>"                                                                      ,$     p[$    q[$i][   $
j     *                                                                                             7+$s]   ]        ,     $
u     ;$                                                                                                    l+      =12     9
6      0                                                                                                     0    ;f    ;}   $
t      [$                                                                                                     i]=         $l  ;
}       h                                                                                                                    $o,
1        ;
 }        }')
  =~          s/\s//g
    ;$z=~s/>/ /g;
        eval$z;

  NFO RAR ZIP DETAILS /
2021-02-09