XYplorer Beta Club

Code: Select all

//Weather and Forecast in your city (using OpenWeatherMap API)
//Simple script that displays current temperature as ctb label and forecast as menu
//Change the location, unit and forecast days in lines 1,2 and 3 respectively.
    
   $location="New york, USA";// Can be of type "City, State, Country" or just "City, Country" or even "City" in most cases 
   $unit="metric";//Set it to "metric" for celsius, "imperial" for fahrenheit and "" for kelvin
   $forecastdays=5;//upto 11 days
    
   IF($forecastdays>11){
      $forecastdays=11;
      }

   $url=readurl("http://api.openweathermap.org/data/2.5/find?q=$location&units=$unit&mode=xml",,,8);
   $url2=readurl("http://api.openweathermap.org/data/2.5/forecast/daily?q=$location&mode=xml&units=$unit&cnt=$forecastdays",,,8);
   
   $quote=chr(34);

//City name
   $city=gettoken($url, 2, "<city id=");
   $city=gettoken($city, 1, "$quote>");
   $city=gettoken($city, 2, "name=$quote");
   status "$city weather";

//Current Weather
   $TempNow=gettoken($url, 2, "<temperature value=$quote");
   $TempNow=gettoken($TempNow, 1, "$quote min=");
   //IF((get("locale", 14)==",")){
   //$TempNow=replace ($TempNow,".", ",");
   //}
   //ELSE{
   //$TempNow=replace ($TempNow,",", ".");
   //}
   $TempNow=round("$TempNow");
   IF($unit LikeI "metric"){
                          $TempNow=$TempNow."C";
                          }
   ELSEIF($unit LikeI "imperial"){
                          $TempNow=$TempNow."F";
                           }
   ELSE{
          $TempNow=$TempNow."K";
          }

     ctbicon("label: $TempNow >554433,ffffee");

   wait(50);

//Weather Forecast   
   $daycount=1;
   $token=2;
   $forecastlist="";
   WHILE ($token-2<$forecastdays){
      $forecast=gettoken($url2, $token, "<temperature day=$quote");
      $forecast=gettoken($forecast, 1, "$quote min=");
      //IF((get("locale", 14)==",")){
      //   $forecast=replace ($forecast,".", ",");
  // }
   //ELSE{
   //    $forecast=replace ($forecast,",", ".");
   //}
      $forecast=round("$forecast");
       IF($unit LikeI "metric"){
                          $forecast=$forecast."C";
                           }
   ELSEIF($unit LikeI "imperial"){
                          $forecast=$forecast."F";
                           }
   ELSE{
          $forecast=$forecast."K";
          }
      $day=formatdate(,"ddd", "d", $daycount);
      $forecast="$forecast [$day]";
      $forecastlist="$forecastlist<crlf>$forecast";
      $token++;
      $daycount++;
   }
   popupmenu($forecastlist,,,,,,"<crlf>");

Code: Select all

    + Scripting got a new function.
      Name: CTBState
      Action: Set/Get the pressed state of a Custom Toolbar Button.
      Syntax: ctbstate([state], [button_index])
        state:   0 = unpressed
                 1 = pressed 
        button_index: Index of the button.
                      If empty then the index of the button owning the 
                      script is used. If the script is called from 
                      outside a CTB you *have* to state a button index, 
                      else you will get an error message.
        return:   The current state (before any new state was set).
      Example (use this script in the On Click event of a CTB):
        // state toggle
          if (ctbstate() == 1) {
            ctbstate(0);
          } else {
            ctbstate(1);
          }
      Note: The state is remembered across sessions.