Please post your reviews and suggestions for this script.
I hope it works well, but it doesn't have AntiRandom so watch out.
Well, here it is:
Code:{This script was made by Thomis with the help of some others. It's free to use and you can post it everywhere as long as you credit me.} program MyFeatherBuyer; {.include SRL\SRL.scar} {.include SRL\SRL\Misc\amount.scar} var bought: integer; const FeathersToBuy = ;//How many Feathers you want to buy ShopColor = ;//Pick the blue color of the shop symbol ShopkeeperColor = ;//Pick the color of the shopkeeper function JadSymbol(WhatSymbol: String; Click, Switch: Boolean): Boolean; var I: Integer; begin Writeln('Trying to find shop'); for I := 1 to 25 do begin if(FindSymbol(x,y,(WhatSymbol)))then begin if(Click)then Mouse(x,y,2,2,true); Result := True; Exit; end; wait(750+random(500)); end; Writeln('Could NOT find symbol.'); Result := False; if(Switch)then LogOut; end; //Credits for this function go to JAD procedure FindShopkeeper; var FSX, FSY, Attempts: integer; begin Writeln('Trying to trade Gerrand'); repeat Attempts:=Attempts+1; if FindObjMultiText(FSX,FSY,'erran','errand','Gerrand',ShopkeeperColor,6) then Mouse(FSX,FSY,2,2,false); ClickOption('Trade',1); until (TradeScreen) or (Attempts > 5); if (Tradescreen) then begin Writeln('Traded Gerrand after '+IntToStr(Attempts)+' attempts'): if Attempts > 5 then Begin Writeln('Failed to trade Gerrand, logging out'); Logout; end; end; Procedure BuyTheFeathers; begin Writeln('Beginning to buy feathers'); if (GetAmount(370,73) > 970) then begin Mouse(370,73,10,10,false); ClickOption('Buy 10',1); bought := bought + 10; end; end; procedure FinalReport; begin Writeln('----------------------------------') Writeln('| FeatherBuyer by Thomis |') Writeln('----------------------------------') Writeln('| |') Writeln('| Succesfully bought '+IntToStr(bought)+' Feathers |') Writeln('| |') Writeln('----------------------------------') end; begin SetupSRL; ActivateClient; bought := 0; HighestAngle; JadSymbol('fishing shop',true,true); FindShopKeeper; repeat BuyTheFeathers; Wait(5000 + random(1000)); until (bought > FeathersToBuy); CloseWindow; FindNormalRandoms; FinalReport; Logout; end.


Reply With Quote




