كود عدة محركات بحث في محرك بحث واحد

<script language="Javascript"><!--
// START HIDE
var MAX_ENGINES = 35;
var tp='';
var tpp='';
var find = 'hunt';
var hold=0;
var hold2=0;
var gog=0;
var ap='';
function MakeArray(n) {
for (var i = 1; i <= n; i++) {
this[i] = 0;
}
this.maxlen = n;
this.len = 0;
return this;
}
var engs = new MakeArray(MAX_ENGINES);
function find_substring(needle, haystack) {
var i, needlen = needle.length, haylen = haystack.length;
for (i=0; i<=haylen-needlen; i++) {
if (needle == haystack.substring(i,i+needlen))
return i;
}
return false;
}
function Engine(name, opts, home, search) {
var gotcha = find_substring(find, search);
this.name = name;
this.opts = opts;
this.home = home;
this.pre_gotcha = search.substring(0,gotcha);
this.post_gotcha= search.substring(gotcha+find.length, search.length);
}
function Add(name, opts, home, search) {
engs.len++;
if (engs.len <= engs.maxlen) {
engs[engs.len] = new Engine(name, opts, home, search)
}
else {
alert ('Better increase MAX_ENGINES: ' + engs.Len + '>' + engs.maxlen)
}
}
function DisplayForm() {
document.writeln('<FORM Name=Gotchaform OnSubmit="HandleForm(this); return false">');
document.writeln('<strong></strong> <INPUT size=15 name="query">');
document.writeln('<strong></strong> <SELECT name="service">');
for (i=1; i <= engs.len; i++) {
document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);
}
document.writeln('</SELECT> &nbsp;<input type=submit value="بحث">');
document.writeln('</FORM>');
document.Gotchaform.query.focus()
}
function HandleForm(form){
var i, newq="", oldq=form.query.value;
for (i=0; i<oldq.length; i++) {  // compress [ ]+ into +
var thischar = oldq.charAt(i);
if (thischar =="+")newq += "%2B";
else
if (thischar != ' ')
newq += thischar;
else if (lastchar != ' ')
newq += '+';
lastchar = thischar;
}
var eng = engs[1+form.service.selectedIndex];
// Window
search=window.open(newq ? eng.pre_gotcha + newq + eng.post_gotcha : eng.home,"SmartSearch","scrollbars=yes,toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,resizable=yes,width='100%',hight='100%'");
}
Add("Alta Vista","SELECTED","[url=http://altavista.digital.com/%22,%22http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt]http://altavista.digital.com/","http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt[/url]");
Add("Yahoo!","","[url=http://www.yahoo.com/%22,%22http://search.yahoo.com/bin/search?p=hunt]http://www.yahoo.com/","http://search.yahoo.com/bin/search?p=hunt[/url]" );
Add("DejaNews","","[url=http://www.dejanews.com/%22,%22http://search.dejanews.com/nph-dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25]http://www.dejanews.com/","http://search.dejanews.com/nph-dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25[/url]");
Add("HotBot","","[url=http://www.search.hotbot.com%22,%22http//www.search.hotbot.com/search.html?MT=hunt&DC=25]http://www.search.hotbot.com","http://www.search.hotbot.com/search.html?MT=hunt&DC=25[/url]");
Add("Infoseek","","[url=http://www.infoseek.com/Home?pg=Home.html&sv=A2","http://www.infoseek.com/Titles?qt=hunt&col=WW&sv=A2]http://www.infoseek.com/Home?pg=Home.html&sv=A2","http://www.infoseek.com/Titles?qt=hunt&col=WW&sv=A2[/url]");
Add("Excite","","[url=http://www.excite.com/%22,%22http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default]http://www.excite.com/","http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default[/url]");
Add("Lycos","","[url=http://www.lycos.com/%22,%22http://www.lycos.com/cgi-bin/pursuit?query=hunt&backlink=639]http://www.lycos.com/","http://www.lycos.com/cgi-bin/pursuit?query=hunt&backlink=639[/url]");
Add("Magellan","","[url=http://www.mckinley.com/%22,%22http://www.mckinley.com/extsearch.cgi?query=hunt]http://www.mckinley.com/","http://www.mckinley.com/extsearch.cgi?query=hunt[/url]");
Add("OpenText","","[url=http://search.opentext.com%22,%22http//search.opentext.com/omw/simplesearch?SearchFor=hunt&mode=and]http://search.opentext.com","http://search.opentext.com/omw/simplesearch?SearchFor=hunt&mode=and[/url]");
Add("WebCrawler","","[url=http://webcrawler.com/%22,%22http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25]http://webcrawler.com/","http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25[/url]");
// Software
Add("ZDNet Files","","[url=http://www.zdnet.com/%22,%22http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=hunt]http://www.zdnet.com/","http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=hunt[/url]");
Add("Filez","","[url=http://www.filez.com/%22,%22http://filez.com/cgi/filez.cgi?query=hunt&type=All+Files&hits=50&domain=World&doit=Search/]http://www.filez.com/","http://filez.com/cgi/filez.cgi?query=hunt&type=All+Files&hits=50&domain=World&doit=Search/[/url]");
Add("Shareware.com","","[url=http://www.shareware.com/%22,%22http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search=hunt&category=All-Categories]http://www.shareware.com/","http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search=hunt&category=All-Categories[/url]");
Add("PC Gamer","","[url=http://www.pcgame.com/%22,%22http://www.pcgame.com/finder/search.cgi?key=hunt]http://www.pcgame.com/","http://www.pcgame.com/finder/search.cgi?key=hunt[/url]");
// Denmark
DisplayForm();
// STOP HIDE
// --></script>