XYplorer Beta Club
XYwiki, XY forum, Google, Wikipedia, IMDB, US weather, World weather from within XY.
How it works: Simply unzip the zipfile into scriptsfolder and load from catalog or addressbar using ::load SearchTheWeb;
Download SearchTheWeb.zip: Updated 19th Nov:
+Changed the script name to a more appropriate SearchTheWeb.xys (SearchSuit was wrong anyway it should have been SearchSuite [Thanks JC!!]).
+ Checks if version is 7.80.0008 or higher
+ Changed minor misquotes as suggested by Don.
Also, If you need any special search to be included let me know.
For those who want to see the code before downloading:
Code: Select all
//SearchTheWeb v1
"Search The Web"
load *;
-
"&1) XYWiki : xywiki"
sub _assert;
input $wiki, "Search XYWiki", "udc";
$wiki=urlencode($wiki,1);
open "http://88.191.26.34/XYwiki/index.php/Special:Search?search=$wiki&go=Go"
"&2) XY Forum : xyforum"
sub _assert;
input $forum, "Search XY Forums", "dual pane";
$forum=urlencode($forum,1);
open "http://www.xyplorer.com/xyfc/search.php?keywords=$forum&terms=all&author=&sc=1&sf=all&sk=t&sd=d&sr=posts&st=0&ch=300&t=0&submit=Search"
-
"&3) Google : google"
sub _assert;
input $google, "Search Google", "XYplorer";
$google=urlencode($google,1);
open "http://www.google.com/search?hl=en&q=$google&btnG=Google+Search&aq=f&oq="
"&4) Wikipedia : wikipedia"
sub _assert;
input $wikipedia, "Search Wikipedia", "XYplorer";
$wikipedia=urlencode($wikipedia,1);
open "http://en.wikipedia.org/wiki/Special:Search?search=$wikipedia&go=Go"
-
"&5) IMDB : imdb"
sub _assert;
input $imdb, "Search IMDB", "Quantum of Solace";
$imdb=urlencode($imdb,1);
open "http://www.imdb.com/find?s=all&q=$imdb&x=0&y=0"
-
"&6) US Weather : usweather"
sub _assert;
input $usweather, "Enter location (Zipcode or City, State)", "10032";
replace $usweather, $usweather, " ", ",";
replace $usweather, $usweather, ",,", ",";
$usweather=urlencode($usweather,1);
open "http://www.accuweather.com/us-city-list.asp?zipcode=$usweather&submit=GO&u=1&partner=touchthesky"
"&7) World weather : world"
sub _assert;
input $weather, "Enter location (City, Country)", "Berlin, Germany";
replace $weather, $weather, " ", ",";
replace $weather, $weather, ",,", ",";
$weather=urlencode($weather,1);
open "http://www.accuweather.com/world-city-list.asp?loccode=$weather&Submit1=GO%21"
//Assert script: Thanks to Jacky!!
"_assert : _assert"
$minimum = "7.80.0008"; $compatible = (compare(<xyver>, $minimum, v) == -1) ? 0 : 1; assert ($compatible), "XY too old! Continue at your own risk", 1; status "Something that could fail with versions older than $minimum...";
-
"Edit script : edit"
self $ScriptFile, file;
Open $ScriptFile,w;
-
"Cancel"
