Socket Error # 10060 wtf?

[footballjds]

program HighAlcher;
{.include srl/srl.scar}
{.include SRL/SRL/skill/Magic.scar}
var
StopAmount, Alchs, DoneAmount : integer;

const
Your_SRL_ID = ''; // don't have this? go to:
Your_SRL_Pass = ''; // http://www.stats.srl-forums.com/
//Note the above is uneeded but very nice!

////////////////////////////////////////////////////////////////////////////////
procedure SetupPlayers;
begin
NumberOfPlayers(1);//Don't Change This
Players[0].Nick := 'he';//Nick Name
Players[0].Integers[0] := 580;//Number Of Alchs to do
NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure CheckIvinForRandom;
begin
if (1 >= random(10)) then
begin
FindNormalRandoms;
Writeln('Searching For Normal Randoms...');
end else
begin
wait(10+random(10));
end;
end;

////////////////////////////////////////////////////////////////////////////////
procedure CastHighAlch;
begin
CastSpell(35);
wait(10+random(50));
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure OnLongbows;
begin
wait(30+random(10));
if(IsUpTextMultiCustom(['ast', 'igh', 'lch', 'hemy', 'evel', 'vel', '-', '>'])) then
begin
if(IsUpTextMultiCustom(['longbow', 'long', 'ong', 'bow', 'ew', 'apl', 'agi', 'ngb', 'gb'])) then
begin
MouseBox(694, 324, 716, 348, True);
Alchs := Alchs + 1;
DoneAmount := DoneAmount +1;
ReportVars[0] := ReportVars[0] + 65;
ReportVars[1] := ReportVars[1] + 1;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
Var LRT : Integer;

Procedure ProgressReport;
begin
if (TimeFromMark(LRT) >= 315000) then
begin
Writeln('========================================= =');
Writeln(' -§ Longbow High Alchemy: FootBalljds §- ');
Writeln('- Thanks SRL Team!!! -');
Writeln('========================================= =');
Writeln('Been High Alching For You For ');
Writeln(TimeRunning );
Writeln('High Alched ' +Alchs );
Writeln('Gained ' + IntToStr(Alchs * 65) + ' Exp ');
Writeln('========================================= =');
SRLRandomsReport;
MarkTime(LRT);
end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
case random(500) of
0, 2, 3: Begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
end;
4, 5, 6: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
end;
7, 8, 9: Begin
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
end;
10, 11, 12: Begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
end;
13: Begin
HoverSkill('magic', False);
end;
14, 15: Begin
PickUpMouse;
end;
16: Begin
AlmostLogout;
end;
17, 18: Begin
BoredHuman;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure MainLoop;
begin
repeat
FindTalk;
FindNonInventoryRandoms;
StopAmount := (Players[0].integers[0]);
CastHighAlch;
OnLongbows;
If FindFight Then
Begin
RunAwayDirection('W');
Wait(5000+random(3000));
RunAwayDirection('E');
Setrun(false);
end;
wait(1050+random(300));
wait(1050+random(300));
AntiBan;
ProgressReport;
until(DoneAmount >= StopAmount)
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
begin
MouseSpeed := 13;
If FindRs Then
begin
ActivateClient;
end else
begin
Writeln('No RS');
TerminateScript;
end;
SetupSRL;
ScriptId := '549';
SRLID := Your_SRL_ID;
SRLPassword := Your_SRL_Pass;
MarkTime(LRT);
SetupPlayers;
MainLoop;
end.
////////////////////////////////////////////////////////////////////////////////
Whats Wrong and how the fuck do i fix it? lol.. thanks!:sasmokin:

[osmm]

program HighAlcher;
{.include srl/srl.scar}
{.include SRL/SRL/skill/Magic.scar}
var
StopAmount, Alchs, DoneAmount : integer;

const
Your_SRL_ID = ''; // don't have this? go to:
Your_SRL_Pass = ''; // http://www.stats.srl-forums.com/
//Note the above is uneeded but very nice!

////////////////////////////////////////////////////////////////////////////////
procedure SetupPlayers;
begin
NumberOfPlayers(1);//Don't Change This
Players[0].Nick := 'he';//Nick Name
Players[0].Integers[0] := 580;//Number Of Alchs to do
NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure CheckIvinForRandom;
begin
if (1 >= random(10)) then
begin
FindNormalRandoms;
Writeln('Searching For Normal Randoms...');
end else
begin
wait(10+random(10));
end;
end;

////////////////////////////////////////////////////////////////////////////////
procedure CastHighAlch;
begin
CastSpell(35);
wait(10+random(50));
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure OnLongbows;
begin
wait(30+random(10));
if(IsUpTextMultiCustom(['ast', 'igh', 'lch', 'hemy', 'evel', 'vel', '-', '>'])) then
begin
if(IsUpTextMultiCustom(['longbow', 'long', 'ong', 'bow', 'ew', 'apl', 'agi', 'ngb', 'gb'])) then
begin
MouseBox(694, 324, 716, 348, True);
Alchs := Alchs + 1;
DoneAmount := DoneAmount +1;
ReportVars[0] := ReportVars[0] + 65;
ReportVars[1] := ReportVars[1] + 1;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
Var LRT : Integer;

Procedure ProgressReport;
begin
if (TimeFromMark(LRT) >= 315000) then
begin
Writeln('========================================= =');
Writeln(' -§ Longbow High Alchemy: FootBalljds §- ');
Writeln('- Thanks SRL Team!!! -');
Writeln('========================================= =');
Writeln('Been High Alching For You For ');
Writeln(TimeRunning );
Writeln('High Alched ' + ('Alchs'));
Writeln('Gained ' + IntToStr(Alchs * 65) + ' Exp ');
Writeln('========================================= =');
SRLRandomsReport;
MarkTime(LRT);
end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
case random(500) of
0, 2, 3: Begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
end;
4, 5, 6: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
end;
7, 8, 9: Begin
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
end;
10, 11, 12: Begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
end;
13: Begin
HoverSkill('magic', False);
end;
14, 15: Begin
PickUpMouse;
end;
16: Begin
AlmostLogout;
end;
17, 18: Begin
BoredHuman;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
procedure MainLoop;
begin
repeat
FindTalk;
FindNonInventoryRandoms;
StopAmount := (Players[0].integers[0]);
CastHighAlch;
OnLongbows;
If FindFight Then
Begin
RunAwayDirection('W');
Wait(5000+random(3000));
RunAwayDirection('E');
Setrun(false);
end;
wait(1050+random(300));
wait(1050+random(300));
AntiBan;
ProgressReport;
until(DoneAmount >= StopAmount)
end;
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
begin
MouseSpeed := 13;
If FindRs Then
begin
ActivateClient;
end else
begin
Writeln('No RS');
TerminateScript;
end;
SetupSRL;
ScriptId := '549';
SRLID := Your_SRL_ID;
SRLPassword := Your_SRL_Pass;
MarkTime(LRT);
SetupPlayers;
MainLoop;
end.
////////////////////////////////////////////////////////////////////////////////

Idk what Socket Error # 10060 is but, I got "Line 74: [Error] (15885:33): Type mismatch in script " and I fixed it for you.

[mickaliscious]

Socket Error means you can't connect to the internet.

[zenma]

yeah it means u cant connect to internet as was said above so make sure u allow it to connect to srl stats and if u have it check on svn repository that you don't temporarily get disconnected from internet(sometimes my internet gets disconnected for random amounts of time 5sec - 1min) because sometimes on my computer when i had it auto check during script runtime for svn updates i would get a socket error(because internet would randomly get disconnected)so i just turned it off and check for svn updates manually
Edit: pretty sure i got that error from svn updating anyway unless it was another number

[footballjds]

thanks

[ItsEmerica]

yeah it means u cant connect to internet as was said above so make sure u allow it to connect to srl stats and if u have it check on svn repository that you don't temporarily get disconnected from internet(sometimes my internet gets disconnected for random amounts of time 5sec - 1min) because sometimes on my computer when i had it auto check during script runtime for svn updates i would get a socket error(because internet would randomly get disconnected)so i just turned it off and check for svn updates manually
Edit: pretty sure i got that error from svn updating anyway unless it was another number

Thank you so much! I was having this trouble too. :duh: Much obliged my kind sir. :)

[noidea]

Cmon dont start grave digging to get your post count up :( that like a 9 months grave dig.