working on my auto-seller/buyer and offering stuff
did i set up my "offeritem" function right? this is the first time ive ever done anything with a custom function. i included the full version of my typer.
i also can't get the "usefkeys" thing to work. if anybody wants to point out my errors please do so :P
SCAR Code:
procedure trade;//clicks purple trade text
var x, y: integer;
begin
if findcolor(x,y,8388736,18,415,236,431) then
begin
writeln('found trade')
MMouse(x,y,0,0);
wait(100+random(50))
Mouse(x,y,0,0,true);
writeln('accepted trade')
wait(6000)
typesend('how much each?')
wait(5000);
Offeritem(offer);
end;
end;
Function Offeritem(offeramount: integer;);
var x, y: integer;
begin
MouseBox(568, 215, 591, 237, False);
wait(100+random(300));
GetMousePos(x, y);
Mouse(x, y, 0, 0, false);
wait(100+random(500));
ChooseOption('Offer-X');
wait(100+random(500));
Typesend(offeramount);
end;
edit: i forgot to say that the item you want offered needs to be in the first inventory slot.