WeatherObject(#3528opIV)
Type: OBJECT  Flags: PUPPET SOCKET_INPUT VISUAL
You see nothing special.
Owner: Adrick(#1PGNMXc)  Key : WeatherObject  Pennies: 10
Created: Tue Feb  2 11:49:55 2021
ADDRESS_SHORT: 
   [regedit(u(state_short,
              trim(switch(edit(%0,United States of America,USA),
                          *County\,*,
                             [substr(%{m0},
                                     0,
                                     sub(strlen(%{m0}),
                                         strlen(last(%{m0},\,))
                                     )
                             )]
                             %{m1},
                          *,
                             %{m0}
                   )
              )
            ),
            \, \(\\d{5}\)\,,
            \,
   )]
CHANGE_COLOR: [edit(edit(%0,38;5;226,38;5;214,,2),38;5;154,38;5;28,,2)]
STATE_SHORT: 
   [switch(%0,
           *\, Alabama\,*,
              %{m0}\, AL\,%{m1},
           *\, Alaska\,*,
              %{m0}\, AK\,%{m1},
           *\, Arizona\,*,
              %{m0}\, AZ\,%{m1},
           *\, Arkansas\,*,
              %{m0}\, AR\,%{m1},
           *\, California\,*,
              %{m0}\, CA\,%{m1},
           *\, Colorado\,*,
              %{m0}\, CO\,%{m1},
           *\, Connecticut\,*,
              %{m0}\, CT\,%{m1},
           *\, Delaware\,*,
              %{m0}\, DE\,%{m1},
           *\, Florida\,*,
              %{m0}\, FL\,%{m1},
           *\, Georgia\,*,
              %{m0}\, GA\,%{m1},
           *\, Hawaii\,*,
              %{m0}\, HI\,%{m1},
           *\, Idaho\,*,
              %{m0}\, ID\,%{m1},
           *\, Illinois\,*,
              %{m0}\, IL\,%{m1},
           *\, Indiana\,*,
              %{m0}\, IN\,%{m1},
           *\, Iowa\,*,
              %{m0}\, IA\,%{m1},
           *\, Kansas\,*,
              %{m0}\, KS\,%{m1},
           *\, Kentucky\,*,
              %{m0}\, KY\,%{m1},
           *\, Louisiana\,*,
              %{m0}\, LA\,%{m1},
           *\, Maine\,*,
              %{m0}\, ME\,%{m1},
           *\, Maryland\,*,
              %{m0}\, MD\,%{m1},
           *\, Massachusetts\,*,
              %{m0}\, MA\,%{m1},
           *\, Michigan\,*,
              %{m0}\, MI\,%{m1},
           *\, Minnesota\,*,
              %{m0}\, MN\,%{m1},
           *\, Mississippi\,*,
              %{m0}\, MS\,%{m1},
           *\, Missouri\,*,
              %{m0}\, MO\,%{m1},
           *\, Montana\,*,
              %{m0}\, MT\,%{m1},
           *\, Nebraska\,*,
              %{m0}\, NE\,%{m1},
           *\, Nevada\,*,
              %{m0}\, NV\,%{m1},
           *\, New Hampshire\,*,
              %{m0}\, NH\,%{m1},
           *\, New Jersey\,*,
              %{m0}\, NJ\,%{m1},
           *\, New Mexico\,*,
              %{m0}\, NM\,%{m1},
           *\, New York\,*,
              %{m0}\, NY\,%{m1},
           *\, North Carolina\,*,
              %{m0}\, NC\,%{m1},
           *\, North Dakota\,*,
              %{m0}\, ND\,%{m1},
           *\, Ohio\,*,
              %{m0}\, OH\,%{m1},
           *\, Oklahoma\,*,
              %{m0}\, OK\,%{m1},
           *\, Oregon\,*,
              %{m0}\, OR\,%{m1},
           *\, Pennsylvania\,*,
              %{m0}\, PA\,%{m1},
           *\, Rhode Island\,*,
              %{m0}\, RI\,%{m1},
           *\, South Carolina\,*,
              %{m0}\, SC\,%{m1},
           *\, South Dakota\,*,
              %{m0}\, SD\,%{m1},
           *\, Tennessee\,*,
              %{m0}\, TN\,%{m1},
           *\, Texas\,*,
              %{m0}\, TX\,%{m1},
           *\, Utah\,*,
              %{m0}\, UT\,%{m1},
           *\, Vermont\,*,
              %{m0}\, VT\,%{m1},
           *\, Virginia\,*,
              %{m0}\, VA\,%{m1},
           *\, Washington\,*,
              %{m0}\, WA\,%{m1},
           *\, West Virginia\,*,
              %{m0}\, WV\,%{m1},
           *\, Wisconsin\,*,
              %{m0}\, WI\,%{m1},
           *\, Wyoming\,*,
              %{m0}\, WY\,%{m1},
           *\, American Samoa\,*,
              %{m0}\, AS\,%{m1},
           *\, District of Columbia\,*,
              %{m0}\, DC\,%{m1},
           *\, Federated States of Micronesia\,*,
              %{m0}\, FM\,%{m1},
           *\, Guam\,*,
              %{m0}\, GU\,%{m1},
           *\, Marshall Islands\,*,
              %{m0}\, MH\,%{m1},
           *\, Northern Mariana Islands\,*,
              %{m0}\, MP\,%{m1},
           *\, Palau\,*,
              %{m0}\, PW\,%{m1},
           *\, Puerto Rico\,*,
              %{m0}\, PR\,%{m1},
           *\, Virgin Islands\,*,
              %{m0}\, VI\,%{m1},
           %0
   )]
TRANSLATE: 
   [setq(1,edit(%0,[chr(194)][chr(176)],{}))]
   [null(iter(134|152|SW 134|147|S 134|145|N 134|146|W 134|151|NW 134|150|NE 
                 134|144|E 134|153|SE 128|149|- 128|153|' 
                 128|154|\\\, 128|152|` 154|161|\%bV,
              setq(1,
                   edit(r(1),
                        [chr(226)]
                        [chr(extract(##,1,1,|)
                        )]
                        [chr(extract(##,2,1,|)
                        )],
                        [extract(##,3,1,|)]
                   )
              )
         )
   )]
   [r(1)]
WEATHER: $@weather *:
   @var listen=0;
   @while ( url(http://wttr.in/%0?1) ) {
      @@ @pemit %#=#> %{listen},[u(#126/change_color,u(#126/translate,%{data}))];
      @switch 1-[u(#126/change_color,u(#126/translate,%{data}))]=
         1-#-1 CONNECTION FAILED,
            @pemit %#=Weather is unavailable \[connection failed\],
         1-#-1 PAGE LOAD FAILURE,
            @pemit %#=Weather is unavailable \[page load failure\],
         1-*out of queries*,
            {  @pemit %#=Weather Website is down [out of queries];
               @var listen=done
            },
         1-ERROR*,
            {@var listen=done},
         1-#-1 *,
            @@ ignore,
         1-Weather report: Oymyakon*,
            {@pemit %#=Unable to find that location.;@var listen=0},
         1-Weather report:*,
            {@var listen=1;@var location=Weather report:%{m0}},
         1-Location: *[*\,*],
            {@var listen +=1;@var location=[u(address_short,switch(words(edit(%{m0},\\,,)),0,%{location},%{m0}))]\[[before(%{m1},.)].[substr(after(%{m1},.),0,2)],[before(%{m2},.)].[substr(after(%{m2},.),0,2)]\]},
         [and(lte(%{listen},6),gt(%{listen},1))]-*,
            {@var data%{listen}=> [ljust(substr(%{m0},3,999),32)];@var listen += 1},
         [eq(%{listen},12)]-*F*F*F*F*,
            { @var listen += 1;
              @var data2=%{data2}| Today's Forecast;
              @var data3=%{data3}| [last(%{m0})]F Morning;
              @var data4=%{data4}| [last(%{m1})]F Noon;
              @var data5=%{data5}| [last(%{m2})]F Evening;
              @var data6=%{data6}| [last(%{m3})]F Night;
            },
         [gt(%{listen},0)]-*,
            {@var listen += 1;@@ @pemit %#=#> %{m0}}
   };
   @pemit %#=%{location}%r%{data2}%r%{data3}%r%{data4}%r%{data5}%r%{data6}

Home: Adrick(#1PGNMXc)
Location: Master_Room(#149Rn)