kanah
2011-10-23 09:15:36
Do you need something to write out in your scripts while your character is doing something?
Do you need entertainment while your bot is running? Try this function: GetRandomFact.
GetRandomFact grabs a random fact from the web and places it in a string for you! Writeln it or paint it on smart, the posibilities endless.
did you know?
Europe is the only continent without a desert.
Do you need entertainment while your bot is running? Try this function: GetRandomFact.
GetRandomFact grabs a random fact from the web and places it in a string for you! Writeln it or paint it on smart, the posibilities endless.
function GetRandomFact: string;
//This function returns a random fact from
// the website 'http://randomfactgenerator.net/'
// Author: kanah
// Special thanks to Euphemism for the idea
var
SearchString0, SearchString1, Text: string;
begin
//Search strings are used to mark the begining and end of useful info
SearchString0 := '<div id="facts">';
SearchString1 := '<br/><br/>';
//Text is loaded with the raw html text from the website
Text := GetPage('http://randomfactgenerator.net/');
//Text is now broken down from the entire html page into the random fact
Text := Between(SearchString0,SearchString1,Text);
//Now trim to remove spaces and get rid of the "<div>" text
Trim(Text);
delete(Text,1,pos('>',Text));
Result := Text;
end; did you know?
Europe is the only continent without a desert.
