timmyboy
2006-05-01 12:57:35
This is a fletcher I startd making, but it kept on messing up so I decided to fix it, but no luck. I'm to stupid and bored :p.
If you guys want, you can fix it, and then post it in the Members Section, as it's in the Leechers cause it's not the greatest.
I am not responsable for your character or and loss of items. Oh, btw, this dosn't have randoms yet :rolleyes: I might fix it later though, as right know I need to finish my powerminer to get my mains lvl up.;)
If you guys want, you can fix it, and then post it in the Members Section, as it's in the Leechers cause it's not the greatest.
I am not responsable for your character or and loss of items. Oh, btw, this dosn't have randoms yet :rolleyes: I might fix it later though, as right know I need to finish my powerminer to get my mains lvl up.;)
program Fletcher;
{.include srl/srl.scar}
{Made by Timmyboy
Fletcher 1.0
}
var
bankage, counterr, bow, count, done, fletcher, BankTM:Integer;
const
logswant=27;//Loads to want it to fletch
Color1=4352884;//Color 1 of log
Color2=1589062;//Color 2 of log
Color3=2051671;//Color 3 of log
Color4=1853778;//Color 4 of log
BowColor1=2780789;//Color 1 of bow
BowColor2=2383460;//Color 2 of bow
procedure setup;
begin
SetupSRL;
ActivateClient;
Bankage:=0
Fletcher:=0
Count:=0
end;
function CloseBank: Boolean; //By Timmyboy
begin
if findcolor(x,y,8421504,413,34,495,50) then
mouse(x,y,1,1,true);
Result:=True;
end;
function FletchDone: Boolean;
begin
if(FindChatText('have run out of'))then
Result:=true
end;
function Fletcha: Boolean;
begin
if(FindChatText('carefully cut'))then
Result:=true
end;
{*******************************************************************************
function GainLvl : Boolean;
by:Timmyboy1234
Description: Checks to see if you've gained a lvl, and if you did, it clicks to continue and returns true.
*******************************************************************************}
function GainLvl: Boolean;
begin
if(FindColorTolerance(x,y,16711680,15,349,466,431,3))then
begin
Mouse(x,y,1,1,true);
wait(500);
if(FindColorTolerance(x,y,16711680,15,349,466,431,3))then
begin
Mouse(x,y,1,1,true);
wait(500);
end;
Result:=True;
end;
end;
function FindIColorTol(var x, y : Integer; color, tol : Integer; click, left: boolean) : Boolean;//By Timmyboy
begin
if (FindColorTolerance(x, y, color, MIX1, MIY1, MIX2, MIY2, tol)) then
begin
if ((click)=true) then
begin
wait(250+random(500));
mouse(x,y,2,2,left);
end;
Result := True;
end;
end;
function MSColorTol1(var x, y :Integer; color, tol : Integer): Boolean;
// by Stupid3ooo, edited by Timmyboy
begin
if (FindColorTolerance(x, y, color, 3, 3, 515, 338, tol)) then
wait(250+random(500));
Result := True;
end;
function chooseFletch(Mode, Howm: Integer) : Boolean;//By Timmyboy
var
x, y, wordw, ques: Integer;
begin
wordw := BitmapFromString(15, 13, 'z78DA3330A007B0C04112A38B785' +
'90B12CDB1A099C98353D682C4F8A2967B686D322D6287F290A45D' +
'0C522B7E2DF0C688058966520B0000C98ADCA9');
ques := BitmapFromString(4, 12, 'z78DA3330C00E2C304803BC2A2' +
'911274FC48008B751EE5A00BAD23661');
case mode of
1:
begin
if (FindBitmap(ques,x,y)) then
begin
wait(1000+random(300));
mouse(x+20+random(12),y+30+random(30),1,1,false);
wait(500+random(700));
clickoption('X',3);
wait(1000+random(200));
typesend(inttostr(howm)+chr(13));
Result := True;
FreeBitmap(ques);
Wait(250);
end;
end;
2:
begin
if (FindBitmap(wordw,x,y)) then
begin
wait(1000+random(300));
mouse(x+20+random(12),y+30+random(30),1,1,false);
wait(500+random(700));
clickoption('X',3);
wait(1000+random(200));
typesend(inttostr(howm)+chr(13));
Result := True;
FreeBitmap(wordw);
Wait(250);
end;
end;
end;
end;
function WhatFlet: Boolean;
begin
Fletcher:=random(3)+1
if (Fletcher=1) then
begin
if (FindIColorTol(x,y,Color1,3,false,false)) then
begin
wait(250+random(900));
mouse(x,y,3,3,true);
wait(250+random(600));
Result:= True;
end;
end else
if (Fletcher=2) then
begin
if (FindIColorTol(x,y,Color2,3,false,false)) then
begin
wait(250+random(900));
mouse(x,y,3,3,true);
wait(250+random(600));
Result:= True;
end;
end else
if (Fletcher=3) then
begin
if (FindIColorTol(x,y,Color3,3,false,false)) then
begin
wait(250+random(900));
mouse(x,y,3,3,true);
wait(250+random(600));
Result:= True;
end;
end else
if (Fletcher=4) then
begin
if (FindIColorTol(x,y,Color4,3,false,false)) then
begin
wait(250+random(900));
mouse(x,y,3,3,true);
wait(250+random(600));
Result:= True;
end;
end;
end;
function WhatGet: Boolean;
begin
Bankage:=random(3)+1
if (Bankage=1) then
begin
if (MSColorTol1(x,y,Color1,3)) then
begin
wait(250+random(900));
mouse(x,y,4,4,false);
wait(250+random(600));
ChooseOption(x,y,'All');
wait(250+random(600));
Result:= True;
end;
end else
if (Bankage=2) then
begin
if (MSColorTol1(x,y,Color2,3)) then
begin
wait(250+random(900));
mouse(x,y,4,4,false);
wait(250+random(600));
ChooseOption(x,y,'All');
wait(250+random(600));
Result:= True;
end;
end else
if (Bankage=3) then
begin
if (MSColorTol1(x,y,Color3,3)) then
begin
wait(250+random(900));
mouse(x,y,4,4,false);
wait(250+random(600));
ChooseOption(x,y,'All');
wait(250+random(600));
Result:= True;
end;
end else
if (Bankage=4) then
begin
if (MSColorTol1(x,y,Color4,3)) then
begin
wait(250+random(900));
mouse(x,y,4,4,false);
wait(250+random(600));
ChooseOption(x,y,'All');
wait(250+random(600));
Result:= True;
end;
end;
end;
function FletchLog: Boolean;
var
x, y:Integer;
begin
if (FindIColorTol(x,y,7237495,3,false,false)) then
begin
wait(250+random(900));
mouse(x,y,3,3,true);
wait(250+random(600));
end;
if (not FindIColorTol(x,y,7237495,3,false,false)) then
begin
Writeln('Knife not foud');
Logout;
wait(2000);
TerminateScript;
end;
repeat
wait(500);
counterr:=counterr+1
until(IsUpText('ife')) or (Option2('ife')) or (counterr=10);
whatflet;
Result:= True;
end;
procedure DepositBow;
begin
Bow:=random(1)+1
if (Bow=1)then
begin
FindIColorTol(x,y,BowColor1,1,true,false);
ChooseOption(x,y,'All');
end else
if (Bow=2)then
begin
FindIColorTol(x,y,BowColor2,1,true,false);
ChooseOption(x,y,'All');
end;
end;
procedure banker;
begin
MarkTime(BankTM);
openbank3;
repeat
wait(500);
until(Bankscreen) or (TimeFromMark(BankTM)>30000);
if(TimeFromMark(BankTM)>30000) then
begin
Writeln('Could not find bank');
Logout;
wait(2000);
TerminateScript;
end;
if (Bankscreen) then
begin
wait(1000);
Fixbank;
DepositBow;
wait(1200+random(1000));
Whatget;
Done:=done+1
CloseBank;
end;
end;
procedure gainn;
begin
if (gainlvl)then
begin
fletchlog;
chooseFletch(1,33);
end;
if ((fletcha)=false)then
begin
banker;
end;
end;
procedure fletcherr;
begin
fletchlog;
chooseFletch(1,33);
wait(2000+random(1000));
gainn;
repeat
wait(1000);
gainn;
until(fletchdone);
if (fletchdone) then
begin
banker;
end;
end;
begin
setup;
wait(1000);
repeat
fletcherr;
count:=count+1
until(count=logswant);
end.