SRL Archive - First Scripts

{.Script Info:
# ScriptName = Abyssals Fletcher!
# Author = AbYsSaL
# Description = Fletches.. :D
# Version = 1.0
# Date = June 14, 2005.
# Comments = Works flawless :P
/Script Info}

{
Abyssals Fletcher
}
{ Crosshairs to window }
{ Silent Mouse OFF }
{ Pick Colors }
{ RUN AND GAIN LEVELS!}

{
Please do not redistribute,
as that is very leechist.


Thanks and enjoy!
}




Program FlawlessFletcher;
{.include SQUIG.txt}
Const
{=====SETUP=====}
BankMM=2196626;//Bank symbol, just for lost help
Bank=10920870;//Top part of booth, dark grey
Logs=1181;//How many logs?
{TO FLETCH SHORTBOWS: GO TO LINE 207
AND CHANGE 'LONG' to 'SHORT'}
Mode=1; //0 = shorts, 1 longs - - - report
LogNum=2;//0 for norm, 1 for oak, 2 for willow…for report
{===END SETUP===}

Var
x, y, XX, xp, log, knife : Integer;
done : Integer;
Procedure Setup;
Begin
If(LogNum=0) And (Mode=0)Then XP:=5;
If(LogNum=0) And (Mode=1)Then XP:=10; {norm}
If(LogNum=1) And (Mode=0)Then XP:=16;
If(LogNum=1) And (Mode=1)Then XP:=25; {oak}
If(LogNum=2) And (Mode=0)Then XP:=33;
If(LogNum=2) And (Mode=1)Then XP:=41; {willow}
If(LogNum=3) And (Mode=0)Then XP:=50;
If(LogNum=3) And (Mode=1)Then XP:=59; {maple}
If(LogNum=4) And (Mode=0)Then XP:=67;
If(LogNum=4) And (Mode=1)Then XP:=75; {yew}
If(LogNum=5) And (Mode=0)Then XP:=83;
If(LogNum=5) And (Mode=1)Then XP:=92; {magic}
End;

Procedure Report;
Begin
WriteLn('');
WriteLn('');
WriteLn('—-Abyssals FlawLess Fletcher v1.1—-');
WriteLn('- - - - - - - - - - - - - - - - - - - -');
WriteLn('You have gained '+inttostr(XP)+' total xp.');
WriteLn('You have fletched '+inttostr(Done)+ ' total logs.');
WriteLn('');
WriteLn('');
End;

Procedure LoadTheBmps;
Begin
XX := BitmapFromString(45, 12, 'z78DA33301805D8811B12A0440D' +
'B5ECA28FEF48151F0D0D5265077F68E0F2052E37B89108464E681' +
'02F423BBBC833999E2524B5CA224AC28D92D445B9BDC4AB213E67' +
'111FCB433134E8933628C929F4AC612917A76E1A180CED0DF2720' +
'A256989F850A275680F3F0000E8B8B5BB');
End;


Procedure RANDOMS;
Begin
FINDRANDOMS;
//LOOKFORMIME;
//CHECKFORPLANT;
//FINDMAZE;
End;

Procedure ClickKnife;
Begin
FindColor(x,y,Knife,565,210,730,450);
Wait(750);
MoveMouseSmoothEx(x,y,5,6,15,20,20);
Wait(750);
GetMousePos(x,y);
ClickHuman(x,y,True); {Clicks Knife}
Wait(750);
End;

Procedure ClickLog;
Begin
FindColor(x,y,Log,565,210,730,450);
Wait(750);
MoveMouseSmoothEx(x,y,5,6,15,20,20);
Wait(750);
GetMousePos(x,y);
ClickHuman(x,y,True); {Clicks Log}
Wait(750);
End;

Procedure FLETCHLONG;
Begin
If(FindColorSpiral(x,y,BankMM,520,1,760,170))Then
Randoms;
Begin
Knife:=GetColor(585,225);
Log:=GetColor(625,230);
WriteLn('Knife: '+inttostr(knife)+', Log: '+inttostr(log));
Randoms;
ClickKnife;
ClickLog;
Wait(1000);
MoveMouseSmoothEx(375+random(5),400+random(5),5,6,15,20,20);
GetMousePos(x,y);
Wait(750);
Randoms;
ClickHuman(x,y,False);
Wait(750);
FindBitmapToleranceIn(XX,x,y,1,340,515,465,100);
y:=y+5;
x:=x+5;
MoveMouseSmoothEx(x,y,5,6,15,20,20);
GetMousePos(x,y);
Wait(750);
ClickHuman(x,y,True);
Wait(750);
SendKeysHuman('27'+chr(13));
Wait(1000*52); {Fletching short procedure}
Randoms;
Done:=Done+27;
XP:=XP*Done;
End;
End;

Procedure FLETCHSHORT;
Begin
If(FindColorSpiral(x,y,BankMM,520,1,760,170))Then
Randoms;
Begin
Knife:=GetColor(585,225);
Log:=GetColor(625,230);
WriteLn('Knife: '+inttostr(knife)+', Log: '+inttostr(log));
Randoms;
ClickKnife;
ClickLog;
Wait(1000);
MoveMouseSmoothEx(145+random(5),400+random(5),5,6,15,20,20);
GetMousePos(x,y);
Wait(750);
ClickHuman(x,y,False);
Wait(750);
FindBitmapToleranceIn(XX,x,y,1,340,515,465,100);
y:=y+5;
x:=x+5;
MoveMouseSmoothEx(x,y,5,6,15,20,20);
GetMousePos(x,y);
Wait(750);
ClickHuman(x,y,True);
Wait(750);
SendKeysHuman('27'+chr(13));
Wait(1000*52); {Fletching short procedure}
Randoms;
Done:=Done+27;
XP:=XP*Done;
End;
End;

Procedure BankOk;
Begin
FindColorSpiral(x,y,Bank,230,111,300,190);
MoveMouseSmoothEx(x,y,5,6,15,20,20);
GetMousePos(x,y);
Sleep(1000);
ClickHuman(x,y,false);
Sleep(1000);
y:=y+40;
MoveMouseSmoothEx(x,y,5,6,15,20,20);
Getmousepos(x,y);
sleep(1000);
clickhuman(x,y,true);
wait(1000);
y:=y-40;
movemousesmoothEx(630,230,5,6,15,20,20);
getmousepos(x,y)
sleep(500);
clickhuman(x,y,false);
sleep(1500);
movemousesmoothex(606,300,5,6,15,20,20); getmousepos(x,y);
sleep(750);
clickhuman(x,y,true);
sleep(1000);
movemousesmoothex(90,70,5,6,15,20,20); getmousepos(x,y);sleep(1000); clickhuman(x,y,false);
sleep(1000);
movemousesmoothex(85,140,5,6,15,20,20);
getmousepos(x,y);
sleep(1000);
clickhuman(x,y,true);
sleep(1000);
CloseBank;
End;

Begin
Setup;
LoadTheBmps;
SetupSquig;
Writeln('');
Writeln(' ABYSSALS FLAWLESS FLETCHER ');
Repeat
FLETCHLONG;
BANKOK;
REPORT;
Until(Logs=Done)
End.

hope it works worked for me =D ….. tell me wat u think needs scar 2.03

need help it doznt click on the knife got any ideas (just started happening) plz help me coz i hav lots of willows to fletch a.s.a.p would b great thx =)

Its an old script…
Does it even work? Fletching is updated-when bolts and crossbows came-coordinates are changed
Where did u get that script? or should i say leeched? :eek:
Haha nice try :D

Its 2 years old.. :o

no i didnt leech its my friends and he seid i could post it =)

dont use scar 2.03! try 3.12c
also, use scar tags… as for the script, looks good for a first script if you wrote it but you didnt. it uses very very old procedures. and also if your gunna update it or anything, use dtms for the knife and log finding.

Yeah, this script is very outdated. I suggest no one use it, unless they enjoy wasting time.