SRL Archive - RS3 Outdated / Broken Scripts

Update-Script is not working that good it keeps saying i need to free the DTMs but i freed them already so ill post it and see if you guys can fix it but in the mean time ill be working on the attacking of the warriors and adding a few things

Update 2-I fixed the problem i was freeing the DTMs more then 1 time but i fixed it so it should run fine. The only problems it might have is banking and finding the warriors can be hard sometimes.

Sounds good, if you need any help testing your script feel free to PM me :).

boom up ,also if u need someone to test out,just pm me

ill test aswell pm me

ill test also :)

good news the script should be done tonight or for sure tomorrow

Could you post a pin-less version now so I could use it?

Hello, If you wish to have a tester, im your man. Go to the link in my Sig.

Why not just use Narcle's Fast Fighter to kill the warriors?

From: Kunny
Why not just use Narcle's Fast Fighter to kill the warriors?

Thats exactly what I do right now, however there is now drop picking/looting in Narcle's script. This one, specially for Warriors, will have and thus making everyone jump for joy! :)

They could but new scripters showing their stuff is always good.
Not so sure if this one will have a loot system in it. Ive worked with the scripter and from what he has told me, there will not be one cuz guards dont drop great items.

Well good to know its almost done, and be tested soon.

From: kevin33
They could but new scripters showing their stuff is always good.
Not so sure if this one will have a loot system in it. Ive worked with the scripter and from what he has told me, there will not be one cuz guards dont drop great items.

Read the First/main post… He said he is adding a banking system, it could be for food, but they are level 9 so…

Also, by looting, it could just be bone burying.

Uhh I am physically helping him over pm's so I know what the script had when I last saw it and looting was not there. He may have added it but I can certainly tell you that there was no FindObject for loot.

Man i wanted to finish the script today but i cant get the walking down. The desert does not have many objects to be used with object dtm walking and i tryed another way and that also failed…i cant get this thing to walk. Also if you guys really want the script to loot I will add that later on but right now i got to get this thing walking and making sure it eats right. Sorry for the wait :(

walk to the fountain inside the castle thing, the well outside it and the bank shouldn't be too hard?

I cant wait until this comes out.

From: ipesza
walk to the fountain inside the castle thing, the well outside it and the bank shouldn't be too hard?

Haha try using ObjectDTM with only 1 sub point per main point…you need at least 4 points so it will find it and they need to be close the the middle of the mini map but anyway im using normal DTM walking and im about to test it now.

Also just to let you guys know i have a banking system because this is a good script for str pures and can make about 25k xp/h (or more) but with 1 def you will need to bank.

When you release the first version of this script will it be buggy? Could I be able to run it 4 hours straight without random evens and not have it glitch out?

From: v0rtexer43
When you release the first version of this script will it be buggy? Could I be able to run it 4 hours straight without random evens and not have it glitch out?

I just got home so ill work on fixing the walking from bank (it just spins the screen around for 5 seconds and stops scrpt i dont know why but walking to bank is fine) and fix up the attacking a bit then release it and it should run for as long as you have food in bank.

As with most first scripts it will be buggy. That is the point of releasing for testing, so people can test, tell the owner any bugs or issues tey have, the owner can update the script and then re-release until it is flawless.

From: kevin33
As with most first scripts it will be buggy. That is the point of releasing for testing, so people can test, tell the owner any bugs or issues tey have, the owner can update the script and then re-release until it is flawless.

yea your right but i would like to at least get the walking fixed so it can run for a while without stopping.

Yea the walking is key. Its hard to get it down just right. Take your time, make sure it works and then release. Did you end up sticking with SPS or did you go with soemthing else?

From: kevin33
Yea the walking is key. Its hard to get it down just right. Take your time, make sure it works and then release. Did you end up sticking with SPS or did you go with soemthing else?

I used DTM but not ODTM :)

Oh very nice. GL with it. PM me if you still need any help or for any questions. Im still happy to help out.

I added the script but it needs some fixing and i cant seem to be able to fix the problem. I posted the error im getting on the first post.

I hope you don't mind me posting this here but I edited your script a bit to work a little better IMO, basically all I changed was the eating function (which should be a procedure):
EDIT: also it only eats tuna with my version, make a DTM of whatever you want to eat if you don't want tuna

Program Al_Kharid_Warrior_Killer;
{$i srl\srl\misc\smart.simba}
{$i SRL\SRL.simba}
{$i srl\srl\skill\fighting.simba}
Var
  x, y, Food: Integer;
  B: Array [0..5] of Integer;
  aFound: Extended;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Bankpin Here
  Players[0].BoxRewards := ['Xp'];
  Food := DTMFromString('mbQAAAHicY2VgYGBngABOIBYBYh4gFgZibgYEAInz8vECSSYUzA8kWdEwIxYMBgA00ADA');
end;

Procedure Attackwarrior;
Var
  x, y: Integer;
Begin
  If FindObjCustom( x, y, ['att', 'ior', 'rid'], [4414565, 4083794, 7639448], 10) Then
  Begin
    GetMousePos (x, y);

    Case Random (0) Of
      0: Mouse (x, y, 2, 2, True)
    End;
  End;
End;

Procedure SetDTM;
Begin
  B[0] := DTMFromString('mrAAAAHic42BgYChhYmAIAuJVQLwSiu2h2AmI7YBqUoA4EYiDgdgTiKOBOByI/YB4em8qQ7ghG4NBkgiDQoQAg5U1Kxw7JEkxiADV4MOMBDAMAACI9AxR');
  B[1] := DTMFromString('mlwAAAHicY2dgYDBkYmBwAmJHKHYAYj8gjgfiQKC8CxCHAXE8EOcDsTMQOwHxzJ5UBqdEKQYbK1Y4NkoUYVAKF2AQAcrjwox4MBQAAKFHCbE=');
  B[2] := DTMFromString('mlwAAAHicY2dgYIhiYmDwAOJ6NOwOxJVA+Xwg9gXiHCCuBeIJQGwJxFt70hi+/+ZmMEoUYbCxYgVjENu70IRBBCiPCzPiwVAAABJQDU0=');
  B[3] := DTMFromString('mlwAAAHicY2dgYOBgZGD4DqTFgPQfIC0IpP9B6RIgHQXEkUBcCcW5QFwIxEnBTgz21uYMtpYmDBVpgQxx/vYMt3ZOZqjJDGYQAcrjwox4MBQAAF81DpI=');
  B[4] := DTMFromString('mwQAAAHic42RgYOhnYmCYg4RnA3E4EJcAcQUQpwKxCVCdGxBHA3EGEGsCsS4QqwFxCRALAPHU7jQGS0s2BvkwQTjd15IIFvcoMGWY3pHOIAJURwgzEoHhAAAP1hCq');
  B[5] := DTMFromString('mlwAAAHicY2dgYJjAxMBQD8QNUAxirwDiHiCOAMpXAXEeEIcDsTUQWwCxJRBv6kpjMNLkYtBPEGWQDxME0zAsApTHhRnxYCgAALMIC8s=');
end;

procedure FrDTM;
begin
  FreeDTM(B[0]);
  FreeDTM(B[1]);
  FreeDTM(B[2]);
  FreeDTM(B[3]);
  FreeDTM(B[4]);
  FreeDTM(B[5]);
end;

Procedure Bankit;
Begin
  B[3] := DTMFromString('mlwAAAHicY2dgYOBgZGD4DqTFgPQfIC0IpP9B6RIgHQXEkUBcCcW5QFwIxEnBTgz21uYMtpYmDBVpgQxx/vYMt3ZOZqjJDGYQAcrjwox4MBQAAF81DpI=');

  MakeCompass ('w')
  repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound);

  If FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
      Wait(1500)
      if not (bankscreen) then

      repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound);

  If FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
      Wait(1500)
      Withdraw(0, 0, 28);
      CloseBank;
      FreeDTM(B[3])
    end;
  end;
end;

Procedure ToBank;
begin
  B[0] := DTMFromString('mrAAAAHic42BgYChhYmAIAuJVQLwSiu2h2AmI7YBqUoA4EYiDgdgTiKOBOByI/YB4em8qQ7ghG4NBkgiDQoQAg5U1Kxw7JEkxiADV4MOMBDAMAACI9AxR');
  B[1] := DTMFromString('mlwAAAHicY2dgYDBkYmBwAmJHKHYAYj8gjgfiQKC8CxCHAXE8EOcDsTMQOwHxzJ5UBqdEKQYbK1Y4NkoUYVAKF2AQAcrjwox4MBQAAKFHCbE=');
  B[2] := DTMFromString('mlwAAAHicY2dgYIhiYmDwAOJ6NOwOxJVA+Xwg9gXiHCCuBeIJQGwJxFt70hi+/+ZmMEoUYbCxYgVjENu70IRBBCiPCzPiwVAAABJQDU0=');

  MakeCompass ('n')
  if FindDTMRotated(B[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[0]);
    repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
  end;

  if FindDTMRotated(B[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[1]);
    repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
  end;

  if FindDTMRotated(B[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[2]);
  End;
End;

Procedure FromBank;
begin
  B[4] := DTMFromString('mwQAAAHic42RgYOhnYmCYg4RnA3E4EJcAcQUQpwKxCVCdGxBHA3EGEGsCsS4QqwFxCRALAPHU7jQGS0s2BvkwQTjd15IIFvcoMGWY3pHOIAJURwgzEoHhAAAP1hCq');
  B[5] := DTMFromString('mlwAAAHicY2dgYJjAxMBQD8QNUAxirwDiHiCOAMpXAXEeEIcDsTUQWwCxJRBv6kpjMNLkYtBPEGWQDxME0zAsApTHhRnxYCgAALMIC8s=');

    MakeCompass ('n')
    if FindDTMRotated(B[4], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[4]);
    repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[5], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
  end;

  if FindDTMRotated(B[5], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[5]);
  end;
end;

Procedure LowHPLetsEat;
var
  I, x, y: Integer;
  test: boolean;
begin
  test := (HPPercent < 70) and (LoggedIn);
  If(not(test)) then
    Exit;

  if test then
  If InvEmpty then
  begin
    ToBank;
    Bankit;
    FromBank;
  end else
  begin
    if FindDTM( Food, X, Y, MIX1, MIY1, MIX2, MIY2) then
     begin
       Mouse(x ,y, 5, 5, true);
       Wait(100);
       WriteLn('Having a bite of tuna');
    end else
    begin
      WriteLn('couldn''t find any tuna');
    end;
   end else
     WriteLn('health isn''t low enough to eat');
end;


begin
  MouseSpeed := 18;
  Smart_Server := 136;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
  SetupSRL;

  DeclarePlayers;
  LoginPlayer;
  SetDTM;
  MakeCompass ('n')
  SetAngle(SRL_ANGLE_HIGH);

  repeat
  SetAngle(SRL_ANGLE_HIGH);
  Attackwarrior;
  While(Infight)do
  Wait(300);
  LowHPLetsEat;
  Until not LoggedIn;
end.

Wouldnt an eating procedure that goes through the inv if item exists looking for uptext Eat be better? then you can have any food and wont need dtms?

From: laakerules
Wouldnt an eating procedure that goes through the inv if item exists looking for uptext Eat be better? then you can have any food and wont need dtms?

that is what i had and i think i will change it back but ty anyway cause

can we get a direct download please?

From: kingsleyeng
can we get a direct download please?

someone tell me how to do it and i will be more then happy to do it but right now the attacking is pretty bad, for some reason it attacks good when on the left side of the warrior area but when on the right side it seems to not be able to find them but tomorrow i will try to make DTMs for them

From: laakerules
Wouldnt an eating procedure that goes through the inv if item exists looking for uptext Eat be better? then you can have any food and wont need dtms?

I find it faster if the script goes right to the item to eat, rather than mousing every inventory spot every time. That way if you want to use a different DTM (which is pretty easy to make) you can just replace it. However if you want to have anything available to eat, make a procedure that checks each inv spot once and remembers which spots have food.

From my mom's iPhone :p

yeah very good script, but im using smart and the downloaded version (.simba) of this script and i have not edited it, when i run out of tuna, i die, is there any way that this can be changed so that I do not die? is it personal error or is the script set up not to bank? :L

ok ll post some info it works great although theres a bug sometimes goes and talks to dungeneering guy and just stays there trying to talk to him over and over again

oh and also does it eat? onyl done it on high accounts jw? nvm tuna

can u get it too eat trout please?

hey man script works good but for some reason wont bank. not bad xp hr though

out of bound expections up the ass…

lol it depost my gear so it will fite without and it not eat bad script never gonna use again

The script is decent not saying its bad it works does the job but yes it may need a little more help by a experiance scripter about
> it detecting "im out of food going to bank.." something like that .. cuz i died one time because he didnt bank.. but that was just like once out me using the script 4times ..

> something is weird about the eating procedure O_O i did play with the percentages of when to eat so i wouldn't die.. so may need a little bit more working on that you know detecting and all that .. i love reading scripts written by other people .. and i do understand them and i dont if know what im saying.. but to the point .. Narcle's fast fighter has a nice eating procedure i think it ate almost allways like above 200 life points which is in the safe zone so perhaps he may be able to help ? :D

i wish i could help with other peoples scripts.. but one of thoes guys that reads things but makes sence in my head but it doesnt.. im more of practical person haha

overall script is BEAST! appreciate it! thnx for the effort! yes this is a script that may need a babysitting or cheking up every 5-10mins :)

Food := DTMFromString('mggAAAHicY2NgYGhhYWCoA+IqIO4C4j4gbgBiNiYGBi4gFgRidiDmBWIWIK4Ka2SoiWhmmBa9kCHLu4ChJaCPIcw2mgEXYMSBIQAAk54LLQ==');  

my dtms for swordfish! :D

What's the DTM for trout?

ill give it a test

Any proggies? does this work okay for hours?

Hi there i recently was training my new account and i came across your script which was nice and everything though it can still need work with walking around the warrior combat area's i.e if there are no more warriors in the room make him move to the center or any other room? …

But the main thing was i just added ACA to the script making finding warrior's ALOT! more faster in my view but can still need work so with your permission im going to post this edited version, if you want me to remove it or something just ask me or if you can remove it your self then do so :)

EDIT!! just a quick heads up if you will, if for some reason your charactor isnt clicking or something ? just set the angle to HIGH or LOW make sure you change them bouth or it will go high then low again and yeah :L

Program Al_Kharid_Warrior_Killer;
{$i srl\srl\misc\smart.simba}
{$i SRL\SRL.simba}
{$i srl\srl\skill\fighting.simba}
Var
  x, y, Food: Integer;
  B: Array [0..5] of Integer;
  aFound: Extended;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Bankpin Here
  Players[0].BoxRewards := ['Xp'];
  Food := DTMFromString('m1gAAAHic42JgYMhmYmBIA+IkII4F4lwgLgbiCiAuB+ISIM4B4vtAtXeA+CkQfwTiR0D8BMp/CJW7BsS1ES1AkokITBxgJBIjAAA4Lw6i');
end;
//---------------------EDITED by Zac-------------------------------\\
function WarriorColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.76);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 6048546, MSX1, MSY1, MSX2, MSY2, 11);
  if (Length(arP) = 0) then
  begin
    //Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 1.72) and (X <= 10.47) and (Y >= 2.08) and (Y <= 12.47) and (Z >= 3.78) and (Z <= 21.61) then
    begin
      Result := arC[i];
     // Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    //Writeln('AutoColor failed in finding the color.');
end;
Procedure Attackwarrior;
Var
  x, y: Integer;
Begin
  X:=MSCX;
  Y:=MSCX;

  If FindObjTPA( x, y, WarriorColor, 10, 2, 5, 2, 10, ['Warrior','Al']) Then
  Begin
    GetMousePos (x, y);

    Case Random (0) Of
      0: Mouse (x, y, 2, 2, True)
    End;
  End;
End;

Procedure SetDTM;
Begin
  B[0] := DTMFromString('mrAAAAHic42BgYChhYmAIAuJVQLwSiu2h2AmI7YBqUoA4EYiDgdgTiKOBOByI/YB4em8qQ7ghG4NBkgiDQoQAg5U1Kxw7JEkxiADV4MOMBDAMAACI9AxR');
  B[1] := DTMFromString('mlwAAAHicY2dgYDBkYmBwAmJHKHYAYj8gjgfiQKC8CxCHAXE8EOcDsTMQOwHxzJ5UBqdEKQYbK1Y4NkoUYVAKF2AQAcrjwox4MBQAAKFHCbE=');
  B[2] := DTMFromString('mlwAAAHicY2dgYIhiYmDwAOJ6NOwOxJVA+Xwg9gXiHCCuBeIJQGwJxFt70hi+/+ZmMEoUYbCxYgVjENu70IRBBCiPCzPiwVAAABJQDU0=');
  B[3] := DTMFromString('mlwAAAHicY2dgYOBgZGD4DqTFgPQfIC0IpP9B6RIgHQXEkUBcCcW5QFwIxEnBTgz21uYMtpYmDBVpgQxx/vYMt3ZOZqjJDGYQAcrjwox4MBQAAF81DpI=');
  B[4] := DTMFromString('mwQAAAHic42RgYOhnYmCYg4RnA3E4EJcAcQUQpwKxCVCdGxBHA3EGEGsCsS4QqwFxCRALAPHU7jQGS0s2BvkwQTjd15IIFvcoMGWY3pHOIAJURwgzEoHhAAAP1hCq');
  B[5] := DTMFromString('mlwAAAHicY2dgYJjAxMBQD8QNUAxirwDiHiCOAMpXAXEeEIcDsTUQWwCxJRBv6kpjMNLkYtBPEGWQDxME0zAsApTHhRnxYCgAALMIC8s=');
end;

Procedure Bankit;
Begin
  B[3] := DTMFromString('mlwAAAHicY2dgYOBgZGD4DqTFgPQfIC0IpP9B6RIgHQXEkUBcCcW5QFwIxEnBTgz21uYMtpYmDBVpgQxx/vYMt3ZOZqjJDGYQAcrjwox4MBQAAF81DpI=');

  MakeCompass ('w')
  repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound);

  If FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
      Wait(1500)
      if not (bankscreen) then

      repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound);

  If FindDTMRotated(B[3], x, y, MSX1, MSY1, MSX2, MSY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
      Wait(1500)
      Withdraw(0, 0, 28);
      CloseBank;
      FreeDTM(B[3])
    end;
  end;
end;

Procedure ToBank;
begin
  B[0] := DTMFromString('mrAAAAHic42BgYChhYmAIAuJVQLwSiu2h2AmI7YBqUoA4EYiDgdgTiKOBOByI/YB4em8qQ7ghG4NBkgiDQoQAg5U1Kxw7JEkxiADV4MOMBDAMAACI9AxR');
  B[1] := DTMFromString('mlwAAAHicY2dgYDBkYmBwAmJHKHYAYj8gjgfiQKC8CxCHAXE8EOcDsTMQOwHxzJ5UBqdEKQYbK1Y4NkoUYVAKF2AQAcrjwox4MBQAAKFHCbE=');
  B[2] := DTMFromString('mlwAAAHicY2dgYIhiYmDwAOJ6NOwOxJVA+Xwg9gXiHCCuBeIJQGwJxFt70hi+/+ZmMEoUYbCxYgVjENu70IRBBCiPCzPiwVAAABJQDU0=');

  MakeCompass ('n')
  if FindDTMRotated(B[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[0]);
    repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
  end;

  if FindDTMRotated(B[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[1]);
    repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
  end;

  if FindDTMRotated(B[2], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[2]);
  End;
End;

Procedure FromBank;
begin
  B[4] := DTMFromString('mwQAAAHic42RgYOhnYmCYg4RnA3E4EJcAcQUQpwKxCVCdGxBHA3EGEGsCsS4QqwFxCRALAPHU7jQGS0s2BvkwQTjd15IIFvcoMGWY3pHOIAJURwgzEoHhAAAP1hCq');
  B[5] := DTMFromString('mlwAAAHicY2dgYJjAxMBQD8QNUAxirwDiHiCOAMpXAXEeEIcDsTUQWwCxJRBv6kpjMNLkYtBPEGWQDxME0zAsApTHhRnxYCgAALMIC8s=');

    MakeCompass ('n')
    if FindDTMRotated(B[4], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[4]);
    repeat
      Wait(50 + Random(25));
    until FindDTMRotated(B[5], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
  end;

  if FindDTMRotated(B[5], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
  begin
    Mouse(x, y, 3, 3, True);
    FFlag(6);
    FreeDTM(B[5]);
  end;
end;

Procedure LowHPLetsEat;
var
   x, y: Integer;
  test: boolean;
begin
  test := (HPPercent < 70) and (LoggedIn);
  If(not(test)) then
    Exit;

  if test then
  If InvEmpty then
  begin
    ToBank;
    Bankit;
    FromBank;
  end else
  begin
    if FindDTM( Food, X, Y, MIX1, MIY1, MIX2, MIY2) then
     begin
       Mouse(x ,y, 5, 5, true);
       Wait(100);
       WriteLn('Having a bite of tuna');
    end else
    begin
      WriteLn('couldn''t find any tuna');
    end;
   end else
     WriteLn('health isn''t low enough to eat');
end;


begin
  MouseSpeed := 18;
  Smart_Server := 136;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
  SetupSRL;

  DeclarePlayers;
  LoginPlayer;
  SetDTM;
  MakeCompass ('n')
  SetAngle(SRL_ANGLE_LOW);

  repeat
  SetAngle(SRL_ANGLE_LOW);
  Attackwarrior;
  While(Infight)do
  Wait(300);
  LowHPLetsEat;
  Until not LoggedIn;
end.

Edit i noticed that once it clicks npc , and engages fight, but like 4-5 seconds later or quicker it clicks on another npc? any way to stop that .. so if its fighting one, finish it then attack the next closest npc?

definitely a script that is in need of work

Love the script its working nicely with some bugs though ofc, nothing too major though imo.

here are some that ive come across
will sometimes go to the fremmenik warrior on the west side of the palace and keep clicking him. i dont know much about this scripting but if what ive been seeing around its called the uptext? are you using like warrior for that? that could be why its clicking the fremmy warrior could probably use "harid" or something

it seems to find the warriors really slow too. the mouse moves in like all the wrong areas to try and find them(this is how im guessing it finds the fremmy warrior) it seems but it eventually does and still gets decent xp/hp

ive had no problems with death and food consumption like the others, but it has sent me to the bank once and deposited all my items and then it went back to the warriors and died. so i wouldnt really call that a problem as long as it deposits the gear first LOL

I love this script cause this worked more than 10 hours non stop.Thanks again.

You shlould make it bank for tuna when it is out of foud, that would make the script awesome. Could you do that?

Warrior finding should be faster.sometimes it goes to talk with the fremennik warrior.

I have test it and Work well.

Tested this with lobsters, and it seems to eat them properly. Just started though, so I doubt it'll withdraw more. One load lasts me like an hour though, so it's fine. Great script!
Add multi-foods soon :)

Edit:
Tested it out, and I got it to take my lobs (since I have >10k of those and no tunas). However, the searching is very slow, so it's not very useful for training. Try making it look faster.

/Removed
Sorry I thought I was on a different thread.
Anyways i'll try this script out.

Edit: I assume that the script isn't working right now due to the new bankers.

Is someone ned help for fix it let me know.

Does this work?