General Store Item Seller

[Haider]

Hi,

This is a really easy script, anyone with basic scripting abilities should be able to make it. What i want this script to do is sell items at a general store. Have the items in the last line of inventory and basically spam click sell 50 because with 1 mouse key u can have the script click repeatedly on the same spot and sell items because the "sell 50" option appears on top of the item. I tried this with an auto-clicker and the most effective click speed would be from around .16 to .20 of a second.

[Mr Stoj]

Procedure Openthebank;

Var
TPAA: T2DPointArray; // Credit to Nemesis3X with this it was a failbot.Thank you for this amazing and simple guide http://villavu.com/forum/showthread.php?t=76005
TPA: TPointArray; T: Integer;
CTS, I, Retry: Integer;
Begin

CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 1040379, MSX1, MSY1, MSX2, MSY2, 7); // Enter the Color and Tolerance Here at the Right place.
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 8, 37); //Put the Width and Heigh here
SortATPASize(TPAA, True);
For I := 0 To High(TPAA) Do
If GetArraylength(TPAA[i]) > 0 Then // Set How Much Points you need for your function to take Action
Begin
repeat
inc(Retry);
MiddleTPAEx(TPAA[i], x, y);
MMouse(X, Y, 3, 3);
if waituptext('aa',50)then // Enter The name of Your NPC or Monster
Begin
GetMousePos(X, Y);
mouse(x,y,3,3,false);
wait(200 + random(100));
ChooseOption('ank');
wait(100 + random(50));
Break;
End;
until (Retry = 30);
Break;
end;
end;


change the color and the box size and the uptext but that will get you your open shop

[Haider]

thanks , but i need an item seller. not a shop opener

[putonajonny]

Program New;
{.include SRL/SRL.simba}
begin
  SetupSRL;
  MMouseItem(28);
  Repeat
    Wait(200+Random(200));
    ClickMouse2(mouse_Right);
    Wait(200+Random(200));
    ClickMouse2(mouse_Left);
  Until(false);
end.

I wrote that in the quick reply box not simba so sorry if it doesn't compile