krunkjuice
12-04-2006, 10:55 PM
Ok I wrote a featherbuyer and I need some help with it. It's not my first script but it might as well be because my last few were completely terrible lol. Anyways, I took a huge chunk of it from phantom bmxs buyer so sorry for that but the script is just for learning purposes so I hope you wont get upset. I get a dumb error when I compile because I think somethings wrong with my SRL. Anyways, I pretty much filled in the gaps of what I didnt know how to do in the script with what I though woudl go there, lol. I know it is riddled with mistakes, errors, and fauls ( especially in the main loop) so I would appreciate any help that you could give me, thanks. :)
// --- Feather Buyer ---
//[ Start in fishing shop logged in, and thats it]
program Feathers;
function FindGerrant:Boolean; //taken from delux feather buyer.
var a,b:integer;
begin
if(GetColor(342, 44)=2070783)then
begin
Result:=True;
Exit;
end;
a:=246;
b:=163;
if(FindColorSpiralTolerance(a,b,6785945,10,10,500, 330,3))or
(FindColorSpiralTolerance(a,b,7708590,10,10,500,33 0,3))or
(FindColorSpiralTolerance(a,b,7444904,10,10,500,33 0,3))then
begin
Mouse(a,b,0,0);
Wait(100+random(50));
if(Option2('Talk'))or
(IsUpText('Talk'))then
begin
Mouse(a,b,0,0,false);
IdleWait(100+random(20));
ChooseOption(a,b,'Trade');
Flag;
IdleWait(1000+Random(1000));
end;
Procedure Buyfeather;
if(ShopScreen)=true then
begin
Mouse(500+random(20), 287+random(20),false);
if(isuptext('Buy 10')) then
begin
Mouse(486+random(20), 356+random(20),true);
end;
Begin
if(FindGerrant) = true then
repeat
Buyfeather;
until
end;
end.
// --- Feather Buyer ---
//[ Start in fishing shop logged in, and thats it]
program Feathers;
function FindGerrant:Boolean; //taken from delux feather buyer.
var a,b:integer;
begin
if(GetColor(342, 44)=2070783)then
begin
Result:=True;
Exit;
end;
a:=246;
b:=163;
if(FindColorSpiralTolerance(a,b,6785945,10,10,500, 330,3))or
(FindColorSpiralTolerance(a,b,7708590,10,10,500,33 0,3))or
(FindColorSpiralTolerance(a,b,7444904,10,10,500,33 0,3))then
begin
Mouse(a,b,0,0);
Wait(100+random(50));
if(Option2('Talk'))or
(IsUpText('Talk'))then
begin
Mouse(a,b,0,0,false);
IdleWait(100+random(20));
ChooseOption(a,b,'Trade');
Flag;
IdleWait(1000+Random(1000));
end;
Procedure Buyfeather;
if(ShopScreen)=true then
begin
Mouse(500+random(20), 287+random(20),false);
if(isuptext('Buy 10')) then
begin
Mouse(486+random(20), 356+random(20),true);
end;
Begin
if(FindGerrant) = true then
repeat
Buyfeather;
until
end;
end.