Seek 4 U is a program written by me that gives you a choice to search the web using any of the top five search engines. There are many options!
Set window on : set window size 536,512 : set window position (screen width()/2)-70,(screen height()/2)-70 : set window title "Seek 4 You" : global pressed : global released : set text font "Comic Sans" : set text size 18 : set text to bold : do : if button(screen width()/2,100,"Seek",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls : exit : endif : if button(screen width()/2,120,"Exit",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls : end : endif : sync : loop : cls
wait 1000 : Do : Center text screen width()/2,30,"Choose Your Search Engine." : if button(screen width()/2,100,"Google",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls : exit : endif : if button(screen width()/2,120,"Lycos",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls : goto Lycos : endif : if button(screen width()/2,140,"Yahoo",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls : goto Yahoo : endif : if button(screen width()/2,160,"MSN",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls
goto MSN : endif : if button(screen width()/2,180,"Ask Jeeves",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : pressed=0 : released=0 : cls : goto Ask : endif : Sync : Loop : cls : wait 1000 : Do : Center text screen width()/2,30,"Choose what you want to search for." : if button(screen width()/2,130,"WebSites",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=1 : goto yay : endif : if button(screen width()/2,150,"Images",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=2 : goto yay : endif : if button(screen width()/2,170,"Video",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=3 : goto yay : endif : if button(screen width()/2,190,"News",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=4 : goto yay : endif : Sync : Loop :
yay: : if choice=1 : cls : Input "Please type the keywords as to which website you want to search up : ",Search$ : execute file "http://google.com/search?hl=en&lr=&q=" + Search$,"","" : endif : if choice=2 : cls : Input "Please type the keywords as to which images you want to search up : ",Search$ : execute file "http://images.google.com/images?q=" + Search$,"","" : endif : if choice=3 : cls : Input "Please type the keywords as to which videos you want to search up : ",Search$ : execute file "http://video.google.com/videosearch?q=" + Search$,"","" : endif : if choice=4 : cls
Input "Please type the keywords as to which news you want to search up : ",Search$ : execute file "http://news.google.com/news?hl=en&ned=us&q=" + Search$,"","" : endif : cls : end
Lycos: : Do : Center text screen width()/2,30,"Choose what you want to search for." : if button(screen width()/2,130,"WebSites",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=1 : goto yay2 : endif : if button(screen width()/2,150,"Images",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=2 : goto yay2 : endif : if button(screen width()/2,170,"Classifields",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=3 : goto yay2 : endif : Sync : Loop
yay2: : if choice=1 : cls : Input "Please type the keywords as to which website you want to search up : ",Search$ : execute file "http://search.lycos.com/?query=" + Search$,"","" : endif : if choice=2 : cls : Input "Please type the keywords as to which images you want to search up : ",Search$ : execute file "http://search.lycos.com/?tab=multi&query=" + Search$,"","" : endif : if choice=3 : cls : Input "Please type the keywords as to what you will search in classifields : ",Search$ : execute file "http://search.lycos.com/index.php?src=T7&query=" + Search$,"","" : endif : cls : end
Yahoo: : Do : Center text screen width()/2,30,"Choose what you want to search for." : if button(screen width()/2,130,"WebSites",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=1 : goto yay3 : endif : if button(screen width()/2,150,"Images",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=2 : goto yay3
endif : if button(screen width()/2,170,"Video",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=3 : goto yay3 : endif : if button(screen width()/2,190,"Audio",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=4 : goto yay3 : endif : Sync : Loop
yay3: : if choice=1 : cls : Input "Please type the keywords as to which website you want to search up : ",Search$ : execute file "http://search.yahoo.com/search?p=" + Search$,"","" : endif : if choice=2 : cls : Input "Please type the keywords as to which images you want to search up : ",Search$ : execute file "http://images.search.yahoo.com/search/images?ei=UTF-8&p=" + Search$,"","" : endif : if choice=3 : cls : Input "Please type the keywords as to which videos you want to search up : ",Search$
execute file "http://video.search.yahoo.com/search/video?ei=UTF-8&p=" + Search$,"","" : endif : if choice=4 : cls : Input "Please type the keywords as to which audio you want to search up : ",Search$ : execute file "http://audio.search.yahoo.com/search/audio?p=Test" + Search$,"","" : endif : cls : end
MSN: : Do : Center text screen width()/2,30,"Choose what you want to search for." : if button(screen width()/2,130,"WebSites",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=1 : goto yay4 : endif : if button(screen width()/2,150,"News",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=2 : goto yay4 : endif : if button(screen width()/2,170,"Images",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=3 : goto yay4 : endif : Sync
Loop
yay4: : if choice=1 : cls : Input "Please type the keywords as to which website you want to search up : ",Search$ : execute file "http://search.msn.com/results.aspx?q=" + Search$,"","" : endif : if choice=2 : cls : Input "Please type the keywords as to which news you want to search up : ",Search$ : execute file "http://search.msn.com/news/results.aspx?FORM=NRRE&q=" + Search$,"","" : endif : if choice=3 : cls : Input "Please type the keywords as to which images you want to search up : ",Search$ : execute file "http://search.msn.com/images/results.aspx?FORM=IRNR&q=" + Search$,"","" : endif : cls : end
Ask: : Do : Center text screen width()/2,30,"Choose what you want to search for." : if button(screen width()/2,130,"WebSites",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=1 : goto yay5
endif : if button(screen width()/2,150,"Images",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=2 : goto yay5 : endif : if button(screen width()/2,170,"News",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=3 : goto yay5 : endif : if button(screen width()/2,190,"Weather",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=4 : goto yay5 : endif : if button(screen width()/2,210,"Encyclopedia",rgb(0,0,255),rgb(255,0,0),rgb(255,255,255)) : choice=5 : goto yay5 : endif : Sync : Loop
yay5: : if choice=1 : cls : Input "Please type the keywords as to which website you want to search up : ",Search$ : execute file "http://www.ask.com/web?q=" + Search$,"","" : endif
if choice=2 : cls : Input "Please type the keywords as to which images you want to search up : ",Search$ : execute file "http://images.ask.com/pictures?qsrc=1&o=333&l=dir&q=" + Search$,"","" : endif : if choice=3 : cls : Input "Please type the keywords as to which news you want to search up : ",Search$ : execute file "http://news.ask.com/news?qsrc=31&o=333&l=dir&q=" + Search$,"","" : endif : if choice=4 : cls : Input "Please type in your City name or Zip code : ",Search$ : execute file "http://www.ask.com/web?q=" + Search$ + "&qsrc=2075&tool=wea","","" : endif : if choice=5 : cls : Input "Please type the keywords as to which topics you want to search up : ",Search$ : execute file "http://www.ask.com/web?q=" + Search$ + "&qsrc=2077&tool=enc","","" : endif : cls : end
function button( xPos, yPos, string$, textColor, overColor, hitColor) : width = text width(string$)/2 : height = text height(string$)/2 : if mousey() < yPos+(height*2) AND mousey() > yPos AND mousex() < xPos+width AND mousex() > xPos-width : ink textColor, overColor : set text opaque : returnValue = 0 : if mouseclick() = 1 : ink textColor, hitColor : set text opaque : returnValue = 1 : endif : else : ink textColor, 0 : set text opaque : returnValue = 0 : endif : center text xPos, yPos, string$ : set text transparent : ink textColor, 0
endfunction returnValue
P.S. This is my first 20 liner, usually I just make funny code snippets
Applyby has Flies in his Eyes.
