My first script... might seem a little advance for a first script but I like to aim high.
All it does is log in then sit there..... what the hell am I doing wrong?
Program Autoplayer;
{.include SRL\SRL.SCAR}
// Color of ore below
Const
Color1 = 5476070;
Procedure Options;
Begin
BenMouse := False;
MouseSpeed := 15;
End;
// ----------------------------------
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick := '';
Players[0].Active := True;
WriteLn('Autoing - '+Players[0].name+'');
End;
// ----------------------------------
Const
RockWait = 15000;
Var a,b : Integer;
Procedure OreFinding;
Begin
If(LoggedIn) Then
begin
if(Findcolor(a,b,Color1,5,5,515,340))then
Mouse(a,b,5,5,true);
Flag;
FTWait(RockWait+Random(1000));
end;
End;
// ----------------------------------
Procedure dropores;
Begin
MouseSpeed:=1
DropTo(2,28)
End;
// ----------------------------------
Procedure PlayerReport;
Var Active : String;
Begin
begin
If Players[0].Active=True Then Active := 'Autoing' Else Active := 'Error';
WriteLn(' User - '+Players[0].name+' was '+Active);
WriteLn('');
WriteLn(' Mined '+IntToStr(Players[0].Integer2)+' Ores');
WriteLn(' Mining Level - '+IntToStr(Players[0].Level[15]));
WriteLn('');
end;
End;
// ----------------------------------
Begin
SetupSRL;
Declareplayers;
loginplayer;
HighestAngle;
Options;
Repeat
OreFinding;
until(InvFull)
If(InvFull) Then
DropOres;
PlayerReport;
End.


Reply With Quote






