View Full Version : Ultimate Fletcher
footballjds
02-12-2008, 02:35 PM
:confused: tris?...
EDIT: Dur TRIES lol
EDIT2: Found a mod and terminated.
;)
its done that to me before and I have a 2.7 Ghz dual core, 2Gb ram. and it still does that occasionally using SMART. I think it has a lot to do with smart lagging. :rolleyes: just change priority and it should be fine.
EDIT: shit I didn't realize I was the last to post LOL. merge please?
yeah smart lags alright ;)
no one cares about double post as long as its at least 1 hr in between, so as you don't make it a habbit. ;)
samleiser
02-12-2008, 07:13 PM
ok sorry lol i still cant find out what to change in order for pc bank to work.
what are all the things i need to change in order for it to work completly.Please post what lines these things will be on to help me find it
regards
samleiser:)
footballjds
02-12-2008, 07:47 PM
i pmed you 2 times, and told you, i don't have 1000 years in my life :duh:
find line 306 and change it to if not findDTMRotated(DTM, x, y, 224, 162, 452, 278, radians(30), Radians(30), 0.05, angle)then
also change the tries to 10 like i said in the pm! :mad:
il try to make a new dtm soon ;) the one i have is WAY to dynamic, ;)
samleiser
02-12-2008, 07:57 PM
im sorry to get you annoyed the reason why i keep asking is because i have already done both of the things you have said with no success.in pc bank the script works from newhere from 5 mins to 1.5hours. it just randomlly doesnt find the bank and i get a
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
Successfully executed
ive already done what you said and i dont know what to do now to make the script run flawlessly , i would really like to be able to leave the computer and let the program run but at the moment i cant do that nemore help you could give or would it be possible to send me the completly correct script via msn or something?
regards sam
footballjds
02-12-2008, 08:17 PM
Change the OpenUpBank function to this:
////////////////////////////////////////////////////////////////////////////////
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 OpenPCBank
else OpenBankFast(WhatBank);
wait(250 + random(140));
if BankScreen or PinScreen then break;
Tries := Tries + 1;
FindNormalRandoms;
until (Tries >= 10);
If Tries > 9 Then
begin
if not OpenBankGlass('veb', true, true) then//Yes leave the veb there even though its pc!
begin
Error('Opening Bank Error', True);
EXIT;
end;
end;
Tries := 0;
if PinScreen Then
InPin(Players[CurrentPlayer].Strings[1]);
FixBank;
Result := BankScreen;
end;
////////////////////////////////////////////////////////////////////////////////
Dynamite
02-12-2008, 08:39 PM
lol i worked out if you use this script 9 hours a day doing willow longs, it would take about a month to get 99 from 65
this is such a fast script!
congratz
T ~ M
samleiser
02-12-2008, 08:52 PM
omg i put in the new code and it still doesnt work i keep getting that bank error! would you mind going onto msn and you could pherhaps send me the script with all the probs corrected?
regards sam
radragon16
02-12-2008, 08:57 PM
Dude your probaly lagging like hell and its causing it to mess up. Are you using SMART? computer specs?
samleiser
02-12-2008, 08:59 PM
im not lagging at all i got 2gib ram intel centrino duo.would you mind having a word with me on msn about this if possible?
radragon16
02-12-2008, 09:03 PM
Sorry I have an online midterm to do. ;)
samleiser
02-12-2008, 09:04 PM
ok np well if anyone can give me somehelp or send me a working script for pc bank via msn would be appreciated
i don't know how to get rid of the thing, and also, don't make it random 3 digits (like i said before) most people only do 27-40..
radragon16
02-12-2008, 11:03 PM
make it 27-99 :P that's what works for me
samleiser
02-12-2008, 11:11 PM
do what from 24-40 i dont get that bit can someone explian in detail
KoKouKo
02-12-2008, 11:54 PM
my guess is a range of things for typesend of something w/e, use a if you get lag try using a prev version or lowest detail not smart etc etc
samleiser
02-12-2008, 11:59 PM
guys think i fixed prob =)
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 2 Hours, 33 Minutes and 37 Seconds
Gained 243000 Exp
Fletched 3240 yew Longbows(u)
Did 120 Loads
Performed Anti Ban 148 Times
Gained 1 Levels
Slepted 4 Times
==========================================
Successfully executed
radragon16
02-13-2008, 03:42 AM
im not even gonna ask what you "fixed" lol
OpenHearts
02-13-2008, 01:36 PM
erm. i keep getting this error.
problem: inv is not open.
usualy it goes and clicks on the bag, but now it doesnt. just logs out. =(
'PROBLEM: Inv interface not open' is the actual error that i get.
if it helps, this only started after rs updated the new quest thing, -13/2/08-
footballjds
02-13-2008, 03:11 PM
Sorry I have an online midterm to do. ;)
i think he was referring to me :rolleyes:
ok np well if anyone can give me somehelp or send me a working script for pc bank via msn would be appreciated
dude calm down, i have a life :rolleyes: il get a new bank dtm. ;), just for the record, i hate you samleiser!!! and everyone else who can't script shit, and asks for help 25/8(yes he asks over time also ;)) why don't you learn a few things:? eh?
do what from 24-40 i dont get that bit can someone explian in detail
:D d/w about it they're just goofing around ;)
my guess is a range of things for typesend of something w/e, use a if you get lag try using a prev version or lowest detail not smart etc etc
use lowest detail ALWAYS! scar won't work with high a lot.
guys think i fixed prob =)
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 2 Hours, 33 Minutes and 37 Seconds
Gained 243000 Exp
Fletched 3240 yew Longbows(u)
Did 120 Loads
Performed Anti Ban 148 Times
Gained 1 Levels
Slepted 4 Times
==========================================
Successfully executed
maybe you fixed it if there was a problem, maybe your CPU decided not to shoot up shit ;)
im not even gonna ask what you "fixed" lol
LOL!
erm. i keep getting this error.
problem: inv is not open.
usualy it goes and clicks on the bag, but now it doesnt. just logs out. =(
SRL issue, unless the inv wasn't open :D
'PROBLEM: Inv interface not open' is the actual error that i get.
if it helps, this only started after rs updated the new quest thing, -13/2/08-
Please do not double post :mad:
samleiser
02-13-2008, 03:14 PM
right m8 last night it fixed i think lol! now 2dai i tried it it fletches fine but. when it goes into skill section to check up on like its stats i keep getting an error saying it cant find the logs and messes up. would it be at all possible for you to go on msn and send me a fully working script please errors seem to just keep cropping up
footballjds
02-13-2008, 03:20 PM
no one else is getting errors, sure im on MSN, pm me ;)
EDIT you didn't tell me your msn :duh:
samleiser
02-13-2008, 03:22 PM
m8 i added what i think is ur adress but u dont seem to be online please add
leiser@hotmail.co.uk =)
hey im on msn now mind going on so we can discuss this prob?
footballjds
02-13-2008, 04:58 PM
ported for double post ;)
im on msn also :duh:
samleiser
02-13-2008, 05:01 PM
Quote:
Originally Posted by jebrila
'PROBLEM: Inv interface not open' is the actual error that i get.
if it helps, this only started after rs updated the new quest thing, -13/2/08-
That is the problem! nechance for a fix this new update will affect everyone i think?
Edit:soz about double post wont happen again =)
Dynamite
02-13-2008, 05:20 PM
ported for double post ;)
im on msn also :duh:
you shouldn't of reported, his posts were an hour apart
T ~ M
footballjds
02-13-2008, 05:32 PM
miss read, sorry :(.
about the error, its srl's fault(if the inv IS open)
samleiser
02-13-2008, 05:34 PM
the man have you got ne fixes for the antiban on this fletcher since new quest update?
radragon16
02-13-2008, 08:50 PM
Btw I was talking about MY online midterm haha. Networking Security FTW
~PURESKILLA~
02-13-2008, 08:54 PM
looks like a gr8 script ama try it now and make it do 2k of willows ty =)
samleiser
02-13-2008, 11:40 PM
hey have you come up with a fix to the invo problem due to the recent quest update?
KoKouKo
02-14-2008, 12:09 AM
@ samleiser
its a srl problem
samleiser
02-14-2008, 12:11 AM
so how would you go about fixing it??
anoobis
02-14-2008, 12:34 AM
==========================================
Been Fletching For: 2 Hours, 16 Minutes and 19 Seconds
Gained 178200 Exp
Fletched 2376 yew Longbows(u)
Did 88 Loads
Performed Anti Ban 33 Times
Gained 1 Levels
Slepted 4 Times
==========================================
Works awesome: Only suggestion is one little revision. When the script used hoverskill, it would never go back to inventory tab, so it would just sit, unable to find knife or logs. Other than that awesome job.
footballjds
02-14-2008, 01:01 AM
@ samleiser
its a srl problem
thanks, ;) ++ rep man ;)
so how would you go about fixing it??
learn to script ;), go into faq/TuT theryl be a fix soon enough. with all yall noobs crying shit ;)
==========================================
Been Fletching For: 2 Hours, 16 Minutes and 19 Seconds
Gained 178200 Exp
Fletched 2376 yew Longbows(u)
Did 88 Loads
Performed Anti Ban 33 Times
Gained 1 Levels
Slepted 4 Times
==========================================
Works awesome: Only suggestion is one little revision. When the script used hoverskill, it would never go back to inventory tab, so it would just sit, unable to find knife or logs. Other than that awesome job.
thats SRL's fault :D
KoKouKo
02-14-2008, 03:49 AM
so how would you go about fixing it??
delete the system32 folder on your computer lol :p
footballjds
02-14-2008, 01:49 PM
delete the system32 folder on your computer lol :p
yes, that will fix everything, thanks for a WONDERFUL idea kokouko ;)
EDIT dude i did what you said :rolleyes: and it fuxkin worked !! :rolleyes:
aznpimpsturr
02-14-2008, 03:44 PM
delete the system32 folder on your computer lol :p
Thanks! It works great now...;)
footballjds
02-14-2008, 05:21 PM
Thanks! It works great now...;)
plahahaha, in case someone doesn't know where joking ;), don't delete it :p
ConneX
02-15-2008, 12:43 PM
==========================================
Been Fletching For: 1 Hours, 33 Minutes and 23 Seconds
Gained 131625 Exp
Fletched 1755 yew Longbows(u)
Did 65 Loads
Performed Anti Ban 81 Times
Slepted 6 Times
==========================================
footballjds
02-15-2008, 12:45 PM
==========================================
Been Fletching For: 1 Hours, 33 Minutes and 23 Seconds
Gained 131625 Exp
Fletched 1755 yew Longbows(u)
Did 65 Loads
Performed Anti Ban 81 Times
Slepted 6 Times
==========================================
thanks connex ;), why it stop though? :D
radragon16
02-15-2008, 08:11 PM
@football the rep system is offline hehe. :rolleyes:
footballjds
02-16-2008, 02:50 AM
@football the rep system is offline hehe. :rolleyes:
cause you clicked rep 1000 times ;), lol so what?
roger21
02-16-2008, 05:59 AM
football your script is the best money making script here thanx bro. It's fast and effiecent.
footballjds
02-16-2008, 01:35 PM
thanks ! ;), any improvments :??: :?:
roger21
02-17-2008, 06:55 AM
the script is perfect
footballjds
02-17-2008, 06:23 PM
thanks man, but its not. i will add TONS of anti ban. because this script is only used for memebers accounts. and only single player. im thinking of adding some walking around just for the heck of it? any thoughts?? :) :D ;)
Swift
02-17-2008, 06:25 PM
Naw, don't do walking around please. Nothing too fancy! Just add a few antibans here and there, maybe more failsafes...But I think you have those failsafes down pretty much.
footballjds
02-17-2008, 06:34 PM
Naw, don't do walking around please. Nothing too fancy! Just add a few antibans here and there, maybe more failsafes...But I think you have those failsafes down pretty much.
walking around would be a addition, you could decide not to use. like at pc island i would walk to the rune shop. buy like 1 water rune or not buy any then walk back ;)?
Narcle
02-17-2008, 10:12 PM
Football you need to change the DTM for magic. The tolerance log DTM (bank DTM) you have now doesn't work on magic logs. They have little spots and what not in them. New DTM perhaps?
Swift
02-17-2008, 10:36 PM
They updated magic logs?
radragon16
02-18-2008, 05:56 AM
Yeah they did. I already told him they don't work. LOL. Midterms are over so back to testing ;)
footballjds
02-18-2008, 03:38 PM
aww shit, are mages different? then norm-yew? awww fuck ;).
okay well tell me if theyre different or what not :mad:
Narcle
02-18-2008, 04:27 PM
aww shit, are mages different? then norm-yew? awww fuck ;).
okay well tell me if theyre different or what not :mad:
They are different already said. :P I had to make a DTM so I could fletch magics lol.
Oh and... I was trying to figure out why it fletches Shorts magics when I have it on Longs.... I even changed the MouseBox you were using and it still goes and makes Shorts when Longs is on.
footballjds
02-18-2008, 05:25 PM
i meant are they shaped different or just different colors? w/e
it should fletch longs when on longs, anyone else getting that problem?
EDIT can you use a knife on a magic log and show me the screen in the chat box? post the bitmap here, that way i can get the coords ;)
Swift
02-18-2008, 06:31 PM
http://i30.tinypic.com/fdvqix.png
footballjds
02-18-2008, 11:44 PM
okay, added it ;) thanks swift, tell me if it works all ;)
weequ
02-19-2008, 11:05 PM
I get this error.
Line 74: [Error] (14359:17): Type mismatch in script C:\Documents and Settings\Antti\Omat tiedostot\Mozilla\UltimateFletcher[.7].scar
EvilChicken!
02-19-2008, 11:57 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 19 Minutes and 41 Seconds
Gained 26325 Exp
Fletched 351 yew Longbows(u)
Did 13 Loads
Performed Anti Ban 11 Times
Slepted 1 Times
==========================================
F-U-C-K-I-N-G NICE, DUDE!
Smoothest mouse movements I've seen in a script in a while.
Nice script, rep+ to you. I'll definetly will be using this more.
By the way, v7 gave me same error as the guy above me, so I used v6.
Damn, nice scrpit. Rep. ^^
ericjzhang
02-20-2008, 03:06 AM
yea, .7 gives me error 2, so im using .6
footballjds
02-20-2008, 03:49 AM
fixored bug, thanks for telling me :D
EvilChicken!
02-20-2008, 09:48 AM
Dude, it doesn't work with S.M.A.R.T.
Does it work for you?
I could fix it, but I'm too lazy, so I'll use normal..
Logged Out
Waiting: 1Minutes Plus Random: 55720 mills
---------------
30
No More Active Players
Terminating
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 27 Minutes and 15 Seconds
Gained 38475 Exp
Fletched 513 yew Longbows(u)
Did 19 Loads
Performed Anti Ban 13 Times
Gained 1 Levels
Slepted 2 Times
==========================================
Successfully executed
It just stopped.. No randoms, nothing.. ?
BTW, you should add support for the chest in duel arena.
E2:
60
50
50
50
50
No More Active Players
Terminating
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 13 Minutes and 9 Seconds
Gained 20250 Exp
Fletched 270 yew Longbows(u)
Did 10 Loads
Performed Anti Ban 12 Times
Slepted 1 Times
==========================================
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
Had trouble finding bank, gave up after 2 seconds.
And the final one:
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 12 Minutes and 30 Seconds
Gained 20250 Exp
Fletched 270 yew Longbows(u)
Did 10 Loads
Performed Anti Ban 9 Times
Slepted 1 Times
==========================================
footballjds
02-20-2008, 01:57 PM
Dude, it doesn't work with S.M.A.R.T.
Does it work for you?
I could fix it, but I'm too lazy, so I'll use normal..
Logged Out
Waiting: 1Minutes Plus Random: 55720 mills
---------------
30
No More Active Players
Terminating
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 27 Minutes and 15 Seconds
Gained 38475 Exp
Fletched 513 yew Longbows(u)
Did 19 Loads
Performed Anti Ban 13 Times
Gained 1 Levels
Slepted 2 Times
==========================================
Successfully executed
It just stopped.. No randoms, nothing.. ?
BTW, you should add support for the chest in duel arena.
E2:
60
50
50
50
50
No More Active Players
Terminating
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 13 Minutes and 9 Seconds
Gained 20250 Exp
Fletched 270 yew Longbows(u)
Did 10 Loads
Performed Anti Ban 12 Times
Slepted 1 Times
==========================================
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
Had trouble finding bank, gave up after 2 seconds.
And the final one:
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 12 Minutes and 30 Seconds
Gained 20250 Exp
Fletched 270 yew Longbows(u)
Did 10 Loads
Performed Anti Ban 9 Times
Slepted 1 Times
==========================================
to lazy to add smart, what bank were you using the second proggie? and none others are getting errors ;)?
KoKouKo
02-22-2008, 07:15 AM
this is why smart doesnt work 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 ]...(look at how its included)
WizOfTheOne
02-22-2008, 09:42 PM
hey what scar ver. & rev ver. are you using?
WizOfTheOne
02-22-2008, 10:18 PM
hey awesome script!
proggie coming soon
but i keep getting this bug
it clicks on the stat button
but never goes back to the inv....
then it wont ever fletch again
StrikerX
02-23-2008, 12:05 AM
:OFFTOPIC: Congrats on srl members football :OFFTOPIC:
KoKouKo
02-23-2008, 02:04 AM
scar 3.14
srl 4 rev 13
footballjds
02-23-2008, 02:51 AM
hey awesome script!
proggie coming soon
but i keep getting this bug
it clicks on the stat button
but never goes back to the inv....
then it wont ever fletch again
update your colors in exists tab ;) use the search button or just wait for new rev :D:duh:
:OFFTOPIC: Congrats on srl members football :OFFTOPIC:
thats like 1 month old :rolleyes:, thanks though, better late then never... ?;)
scar 3.14
srl 4 rev 13
yes but he needs to update the colors in Exists tab ;)
footballjds
02-23-2008, 03:23 AM
UPDATED TO NEWEST SRL, REDOWNLOAD :D
KoKouKo
02-23-2008, 07:02 AM
it cut the cross bow things (i hope this is the right thread)
mynameisjoe
02-24-2008, 04:04 AM
Hmm doesn't start for me.... get this error:
Line 687: [Error] (14936:41): Invalid number of parameters in script C:\DOCUME~1\Chris\LOCALS~1\Temp\UltimateFletcher[.7]-3.scar
Please help.. thank you.
footballjds
02-24-2008, 06:36 AM
Hmm doesn't start for me.... get this error:
Line 687: [Error] (14936:41): Invalid number of parameters in script C:\DOCUME~1\Chris\LOCALS~1\Temp\UltimateFletcher[.7]-3.scar
Please help.. thank you.
update to latest srl ;) :duh:
tweigs
02-24-2008, 03:10 PM
I love your script, it works perfectly. Look forward to a good proggie soon.
mynameisjoe
02-24-2008, 03:29 PM
I pressed "download SRL" on the scar window, and it installed, but I still get that error. :(
EDIT: Thanks a lot, the script works now! It's awesome.
KoKouKo
02-24-2008, 04:35 PM
@ mynameisjoe
after that line there is a begin, delete that begin and everything up to and including the next end, i believe that is the thing that checks if youve leveled so unless your retarded you probably wont need it, if you really want to you can go dig up the command and patch it up.
tweigs
02-24-2008, 05:02 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 9 Minutes and 13 Seconds
Gained 117450 Exp
Fletched 1566 yew Longbows(u)
Did 58 Loads
Performed Anti Ban 95 Times
==========================================
Noice!!!!!
KoKouKo
02-25-2008, 12:17 AM
last proggie from me *tear* youll see why later
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 43 Minutes and 22 Seconds
Gained 188325 Exp
Fletched 2511 yew Longbows(u)
Did 93 Loads
Performed Anti Ban 125 Times
==========================================
Error, There is nothing in inventory slot 19
Error, There is nothing in inventory slot 21
Error, There is nothing in inventory slot 23
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 44 Minutes and 15 Seconds
Gained 188325 Exp
Fletched 2511 yew Longbows(u)
Did 93 Loads
Performed Anti Ban 125 Times
==========================================
Successfully executed
footballjds
02-25-2008, 03:16 AM
last proggie from me *tear* youll see why later
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 43 Minutes and 22 Seconds
Gained 188325 Exp
Fletched 2511 yew Longbows(u)
Did 93 Loads
Performed Anti Ban 125 Times
==========================================
Error, There is nothing in inventory slot 19
Error, There is nothing in inventory slot 21
Error, There is nothing in inventory slot 23
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 44 Minutes and 15 Seconds
Gained 188325 Exp
Fletched 2511 yew Longbows(u)
Did 93 Loads
Performed Anti Ban 125 Times
==========================================
Successfully executed
cause you got 99 fletching ;) :D ty man, your names going up there :D
zeppa70
02-27-2008, 12:34 AM
so if i have 30k willows in bank how long will this really take to fletch them
"trying to get 99 fletch ..57 atm"
KoKouKo
02-27-2008, 03:43 AM
look at other peoples proggies and do teh math
footballjds
02-27-2008, 04:46 AM
so if i have 30k willows in bank how long will this really take to fletch them
"trying to get 99 fletch ..57 atm"
lol :D
look at other peoples proggies and do teh math
words from the wise, gotta love them :D, or he could just get banned :rolleyes:
Hurgymcgurgygurg
02-27-2008, 05:55 AM
Hey, I was doing some quick autoing with your fletcher. It worked very well.
Here is my proggy:
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 39 Minutes and 14 Seconds
Gained 68850 Exp
Fletched 918 yew Longbows(u)
Did 34 Loads
Performed Anti Ban 28 Times
Responded 11 Times
==========================================
16
[Runtime Error] : Out Of Range in line 577 in script C:\Documents and Settings\Dad\Desktop\UltimateFletcher[.7].scar
The only reason it stopped was because of that
This is the procedure it is located in:
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;
Line 577 is:
typeSend(Rsponce[rspnce]);
Any idea why this happened and how to fix it.
Hope this is of some help?
KoKouKo
02-27-2008, 07:55 AM
turn off autorepsonder
footballjds
02-27-2008, 08:19 AM
turn off autorepsonder
that works :D, ;)
attention everyone! im leaving for a long long long time!!!!!!!!!!!!!!!!!!!
il first be back 3 weeks from now, then after that il visit every 6 weeks, this will last a lil over a year :eek:, il miss everyone !!!! :(
MylesMadness
02-27-2008, 01:48 PM
And I have direct permission from footballjds to make sure this script doesn't die. (Please not be gone yet football, You need to read your pms and post that I have permission)
Edit:People who are having the Out of range error on 577 change your procedure to thisprocedure 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: TypeSend(Responce[Random(2)]);
end;
wait(1000 + Random(500));
end;
end;
end;
hellian46
02-29-2008, 09:47 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 30 Minutes and 45 Seconds
Gained 28782 Exp
Fletched 702 willow Longbows(u)
Did 26 Loads
Performed Anti Ban 26 Times
==========================================
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
Successfully executed
Don't know why its saying can't open bank because im sitting right in the bank when i log back on... Ill be posting alot of proggies hopefully, I got 92k willow logs left to fletch...
infested999
02-29-2008, 10:42 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 29 Minutes and 31 Seconds
Gained 26568 Exp
Fletched 648 willow Longbows(u)
Did 24 Loads
Performed Anti Ban 29 Times
Gained 2 Levels
==========================================
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
Successfully executed
hellian46
03-01-2008, 03:03 AM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 25 Minutes and 52 Seconds
Gained 22140 Exp
Fletched 540 willow Longbows(u)
Did 20 Loads
Performed Anti Ban 17 Times
==========================================
MylesMadness
03-01-2008, 11:18 PM
people who are having bank problems what bank are you using?
hellian46
03-02-2008, 09:30 AM
I am using PC bank, I think thats the problem but I don't know, I am going to try VEB tonight and see how many I can fletch, Im just trying to find a good sleep time so that I don't get that many randoms... Im only using 1 character so idk, I don't want to sleep too much so that I only get 1k done it 12 hours(Figure of speech)..... So if anyone knows a good sleep time please tell me...
I'm hoping to get to 99 fletching using this script got 94 right now, and I have all the willows I require to get to 99 fletching which is still 89k left :(.....
EvilChicken!
03-02-2008, 01:04 PM
Set it to sleep every 8th or 9th minute, for one minute.
KoKouKo
03-02-2008, 05:56 PM
try changing
if(WhatBank=PC)then OpenPCBank;
else OpenBankFast(WhatBank);
to
if(WhatBank=PC)then OpenBankGlass('veb');
else OpenBankFast(WhatBank);
the bottom one is more reliable but moves around more, and use it on an empty world
jamesy
03-03-2008, 05:57 PM
Line 97: [Error] (1105:1): Syntax error in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/GameTab.scar
keep getting this with this script not sure why thought, i know its something silly.
Shuttleu
03-03-2008, 09:02 PM
here is my proggy
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 3 Hours, 32 Minutes and 10 Seconds
Gained 86346 Exp
Fletched 2106 willow Longbows(u)
Did 78 Loads
Performed Anti Ban 87 Times
Gained 3 Levels
Responded 1 Times
Slepted 10 Times
hellian46
03-03-2008, 09:20 PM
Foot just to let you know I will be using this an your stringer to get 99 fletching... It will take me a little longer because im running nats and alching my yew longs... I will keep you updated and just look at my siggy..
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 49 Minutes and 28 Seconds
Gained 97416 Exp
Fletched 2376 Yew Longbows(u)
Did 88 Loads
Performed Anti Ban 131 Times
Slepted 9 Times
==========================================
Successfully executed
KoKouKo
03-04-2008, 12:00 AM
Line 97: [Error] (1105:1): Syntax error in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/GameTab.scar
keep getting this with this script not sure why thought, i know its something silly.
1) thats a srl thing
2) just remove all those funny arrow things, theres 3 lines of them, i dont know what those do but it looks like its a retard shield or something really obvious that i dont know, roflcopter
hellian46
03-04-2008, 01:06 AM
Goto program files scar 3.14 are the version your using and delete includes then reinstall...
KoKouKo
03-04-2008, 05:15 AM
just replace gametab.scar with this
hellian46
03-05-2008, 07:20 AM
Almost 96 fletching :)
==========================================
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 32 Minutes and 59 Seconds
Gained 153900 Exp
Fletched 2052 yew Longbows(u)
Did 76 Loads
Performed Anti Ban 116 Times
Slepted 7 Times
==========================================
hellian46
03-05-2008, 12:42 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 26 Minutes and 16 Seconds
Gained 135675 Exp
Fletched 1809 yew Longbows(u)
Did 67 Loads
Performed Anti Ban 90 Times
Slepted 6 Times
==========================================
xxmynameisjohnxx
03-06-2008, 12:17 AM
The only problem is that I seem to be getting an unsolveable random about every hour or so, other than that it's flawless.
xxmynameisjohnxx
03-06-2008, 01:08 AM
Hey, does anyone know how to make this script work with Smart?
Crap, sorry for the double post, it won't let me delete my message.
hellian46
03-06-2008, 02:48 AM
Idk I tried it with smart and it wont work either... i don't know how to get it to work..
KoKouKo
03-06-2008, 05:37 AM
xxmynameisjohn you can use the edit button, also include smart before you include srl, then add smartsetup and settargetdc, many tutorials on this can be found in the smart forum
xxmynameisjohnxx
03-06-2008, 05:44 AM
xxmynameisjohn you can use the edit button, also include smart before you include srl, then add smartsetup and settargetdc, many tutorials on this can be found in the smart forum
I clicked edit and I didn't see the delete button.
And I might try to get smart working, thanks.
hellian46
03-06-2008, 08:00 AM
Here ya go...
==========================================
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 38 Minutes and 55 Seconds
Gained 162000 Exp
Fletched 2160 yew Longbows(u)
Did 80 Loads
Performed Anti Ban 113 Times
Slepted 8 Times
==========================================
xxmynameisjohnxx
03-06-2008, 03:31 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 8 Hours, 4 Minutes and 3 Seconds
Gained 399627 Exp
Fletched 9747 willow Longbows(u)
Did 361 Loads
Performed Anti Ban 552 Times
Gained 6 Levels
Slepted 44 Times
Note: Manually stopped. I needed to use my computer.
:D
samleiser
03-06-2008, 04:00 PM
From 69 to this in just 2 weeks this is the best script ever!!!!!!!! =D
http://img265.ims/img265/5368/99fletchingom7.png (http://imageshack.us)
hellian46
03-07-2008, 05:46 PM
Think this is my best one ever... Got 98 Fletching now ::)
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 4 Hours, 38 Minutes and 49 Seconds
Gained 449550 Exp
Fletched 5994 yew Longbows(u)
Did 222 Loads
Performed Anti Ban 316 Times
Gained 1 Levels
Slepted 23 Times
==========================================
Hurgymcgurgygurg
03-08-2008, 03:56 AM
Sam, don't post all your stats, JaGex can easily input those stats and figure out who you are and then ban you, they do look at these forums you know?
Also Helian what bank are you using, I'm getting all these weird bank errors for pc, and the fix that kokou posted gives me an invalid identifier error?
For Kokou here is the specifics:
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');
else OpenBankFast(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;
This is with your change, and here is the error I'm getting with Srl 4.14, Scar 3.14
Line 358: [Error] (14919:13): Unknown identifier 'PC' in script C:\Documents and Settings\Desktop\UltimateFletcher[.7].scar
KoKouKo
03-08-2008, 07:26 AM
its actually
OpenBankGlass('veb', False, False);
.
.
.
.
.
i used that banking procedure and this compiles with scar 3.14 rev 14
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' +
'310FF0702C63E4C3510591809A42712A1663A90984940CD34 2031' +
'9D08353308A89949580D00AF0E0E34';
SBU := '78DA637466626078C68002CA02F919C480342' +
'310FF07024613A09A370C6880118904D2BE40353708A8F106 AA79' +
'4C408D1D50CD6B026A02806A6EE1570300E3880BF5';
MagicLog := '78DA635CC0C4C0F08E0105FCFEB6824103483' +
'302F17F20609C0C54F394010D302291407A1250CD57026AFA 30ED' +
'C250B38608352B806A9E1150331FA8E621013533806A1E115 0B30' +
'8A8E61B7E35005DD814AD';
NormLogs := '78DA639CC9C4C0F088010514FAF2318832323' +
'00011C37F2060EC06AA79CC800618914820DD0154F386809A 5940' +
'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('78DA632C676460F06540015585850C22401 A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104 D414' +
'11560300CA4A0963');
'log' : Log := DTMFromString(Logs);
'bow' : bows := DTMFromString(bow);
'inv' : begin
Log := DTMFromString(Logs);
KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401 A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104 D414' +
'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('78DA63B4606460B8CB8002EA8AC31844803 42' +
'394CF680F64DDC1ADE63F1030C60059FF207222503587574B 3288' +
'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
begin
OpenbankGlass('veb', False, False);
end else OpenBankFast(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.
jamesy
03-08-2008, 12:23 PM
Does any of the script need changing to find logs in bank,
Always get:
'Error 1 |No Logs Found In Bank!| Fatel = True'
Already added 'OpenbankGlass('veb', False, False);' into the script
KoKouKo
03-08-2008, 05:43 PM
wait im not sure,
only use what i posted if the original pc banking doesnt work for you
back when i used this script i got to 99 fletching with it and i never had any errors with finding logs, are you sure there are logs there
Harry
03-08-2008, 05:51 PM
PC Banking = DTM messed up. Doesn't work anymore :(
MylesMadness
03-08-2008, 08:10 PM
Are the logs visible person who said it wont find the logs
Hurgymcgurgygurg
03-09-2008, 12:29 AM
Your fix works kokou, thank you.
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 2 Hours, 0 Minutes and 44 Seconds
Gained 214650 Exp
Fletched 2862 yew Longbows(u)
Did 106 Loads
Performed Anti Ban 155 Times
==========================================
Also, why did you say to use it on an empty world, I used it on World 144 Pc when it was full and it did perfectly fine, did switch bank booths a lot but hey thats pretty realistic.
KoKouKo
03-09-2008, 01:01 AM
for me it i got way longer proggies on an empty world
jamesy
03-09-2008, 11:06 AM
nvm
hellian46
03-10-2008, 01:20 AM
Just got to string these bows then ill have 99 fletching... Thanks for these wonderful scripts Football..
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 2 Hours, 36 Minutes and 46 Seconds
Gained 247050 Exp
Fletched 3294 yew Longbows(u)
Did 122 Loads
Performed Anti Ban 166 Times
Slepted 12 Times
==========================================
klinnks
03-10-2008, 05:54 PM
hey it says i dont have logs in bank:confused: but i have willows, i have added OpenBankGlass('veb', False, False);
infested999
03-10-2008, 09:32 PM
Are they visible in top part?
did you set correct type of log?
KoKouKo
03-10-2008, 11:42 PM
Are they visible in top part?
did you set correct type of log?
if you look a few lines above not only was the question withdrawn but several replies were made
Hurgymcgurgygurg
03-11-2008, 02:35 AM
Proggy, got me 90 fletch.
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 6 Minutes and 24 Seconds
Gained 115425 Exp
Fletched 1539 yew Longbows(u)
Did 57 Loads
Performed Anti Ban 52 Times
==========================================
klinnks
03-11-2008, 02:27 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 31 Seconds
Gained 0 Exp
Fletched 0 Willow Longbows(u)
Did 0 Loads
==========================================
Error 1 |No Logs Found In Bank!| Fatel = True
Please Report The Above ERrors :D
Successfully executed
Thats the error.. very annoying :(
EDIT: ahh fixed just was a small thing i changed :)
proggy =) =) will post a long as soon as possible :)
==========================================
Been Fletching For: 26 Minutes and 13 Seconds
Gained 18819 Exp
Fletched 459 willow Longbows(u)
Did 17 Loads
Performed Anti Ban 14 Times
Gained 1 Levels
==========================================
Successfully executed
another proggy
==========================================
Been Fletching For: 1 Hours, 32 Minutes and 42 Seconds
Gained 97092 Exp
Fletched 1674 maple Longbows(u)
Did 62 Loads
Performed Anti Ban 40 Times
Gained 2 Levels
Responded 6 Times
==========================================
KoKouKo
03-11-2008, 10:26 PM
a solution to the no dtms found thing is on of the following
1) if the supps arent actually there GO BUY SOME
2) replace all the dtm finding and clicking stuff with srl bankng and inventory procedures/functions
3) redo the dtms which isnt actually hard
(easier than it sounds, use yohojo's dtm tut)
Taylor
03-12-2008, 12:10 AM
==========================================
Been Fletching For: 11 Minutes and 48 Seconds
Gained 6075 Exp
Fletched 243 oak Longbows(u)
Did 9 Loads
Performed Anti Ban 10 Times
Gained 5 Levels
==========================================
Not much, but it's a start.. Also, I checked on it once and found myself logged out. When I logged in, I was by the lander ;o
Any ideas how to fix this? Or why it happened?(It was at the PC bank.)
Hurgymcgurgygurg
03-12-2008, 02:44 AM
Not much, but it's a start.. Also, I checked on it once and found myself logged out. When I logged in, I was by the lander ;o
Any ideas how to fix this? Or why it happened?(It was at the PC bank.)
It happens occasionally, sometimes lagg while it is moving the cursor can cause it to miss click and send you over there, it does not happen often though so do not worry, maybe once every 10-20 hours for me, plus the script has failsafes so there is really no worry.
Also, Kokou, I found that the reason why the findbankglass fails on crowded worlds is because chat text can when the camera is not oriented properly, block the glass and confuse scar, I found that turning public chat off on a crowded world works just as well, and here is a proggy:
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 2 Hours, 41 Minutes and 42 Seconds
Gained 275400 Exp
Fletched 3672 yew Longbows(u)
Did 136 Loads
Performed Anti Ban 200 Times
==========================================
Successfully executed
hellian46
03-12-2008, 07:41 AM
Got 99 FLETCHING EVERYONE :)....
nerdy
03-12-2008, 12:21 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 18 Minutes and 29 Seconds
Gained 143775 Exp
Fletched 1917 yew Longbows(u)
Did 71 Loads
Performed Anti Ban 69 Times
==========================================
31
Error, There is nothing in inventory slot 26
Gj, worked fine, shame i ran out of yew logs
klinnks
03-12-2008, 05:28 PM
here is first proggy before i switched to maples
==========================================
Been Fletching For: 40 Minutes and 4 Seconds
Gained 29889 Exp
Fletched 729 willow Longbows(u)
Did 27 Loads
Performed Anti Ban 22 Times
Responded 2 Times
==========================================
and the maple fletch proggy
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 34 Minutes and 25 Seconds
Gained 36018 Exp
Fletched 621 maple Longbows(u)
Did 23 Loads
Performed Anti Ban 20 Times
Gained 1 Levels
Responded 1 Times
==========================================
another:
Been Fletching For: 1 Hours, 0 Minutes and 27 Seconds
Gained 62640 Exp
Fletched 1080 maple Longbows(u)
Did 40 Loads
Performed Anti Ban 32 Times
Gained 1 Levels
==========================================
other 1
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 35 Minutes and 17 Seconds
Gained 37584 Exp
Fletched 648 maple Longbows(u)
Did 24 Loads
Performed Anti Ban 16 Times
Gained 1 Levels
Responded 3 Times
==========================================
yay i got 99 fletching you rock =D
spykids007
03-13-2008, 03:42 AM
doesnt work forme sorry man =(
sweetleaf
03-13-2008, 06:53 AM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 1 Hours, 56 Minutes and 59 Seconds
Gained 123984 Exp
Fletched 3024 willow Longbows(u)
Did 112 Loads
Performed Anti Ban 145 Times
Gained 2 Levels
doesnt work forme sorry man =(
do you have your srl updated? an are you using scar 3.14?
ice wolf363
03-14-2008, 09:12 PM
awesome dude!
it's really usefull ,thanks :)
KoKouKo
03-15-2008, 03:42 AM
doesnt work forme sorry man =(
post the error you got
awesome dude!
it's really usefull ,thanks :)
how are you here if you only have 1 post
Pierre14
03-15-2008, 04:23 AM
Hello, i am Pierre14 i was wondering what setting's should i set to get the best result's? for example: auto responder on or off? sleep time? Could someone please post a good setting that would give good result's thank's. Once im done trying this script (after someone post's the setting's) ill be sure to post a proggie .
Thank you , Pierre14:D
KoKouKo
03-15-2008, 05:23 AM
if you dont think people will ask you whats your feltching level and so on and so forth then turn the auto responder off
if you do not use the fletcher at pc bank then i would set it to sleep every 11 minutes for 1 minute
Pierre14
03-15-2008, 05:43 AM
Hmmm... Thank you kokouko you have just answered my question. But, Is there anyway that the script can go to a different bank slot cause the last bank slot has very less people which would make the script more easier for someone to get caught. If the script is on a slot where many people are it would make it harder to get caught cause people don't know who's autoing because of sooo much people.
Thank you, Pierre14:D
Oh and by the way for some reason S.M.A.R.T doesn't wanna work but the script it self work's. so what may be the problem that's causing S.M.A.R.T not to work (i did set it to true).
KoKouKo
03-15-2008, 06:16 AM
Smart should work with the settings that football loaded into the script.
What bank are you running this script at?
Taylor
03-15-2008, 09:55 AM
==========================================
Been Fletching For: 4 Hours, 45 Minutes and 33 Seconds
Gained 260145 Exp
Fletched 6345 willow Longbows(u)
Did 235 Loads
Performed Anti Ban 294 Times
Gained 7 Levels
Slepted 8 Times
==========================================
My best proggy so far ^.^ Shame I ran out of logs :(
Pierre14
03-15-2008, 08:52 PM
I am currently running it at pc bank.
KoKouKo
03-16-2008, 03:12 AM
pierre use this
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' +
'310FF0702C63E4C3510591809A42712A1663A90984940CD34 2031' +
'9D08353308A89949580D00AF0E0E34';
SBU := '78DA637466626078C68002CA02F919C480342' +
'310FF07024613A09A370C6880118904D2BE40353708A8F106 AA79' +
'4C408D1D50CD6B026A02806A6EE1570300E3880BF5';
MagicLog := '78DA635CC0C4C0F08E0105FCFEB6824103483' +
'302F17F20609C0C54F394010D302291407A1250CD57026AFA 30ED' +
'C250B38608352B806A9E1150331FA8E621013533806A1E115 0B30' +
'8A8E61B7E35005DD814AD';
NormLogs := '78DA639CC9C4C0F088010514FAF2318832323' +
'00011C37F2060EC06AA79CC800618914820DD0154F386809A 5940' +
'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('hide',1);
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('78DA632C676460F06540015585850C22401 A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104 D414' +
'11560300CA4A0963');
'log' : Log := DTMFromString(Logs);
'bow' : bows := DTMFromString(bow);
'inv' : begin
Log := DTMFromString(Logs);
KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401 A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104 D414' +
'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('78DA63B4606460B8CB8002EA8AC31844803 42' +
'394CF680F64DDC1ADE63F1030C60059FF207222503587574B 3288' +
'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 OpenBankFast(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
begin
inc(TimesSleepted);
end;
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;
SmartSetupex(144, 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.
Pierre14
03-16-2008, 08:08 AM
Hello, can someone please tell me why line 360 give's me a failed to compile error. This problem is happening on the script above me that Kokouko has gave me. All help is appreciated.
Thank you, Pierre14:D
Taylor
03-16-2008, 12:28 PM
@Pierre14;
Try removing the snippet of code at the top:
{.include srl/srl/misc/Smart.scar}
And set SMART to "False;".
UseSmart = False; //Use Smart?
-------
==========================================
Been Fletching For: 5 Hours, 56 Minutes and 22 Seconds
Gained 287820 Exp
Fletched 7020 willow Longbows(u)
Did 260 Loads
Performed Anti Ban 324 Times
Gained 2 Levels
Slepted 10 Times
==========================================
Another AWESOME progress report! ^.^
EvilChicken!
03-16-2008, 12:30 PM
Hello, can someone please tell me why line 360 give's me a failed to compile error. This problem is happening on the script above me that Kokouko has gave me. All help is appreciated.
Thank you, Pierre14:D
Open the script, press "ctrl+g", type in "359", delete the line and replace it with this:
if WhatBank = 'pc' then OpenBankGlass('veb',false,false)
MylesMadness
03-16-2008, 01:15 PM
Got 99 FLETCHING EVERYONE :)....When football gets back from his hell camp he will add you to the first page. I'm just here to fix the script so read the last few pages for updates for now on.
KoKouKo
03-16-2008, 06:18 PM
Hello, can someone please tell me why line 360 give's me a failed to compile error. This problem is happening on the script above me that Kokouko has gave me. All help is appreciated.
Thank you, Pierre14:D
accidentally put a semi colon on like 359 sorry
jamesreece
03-17-2008, 01:54 PM
i was really looking forward to using this. the script compiled succesfully but then it just like freezes and doesnt do anything.. any help
Richard
03-17-2008, 05:47 PM
Its, because the script hasn't been updated in a while, the guy will be back soon though, for now you can just use my one. Its in this fletching area.
jacksteel
03-17-2008, 07:25 PM
1
jacksteel
03-17-2008, 07:26 PM
sorry for double pst, i made a mistake in the posting.. wrong thread :[
KoKouKo
03-18-2008, 06:33 AM
i was really looking forward to using this. the script compiled succesfully but then it just like freezes and doesnt do anything.. any help
does it just log in and do nothing does the program crash? details pl0x
1
sorry for double pst, i made a mistake in the posting.. wrong thread :[
you can just edit your first post and write wrong forum in that one
Taylor
03-18-2008, 09:39 AM
The fix that was posted was working fine for a while, got me to 78 fletching in no time. But, now it says:
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
And when I login I'm outside the bank :(
Swift
03-18-2008, 11:51 AM
Log back in, position yourself in the bank, and start the script again.
Or, does this happen every single time you try to run the script?
KoKouKo
03-19-2008, 01:22 AM
The fix that was posted was working fine for a while, got me to 78 fletching in no time. But, now it says:
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
And when I login I'm outside the bank :(
what bank are you using the script at, what banking procedure are you using (OpenBankGlass, OpenBankFast or Football's homemade PC bank thing)?
ill try to maybe solve some problems when i get home from work
Kreks
03-19-2008, 03:24 PM
Best script I've ever seen!
jacksteel
03-21-2008, 02:32 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 40 Minutes and 4 Seconds
Gained 74925 Exp
Fletched 999 yew Longbows(u)
Did 37 Loads
Performed Anti Ban 52 Times
Responded 3 Times
==========================================
This is just a fraction of what this, beautiful script can do.. i must admit, i've been powerlevelling fletching with this script, and i've never seen one that works so flawlessly! Truly, well done, and thank you footballjds! I've fletched about 20k logs in this past week, and i'm now nearly 80 fletching, going for 99... i really hope you keep this updated, cos i'd cry if you didn't :p. I'd also reccomend his stringer, stringing is to boring imo.
Infidel00
03-21-2008, 09:00 PM
This sounds excellent! I actually downloaded it at work and emailed it to myself to make sure I use this script this weekend. Just to make sure before I use it, it is; 3.14 Srl Rev ?? 11?
Thanks!
jacksteel
03-21-2008, 09:02 PM
It's for the fully updated versions, just use scar divi 3.14 and rev #14. All the scripts work for me.
KoKouKo
03-22-2008, 12:26 AM
@ JackSteel
Football is currently at 'Hell Camp' (idk what it is but hes at a camp, im as confused as you are) and he wont really be updating this script. although i thnk Timer is in charge of it or something
MylesMadness
03-22-2008, 03:41 PM
Hell camp is the church camp his parents sent him to because he got in trouble. I won't say the rest as that is his business.
footballjds
03-22-2008, 04:45 PM
@ JackSteel
Football is currently at 'Hell Camp' (idk what it is but hes at a camp, im as confused as you are) and he wont really be updating this script. although i thnk Timer is in charge of it or something
my sig says enough no? i will update when i can, gather a list of problems, or myles can, and post it here. i am at the "Hell Camp", but im on home visit until tue morn. its saturday right now so you must go fast. ;)
KoKouKo
03-22-2008, 11:23 PM
hes back <3... idk im bored
but back to business people idk whats really going on cuz i dont use this script, but from what i hear your homemade PC bank thing is out of whack, i told them to use OpenBankGlass('veb', False, False);
XjagexisgayX
03-23-2008, 08:26 PM
What do i put in for the bank?
retybob
03-23-2008, 10:49 PM
very nice i just ran for around 30min, sry i forgot to save progress report but it fletched 405 willow long (u) with no problems :)
sweetleaf
03-23-2008, 11:41 PM
i keep getting this error
[Runtime Error] : Exception: Access violation at address 0071FDA0 in module 'scar.exe'. Read of address FFFFFFFC in line 227 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/Login.scar
KoKouKo
03-23-2008, 11:47 PM
i keep getting this error
[Runtime Error] : Exception: Access violation at address 0071FDA0 in module 'scar.exe'. Read of address FFFFFFFC in line 227 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/Login.scar
its srl
the OpenBankGlass let it run for 15 more minutes :D. Epic wins. Did like 1k Maple Longbow (u)'s in an hour.
MylesMadness
03-24-2008, 12:21 AM
my sig says enough no? i will update when i can, gather a list of problems, or myles can, and post it here. i am at the "Hell Camp", but im on home visit until tue morn. its saturday right now so you must go fast. ;)Pc bank. Oh yeah the responder Needs fixing. I posted the fix back a few pages
KoKouKo
03-24-2008, 01:57 AM
the OpenBankGlass let it run for 15 more minutes :D. Epic wins. Did like 1k Maple Longbow (u)'s in an hour.
when using OpenBankGlass('veb', False, False)
set up your character with public chat to hide or add this in the character setup section of the scriptSetChat('Hide', 1)
sweetleaf
03-24-2008, 04:34 AM
its srl
i figured that, is there anyway to fix it though?
Mr beat
03-24-2008, 07:22 AM
He do 300 longs then he quit. This the error
PLease help me :O
Error 0 |Error While Waiting For Fletch Bows Option| Fatel = False
Hey guys, I tried this with my logs in basically every bankslot there is, and it still says it can't find the logs...I tried it starting both logged in and logged out, and it opens the bank, then closes it, and logs out...Any help?
Thanks,
R1ch4
KoKouKo
03-24-2008, 08:49 PM
i figured that, is there anyway to fix it though?
save the script before you run it, if that doesn't work then redownload SRL.
a while back the dtms for logs were changed, that would explain the errors, idk about the status of football but i think he is leaving tuesday morning (wont be back for weeks) and DOES NOT have a members account, if anybody wants this fixed you could either take screenies of things (logs, and unstrungs, not lobs) or pm your account details to football
footballjds
03-25-2008, 12:27 AM
save the script before you run it, if that doesn't work then redownload SRL.
a while back the dtms for logs were changed, that would explain the errors, idk about the status of football but i think he is leaving tuesday morning (wont be back for weeks) and DOES NOT have a members account, if anybody wants this fixed you could either take screenies of things (logs, and unstrungs, not lobs) or pm your account details to football
your right :D. but dtms work fine i thought? give me a memb accnt fast p10x someone? quick? :D
Hurgymcgurgygurg
03-25-2008, 04:16 AM
The DTM's are working fine the only thing that does not work to well is the pc bank DTM. But KoKou has a good fix for that, that works fine.
Thank you!
Just got 96 fletching with this, I'll have 99 by next week.
Here is a proggy also:
1 Hours, 13 Minutes and 42 Seconds
Gained 121800 Exp
Strung 1624 Yew Longbows
Did 116 Loads
Performed 62 AntiBans
KoKouKo
03-25-2008, 04:43 AM
A while back people said the DTMs were messed on one of the scripts, the fix I have for PC bank was the original method used before people started complaining saying the bank moved too much from slot to slot. Football came up with it, I'm just the messenger.
Someone really needs to give Football an account, I would, but I lost memb, Guilderworld here I come.
hellian46
03-25-2008, 04:58 AM
I got 99 fletching with this football can I be up on the 99 list please...
Richard
03-25-2008, 07:06 PM
You're not going to be up there for about, I dunno, 3 months. Because hes like always away at camp so he hardly ever has chance to come on, you only just missed him, he was on abou 2 days ago...
KoKouKo
03-25-2008, 08:47 PM
He left Tuesday Morning.
MylesMadness
03-25-2008, 10:59 PM
your right :D. but dtms work fine i thought? give me a memb accnt fast p10x someone? quick? :DStill here? Have(to borrow...) mine
Infidel00
03-26-2008, 12:29 PM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 21 Minutes and 37 Seconds
Gained 22140 Exp
Fletched 540 willow Longbows(u)
Did 20 Loads
Performed Anti Ban 27 Times
Gained 1 Levels
==========================================
Short but successful! ;) This will be my primary fletcher!
Nice work, ran smoothly!
nickienine
03-27-2008, 12:31 PM
dude it pwns, ive gained at least 20 levels with it, your amazing man!
cocodog13
03-27-2008, 08:19 PM
==========================================
Been Fletching For: 19 Minutes and 52 Seconds
Gained 13284 Exp
Fletched 324 willow Longbows(u)
Did 12 Loads
Performed Anti Ban 9 Times
Gained 1 Levels
==========================================
Error 1 |Logged Out While Fletching?| Fatel = True
failed on freaky forester random
Hurgymcgurgygurg
03-28-2008, 04:46 AM
Just got 97, so, get ready to add me to the 99 list, thanks again. Once I get 99 with this script I'll stop being lazy and start making my own.
My first 99... through autoing that is....
maskedmous
03-28-2008, 05:44 AM
this is realy i great script! i already lvled from 51 to 72!
realy great work!
Been Fletching For: 9 Hours, 45 Minutes and 39 Seconds
Gained 560628 Exp
Fletched 9666 maple Longbows(u)
Did 358 Loads
Performed Anti Ban 596 Times
Gained 9 Levels
Slepted 102 Times
uytre1234565
03-29-2008, 01:19 AM
Error 1 |Opening Bank Error| Fatel = True
Please Report The Above ERrors :D
Successfully executed
any help
KoKouKo
03-29-2008, 02:29 AM
what bank are you using and which method of opening that bank are you using?
any answers?
uytre1234565
03-29-2008, 02:09 PM
what bank are you using and which method of opening that bank are you using?
any answers?
pc and what u mean by method of opening bank>?
KoKouKo
03-29-2008, 05:38 PM
the original one or the one I posted (Football, thought it up) a few pages/posts earlier
OpenBankGlass('veb', False, False);
Illkillutill
03-29-2008, 05:56 PM
==========================================
=§ 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
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.
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..
KoKouKo
03-30-2008, 12:03 AM
==========================================
=§ 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
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.
Very nice script though, i will use some more later.
Edit: I didn't notice it said maple longbows, it should be willows.
that means your flagged it would be advisable to stop autoing for a week or so
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
KoKouKo
03-30-2008, 12:46 AM
when exactly did that error come up
ie
when fletching
when banking
when exactly did that error come up
ie
when fletching
when banking
before it started ;\
hampus008
03-30-2008, 01:15 PM
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"
KoKouKo
03-30-2008, 04:30 PM
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.
permy
03-30-2008, 04:59 PM
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?
runner732
03-30-2008, 09:05 PM
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.
KoKouKo
03-30-2008, 10:06 PM
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?
Next time you get one of these errors;
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
runner732
03-30-2008, 10:10 PM
==========================================
=§ 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?
KoKouKo
03-30-2008, 10:13 PM
==========================================
=§ 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.
Myles posted a fix on an earlier post, or just change the auto-responder off.
I think you just change the line to this TypeSend(Responce[High(Responce]); thats just my guess.
runner732
03-30-2008, 10:51 PM
my apologies for not going through 23 pages of posts in case there *might* be a clue that i'm missing
hampus008
03-31-2008, 02:44 PM
Any1 have idea on when he updates Magic logs color?
Does yew logs work?
Becouse i still have that problem
KoKouKo
04-01-2008, 04:55 AM
Away at a shity camp :mad: i visit every 6 w33x
im letting myles fix bugs in my fletcher while im gone
its going to be a long wait football left last week so its going to be a long one month and one week.
yew logs still work its just that mages were updated
try yohojos dtm tut http://www.villavu.com/forum/showthread.php?t=564 ;)
OpenHearts
04-01-2008, 10:28 AM
love this script, from 70 to 90 in a week =)
Mr beat
04-02-2008, 04:48 PM
it doesnt works with smart @ me. He opened and then he does nothing.
Hurgymcgurgygurg
04-03-2008, 12:42 AM
Smart hasn't worked on this script in a while I think...
Illkillutill
04-03-2008, 11:07 PM
alright, here is a much better run.
=§ 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
==========================================
Edit: I agree, i will stop autoing for a few days, or weeks, idk :P
Cazabacca
04-04-2008, 10:56 PM
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.
Metagen
04-05-2008, 04:53 AM
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.
KoKouKo
04-05-2008, 05:01 AM
@ everybody whining about SMART, they changed the prefixes, nothing to do with this script
logs should be at the top of your bank
Cazabacca
04-05-2008, 05:35 PM
i start and i just logs me out. :(
KoKouKo
04-05-2008, 05:36 PM
Do you get an error message?
edit:
I'm fast aren't I?
Cazabacca
04-05-2008, 06:33 PM
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
I'm fast aren't I?
well not bad :rolleyes:
EDIT. ha! you werent that fast now :P
Illkillutill
04-05-2008, 07:22 PM
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 ;).
sundeep125
04-05-2008, 07:49 PM
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
Illkillutill
04-05-2008, 08:00 PM
You are posting in the wrong thread. This is his fletcher, not stringer.
Cazabacca
04-05-2008, 08:06 PM
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 ;).
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.
EDIT. sundeep wrong thread. go and post your problem here http://www.villavu.com/forum/showthread.php?t=23779
sundeep125
04-05-2008, 09:22 PM
but i get the same error with the fletcher anyway
KoKouKo
04-06-2008, 01:26 AM
@ 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.
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' +
'310FF0702C63E4C3510591809A42712A1663A90984940CD34 2031' +
'9D08353308A89949580D00AF0E0E34';
SBU := '78DA637466626078C68002CA02F919C480342' +
'310FF07024613A09A370C6880118904D2BE40353708A8F106 AA79' +
'4C408D1D50CD6B026A02806A6EE1570300E3880BF5';
MagicLog := '78DA635CC0C4C0F08E0105FCFEB6824103483' +
'302F17F20609C0C54F394010D302291407A1250CD57026AFA 30ED' +
'C250B38608352B806A9E1150331FA8E621013533806A1E115 0B30' +
'8A8E61B7E35005DD814AD';
NormLogs := '78DA639CC9C4C0F088010514FAF2318832323' +
'00011C37F2060EC06AA79CC800618914820DD0154F386809A 5940' +
'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('78DA632C676460F06540015585850C22401 A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104 D414' +
'11560300CA4A0963');
'log' : Log := DTMFromString(Logs);
'bow' : bows := DTMFromString(bow);
'inv' : begin
Log := DTMFromString(Logs);
KnifeDTM := DTMFromString('78DA632C676460F06540015585850C22401 A2' +
'8C3F01F08184B812C3F0634C0884402E92A22D4E401595104 D414' +
'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('78DA63B4606460B8CB8002EA8AC31844803 42' +
'394CF680F64DDC1ADE63F1030C60059FF207222503587574B 3288' +
'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
KoKouKo
04-06-2008, 02:49 AM
@ 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).
sundeep125
04-06-2008, 12:14 PM
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
Illkillutill
04-06-2008, 07:19 PM
here is my most recent proggy. :D
=§ 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
I like it :D
KoKouKo
04-06-2008, 09:18 PM
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
how was it hidden?
hampus008
04-07-2008, 02:06 PM
A fast question, has he fixed the mage color?
Cheers
KoKouKo
04-08-2008, 01:21 AM
No and he won't for a while.
noobauto1
04-08-2008, 04:17 AM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 20 Minutes and 45 Seconds
Gained 17712 Exp
Fletched 432 willow Longbows(u)
Did 16 Loads
Performed Anti Ban 16 Times
Gained 1 Levels
==========================================
No More Active Players
Terminating
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 20 Minutes and 45 Seconds
Gained 17712 Exp
Fletched 432 willow Longbows(u)
Did 16 Loads
Performed Anti Ban 16 Times
Gained 1 Levels
==========================================
Error 1 |Logged Out While Fletching?| Fatel = True
Please Report The Above ERrors :D
Successfully executed
hampus008
04-09-2008, 07:37 PM
Do any1 have Magic log color? im desperate =)
Sjaakie37
04-10-2008, 06:40 AM
Do any1 have Magic log color? im desperate =)
I dont know;)
About the script:
I installed The newest Srl (15).
The script didnt work great.
now, i have srl 14 again, it works much better.
Altough, i wont say its the greatest script i've ever seen.
'cause in about 40 minutes, he just logs out with a full bag of willow longbows (u).
But within the 40 minutes, he works great;)
maybe you can update the script or something?
KoKouKo
04-11-2008, 05:01 AM
Post about the logs in a week or two, PM Myles or do it yourself. Because Football is away and Myles is updating this script.
hampus008
04-11-2008, 07:41 PM
Going to Stringer^^
deathcrow
04-13-2008, 03:54 AM
for some reason when i start the script it deposits my knife into the bank and withdraws all logs, so it ends up doing nothing. And if i put the knife in the bank next to the logs, it doesnt withdraw the knife but just the logs. So basically, it isnt working for me -.-.
Sjaakie37
04-13-2008, 08:49 AM
for some reason when i start the script it deposits my knife into the bank and withdraws all logs, so it ends up doing nothing. And if i put the knife in the bank next to the logs, it doesnt withdraw the knife but just the logs. So basically, it isnt working for me -.-.
I had that problem too.
Make sure you have scar 3.15, but SRL 14!
now it works fine for me.
Too bad that i get very much randoms. -.-
XxXx Toxin XxXx
04-14-2008, 08:49 PM
Uh oh... looks like we have a color identifier here wrong. I wanted to use this script to fletch some yews into yew longbows(u) but it doesn't even realize that there are any yews in the first slot. Are your logs suppose to be in the first slot? Because if they are, what the script does is it logs me in, opens up the bank, closes the bank, and just logs out saying there weren't any yew logs in my bank:(
EDIT: I managed to fix the problem and I realized that you need rev 14... thing is that it makes short bows... why, I don't know...:S Help anyone?
Illkillutill
04-14-2008, 10:39 PM
It should make the bow of choice. Make sure you have your options set to longbow = True, i think thats right. Also, knife goes in first inv slot, then logs at top of bank
start logged out with knife in inv and no logs. it will do the rest.
deathcrow
04-15-2008, 01:16 AM
k thanks...i had srl 15 =p
Mr beat
04-15-2008, 11:41 AM
how u change back from 15 to 14
StrikerX
04-15-2008, 11:54 AM
how u change back from 15 to 14
Open Scar/File/Update Srl Svn to rev then a page should pop up and type 14
Pu3rto0wn
04-16-2008, 09:47 PM
ok...were are you supposed to put the knife?? cause if i put it in inv it stores it if i put in bank it ingores it what am i supposed to do?
Pu3rto0wn
04-16-2008, 10:24 PM
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 17 Minutes and 59 Seconds
Gained 15498 Exp
Fletched 378 willow Longbows(u)
Did 14 Loads
Performed Anti Ban 15 Times
Gained 2 Levels
==========================================
aznpimpsturr
04-18-2008, 11:46 PM
I have my Knife 1st slot & Magics first row in bank. It withdraws the Magics and does nothing.
KoKouKo
04-19-2008, 07:25 AM
I have my Knife 1st slot & Magics first row in bank. It withdraws the Magics and does nothing.
Magics were updated a while back now the DTMs don't work anymore.
Finta1
04-20-2008, 02:42 PM
im getting the whole Gametab: 4 does not exist thing.
what does this mean?
Taylor
04-21-2008, 10:47 PM
For some reason, I will find it outside the bank, logged out randomly. I'm not sure why, it's really making me mad... I'm at the PC bank, using KoKouKo's fix on page 24. Someone help?
-Taylor
86/99 Fletching ^.^
kingarabian
04-22-2008, 01:54 AM
==========================================
=§ Ultimate Fletcher By: FootBalljds §=
==========================================
Been Fletching For: 5 Hours, 49 Minutes and 17 Seconds
Gained 246861 Exp
Fletched 6021 willow Longbows(u)
Did 223 Loads
Performed Anti Ban 338 Times
Gained 2 Levels
Slepted 21 Times
==========================================
Finta1
04-22-2008, 03:09 PM
well im gettign this, i am using SRL 14 with scar 3.15 like i was told to do,
i will start in varrock west bank and everything is set up correctly, i will start the script in SMART version, due to that the nature of my computers use means it must not interfere with other processes.
It will login correctly, find a bank booth, but then deposit my knife and withdraw a full inventory of logs.
It then proceeds to try and "use" a willow log with another willow.
I would fix but i dont know how.
I have even tried pausing the script and manually withdrawing the knife then resuming, but this also does not seem to work.
it only fails to fletch the logs, and then slowly starts depositing the willows two at a time.
If anyone could suggest something or tell me how to fix i would greatly appreiciate it.
Or just at least let me know that i need to wait for an update or something.
Thanks.
EDIT : sorry for the really long post i just try to give as much detail as possible when explaining my problems.
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.