SRL Archive - Outdated / Broken

Well, if there's anybody out there with nothing to do I could really use a dragon hide tanner for my main. I haven't scripted in a while and it would take me forever to make it, so I just thought I'd see if anyone was bored and wanted to make me one.

Thanks!

Is that for Black D'Hides?

I think he means for every single hide..

My question was a valid one N1ke! I was merely going to suggest that black D'hide tanning isnt such a good idea at the moment because they dont sell… Believe me, I know.

This was a cow hide tanner by TAB updated by TSN, which I then updated a little over a year ago and converted to green hides, and then updated just now to get it to compile with today's SRL. I stopped using it because finding buyers and sellers was annoying, but that was before the GE.
Nowadays it works OK, as I designed the walking to expect mistakes and get around them, rather than not make mistakes at all. However I think it's making more mistakes than when I originally designed it, so it probably needs some work. It wouldn't leave it alone at this point.
I'm even rustier than I was when I converted it, so somebody else can fix it. The walking needs some tweaking, and I think it might be confusing the tanner and kebab symbols (perhaps add something like, if you can see the tanner symbol, and you can see the furnace symbol, make sure the tanner symbol is to the right of the furnace symbol). And of course add different hide colors.

Works better with this

function OpenBankGlass(WhichBank: string; ChangeCompass, ChangeAngle: Boolean): Boolean;
var
  OBC: TPoint;
  c, Speed: Integer;
begin
  Speed := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  if ChangeAngle then setangle(true);
  if ChangeCompass then
  begin
    c := Random(2);
    case WhichBank of
      'feb', 'fwb', 'veb': if c = 0 then MakeCompass('N') else MakeCompass('S');
      'akb', 'db', 'eb', 'vwb': if c = 0 then MakeCompass('E') else MakeCompass('W');
    end;
  end;
      Wait(100);
    if IsUpTextMultiCustom(['nk', 'bo', 'ot']) then
    begin
      getmousepos(obc.x,obc.y);
      Mouse(OBC.x, OBC.y, 0, 0, False);
      Wait(100);
      if ChooseOption('uickly')then
      mmouse(611+random(23),221+random(18),0,0);
      FFlag(0);
      Wait(2000 + Random(500));
      if BankScreen or PinScreen then Result := True;
      exit;
    end;
  if FindColorTolerance(OBC.x, OBC.y, 10594993, MSX1, MSY1, MSX2, MSY2, 4) then
  begin

    MMouse(OBC.x, OBC.y, 4, 4);

    if IsUpTextMultiCustom(['nk', 'bo', 'ot']) then
    begin
      getmousepos(obc.x,obc.y);
      Mouse(OBC.x, OBC.y, 0, 0, False);
      Wait(100);
      if ChooseOption('uickly') then
      mmouse(611+random(23),221+random(18),0,0);
      FFlag(0);
      Wait(2000 + Random(500));
      if BankScreen or PinScreen then Result := True;
    end;
  end else
    if FindObj(OBC.x, OBC.y, 'ank', 10594993, 19) then
    begin
    if not(IsUpTextMultiCustom(['nk', 'bo', 'ot']))then

      Mouse(OBC.x, OBC.y, 0, 0, False);
      Wait(50);
      ChooseOption('uickly');
      FFlag(0);
      mmouse(611+random(23),221+random(18),0,0);
      Wait(2000 + Random(500));
      if BankScreen or PinScreen then Result := True;
    end;
  ColorToleranceSpeed(Speed);
end;

edit: script removed