SRL Archive - SRL Archives

//Returns True if Net is found in inventory used with procedure FindNet;
function NetCo : Boolean;
var
  Fisp : Integer;
  Net : TPoint;
begin
  Fisp:= DTMFromString('78DA635CC9C4C0F080010C581960809141044' +
       'C3230FC0702C63EA09A67B8D58079B3806A6E1250B314A8E61301' +
       '350B806A9EA2AAD150904251030094010C80');//Darky. :)
   GameTab(4);
   if(FindDtm(Fisp, Net.X, Net.Y, 564, 211, 613, 249))then
   begin
     Wait(250);
     NetColor:= GetColor(Net.X, Net.Y);
     if(NetColor <> 0)then
       Result:= True;
   end;
end;

//inside SRL/SRL/Skill/Mining.Scar
procedure ItemGrabX; //By Stupid3000
begin
GameTab(4);
if(FindColor(x,y,241,565,5,725,160))then
begin
  Mouse(x,y,1,1,true);
  Flag;
  Wait(100+random(100));
  FindTextSpiral('Take',258,169,50,5,10+random(10));
  GetMousePos(x,y);
  Mouse(x,y,0,0,true);
  Wait(1000+random(100));
end;
end;

//Returns true if Net was sucessfully found
function FindNet : Boolean;
var
  Bc : Integer;
begin
  Wait(250);
  if(not(NetCo))then
  begin
    SendArrowSilentWait(0, 1200);
  //  Writeln(Players[CurrentPlayer].Name + ' lost net');
  Status('Lost Net');
    repeat
      Status('Finding Lost Net');
      Bc:= Bc + 1
      if(FindObj(x, y, 'ake', NetColor, 10))then
      begin
        Mouse(x, y, 0, 0, true);
        Mouse(x, y, 0, 0, true);
        Flag;
        Result:= True;
      end;
      ItemGrabX;
    until(NetCo) or (Bc >= 3)
    if(Bc >= 3)then
    begin
      Result:= False;
      LogOut;
      Bc:= 0
      Exit;
    end else
    begin
 //     SavedNet:= SavedNet + 1
      Bc:= 0
    end;
  end;
end;

Taken from my script, did some mods with it. Post feedback. :)

Nice :), only a few mods for lobster pots and harpoons i guess.

this would come in really useful for a draynor netter

white didnt i give you that DTM ?:confused:

From: dark_sniper
white didnt i give you that DTM ?:confused:

Yup, you did I credited you in my Netter script. See sig. Sorry, I'll do that edit in my first post, I copied and pasted it right from my script.

i wasent asking for cred i was just wondering… tnx