the original one or the one I posted (Football, thought it up) a few pages/posts earlierSCAR Code:OpenBankGlass('veb', False, False);
Printable View
the original one or the one I posted (Football, thought it up) a few pages/posts earlierSCAR Code:OpenBankGlass('veb', False, False);
This is one of my best runs. I can't get it to run very long because i keep getting unsolvable randoms every 18 loads or so.Code:==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 21 Minutes and 59 Seconds
Gained 29754 Exp
Fletched 513 maple Longbows(u)
Did 19 Loads
Performed Anti Ban 21 Times
==========================================
Error 1 |Logged Out While Fletching?| Fatel = True
Please Report The Above ERrors :D
Successfully executed
Very nice script though, i will use some more later.
Edit: I didn't notice it said maple longbows, it should be willows.
either im stupid or the player form is missing..
that means your flagged it would be advisable to stop autoing for a week or soQuote:
Originally Posted by Illkillutill
you can try pc bank
edit:
yes you are stupid :D
the form is one line 60 something i can see it
ah already found it
pressed start n form came up
but nog i get an error :\
[Runtime Error] : Exception: Range check error in line 547 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Text.scar
when exactly did that error come up
ie
when fletching
when banking
before it started ;\Quote:
Originally Posted by KoKouKo
i got a problem.....
I start it up and get that form thing.
When i started it with a knife in inv it opend bank and deposed it and logged out.
And it says couldnt find magic logs when they r in sq nr1 in bank.
Then i tried with both knife and logs didnt work, same thing.
I Also tried with nothing when the logs werre sq nr1 and knife nr2 and it logged out. Whats wrong?
And when i start it it sumtimes say, error bla bla bla, "math"
please type out your words fully and completely as it makes them easier to read and your full post easier to understand.
Magic logs were updated a while ago yet the script wasnt which would explain your problems.
There might be a problem with SRL's Player Form as FindTextTpa isn't in the script. That I don't think many people can help you with.
Line 687: [Error] (14972:41): Invalid number of parameters in script C:\Documents and Settings\dghdg\Desktop\UltimateFletcher[.7].scar
n e one know why this is?
what do i use for this script? scar 3.15 and srl 14? cuz i havent been on in ages and before when there was scar 3.13 and 3.14 they always said to use 3.12 c. so im confused.
Next time you get one of these errors;Quote:
Originally Posted by permy
1) WRITE OUT ANY ITS THE SAME AMOUNT OF TYPING AS "N E" GOD
2) Write out the line and the two lines surrounding the line
Change your SRL back a revision, if you people started reading you would know they changed "FindNpcChatText" into "FindNpcChatTextCustom" and made one of the parameters an array. I also posted about this a few pages up, READ BEFORE YOU POST. It stops you from looking like a ____ing _____ (be creative :D)
Don't use SCAR 3.12 anymore or SCAR 3.13 either
This script works with SCAR 3.13, 3.14 and 3.15
The newer revisions of SRL will not work with SCAR 3.12
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 34 Minutes and 47 Seconds
Gained 60750 Exp
Fletched 810 yew Longbows(u)
Did 30 Loads
Performed Anti Ban 39 Times
Responded 8 Times
==========================================
[Runtime Error] : Out Of Range in line 577 in script C:\Program Files\SCAR 3.15\Scripts\UltimateFletcher[.7].scar
not bad but i dont know what went wrong
also what are the best settings for sleep and respond and everything?
Once again a sad little child who will not read... tsk, tsk.Quote:
Originally Posted by runner732
Myles posted a fix on an earlier post, or just change the auto-responder off.
I think you just change the line to thisthats just my guess.SCAR Code:TypeSend(Responce[High(Responce]);
my apologies for not going through 23 pages of posts in case there *might* be a clue that i'm missing
Any1 have idea on when he updates Magic logs color?
Does yew logs work?
Becouse i still have that problem
its going to be a long wait football left last week so its going to be a long one month and one week.Quote:
Away at a shity camp :mad: i visit every 6 w33x
im letting myles fix bugs in my fletcher while im gone
yew logs still work its just that mages were updated
try yohojos dtm tut http://www.villavu.com/forum/showthread.php?t=564 ;)
love this script, from 70 to 90 in a week =)
it doesnt works with smart @ me. He opened and then he does nothing.
Smart hasn't worked on this script in a while I think...
alright, here is a much better run.
Edit: I agree, i will stop autoing for a few days, or weeks, idk :PCode:=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 12 Hours, 15 Minutes and 11 Seconds
Gained 556821 Exp
Fletched 13581 willow Longbows(u)
Did 503 Loads
Performed Anti Ban 744 Times
Gained 4 Levels
Slepted 92 Times
==========================================
hmm, it works for me, but i still have some problems running it. i enter the info smart asks me, it logs in all right, opens bank, puts pin. searches for the yew logs, doesnt find anything, and logs out. after logged out, it keeps on "Existing User", then Username, and then password, without writing anything in them.
what am i doing wrong? do i need to have the logs in some specific place or something ease its job? im using pc bank btw.
Replace your pc thing with the varrock one, does same thing, and opens it better than your custom function. VEB instead of ur custom pc
EDIT: soz this has been brought up apparently *forgive me for not reading all bloody 24 pages of ur posts
EDIT:: i tweaked mine anyways :p i do that to basically all myscripts :p most scripts there are just a few thigns it needs or that i dont like.
@ everybody whining about SMART, they changed the prefixes, nothing to do with this script
logs should be at the top of your bank
i start and i just logs me out. :(
Do you get an error message?
edit:
I'm fast aren't I?
Nope, nothing. well this is the logg...
New client targeted
Successfully compiled (1232 ms)
SRL Compiled in 16 msec
Rarw
"my username"
Creating the NickTPA.
blah
16
blah
16
blah
15
blah
16
blah
15
Enter your username and password
Enter your username and password
well not bad :rolleyes:Quote:
Originally Posted by KoKouKo
EDIT. ha! you werent that fast now :P
My smart works just fine with this script.
Make sure you have UseSmart = True and that you remove that two "//" at beginning of the script where it includes smart ;).
everytime i run this script it runs for about 20-30 mins then this error always comes up
==========================================
-§ Any Longbow Stringer By: FootBalljds §-
- Thanks SRL Team!!! -
==========================================
Been Making Bows For You For
21 Minutes and 11 Seconds
Gained 33600 Exp
Strung 448 Yew Longbows
Did 32 Loads
Performed 25 AntiBans
==========================================
172
156
172
172
204
Error, please report this! Opening Bank Error
No More Active Players
Terminating
==========================================
-§ Any Longbow Stringer By: FootBalljds §-
- Thanks SRL Team!!! -
==========================================
Been Making Bows For You For
21 Minutes and 25 Seconds
Gained 33600 Exp
Strung 448 Yew Longbows
Did 32 Loads
Performed 25 AntiBans
==========================================
Error 0Opening Bank Error| Fatel = True
Please Report The Above ERrors
Successfully executed
i dont know why or what but it always does so cud u plz tell me wats wrong
thanks
You are posting in the wrong thread. This is his fletcher, not stringer.
nothing changed... it logs in, changes the camera position, and logs out. then it just clicks "Existing User" ---> "Username" ---> "Password" ---> "Log in" ---> doesnt works because it didnt write anything in username or pass, it just clicked and went on.. :cartman: and then it repeats the whole thing again.Quote:
Originally Posted by Illkillutill
EDIT. sundeep wrong thread. go and post your problem here http://www.villavu.com/forum/showthread.php?t=23779
but i get the same error with the fletcher anyway
@ Cazabacca
You are using PC bank, don't. or use the script further down in this post.
@ sundeep
Telling from that error your bank opening is failing, so it is deactivating your player.
For both of you I recommend this script, I have change Football's homemade banking thing to "OpenBankGlass('veb', False, False)" and changed "OpenBankFast" tp "OpenBankQuiet" (if anybody wants to know) both these systems are more reliable and can even find the bank within one try.
VERY IMPORTANT!
For best results turn your public chat to hide.
SCAR Code:program UltimateFletcher;
//{.include srl/srl/misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/misc/Users.scar}
{=========================================================================]
[ NAME : Ultimate Fletcher ]
[ WRITER : Footballjds ]
[ CATEGORY : Fletching ]
[ DESCRIPTION : Fletches Longbows and banks em ]
[ USAGE : To Raise Your Fletching Level ]
[ AUTOCOLOR : Yes ]
[ CONTACT : Post on t3h forumz or PM Footballjds2000 on AIM ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape With Low Detail, Very Bright. ]
[ 2. Set your Screen To 32 bit TRUE color. ]
[ 3. Position Players In Bank ]
[ 4. Drag The Cross Hair Over Runescape, Hit Play, And Enjoy! ]
[=========================================================================}
{Banks are:
*******************************************************************************
'akb' = Al Kharid | 'lb' = Lumbridge | 'veb' = Varrock East | 'vwb' = Varrock West
'feb' = Falador East | 'fwb' = Falador West | 'db' = Draynor | 'eb' = Edgeville Bank
'pc' = pest control
*******************************************************************************}
{Logs are: 'normal' | 'oak' | 'willow' | 'maple' | 'yew' | 'magic'}
const
UseSmart = False; //Use Smart?
MBX1 = 21;
MBY1 = 58;
MBX2 = 467;
MBY2 = 287;
var
KnifeDTM, Log, bows, LogClr, x, y, Loads, Sleepy, LevelsGained, EXPFactor, Responded, rspnce,
LRT, TimesSleepted, AntiBanned : integer;
Doned : boolean;
WhatBank, bow, logs : string;
box : TBox;
Errorses, Errorses2 : array of string;
////////////////////////////////////////////////////////////////////////////////
//[]PLAYER SETUP[]\\
procedure PlayerSetup;
var LBU, SBU, MagicLog, normLogs : string;
begin
LBU := '78DA63EC676060E862400175E53A0CBF80342' +
'310FF0702C63E4C3510591809A42712A1663A90984940CD342031' +
'9D08353308A89949580D00AF0E0E34';
SBU := '78DA637466626078C68002CA02F919C480342' +
'310FF07024613A09A370C6880118904D2BE40353708A8F106AA79' +
'4C408D1D50CD6B026A02806A6EE1570300E3880BF5';
MagicLog := '78DA635CC0C4C0F08E0105FCFEB6824103483' +
'302F17F20609C0C54F394010D302291407A1250CD57026AFA30ED' +
'C250B38608352B806A9E1150331FA8E621013533806A1E1150B30' +
'8A8E61B7E35005DD814AD';
NormLogs := '78DA639CC9C4C0F088010514FAF2318832323' +
'00011C37F2060EC06AA79CC800618914820DD0154F386809A5940' +
'35EF08A8590254F38A809AC940351FF0AB0100D0AD0DF2'
SRLPlayerForm(True, ['Use Sleeps', 'Use Responder', 'Longbows'],
['Loads', 'Sleep How Often[mins]', 'How Long To Sleep[mins]'],
['Which Bank', 'Bank Pin[if any]', 'Type Of Logs', 'SRL ID', 'SRL PASSWORD'], []);
WhatBank := players[0].Strings[0];
case Players[0].Strings[2] of
'normal' : EXPFactor := 10;
'oak' : EXPFactor := 25;
'willow' : EXPFactor := 41;
'maple' : EXPFactor := 58;
'yew' : EXPFactor := 75;
'magic' : EXPFactor := 91;
else EXPFactor := 91;
end;
if EXPFactor = 91 then
begin
logs := MagicLog;
if Players[0].Booleans[2] = false then
begin
bow := SBU;
Box := IntToBox(106, 393, 197, 450);
end else
begin
bow := LBU;
Box := IntToBox(357, 392, 408, 444);
end;
end else
begin
logs := NormLogs;
if EXPFactor = 10 then
begin
if (Players[0].Booleans[2] = false) then
begin
bow := SBU;
Box := IntToBox(170, 382, 223, 442)
end else
begin
bow := LBU;
Box := IntToBox(298, 383, 339, 446);
end;
end else if Players[0].Booleans[2] then
begin
bow := LBU;
Box := IntToBox(215, 384, 300, 441);
end else
begin
bow := SBU;
Box := IntToBox(55, 396, 146, 432);
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure StatusReport(What, SecondWhat : string);
begin
Status(What + ' --- ' + SecondWhat + ' /been running for ' + TimeRunning + ' \');
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure Setup;
begin
if (not(LoggedIn)) Then
EXIT;
StatusReport('Setting Up PlayerFor Autoing', 'Just Logged In, Waiting 4 seconds');
wait(2000 + random(2000));
GameTab(4);
SetChat('Off', 2);
wait(189+random(90));
SetAngle(True);
MakeCompass('N');
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure Error(what : string; fatel : boolean);
begin
SetArrayLength(Errorses2, GetArrayLength(Errorses2) + 1);
CloseWindow;
if fatel then
begin
SetArrayLength(Errorses2, GetArrayLength(Errorses2) - 1);
SetArrayLength(Errorses, GetArrayLength(Errorses) + 1);
Errorses[GetArrayLength(Errorses) - 1] := what + '| Fatel = True';
Players[CurrentPlayer].Active := False;
LogOut;
MarkTime(Sleepy);
end else Errorses2[GetArrayLength(Errorses2) - 1] := what + '| Fatel = False';
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure MouseBox2(bx : TBox; n1 : integer);
begin
MouseBox(bx.x1, bx.y1, bx.x2, bx.y2, n1);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure LoadDTMS(WhichDTM : string);
begin
case WhichDTM of
'knife' : KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104D414' +
'11560300CA4A0963');
'log' : Log := DTMFromString(Logs);
'bow' : bows := DTMFromString(bow);
'inv' : begin
Log := DTMFromString(Logs);
KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104D414' +
'11560300CA4A0963');
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure FreeDTMS(WhichDTM : string);
begin
case WhichDTM of
'knife' : FreeDTM(knifeDTM);
'log' : FreeDTM(log);
'bows' : FreeDTM(bows);
'inv' : begin
FreeDTM(log);
FreeDTM(knifeDTM);
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function CountDTM(Area, WhatDTM : string; Stack, LoadThem : boolean) : integer;
var
DTM : integer;
begin
if LoadThem then LoadDTMS(WhatDTM);
case WhatDTM of
'knife' : DTM := knifeDTM;
'log' : DTM := log;
'bow' : DTM := bows;
end;
if Stack then Result := AmountDTM(Area, DTM)
else Result := CountItemsDtm(Area, DTM);
if LoadThem then FreeDTMS(WhatDTM);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function ColorDTM(DTMd : string; var color : integer) : boolean;
var
DTM : integer;
begin
case DTMd of
'bow' : DTM := bows;
'log' : DTM := log;
end;
if not(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2)) then EXIT;
color := GetColor(x, y);
Result := True;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function IsOption(txt: string): Boolean;
var
x1, y1, x2, y2, LeftCorner, RightCorner, x, y: Integer;
begin
Result := False;
LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
'411A600064715CEA914500CACE13F0');
RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
'C5200D30002E35F8C501C9C013F0');
if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
begin
FreeBitmap(LeftCorner);
FreeBitmap(RightCorner);
if (FindText(x, y, txt, upchars, x1, y1, x2, 502)) then
begin
Result := True;
end
else
begin
MMouse(x1 - 50, y1 - 50, 40, y2-y1);
Wait(200 + Random(100));
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function ClickItem(Item, OffSetX, OfSetY : integer; left, WaitColor : boolean) : boolean;
var
TB: TBox;
i : integer;
begin
if not(ExistsItem(Item)) then
begin
Writeln('Error, There is nothing in inventory slot ' + IntToStr(Item));
EXIT;
end;
GetInvItemBounds(Item, TB);
for I := 0 to 5 do
begin
if WaitColor and FindColor(x, y, 16777215, MIX1, MIY1, MIX2, MIY2) then break;
Mouse((TB.x1 + TB.x2)/2, (TB.y1 + TB.y2)/2, OffSetX, OfSetY, left);
Wait(75 + random(20));
if not(WaitColor) then break;
end;
Result := (I <= 4);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function UseItemWithItem2(Item1, Item2 : integer; left : boolean) : boolean;
var
I : integer;
begin
Result := False;
I := 0;
if (CountDTM('Inv', 'bow', false, True) = 27) or
(CountDTM('Inv', 'log', false, True) = 0) then
begin
Doned := True;
EXIT;
end;
if left then ClickItem(Item1, 7, 7, True, True)else
begin
ClickItem(Item1, 7, 7, False, True);
while not(ChooseOption('se')) and not(I >=400) do
begin
wait(55 + random(23));
inc(I);
end;
if I >= 400 then EXIT;
I := 0;
end;
wait(224 + random(242));
if left then
begin
Result := ClickItem(Item2, 5, 5, True, False);
end else
begin
ClickItem(Item2, 7, 7, False, False);
while not(ChooseOption('se')) and not(I >=400) do
begin
wait(55 + random(23));
inc(I);
end;
Result := (I < 400);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function OpenPCBank : boolean;
var
DTM, x, y, time : integer;
angle : extended;
begin
MakeCompass('n');
DTM := DTMFromString('78DA63B4606460B8CB8002EA8AC3184480342' +
'394CF680F64DDC1ADE63F1030C60059FF207222503587574B3288' +
'2199030058350BF7');
MarkTime(time);
if not findDTMRotated(DTM, x, y, 224, 162, 452, 278, radians(30), Radians(30), 0.05, angle)then
begin
Writeln('blah');
Writeln(IntToStr(TimeFromMark(time)));
FreeDTM(DTM);
EXIT;
end;
FreeDTM(DTM);
Writeln(IntToStr(TimeFromMark(time)));
MMouse(x, y, 3, 4);
wait(50);
if not(IsUpTextMultiCustom(['ooth', 'ank', 'k bo', 'se Ba'])) then EXIT;
Mouse(x, y, 4, 4, False);
wait(350 + random(250));
ChooseOption('quickly');
wait(400);
FFlag(0);
wait(500 + random(240));
Result := BankScreen;
MMouse(MSCX, MSCY, 120, 120);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function OpenUpBank : boolean;
Var
Tries : Integer;
begin
Result := False;
if not (LoggedIn) then Error('Not Logged In When Opening Bank', true);
if (FindNormalRandoms) then SRLRandomsReport;
StatusReport('Opening The Bank:' , WhatBank);
repeat
if WhatBank = 'pc' then OpenBankGlass('veb', false, false)
else OpenBankQuiet(WhatBank);
wait(250 + random(140));
if BankScreen or PinScreen then break;
Tries := Tries + 1;
FindNormalRandoms;
until (Tries >= 5);
If Tries > 4 Then
begin
Error('Opening Bank Error', True);
EXIT;
end;
Tries := 0;
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[1]);
FixBank;
Result := BankScreen;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function WithdrawFromBank : boolean;
var
Waited, TempX, TempY : integer;
begin
Result := False;
if not(BankScreen) then if not OpenUpBank then
begin
Error('Bank Screen Not Open.', False);
EXIT;
end;
StatusReport('Banking' , 'Starting load ' + IntToStr(Loads + 1));
wait(200+random(50));
Deposit(2, 28, 2);
LoadDTMS('log');
if not(FindDTM(log, TempX, TempY, MBX1, MBY1, MBX2, MBY2)) then
begin
Error('No Logs Found In Bank!', True);
EXIT;
end;
FreeDTMS('log');
Mouse(TempX, TempY, 10, 10, False);
GetMousePos(x, y);
wait(223 + random(145));
if not(IsOption('ogs')) then
begin
repeat
Mouse(x, y, 2, 2, False);
wait(240 + random(200));
if(IsOption('ogs')) and ChooseOption('All') then BREAK;
inc(Waited);
until(Waited >= 5);
if Waited >= 5 then
begin
Error('Error, Withdrawing From Bank', False);
EXIT;
end;
end else ChooseOption('All');
Waited := 0;
wait(150+random(76));
for Waited := 0 to 11 do
begin
if BankScreen then CloseBank else BREAK;
wait(124 + random(123));
end;
result := True;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function FletchThem(RRange1, RRange2 : integer) : boolean;
var
Tries, Item, I : integer;
begin
Result := False;
StatusReport('Fletching load', IntToStr(loads + 1));
GameTab(4);
LoadDTMS('log');
repeat
wait(50+random(50));
inc(Tries);
if (CountDTM('Inv', 'bow', False, True) = 27) then
begin
Result := True;
EXIT;
end;
until FindDTM(log, x, y, MIX1, MIY1, MIX2, MIY2) or (Tries >= 300);
if (Tries >= 300) then
begin
FreeDTMS('log');
Error('No Logs Found In Inventory', False);
EXIT;
end;
ColorDTM('log', LogClr);
FreeDTMS('log');
for I := 0 to 2 do
begin
if FindColor(x, y, 128, 159, 369, 159, 369) then break;
Item := RandomRange(RRange1, RRange2);
if random(20) > 1 then UseItemWithItem2(1, Item, True) else
UseItemWithItem2(1, Item, False);
wait(65+random(34));
if doned then
begin
Result := True;
EXIT;
end;
repeat
wait(50 + random(50));
Tries := Tries + 1;
until(FindColor(x, y, 128, 159, 369, 159, 369)) Or (Tries >= 400);
if not(Tries >= 400) then
begin
I := 0;
break;
end;
end;
if (I >= 2) then
begin
Error('Error While Waiting For Fletch Bows Option', False);
EXIT;
end;
MouseBox2(box, 2);
wait(200+random(100));
if not ChooseOption('X') then EXIT;
repeat
wait(20+random(30));
inc(I);
until FindColor (x, y, 8388608, 259, 429, 259, 429) or (I >= 400);
if I >= 400 then
begin
Error('Error While Waiting To Type In X Amount', False);
EXIT;
end;
wait(random(200));
TypeSend(IntToStr(RandomRange(100, 1001)));
wait(250+random(600));
Result := not(FindColor(x, y, 8388608, 233, 424, 284, 435));
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function LogoutSleepLogin(SleepTimeInMin : integer): boolean;
var
RandSleepTime : integer;
begin
Result := False;
RandSleepTime := random(60000);
if (Logout) then
begin
StatusReport('Sleeping...', 'ZZZZZZzzz.....');
Writeln('Logged Out');
Writeln('Waiting: ' + (IntToStr(SleepTimeInMin)) + 'Minutes Plus Random: ' + (IntToStr(RandSleepTime)) + ' mills');
wait(60000 * SleepTimeInMin + RandSleepTime);
LogInPlayer;
Result := LoggedIn;
if result then inc(TimesSleepted);
end else
begin
Writeln('Error Occured While Logging Out, Script Terminated');
TerminateScript;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure LevelRespond;
var
Chats : TStringArray;
I, L: Integer;
begin
if not (Players[CurrentPlayer].Booleans[1]) then EXIT;
Chats := ['tching l', 'hing lv', 'hing le', 'tchin lvl', 'etch lv'];
for I := 0 to 4 do
begin
if InChat(Chats[i]) then
begin
inc(Responded);
L := GetSkillInfo('fletching', False);
case Random(9) of
0: TypeSend(IntToStr(L));
1: TypeSend('Me '+IntToStr(L));
2: TypeSend(IntToStr(L) + ' here');
3: TypeSend('...'+IntToStr(L));
4: TypeSend('Im ' + IntToStr(L));
5: TypeSend('only ' + IntToStr(L));
6: TypeSend('Pfft, only ' + IntToStr(L));
7: begin
TypeSend('onky ' + IntToStr(L));
TypeSend('only*');
end;
8: TypeSend('My Fletching is only ' + IntToStr(L) + ' ...lol');
end;
wait(1000 + Random(500));
Exit;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure Responds;
Var
Chats, Responce : TStringArray;
I : Integer;
begin
if not (Players[CurrentPlayer].Booleans[1]) then EXIT;
Chats := ['respond', 'hi', 'auto'];
Responce := ['why, "Hello there", :p', 'hello loser :D', 'gah, shut up?'];
for I := 0 to 2 do
begin
if InChat(Chats[i]) then
begin
inc(Responded);
case Random(4) of
0: TypeSend('hi?');
1: TypeSend('OK...');
2: TypeSend('yes...?');
3: begin
TypeSend(Responce[rspnce]);
inc(rspnce);
end;
end;
wait(1000 + Random(500));
Exit;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBanRandom;
begin
inc(AntiBanned)
case random(700) of
1, 2, 3: begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
KeyDown(VK_Up);
Wait(500 + random(1000));
KeyUp(VK_Up);
MakeCompass('n');
end;
5, 6, 7: begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
MakeCompass('n');
end;
9, 10, 11: begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
MakeCompass('n');
end;
13, 14, 15: begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
MakeCompass('n');
end;
17: HoverSkill('random', False);
19, 20, 21, 22: PickUpMouse;
24: AlmostLogout;
26: BoredHuman;
28, 29, 30, 31: HoverSkill('fletching', False);
else AntiBanned := AntiBanned - 1;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure ProgressReport(clear : boolean);
Begin
if clear then ClearDebug;
Writeln('==========================================');
Writeln('=§ Ultimate Fletcher By: FootBalljds §=');
Writeln('==========================================');
Writeln('Been Fletching For: ' + TimeRunning);
Writeln('Gained ' + IntToStr(Loads*27*EXPFactor) + ' Exp');
Writeln('Fletched ' + IntToStr(Loads*27) + ' ' + Players[0].Strings[2] + ' Longbows(u)');
Writeln('Did ' + IntToStr(Loads) + ' Loads');
if AntiBanned > 0 then
Writeln('Performed Anti Ban ' + IntToStr(AntiBanned) + ' Times');
if (LevelsGained > 0) then
Writeln('Gained ' + IntToStr(LevelsGained) + ' Levels');
if (Responded > 0 ) then
Writeln('Responded ' + IntToStr(Responded) + ' Times');
if (TimesSleepted > 0) then
Writeln('Slepted ' + IntToStr(TimesSleepted) + ' Times');
Writeln('==========================================');
If LRT >= 301000 Then
Begin
SendSRLReport;
MarkTime(LRT);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function WaitWhileFletching : boolean;
var
LastTime, utoh : integer;
ToLong : boolean;
begin
repeat
LastTime := CountItemsColor('Inv', LogClr, 0);
StatusReport('Fletching load ' + intToStr(loads + 1) , IntToStr(LastTime) + ' Left To Fletch');
wait(800 + Random(250));
AntiBanRandom;
LevelRespond;
Responds;
if not(LastTime > CountItemsColor('Inv', LogClr, 0)) then Inc(utoh)
else utoh := 0;
if utoh >= 4 then ToLong := True;
if ToLong then
begin
ToLong := False;
utoh := 0;
if FindNpcChatText('letching', nothing) then
begin
inc(LevelsGained);
ClickToContinue;
wait(200+random(100));
clickToContinue;
end;
FletchThem(28, 29);
end;
if FindFight then
begin
StatusReport('Found Fight' , 'Runing North From it!');
RunAway('N', True, 1, 5000);
SRLRandomsReport;
wait(200+random(100));
FletchThem(28, 29);
end;
if FindNormalRandoms then
begin
SRLRandomsReport;
wait(200+random(100));
FletchThem(28, 29);
end;
until (CountItemsColor('inventory', LogClr, 0) = 0) or (not(LoggedIn));
if (not(LoggedIn)) then Error('Logged Out While Fletching?', True);
Loads := Loads + 1;
StatusReport('Just Compleated Load' , IntToStr(Loads));
ReportVars[0] := ReportVars[0] + 27;
ReportVars[1] := ReportVars[1] + (EXPFactor * 27);
ProgressReport(True);
if (TimeFromMark(Sleepy) >= (Players[CurrentPlayer].Integers[1] * 60000 + Random(60000))) and (not(Loads >= Players[CurrentPlayer].Integers[0]))
and Players[CurrentPlayer].Booleans[0] then
begin
LogoutSleepLogin(Players[CurrentPlayer].Integers[2]);
MarkTime(Sleepy);
end;
Result := True;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure ScriptTerminate;
var
I : integer;
begin
SendSRLReport;
ProgressReport(False);
if GetArrayLength(Errorses) > 0 then
begin
for I := 0 to GetArrayLength(Errorses) - 1 do
Writeln('Error ' + IntToStr(i + 1) + ' |' + Errorses[i]);
Writeln('Please Report The Above ERrors :D');
end;
if GetArrayLength(Errorses2) > 0 then
begin
for I := 0 to GetArrayLength(Errorses2) - 1 do
AddToReport('Error ' + IntToStr(i) + ' |' + Errorses2[i]);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure MainLoop;
begin
if not LoggedIn then
begin
Writeln('Rarw');
LoginPlayer;
if not LoggedIn then TERMINATESCRIPT;
Setup;
end;
repeat
MouseSpeed := 17 + random(2) - Random(2);
if (not(LoggedIn)) or (Players[CurrentPlayer].Active = false) then
begin
CurrentPlayer := 0;
Players[CurrentPlayer].Active := False;
while Players[CurrentPlayer].Active = False do
begin
CurrentPlayer := CurrentPlayer + 1;
if CurrentPlayer > HowManyPlayers - 1 then
begin
Writeln('No More Active Players');
Writeln('Terminating');
TerminateScript;
end;
end;
LoginPlayer;
Setup;
end;
if (OpenUpBank) then
begin
wait(100+random(50));
if (WithdrawFromBank) then
begin
wait(100+random(50));
if FletchThem(15, 29) then WaitWhileFletching;
end;
end;
until (Loads >= Players[CurrentPlayer].Integers[0]);
Writeln('Finished All The Loads For Player' + IntToStr(CurrentPlayer));
If LoggedIn Then
begin
LogOut;
end;
Players[CurrentPlayer].Active := False;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure SmartySetup;
begin
if not UseSmart then EXIT;
SmartSetup('hel6', false, True);
wait(10000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
end;
////////////////////////////////////////////////////////////////////////////////
begin
SetupSRL;
SmartySetup;
PlayerSetup;
ScriptID := '616';
SRLID := Players[0].Strings[3];
SRLPassword := Players[0].Strings[4]; if (SRLID = '') or (SRLPassword = '') then begin SRLID := '3546'; SRLPassword := 'jesse123123'; end;
wait(300+random(400));
ActivateClient;
wait(600+random(400));
MarkTime(Sleepy);
MarkTime(LRT);
while(true) do MainLoop;
end.
If anybody has trouble with banking you should use this version and if anybody else has trouble with banking could you kindly direct them to this post, until Football gets back and he maybe does something about the bank opening.
Invalid world number or corrupted world list. Please review your settings
im sorry but your setup player form sucks balls
@ Goldrush
The world problem is not anybody's fault, update your includes to SRL 4 Rev 15, if you get any errors post them and I'll or somebody else will probably fix them.
The form is SRL's Player Form, the work of Sumilion (did I spell it right?) if you have a problem take it up with him, using SRL's Player Form is a much simpler way for scripters to make a player array and is for the most part easier for SRL users to maintain many armies and that was what it was intended for (even though this script IS NOT multi-player).
i used the aboce script wat kokouko posted it worked alrite
Been Fletching For: 1 Hours, 15 Minutes and 35 Seconds
Gained 32400 Exp
Fletched 432 yew Longbows(u)
Did 16 Loads
Performed Anti Ban 24 Times
==========================================
Successfully executed
but wen i looked at it after a while it was logged out and the mouse was hidden?
so i had to start it again but y did that happen
here is my most recent proggy. :D
I like it :DCode:=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 13 Hours, 17 Minutes and 49 Seconds
Gained 621027 Exp
Fletched 15147 willow Longbows(u)
Did 561 Loads
Performed Anti Ban 748 Times
Gained 2 Levels
Slepted 100 Times
==========================================
Error 1 |Logged Out While Fletching?| Fatel = True
how was it hidden?Quote:
Originally Posted by sundeep125
A fast question, has he fixed the mage color?
Cheers
No and he won't for a while.