if HTTP.TestConnection("http://xoops.berlios.de", 5, 80, nil, nil) then
local randomico = Math.Random(14);
if (randomico == 1) then
File.OpenURL("http://xoopscube.org/?from=xsas", SW_MAXIMIZE); -- xoopscube.org
elseif (randomico == 2) then
File.OpenURL("http://xoopserver.com/?from=xsas", SW_MAXIMIZE); -- xoopserver.com
elseif (randomico == 3) then
File.OpenURL("http://www.xoops.eti.br/?from=xsas", SW_MAXIMIZE); -- xoops.eti.br
elseif (randomico == 4) then
File.OpenURL("http://www.orkut.com/CommTopics.aspx?cmm=182236", SW_MAXIMIZE); -- orkut
elseif (randomico == 5) then
File.OpenURL("http://www.orkut.com/Profile.aspx?uid=15440532260129226492", SW_MAXIMIZE); -- orkut
elseif (randomico == 6) then
File.OpenURL("http://developer.berlios.de/projects/xoops/", SW_MAXIMIZE); -- berlios
elseif (randomico == 7) then
File.OpenURL("http://developer.berlios.de/project/showfiles.php?group_id=1304", SW_MAXIMIZE); -- berlios
elseif (randomico == 8) then
File.OpenURL("http://xoopscube.org/search.php?query=xoopserver&mid=3&action=showall&andor=AND", SW_MAXIMIZE); -- xoopscube
elseif (randomico == 9) then
File.OpenURL("http://www.google.com.br/search?q=xoopserver", SW_MAXIMIZE);
elseif (randomico == 10) then
File.OpenURL("http://www.google.com.br/search?q=xsas21", SW_MAXIMIZE);
elseif (randomico == 11) then
File.OpenURL("http://www.google.com.br/search?q=xoopserver", SW_MAXIMIZE);
elseif (randomico == 12) then
File.OpenURL("http://postnukebrasil.sourceforge.net/", SW_MAXIMIZE);
elseif (randomico == 13) then
local result = Dialog.Message("Credits", "Design by Nuno Luciano & Mikhail Miguel.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
elseif (randomico == 14) then
local result = Dialog.Message("Credits", "Code by Mikhail Miguel & Nuno Luciano.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
File.OpenURL("http://underpop.com", SW_MAXIMIZE);
end
else
local randomico = Math.Random(2);
if (randomico == 1) then
local result = Dialog.Message("Credits", "Design by Nuno Luciano\r\n& Mikhail Miguel", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
local result = Dialog.Message("Credits", "Code by Mikhail Miguel\r\n& Nuno Luciano.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end