SRL Archive - First Scripts

Loots Water Talismans and Fire Talismans for a groovy 50k-75k an hour F2P.
Start in the middle of dark wizard circle just outside of Varrock.


Be sure to have the map faced North.
Enjoy!

program WizardKiller;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/skill/fighting.simba}

Var
x, y :Integer;
 c, T, i : Integer;
 foodnumber: integer;

                  //By Ilya\\
        //Loots Water Talismans and Fire Talismans\\
      //Has a procedure for runes, but its slow\\
//Start in the middle of dark wizard circle just outside of Varrock\\






procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].BoxRewards := ['ostume'];
end;



procedure AntiRandom;
begin
  FindNormalRandoms;
  LampSkill := 'attack';
  LevelUp;
  Writeln('Checking for randoms');
end;

procedure Hungry;
var
  c, T, i, x, y: Integer;


  begin
  if (HPPercent < RandomRange(50, 70)) and LoggedIn then
  begin
    if not InvEmpty then
      for c := 0 to 2 do
        for i := 1 to 28 do
          if ExistsItem(i) then
          begin
            MMouseItem(i);
            GetMousePos(x, y);
            if WaitUptext('Eat', 100) then
            begin
              Mouse(x, y, 0, 0, false);
              if WaitOption('Eat', 100) then
              begin
              Writeln('Eating.')
                t := GetSystemTime;
                while ExistsItem(i) and ((GetSystemTime - t) < 2000) do
                  wait(20);
              end;
              Exit;
            end;
          end;
  end;
end;

function FindWizard(): Boolean;
begin
if(StrInArr('Dark wizard', ChatBoxTextArray(clMessage)))
then
Wait(RandomRange(1200, 1700));
FindObjCustom(x, y, ['Dark', 'wizard'], [1712417, 7312038, 2305581], 3);
Mouse(x, y, 1, 1, false );
ChooseOption('Attack');
end;


Function RuneFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
  Var
    T,i,X,Y: Integer;
    TPA: TPointArray;
    ATPA: Array of TPointArray;
  Begin
    MarkTime(T);
    Repeat
      SetArrayLength(ATPA, Length(Colors));
      for i := 0 to High(Colors) do
        FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 3);
      TPA := MergeATPA(ATPA);
      ATPA := TPAtoATPAEx(TPA, 10, 10);
      SortATPAFrom(ATPA, Point(MSCX, MSCY));
      if (Length(ATPA) = 0) then
        Exit;

      MiddleTPAEx(ATPA[0], x, y);

      if (TimeFromMark(T) > 5000) then
        Exit;

      MMouse(x, y, 10, 10);
      Wait(randomrange(10,15));
      If(IsUpTextMultiCustom(TheUpText)) then
      begin
        ClickMouse2(False);
        WaitOption('une', 50);
        if DidRedClick then
        begin
          Result := True;
          Break;
        end;
      end;
    Until(Result)
  end;



function Loot(): Boolean;
begin

FindObjCustom(x, y, ['ake water', 'ake Fire', 'alisman'], [11486773, 7548451, 8684938, 11555637, 3620789], 3);
Mouse(x, y, 5, 5, false);
ChooseOption('talisman');
Wait(RandomRange(1277, 2121));
end;

function FindBanker(): Boolean;
begin
if(StrInArr('Bank', ChatBoxTextArray(clMessage)))
then
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['Banker'], [3152673], 3);
Mouse(x, y, 5, 5, false);
ChooseOption('Bank Banker');
end;

Function GetFood : boolean;
begin
Withdraw(0, 0, 20);
wait(777 + Random(77));
end;


begin
  Smart_Server := 5;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  ClearDebug;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  MakeCompass('N');
  SetAngle(SRL_ANGLE_HIGH);
  repeat
  repeat
  FindWizard;
  Wait(2000 + Random(753));
  until InFight;
  while InFight do wait (5000);
  FindNormalRandoms;
  Hungry;
  Loot;
  until(AllPlayersInactive);
end. 

From: core
To ensure facing north, MakeCompass('N');

Added it in the script.
Thanks for that.
Anyone try it?
Comments?
Suggestions?

going to test after 80 range

Thanks, let me know how it goes. Personally i've gotten 80 attack, strength and defense with this script.

Testing right now. For random events, will it just choose costumes?

Instead of using mousebox for the teleport, SRL does have a lodestone function built in.
LodestoneScreen returns true/false if the tele screen is open.
LodestoneTeleport('location') teleports and then returns true/false if successful.

// Xtrapsp and ReadySteadyGo
  HomeTele := DTMFromString('mggAAAHicY2NgYNjGxMCwiQlBrwbinUD8Gyj3H4pB7L8w/Pcvw74jn8AYxG6bc4PBR7OeQRIohw0z4sAQAADcGhiV');
GameTab(tab_Magic);
  If FindDTM(HomeTele, x, y, MIX1, MIY1, MIX2, MIY2) then
  Begin
    MMouse(x, y, 3, 3);
    If WaitUptext('ome', 1000) then
    Begin
      Repeat
        ClickMouse2(mouse_Left);
        If WaitFunc(@LodestoneScreen, 250, 4000) then
          LodestoneTeleport('Taverley');
        Wait(RandomRange(12000, 15000));
      Until not LodestoneScreen
    End;
  End;

This was a complete boolean function until i chopped it up and made it a procedure, but you could use something like this instead… if its easier for you. :D

ooh… this is actually how I make the majority of my money :P Interesting guess great minds think alike haha :)

If I could, could you maybe "anti-leech" the banking method or just remove it and make it a combat script. (If not don't worry, I am thinking of myself here so it is basically only selfish reasons)

50-75k F2p damn.. not bad :P

add p2p rune support, i slaughter these on my main for runes

Who else thought "Why would you want to kill Wizzup??"

Anyways, I suggest you look up some good failsafe tutorials. Coordinate clicking isn't a very good method, for what you're doing I would use Radialwalk, which also has some decent tutorials :)

Just started testing script. Might want to change the colour of dark wizards because it hovers of tree stumps a lot that are a similar colour. Also could you possibly increase the speed at which it finds the wizards? So far so good will update once it needs to bank.

From: Ronbo
Testing right now. For random events, will it just choose costumes?

Yes.

From: chief herb
add p2p rune support, i slaughter these on my main for runes

There is rune support. There is a procedure called RuneFinder. Just include it in the main loop. It DOES SIGNIFICANTLY SLOW DOWN THE SCRIPT!!!

From: R4nd0m
ooh… this is actually how I make the majority of my money :P Interesting guess great minds think alike haha :)

If I could, could you maybe "anti-leech" the banking method or just remove it and make it a combat script. (If not don't worry, I am thinking of myself here so it is basically only selfish reasons)

This was actually the script that i applied to SRL Members with, that's why there is banking.
I was done using the script that's why i released the full version haha.
I haven't used it in a week or so, are prices crashing?
If so, i'll definitely remove the banking.

noooooo0 make this script private! :(

My botting sp0t b compromised!

Post here if you want me to pull the script.
Or at least the banking.

Don't include banking in the mainloop, problem with leechers solved :)

I would recommend just removing banking all together, it isn't too hard to implement if someone wanted to.

From: litoris
Don't include banking in the mainloop, problem with leechers solved :)

I second this

From: R4nd0m
I would recommend just removing banking all together, it isn't too hard to implement if someone wanted to.

Done.
Hopefully now it won't get leeched.