SCAR Code:
{NEG's FLETCHER BETA }
///////////////////////////
{
Knife in first inventory slot.
Logs in first bank slot
Only does longbow so far,
will add shortbows when i get members again.
Setup Lines 24 - 26
Setup Players Lines 37+
}
program neGFletcher;
{.include SRL/SRL.scar}
////////////////////////////////////////////
const //
BankBooth = 7703191;//Bank Booth Colour ///
RunAwayDir = 'S';
LogsToDo = 500;
var
LogsDone:Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
//////////////////////Runaway Procedure
Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
end;
//////////////////////Randoms Procedure
Procedure Randoms;
begin
FindTalk;
wait(10)
FindNormalRandoms;
if(FindFight)then
RunAway;
end;
///////////Banking Procedure
//I got most of this from someones
//script ages ago then edited it.
//If this looks similar to yours
//let me now and Ill credit you
Procedure Bank;
var bx,by:Integer;
begin
Randoms;
repeat
FindObj(bx,by,'Bank',BankBooth,10);
Wait(100 + Random(200));
until (IsUpText('Use Bank'));
if(IsUpText('Use Bank'))then
begin
GetMousePos(bx, by);
Mouse(bx,by,10,10,false);
wait(100);
if(ClickOption('quickly', 1))then
begin
repeat
Wait(500);
until(BankScreen);
end
else
begin
Bank;
end;
FixBank;
Deposit(2,28,2);
Withdraw(1, 1, 0);
repeat
CloseBank;
Wait(500);
until(BankScreen = False);
end;
end;
//////////////////////Fleching Procedure
Procedure Fletch;
var Number:Integer;
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(2);
Randoms;
Wait(random(500));
end;
begin
MMouse(244,407,10,10);
if (IsUpText('Make')) then
begin
Mouse(244,407,10,10,false);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end
else Fletch;
end;
repeat
wait(500);
Randoms;
if (FindNpcChatText('continue')) then //Fix to the level-up Bug
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(28);
Wait(random(500));
end;
begin
Mouse(244,407,10,10,false);
wait(300);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end;
end;
Randoms;
until(GetColor(717,447)=65536);
if (GetColor(717,447)=65536) then
LogsDone:= LogsDone+27;
end;
procedure Report;
begin
ClearDebug;
SRLRandomsReport;
WriteLn('////////////////////////////////////////////')
WriteLn(' neGs Fletcher BETA ')
WriteLn(' ')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Logs Cut: ' + IntToStr (LogsDone) + '')
WriteLn(' Approx. XP Gained: ' + IntToStr (LogsDone*41) + '')
WriteLn('//////////////////////////////////////////// ')
end;
////////////////MainSetup
var
Newline: String;
begin
SetupSRL;
Newline:=Newline;
ActivateClient;
DeclarePlayers;
begin
If (Not(LoggedIn)) then
begin
Status('Logging In');
Loginplayer;
HighestAngle;
end;
end;
repeat//////////////main loop
Bank;
Fletch;
Report;
until(LogsDone >= LogsToDo);
if (LogsDone >= LogsToDo)then
begin
Logout;
TerminateScript;
end;
end.
SCAR Code:
///////////////////Bow Stringer//////////////////////\
////////////////////////You must try this//////////////////////////\\
/////////////////////////Its not for sale//////////////////////////\\\
//////// 1- Set up lines 32-35. /////////
//////// 2- Choose how many bows you need to do in line 19./////////
//////// 3- Put the screen resolutin to 1024,768. /////////
//////// 4- Put the bows (u) on the second slot in your bank. /////////
//////// 5- Put the bow strings on the first slot in your bank. /////////
////////////////////////////////////////////////////////////////////
////It works best in seer's village bank for me////
//////////////////////////Now go and auto!!!////////////////////////////////
program Blood1995SStringer;
{.include SRL/SRL.scar}
////////////////////////////////////////////
const
RunAwayDir = 'S';
bowstodo = 405; //How many bows you need to and +17, examp:1000bows = 1017bowstodo
Player0 = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
{///////////////////set up your player//////////////////////}
Players[0].Name := '';// your user name
Players[0].Pass := '';//your password
Players[0].Nick := '';// your nick name
Players[0].Active := True;
end;
var xwhite : Integer;
xyellow : Integer;
allwhite : Integer;
allyellow : Integer;
bowstrainged : integer;
////////////////////////////dont touch please/////////////////////////////
procedure Loadingbitmap;
begin
xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');
xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
'1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');
allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
'400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');
allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
'9');
end;
Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
end;
Procedure Randoms;
begin
FindTalk;
wait(10)
FindNormalRandoms;
if(FindFight)then
RunAway;
end;
procedure Bank;
var
x, y, fs, fs2 : Integer;
begin
repeat
randoms;
Flag;
if (FindObj(x, y, 'booth', 607324, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'booth', 7243412, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'booth', 6324369, 10)) then
Mouse(x, y, 4, 4, False);
Wait(250+random(20));
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100+random(20));
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
end;
procedure TakeBowsAndStrings;
begin
FixBank;
wait(2000)
mmouse(98,81,2,2);
wait(500+random(100));
clickmouse(98,81,false);
wait(2000)
findbitmap(xwhite,x,y);
mmouse(x,y,2,2);
findbitmap(xyellow,x,y);
wait(500+random(100));
clickmouse(x,y,true);
wait(500)
wait(1500)
sendkeys('14');
wait(500+random(100));
KeyDown(13);
wait(500+random(100));
mmouse(143,74,2,2);
wait(500+random(100));
clickmouse(140,75,false);
wait(2000)
findbitmap(allwhite,x,y);
mmouse(x,y,2,2);
findbitmap(allyellow,x,y);
wait(500+random(100));
clickmouse(x,y,true);
wait(500+random(100));
movemousesmooth(486,41);
wait(1000+random(100));
clickmouse(486,41,true);
bowstrainged := bowstrainged+14;
end;
procedure SetInvInPos;
begin
wait(100+random(150));
mmouse(587, 228, 2, 2);
wait(113);
holdmouse(587,228,true);
wait(312);
mmouse(675,446,2,2);
wait(500+random(131));
releasemouse(675,446,true);
end;
procedure makefullbows;
begin
wait(100+RANDOM(30)); //1 one.
mmouse(672,445,2,2);
wait(100+random(100));
Clickmouse(672,445,true);
wait(100+RANDOM(100));
mmouse(702,440,2,2);
wait(100+random(10));
clickmouse(702,441,true);
wait(100+random(20));
wait(100+RANDOM(30)); //2 one.
mmouse(672,441,2,2);
wait(100+random(100));
Clickmouse(672,441,true);
wait(100+RANDOM(100));
mmouse(702,442,2,2);
wait(100+random(10));
clickmouse(702,442,true);
wait(100+random(20));
end;
procedure selectinglogbow;
begin
mmouse(254,401,2,2);
wait(1000+random(100));
Clickmouse(254,401,false);
wait(500+random(100));
findbitmap(xwhite,x,y);
mmouse(x,y,2,2);
wait(1000+random(100));
findbitmap(xyellow,x,y);
wait(500+random(100));
Clickmouse(x,y,true);
wait(2000+random(100));
wait(100)
sendkeys('27');
wait(500+random(100));
KeyDown(13);
end;
procedure deposititall;
begin
wait(1500+random(100));
mmouse(626,229,2,2);
wait(1500+random(100));
clickmouse(626,229,false);
wait(1000+random(100));
findbitmap(allwhite,x,y);
mmouse(x,y,2,2);
wait(1500+random(100));
findbitmap(allyellow,x,y);
wait(500+random(100));
mmouse(x,y,2,2);
wait(1500+random(100));
clickmouse(x,y,true);
wait(1500+random(100));
mmouse(485,40,1,1);
wait(1500+random(100));
clickmouse(485,40,true);
wait(200+random(20));
end;
procedure Report;
begin
ClearDebug;
SRLRandomsReport;
WriteLn('////////////////////////////////////////////')
WriteLn(' Blood1995s Bow Stringer ')
WriteLn(' ')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Bows Strang: ' + IntToStr (bowstrainged) + '')
WriteLn(' Approx.Exp.Gained: ' + IntToStr (bowstrainged*75) + '')
WriteLn('//////////////////////////////////////////// ')
end;
begin
setupSRL;
Loadingbitmap;
declareplayers;
CurrentPlayer:= Player0;
activateclient;
loginplayer;
repeat
Bank;
takebowsandstrings;
setinvinpos;
wait(500)
makefullbows;
makefullbows;
makefullbows;
makefullbows;
makefullbows;
makefullbows;
makefullbows;
makefullbows;
wait(1500+random(20));
Bank;
wait(1000+random(20)) ;
deposititall;
wait(1000+random(20));
report;
until (bowstrainged >= bowstodo);
if (bowstrainged >= bowstodo) then
begin
Logout;
TerminateScript;
end;
end.