SRL Archive - Research & Development Lounge

Used for my Auto-Fletcher! i got tired of using Mouse() lol; u may take if needed
Opt 1 = shortbow
Opt 2 = longbow
Opt 3 = crossbowstock

procedure SelectOption(Opt,Amount: Integer);
 begin
  if (Opt = 1) then
   begin
    Mouse(121,403,0,0,False);
    Wait(900);
    ChooseOption('ake X');
    Wait(900);
    TypeSend(InttoStr(Amount));
    Wait(800);
   end;
  if (Opt = 2) then
   begin
    Mouse(268,408,0,0,False);
    Wait(1000);
    ChooseOption('ake X');
    Wait(900);
    TypeSend(InttoStr(Amount));
    Wait(800);
   end;
  if (Opt = 3) then
   begin
    Mouse(415,413,0,0,False);
    Wait(1000);
    ChooseOption('ake X');
    Wait(900);
    TypeSend(InttoStr(Amount));
    Wait(800);
   end;
end;

mouse coords with no randomness is bad and leads to bans

Looks good except for "perfect Coordinates"

You could also use strings for your options, just to me more simple and easy to remeber

From: HyperSecret
mouse coords with no randomness is bad and leads to bans

ill work on it :)

From: stampede10343
Looks good except for "perfect Coordinates"

You could also use strings for your options, just to me more simple and easy to remeber

Can ya give me an example?

From: OwnedPl0x?!?!
ill work on it :)




Can ya give me an example?

For randomness do:

Mouse(POSITIONX,POSITIONY, 10,10,true);

10 = the random ness in the X position and same with the other 10 is random for the Y axsis.

You could use DTMS of the logs would be more reliable.

Also you need random timming.

Wait(800+random(800));

I did a different kind of thing like this:

function DoOption(cx,cy,rx,ry:Integer; Option:string): boolean;
begin
  Mouse(cx,cy,rx,ry,False);
  Result := ChooseOption(Option);
end;

begin
  if FindDTM(Bow, x, y, MIX1, MIY1, MIX2, MIY2) then 
    if DoOption(x,y,5,5, 'ake X') then
    begin
      Wait(RandomRange(100,500));
      TypeSend('15');
    end;
end.

this is all great feed back guys thanks for the help

@Bobbo, ty i keep forgetting about the random times and ill work on DTMs

For strings you could use this:

procedure SelectOption(Opt: String;Amount: Integer);
 begin
  if (Opt = 'shortbow') then
   begin
    Mouse(121,403,10,10,False);
    Wait(900);
    ChooseOption('ake X');
    Wait(900);
    TypeSend(InttoStr(Amount));
    Wait(800);
   end;
  if (Opt = 'longbow') then
   begin
    Mouse(268,408,10,10,False);
    Wait(1000);
    ChooseOption('ake X');
    Wait(900);
    TypeSend(InttoStr(Amount));
    Wait(800);
   end;
  if (Opt = 'crossbow') then
   begin
    Mouse(415,413,10,10,False);
    Wait(1000);
    ChooseOption('ake X');
    Wait(900);
    TypeSend(InttoStr(Amount));
    Wait(800);
   end;
end;
 

Something like that, with random waits

Okay, this is how you remove half of the length, look how much is the distance from the first one's middle to the second ones. Also get the Y, but no difference stuff needed.

Then, do

X := FirstOnesMiddle - TheXDistance + Opt * TheXDistance
Y := YOfTheFirst

Mouse(X, Y, 5, 5, False)…

From: n3ss3s
Okay, this is how you remove half of the length, look how much is the distance from the first one's middle to the second ones. Also get the Y, but no difference stuff needed.

Then, do

X := FirstOnesMiddle - TheXDistance + Opt * TheXDistance
Y := YOfTheFirst

Mouse(X, Y, 5, 5, False)…

what do u mean by length? u mean the random coordinates or something else?

-.- I meant that is how you remove half of the length of your procedure, that really needs like < 8 lines…