Hey guys. I'm making a version checker for a script which SRL Members know about, but the public will know about it when it is completed. Anyway, this is my procedure which checks the version
SCAR Code:
procedure VerCheck;
var
Version : string;
begin
Version:= GetPage('http://www.learnsomething.freehostia.com\Version.txt');
if (not(Version = Ver)) then
begin
WriteLn('');
WriteLn('Your version is not the latest. Get the latest BETA version from');
WriteLn('http://www.villavu.com/forum/showthread.php?p=587620#post587620');
WriteLn('');
TerminateScript;
end;
Wait(5000);
end;
and there is
SCAR Code:
const
Ver = '0.5'; //DO NOT CHANGE UNLESS YOU WANT AN OUTDATED VERSION!
above it. When I run it, I get
Code:
Socket Error # 11004
Your version is not the latest. Get the latest BETA version from
http://www.villavu.com/forum/showthread.php?p=587620#post587620
in the debug box. I can only assume that "Socket Error # 11004" has something to do with it, as the version in the document on the internet matches the const, but I don't know how to fix this.
Thanks,
Richard