SRL Archive - Outdated / Broken

Gil's Power Alcher can do both High and Low alchemy. Just fill out the information, and begin!

Features
1. AntiRandoms
2. AntiBan
3. High Alch
4. Low Alch

// Gil's Power Alcher By Gil / Gilbert
// You Are Using Version 1.0
// Try To Use In A Non Random Area Just Incase (This Script DOES Have AntiRandoms)
// Post Progress Reports!
// ENJOY!

program GPA;
{.include SRL/SRL.scar}
{.include SRL\SRL\extended\xMapwalk.scar}

//=========================== SETUP ===========================
Procedure DeclarePlayers;
begin
 HowManyPlayers:=1;
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer:=0;
 
 Players[0].Name :='Gils'; // RuneScape UserName
 Players[0].Pass :='PowerAlcher'; // RuneScape PassWord
 Players[0].Nick :='V1.0'; // 3-4 Letters Of Your UserName
 Players[0].String1 :='N'; // If Attacked, What Direction Do You Want To Run?
 Players[0].String2 :='High'; // High Or Low Alch?
 Players[0].String3 :='Magic'; // Which Skill To Add Lamp Into.
 Players[0].Integer1 :=1000; // How Many Alch's To Cast Before Logging Out.
 Players[0].Active :=true; // Use This Player?

end;
//=========================== END SETUP ===========================

var
nofalch0 : integer;

procedure NextPlayer2(Active: Boolean);
begin
  if RandomPlayer then
    RandomNextPlayer(Active)
  else
  begin
    Writeln('Next Player');
    if not Active then
      Players[CurrentPlayer].Active := False;
    LogOut;
    PlayerCurTime := (GetSystemTime div 1000);
    Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked + ((PlayerCurTime - PlayerStartTime) / 60);
    CurrentPlayer := CurrentPlayer + 1;
    if CurrentPlayer > HowManyPlayers - 1 then
      CurrentPlayer := 0;
    while Players[CurrentPlayer].Active = False do
    begin
      CurrentPlayer := CurrentPlayer + 1;
      if CurrentPlayer > HowManyPlayers - 1 then
      begin
        CurrentPlayer := 0;
        WriteLn('All Players Are Inactive.  Script Terminated.');
        TerminateScript;
      end;
    end;
    if Players[CurrentPlayer].Active = True then
    begin
      Logs := Logs + 1;
    end;
    LoginPlayer;
  end;
end;

procedure AntiRandomsV;
begin
 FindTalk;
 if FindBitmapToleranceIn(NewBox, x, y, 556, 206, 738, 463, 50) then SolveBox;
 FindLamp(Players[CurrentPlayer].String3);
 FindDemon;
 SolvePinball;
 NoGameTab;
 FindTalk;
 if (FindFight) then
  begin
   WriteLn('You Are Attacked By A Random.  Trying To Escape.');
   RunAwayDirection(Players[CurrentPlayer].String1);
   Wait(9000+random(5000));
   WriteLn('Secessfully Escaped.  Now Going Back To Alching.');
   RunBack;
  end;
end;

procedure Alch;
begin
  nofalch0 := nofalch0 + 1;
  GameTab(7);
  if (Players[CurrentPlayer].String2 = 'High') then
   begin
   wait(1500 + random(600));
   Mouse(701, 318, 5, 7, True);
   wait(75 + random(200));
   Mouse(574, 218, 12, 15, True);
   wait(50 + random(50));
   end
    else
    if (Players[CurrentPlayer].String2 = 'Low') then
     begin
     wait(300 + random(600));
     Mouse(701, 245, 5, 7, True);
     wait(50 + random(100));
     Mouse(574, 218, 12, 15, True);
     wait(50 + random(50));
     end
      else
      begin
      WriteLn('You Have Specified An Invalid Tpye Of Alch. (CAPS MATTER)')
      terminatescript;
      end
end;

procedure logged;
begin
 if (LoggedIn)=false then
 begin
 LoginPlayer;
 end
else
end;

procedure ProgressReport;
begin
 SrlRandomsReport;
  AddToReport('¸,ø¤ºº¤ø,¸¸,ø¤ºº¤ø,¸ Gil'#39's Power Alcher ¸,ø¤ºº¤ø,¸¸,ø¤ºº¤ø,¸')
  AddToReport('I Sucessfully Casted ' + Players[0].String2 + ' Alchemy '+inttostr(nofalch0) + ' Times On ' + Players[0].Name + '.');
  AddToReport('¸,ø¤ºº¤ø,¸¸,ø¤ºº¤ø,¸ Gil'#39's Power Alcher ¸,ø¤ºº¤ø,¸¸,ø¤ºº¤ø,¸')
end;

procedure abanti;
begin
 Case Random(2) of
  1: begin GameTab(2); HoverSkill('Magic', false); GameTab(7); end;
  2: begin GameTab(8); wait(283+ random(243)); GameTab(7); end;
end;
end;

begin
SetupSRL;
ActivateClient;
DeclarePlayers;
DisguiseScar('¸,ø¤ºº¤ø,¸ Gil'#39's Power Alcher ¸,ø¤ºº¤ø,¸');
MouseSpeed := 10+random(2);
  repeat
   logged;
   if Random (20) < 2 then abanti;
   Alch;
   AntiRandomsV;
   if Random (20) < 2 then abanti;
   ProgressReport;
  until (nofalch0 = Players[0].Integer1);
  logout;
end.

Clicks the mage book way too much, probably asking for a ban. Don't make it click ont eh book after every time it alchs.
Warn people that it alchs teh first inventory spot, alched a rune scim on accident because of this.
Otherwise nice job!

Maybe try making it so, like humans do, put in the spot where the mouse just has to click the mage button, then click again, because then it wont have to move the mouse at all! :D, and lots of humans do that, not very detectable, and then just add antirandoms. Also, what the person said above me, that antiban is WAY too often. Try to keep testing and make it average looking at it every 80-100 bows? That wouldn't be too bad. And, well, ya. ;) great for your first script (I'm assuming)

You need a failsafe just incase something happens and your not on mage book or if your already on mage book and keep clicking it.

Procedure MageBookFailSafe;
Begin
  If Not (GameTab(7)) Then
   Begin
     GameTab(7);
   End;
End;