SRL Archive - Who Are You ? Who ? Who ?

hi evry one i am looking for a new pure ess autominer

plz if u can get me one send me a post:bart: :(h):

yes right away master

From: punker06
hi evry one i am looking for a new pure ess autominer

plz if u can get me one send me a post:bart: :(h):

Welcome to the forum, and you might be lucky since I will most likely release one soon.

what??? first poster… hes very lucky most forums would of just ssaid use search, you have a warning etc… but this one is nice n freindly

Here's mine. It's a powerminer so I'm not sure if you can make use of it, but I hope so! (It's still in Beta so don't use it unsupervised!)

Program AutoMiner;
{.include srl/srl.scar}
 
procedure DeclarePlayers;
begin
  cleardebug;
  HowManyPlayers := 1;
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  Players[0].Name := 'Username'; //username here
  Players[0].Pass := 'Password'; //password here
  Players[0].Nick := 'nickname'; /nickname here
  Players[0].Active := True;
end;
 
Procedure ClickOnExistingUserButton;
begin
  cleardebug;
  wait(1000+Random(2000));
  WriteLn('Logging in...')
  Mouse (444,285,1,1,true);
  Wait(1000+Random(2000));
end;
 
Procedure TypeInUserandPass;
Begin
  TypeSend('username'); // username here
  wait(1000+Random(200));
  TypeSend('password'); //password here
end;
 
Procedure CompleteLogin;
Begin
  Mouse(305,326,1,1,true);
  Wait(5000+Random(2000));
  Mouse(375,329,5,5,true);
  wait(2000+Random(3000));
end;
 
Procedure AntiRandoms;
begin
  If(FindFight)then
  RunAway('N', True,1,15000);
  FindNormalRandoms;
  FindLamp('Mining');
end;
 
procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90));
  end;
end;
 
Procedure Automine;
Begin
  WriteLn('Mining...')
  Mouse(231,92,1,1,true);
  Wait(20000+Random(2500));
  Mouse(274,110,1,1,true);
  Wait(20000+Random(2500));
  Mouse(308,112,1,1,true);
  Wait(20000+Random(2500));
  dropall;
  WriteLn('Dropping...')
end;
 
Procedure DropEss;
Begin
  dropall;
end;
 
 
begin
  SetupSRL;
  Disguise('iTunes')
  ActivateClient;
  ClickOnExistingUserButton;
  TypeInUserandPass;
  CompleteLogin;
  Declareplayers;
  Repeat
    automine;
    dropess;
    antiban;
  Until(false)
end.

01-21-2007

When I saw the thread title, I was expecting flocks of admins to whip out their banstick and beat the guy to death.

Looks like the admins are in a good mood today =/