None of the script even compiles for me... like 7 Errors...
EDIT: Here... Fixed it in all =] Didn't test though...
SCAR Code:
Program AutoAlcher;
{.include SRL/SRL.scar}
Var
AlchesDone: Integer;
Const
NumberOfAlches = 0;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;
Procedure Alch;
Begin
Wait(850 + random(50));
Mouse(714, 340, 0, 0, True);
Wait(100 + random(50));
Mouse(572, 227, 0, 0, True);
Wait(1500 + random(200));
AlchesDone := AlchesDone + 1;
End;
Begin
SetupSRL;
If (FindRS) Then
Begin
ActivateClient;
WriteLN('Found current Runescape client');
End Else
Begin
WriteLN('Couldnt find Runescape Client');
WriteLN('Terminating Script') ;
TerminateScript;
End;
DeclarePlayers;
If (Not LoggedIn) Then
LoginPlayer;
GameTab(7);
MMouse(716, 339, 0, 0);
Repeat
Alch;
GameTab(7);
Until (AlchesDone >= NumberOfAlches);
WriteLn('<<<<<<<<<<<<Auto Alcher v1.0>>>>>>>>>>>>');
WriteLn('<< >>');
WriteLn('<< Alched for' + TimeRunning + ' >>');
WriteLn('<< Did' + IntToStr(AlchesDone) + 'High Aclhes >>');
WriteLn('<< Earnt' + IntToStr(AlchesDone * 65) + ' XP >>');
WriteLn('<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>');
WriteLn(' ');
WriteLn('Thanks for using my script');
End.