Crap fletcher..

Here is my first real script, crapfletcher v1.0
Atleast I am officially no longer a leecher..lol
Sorry if it sucks. :-/

{Feturley's first peice of crap script. Hope you like it..or not..
SETUP:
Be right beside the bank booth with screen at highest angle.
be facing the bank booth (with your man and screen angle..sorry if that doesn make sense..)
Have a knife in your inventory, and the logs you want to fletch
in the first bank spot. Set up what type of bow on line 20.
Detail level shouldn't really matter unless you are using willows, in which
case high will be a little better.
}
program patheticfletcher;
{.include SRL/SRL.scar}
{.include SRL\SRL\Extended\Obsolete.Scar}
var
bowarea,bowtype,i: Integer;
Const StartPlayer = 0;
amounttrips=2;
AutoResp = false;//Set to true if u want to autorespond (may lagg).
RGBoxes = False;//Set to false if solvebox laggs.
Procedure DeclarePlayers;
begin
//For short bows, set bow type to one, for long bows, set bow tyoe to 2.
bowtype:=2;
HowManyPlayers:=1;

NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='seers';
Players[0].Active:=True;
end;
procedure clickwhere;
begin
if(bowtype=1)then
begin
bowarea:=105;
end;
if(bowtype=2)then
begin
bowarea:=240;
end;
end;
procedure setup;
begin
setupsrl;
end;

function FQRandoms :Boolean;
var
RL: Integer;
begin
for RL:=1 to 17 do
begin
case RL of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if(RGBoxes = True)then
begin
if(not(GambleNewBox))then
LogOut;
end else
SolveBox;
end;
13: if FindTrade then
Result := True;
14: begin
if NoGameTab then
begin
if ( SolveFrog ) then Exit;
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: if SolvePinball then
Result := True;
16: AntiBan;
17: if(FindFight)then
begin
RunAwayDirection('S');
RunBack;
end;
end;
wait(15);
end;
end;

procedure antirandoms;
begin
Findnormalrandoms;
AntiBan;
FQrandoms;
end;
procedure banker;
begin
if(FindColor(x,y,2184286,701,439,724,448))then
begin
antirandoms;
Wait(1246+random(83));
FQrandoms;
Findnormalrandoms;
MoveMouseSmoothEx(580,225+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(580,255,true)
ReleaseMouse(580,255,true)
FQrandoms;
Findnormalrandoms;
Wait(246+random(83));
MoveMouseSmoothEx(709,447+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(709,447,true)
ReleaseMouse(709,447,true)
antirandoms;
Wait(4235+random(83));
MoveMouseSmoothEx(240,410+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(240,410,false)
ReleaseMouse(240,410,false)
FQrandoms;
Findnormalrandoms;
wait(2235+random(83));
MoveMouseSmoothEx(240,425+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(240,425,true)
ReleaseMouse(240,425,true)
FQrandoms;
Findnormalrandoms;
Wait(1250+random(83));
SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))
wait(25000+random(566));
end;
antirandoms;
MoveMouseSmoothEx(260,130+random(2),20,40,45,25,20);
Wait(250+random(75));
HoldMouse(260,130,false)
ReleaseMouse(260,130,false)
Wait(785+random(75));
MoveMouseSmoothEx(260+random(2),170+random(2),20,40,45,25,20);
Wait(1250+random(75));
ClickMouse(260+random(3),170+random(3),true);
Wait(1000+random(75));
if(FindColor(x,y,1777699,470,80,480,96))then
begin
MoveMouseSmoothEx(474,85+random(2),20,40,45,25,20);
Wait(500+random(75));
HoldMouse(474,85,true)
ReleaseMouse(474,85,true)
end;
Wait(150+random(75));
MoveMouseSmoothEx(630,225+random(2),20,40,45,25,20);
Wait(250+random(75));
HoldMouse(630,225,false)
ReleaseMouse(630,225,false)
Wait(554+random(83));
MoveMouseSmoothEx(630,300+random(2),20,40,45,25,20);
Wait(212+random(73));
HoldMouse(630,300,true)
ReleaseMouse(630,300,true)
end;
procedure takeit;
begin
Wait(1233+random(83));
MoveMouseSmoothEx(95,75+random(2),20,40,45,25,20);
Wait(212+random(73));
HoldMouse(95,75,false)
ReleaseMouse(95,75,false)
Wait(642+random(83));
MoveMouseSmoothEx(95,150+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(95,150,true)
ReleaseMouse(95,150,true)
end;
procedure exitout;
begin
Wait(879+random(83));
MoveMouseSmoothEx(484,36+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(484,36,true)
ReleaseMouse(484,36,true)
end;

procedure useknife;
begin
antirandoms;
Wait(1246+random(83));
FQrandoms;
Findnormalrandoms;
Wait(1246+random(83));
MoveMouseSmoothEx(580,225+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(580,255,true)
ReleaseMouse(580,255,true)
FQrandoms;
Findnormalrandoms;
Wait(246+random(83));
MoveMouseSmoothEx(625,225+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(625,225,true)
ReleaseMouse(625,225,true)
end;
procedure cutem;
begin
antirandoms;
Wait(4235+random(83));
MoveMouseSmoothEx(240,410+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(240,410,false)
ReleaseMouse(240,410,false)
FQrandoms;
Findnormalrandoms;
wait(2235+random(83));
MoveMouseSmoothEx(240,425+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(240,425,true)
ReleaseMouse(240,425,true)
FQrandoms;
Findnormalrandoms;
Wait(1250+random(83));
end;
procedure TypeSend1;

begin
SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend2;

begin

SendKeys('9');
wait(132+random(44));
SendKeys('8');
wait(142+random(44));
SendKeys('7');
wait(121+random(44));
SendKeys(chr(13))

end;


procedure TypeSend3;
begin

SendKeys('6');
wait(132+random(44));
SendKeys('7');
wait(142+random(44));
SendKeys('7');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend4;

begin

SendKeys('1');
wait(132+random(44));
SendKeys('3');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend5;

begin

SendKeys('7');
wait(132+random(44));
SendKeys('7');
wait(142+random(44));
SendKeys('7');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend6;

begin

SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('2');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend7;

begin
SendKeys('8');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('5');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend8;

begin

SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend9;

begin
SendKeys('5');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend10;

begin

SendKeys('6');
wait(132+random(44));
SendKeys('7');
wait(142+random(44));
SendKeys('9');
wait(121+random(44));
SendKeys(chr(13))

end;


procedure choosetypesend;
begin
wait(2000);
case random(10) of
0: TypeSend1;
1: TypeSend2;
2: TypeSend3;
3: TypeSend4;
4: TypeSend5;
5: TypeSend6;
6: TypeSend7;
7: TypeSend8;
8: TypeSend9;
9: TypeSend10;
end;
end;
procedure finisher;
begin
FQrandoms;
Findnormalrandoms
wait(50000+random(123));
wait(1000);
if(FindColor(x,y,2184286,701,439,724,448))then
begin
antirandoms;
Wait(1246+random(83));
FQrandoms;
Findnormalrandoms;
MoveMouseSmoothEx(580,225+random(2),20,40,45,25,20);
Wait(750+random(73))
;
HoldMouse(580,255,true)
ReleaseMouse(580,255,true)
FQrandoms;
Findnormalrandoms;
Wait(246+random(83));
MoveMouseSmoothEx(709,447+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(709,447,true)
ReleaseMouse(709,447,true)
antirandoms;
Wait(4235+random(83));
MoveMouseSmoothEx(240,410+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(240,410,false)
ReleaseMouse(240,410,false)
FQrandoms;
Findnormalrandoms;
wait(2235+random(83));
MoveMouseSmoothEx(240,425+random(2),20,40,45,25,20);
Wait(750+random(73));
HoldMouse(240,425,true)
ReleaseMouse(240,425,true)
FQrandoms;
Findnormalrandoms;
Wait(1250+random(83));
SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))
wait(25000);
end;
end;




procedure progress;
begin
Writeln(' Got about '+inttostr(i*1120)+(' XP.'));

end;
procedure Typer1;

begin
SendKeys('w');
wait(132+random(44));
SendKeys('o');
wait(142+random(44));
SendKeys('w');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer2;

begin

SendKeys('Y');
wait(132+random(44));
SendKeys('o');
wait(142+random(44));
SendKeys('.');
wait(121+random(44));
SendKeys(chr(13))

end;


procedure Typer3;
begin

end;

procedure Typer4;

begin


end;

procedure Typer5;

begin


end;

procedure Typer6;

begin

SendKeys('u');
wait(132+random(44));
SendKeys('g');
wait(142+random(44));
SendKeys('h');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer7;

begin
SendKeys('b');
wait(132+random(44));
SendKeys('o');
wait(142+random(44));
SendKeys('r');
wait(132+random(44));
SendKeys('i');
wait(142+random(44));
SendKeys('n');
wait(142+random(44));
SendKeys('g');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer8;

begin

SendKeys('c');
wait(132+random(44));
SendKeys('u');
wait(142+random(44));
SendKeys('t');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer9;

begin
end;

procedure Typer10;

begin


end;


procedure choosetype;
begin
wait(2000);
case random(10) of
0: Typer1;
1: Typer2;
2: Typer3;
3: Typer4;
4: Typer5;
5: Typer6;
6: Typer7;
7: Typer8;
8: Typer9;
9: Typer10;
end;

end;





begin
repeat
i:= i + 1;
setup;
DeclarePlayers;
antirandoms;
banker;
takeit;
exitout;
useknife;
cutem;
choosetypesend;
progress;
choosetype;
finisher;
until(i >= 33);
end.

 

by the way that 2nd to last line, the 33, is how many loads itll fletch

 

er..so did it work for anyone..or..not work?

 

this comment silence is scaring me..

 

common guys, what do you think about it? Honestly! How bad is it? And why?

 

for scar right.. but it looks pretty good ill try it later

 

i hate to rag on you, but reeeelaxxxx. dont keep double posting on your own thread, it's unnesacary. anyway, the script looks decent for your first? i think?

you should make a Variable at the begining like TotalNumberOfBows and then at the end of the banking procedure do TotalNumberOfBows + 26, or whatever and make Const called NumberOfBows =100; and do something like this..

at the end of your main loop, do repeat, until(TotalNumberOfBows = (NumberOfBows))


or something simalar.


also, dont use "sendkeys" use "TypeSend"

anddd dont use MoveMouseSmoothEx, use MMouse(x,y,TOLLERANCE,TOLLERANCE)


goodluck

 

in your example what do the tolerances stand for?