Footy
2012-07-18 11:54:37
2012-07-18 11:54:37
2012-07-18 14:01:47
2012-07-18 14:05:17
2012-07-18 14:36:08
2012-07-18 14:48:09
2012-07-18 16:44:42
2012-07-18 17:15:30
2012-07-18 17:22:12
2012-07-18 17:38:47
2012-07-18 19:34:12
2012-07-18 19:45:39
program MaplelongbowFletcherNavBar;
{$DEFINE SMART}
{$i srl/srl.simba}
var
Fletched:integer;
const
ToFletch = 10000; //How many Longbows are you making?
Username = 'name';
Password = 'pass';
Procedure Login; //SETUP FINISHED
begin
Writeln('Waiting for client to load');
wait(randomrange(30000, 40000));
Writeln('Client loaded, lets log in');
Mouse(378, 300, 3, 3, 1);
wait(randomrange(100, 200));
Mouse(362, 212, 3, 3, 1);
Typesend(Username);
wait(randomrange(200, 400));
Typesend(password);
wait(randomrange(3000, 4000));
Mouse(381, 513, 10, 3, 1);
wait(randomrange(8000, 12000));
end;
Procedure Antiban;
begin
writeln('Gotta make sure we dont get banned!');
case random(10) of
0..2: begin wait(randomrange(56000, 57000)); end;
3..4: begin sleepandmovemouse(randomrange(56000, 58000)); end;
5..7: begin sleepandmovemouse(randomrange(30000, 31000)); wait(randomrange(26000, 27000)); end;
8..10: begin wait(randomrange(40000, 42000)); sleepandmovemouse(randomrange(16000, 17000)); end;
end;
end;
Procedure Minibreaker;
begin
case random(200) of
1: begin writeln('taking a quick break'); wait(randomrange(5000,100000)); end;
end;
end;
Procedure FirstFletch;
begin
Writeln('Time To Fletch!');
wait(randomrange(200,300));
Mousebox(568, 272, 588, 286, 1);
wait(randomrange(700,900));
Mousebox(226, 458, 292, 500, 1);
wait(randomrange(1000,1200));
Mousebox(222, 458, 298, 501, 1);
Antiban;
end;
Procedure Fletch;
begin
Writeln('Time To Fletch!');
wait(randomrange(200, 300));
Mouse(578, 280, 2, 2, 1);
wait(randomrange(850, 1000));
Mousebox(298, 458, 298, 500, 1);
Antiban;
end;
Procedure Bank;
begin
Writeln('Time To Bank');
wait(randomrange(200, 300));
Mouse(259, 170, 2, 2, 1);
wait(randomrange(1500, 2000));
Mouse(583, 277, 2, 2, Mouse_right);
Chooseoption('ll')
wait(randomrange(400, 500));
Mouse(102, 159, 2, 2, Mouse_right);
wait(randomrange(300, 400));
Chooseoption('ll');
wait(randomrange(200, 400));
Mouse(490, 84, 2, 2, 1);
wait(randomrange(400, 600));
Fletched := Fletched + 28
end;
procedure Proggy;
var
xp:integer;
begin
XP := Fletched * 59
Writeln('********************************');
Writeln('Thank You For Using Foootys Maple Longbow Fletcher');
Writeln('Time running = ' + (timerunning));
Writeln('Maple Longbows Fletched = ' + IntToStr(fletched));
Writeln('EXP Earned = ' + IntToStr(XP));
Writeln('Leave Feedback On Forum Thread Please!');
Writeln('********************************');
end;
begin
SetupSRL
Login
Mouse(545, 74, 5, 5, 1);
wait(randomrange(200,300));
keydown(VK_up);
wait(randomrange(1000, 1200));
keyup(VK_up);
FirstFletch;
Minibreaker;
Bank;
Repeat
Fletch;
Bank;
Proggy
Minibreaker
Until(ToFletch <= Fletched);
Writeln('All done, Lets terminate');
end.
2012-07-19 08:00:03
2012-07-19 08:05:01
2012-07-19 08:15:08
From: Foooty
Ooh, that would be a problem. I'll try to add pin support today.
E: I don't think I can add pin support without the include, but I'll try my best.
2012-07-19 10:19:52
program MaplelongbowFletcherNavBar;
{$DEFINE SMART}
{$i srl/srl.simba}
var
Fletched:integer;
const
ToFletch = 10000; //How many Longbows are you making?
Username = 'name';
Password = 'pass';
Procedure Login; //SETUP FINISHED
begin
Writeln('Waiting for client to load');
wait(randomrange(30000, 40000));
Writeln('Client loaded, lets log in');
Mouse(378, 300, 3, 3, 1);
wait(randomrange(100, 200));
Mouse(362, 212, 3, 3, 1);
Typesend(Username);
wait(randomrange(200, 400));
Typesend(password);
wait(randomrange(3000, 4000));
Mouse(381, 513, 10, 3, 1);
wait(randomrange(8000, 12000));
end;
Procedure Antiban;
begin
writeln('Gotta make sure we dont get banned!');
case random(10) of
0..2: begin wait(randomrange(56000, 57000)); end;
3..4: begin sleepandmovemouse(randomrange(56000, 58000)); end;
5..7: begin sleepandmovemouse(randomrange(30000, 31000)); wait(randomrange(26000, 27000)); end;
8..10: begin wait(randomrange(40000, 42000)); sleepandmovemouse(randomrange(16000, 17000)); end;
end;
end;
Procedure Minibreaker;
begin
case random(200) of
1: begin writeln('taking a quick break'); wait(randomrange(5000,100000)); end;
end;
end;
Procedure FirstFletch;
begin
Writeln('Time To Fletch!');
wait(randomrange(200,300));
Mousebox(568, 270, 588, 280, 1);
wait(randomrange(700,900));
Mousebox(226, 458, 292, 500, 1);
wait(randomrange(1000,1200));
Mousebox(222, 458, 298, 501, 1);
Antiban;
end;
Procedure Fletch;
begin
Writeln('Time To Fletch!');
wait(randomrange(200, 300));
Mouse(578, 275, 2, 2, 1);
wait(randomrange(850, 1000));
Mousebox(298, 458, 298, 500, 1);
Antiban;
end;
Procedure Bank;
begin
Writeln('Time To Bank');
wait(randomrange(200, 300));
Mouse(259, 170, 2, 2, 1);
wait(randomrange(1500, 2000));
Mouse(583, 277, 2, 2, Mouse_right);
Chooseoption('ll')
wait(randomrange(400, 500));
Mouse(102, 159, 2, 2, Mouse_right);
wait(randomrange(300, 400));
Chooseoption('ll');
wait(randomrange(200, 400));
Mouse(490, 84, 2, 2, 1);
wait(randomrange(400, 600));
Fletched := Fletched + 28
end;
procedure Proggy;
var
xp:integer;
begin
XP := Fletched * 59
Writeln('********************************');
Writeln('Thank You For Using Foootys Maple Longbow Fletcher');
Writeln('Time running = ' + (timerunning));
Writeln('Maple Longbows Fletched = ' + IntToStr(fletched));
Writeln('EXP Earned = ' + IntToStr(XP));
Writeln('Leave Feedback On Forum Thread Please!');
Writeln('********************************');
end;
begin
SetupSRL
//Login
Wait(randomrange(20000,25000));
Mouse(545, 74, 5, 5, 1);
wait(randomrange(200,300));
keydown(VK_up);
wait(randomrange(1000, 1200));
keyup(VK_up);
FirstFletch;
Minibreaker;
Bank;
Repeat
Fletch;
Bank;
Proggy
Minibreaker
Until(ToFletch <= Fletched);
Writeln('All done, Lets terminate');
end.
2012-07-19 18:18:25
2012-07-19 18:46:30
2012-07-20 12:33:02
2012-07-20 19:32:18
2012-07-25 18:06:28
2012-07-27 20:00:39
2012-07-27 20:07:36
SRL_NAVBAR_LOGIN_X = 0;
SRL_NAVBAR_LOGIN_Y = 0;
SRL_NAVBAR_INGAME_X = 0;
SRL_NAVBAR_INGAME_Y = 0;Just make sure to change it back before you use another script.program MaplelongbowFletcherNavBar;
{$DEFINE SMART}
{$i srl/srl.simba}
var
Fletched, Counter:integer;
const
ToFletch = 10000; //How many Longbows are you making?
Username = 'user';
Password = 'pass';
Procedure Login; //SETUP FINISHED
begin
Writeln('Waiting for client to load');
wait(randomrange(5000, 8000));
Writeln('Client loaded, lets log in');
Mouse(378, 300, 3, 3, 1);
wait(randomrange(100, 200));
Mouse(362, 212, 3, 3, 1);
Typesend(Username);
wait(randomrange(200, 400));
Typesend(password);
wait(randomrange(3000, 4000));
Mouse(381, 513, 10, 3, 1);
wait(randomrange(8000, 12000));
end;
Procedure Antiban;
begin
case random(750) of
1: begin writeln('Antiban: Wait'); wait(randomrange(10000, 30000)); end;
2..5: begin writeln('Antiban: Checking skills'); mouse(593, 234, 5, 5, 1); wait(randomrange(10000, 20000)); mouse(653, 231, 4, 4, 1); wait(randomrange(100, 200)); end;
6..8: begin writeln('Antiban: Checking crafting XP'); mouse(593, 234, 4, 4, 1); wait(randomrange(200, 600)); mmouse(632, 409, 4, 4); wait(randomrange(2000, 10000)); mouse(653, 231, 4, 4, 1); wait(randomrange(200, 450)); end;
9..12: begin writeln('Antiban: Sleepandmovemouse'); sleepandmovemouse(randomrange(1000, 10000)); end;
14..15: begin writeln('Antiban: Checking whos online'); Mouse(565, 532, 4, 4, 1); wait(randomrange(2000, 3000)); mouse(653, 231, 4, 4, 1); wait(randomrange(100, 200)); end;
end;
end;
Procedure Waiting;
var
x, y, LogDTM:integer;
begin
LogDTM := DTMFromString('m1gAAAHic42JgYDjAxMCwH4iPAvEmID4JxGeAeC8QnwLi7UB8Hog/MTIwPAXi70D8DojfAvE3IP4FFX/GCFETacUDNJWJIDZiIA4wEokRAADFxRIE');
writeln('Waiting for bows to be fletched!');
wait(randomrange(1000, 2000));
Marktime(Counter);
while findDTM(LogDTM, x, y, 552, 259, 737, 512) do
begin
case random(11) of
0..7:wait(randomrange(100, 500));
8:Sleepandmovemouse(Randomrange(200, 600));
9: begin wait(randomrange(100, 300)); Sleepandmovemouse(randomrange(50, 250)); end;
10: Antiban;
end;
if timefrommark(Counter) > 60000 then
begin
FreeDTM(logDTM);
Exit;
end;
end;
FreeDTM(LogDTM);
end;
Procedure Minibreaker;
begin
case random(200) of
1: begin writeln('Taking a quick break'); wait(randomrange(5000,100000)); end;
end;
end;
Procedure FirstFletch;
begin
Writeln('Time To Fletch!');
wait(randomrange(200,300));
Mousebox(568, 272, 588, 286, 1);
wait(randomrange(900,1100));
Mousebox(226, 458, 292, 500, 1);
wait(randomrange(1000,1200));
Mousebox(222, 458, 298, 501, 1);
Waiting
end;
Procedure Fletch;
begin
Writeln('Time To Fletch!');
wait(randomrange(200, 300));
Mouse(578, 280, 2, 2, 1);
wait(randomrange(1050, 1250));
Mousebox(298, 458, 298, 500, 1);
Waiting
end;
Procedure Bank;
begin
Writeln('Time To Bank');
wait(randomrange(200, 300));
Mouse(326, 213, 4, 4, 1);
wait(randomrange(1500, 2000));
Mouse(583, 277, 2, 2, Mouse_right);
waitoption('All', 1000)
wait(randomrange(400, 500));
Mouse(102, 159, 2, 2, Mouse_right);
waitoption('All', 1000);
wait(randomrange(200, 400));
Mouse(490, 84, 2, 2, mouse_right);
waitoption('lose', 1000);
wait(randomrange(400, 600));
Fletched := Fletched + 28
end;
procedure Proggy;
var
xp:integer;
begin
XP := Fletched * 59
Writeln('********************************');
Writeln('Thank You For Using Foootys Maple Longbow Fletcher');
Writeln('Time running = ' + (timerunning));
Writeln('Maple Longbows Fletched = ' + IntToStr(fletched));
Writeln('EXP Earned = ' + IntToStr(XP));
Writeln('Leave Feedback On Forum Thread Please!');
Writeln('********************************');
end;
begin
Mousesetclientarea(0, 0, 765, 552);
SetupSRL
Login
Mouse(545, 76, 6, 6, 1);
Wait(randomrange(200, 300));
keydown(VK_right);
wait(randomrange(1150, 1180));
keyup(VK_right);
FirstFletch;
Minibreaker;
Bank;
Repeat
Fletch;
Bank;
Proggy
Minibreaker
Until(ToFletch <= Fletched);
Writeln('All done, Lets terminate');
end.
2012-08-03 07:05:20
2012-08-03 07:51:36
From: Derpitbro
The script doesn't work.. Sorry to tell you.. But nothing happens when I change the things in the upper post :-)
2012-08-03 08:34:49
From: Austin
Did you try his other maple longbow maker?
http://villavu.com/forum/showthread.php?t=85530
2012-08-03 09:11:41
2012-08-03 10:15:45
From: Derpitbro
It clearly says, that it is broken atm?:spongebob:
2012-08-03 10:19:13
2012-08-03 12:23:53
2012-08-03 13:20:11
2012-08-03 15:12:32
2012-08-03 18:06:35
2012-08-03 18:35:01
2012-08-03 22:40:18
2012-08-03 23:29:52
2012-08-04 06:27:57
2012-08-04 08:06:34
2012-08-04 15:41:12
2012-08-04 15:46:47
2012-08-04 15:49:57
2012-08-04 15:51:06
2012-08-04 15:53:00
2012-08-09 14:03:29
2012-08-09 14:06:27
2012-08-09 14:12:52
2012-08-09 14:40:31
2012-08-09 14:55:46
2012-08-09 15:05:37
2012-08-10 00:42:12
2012-08-10 12:12:23
2012-08-10 12:30:18
2012-08-11 00:41:21
2012-08-11 08:43:06
2012-08-11 12:57:44
2012-08-11 12:59:23
2012-08-12 09:29:31
2012-08-12 18:20:54
2012-08-13 11:53:52
From: Footy
see if it works with yews, if not, ill make another script for yews, or an option to cut maples or yews. Thanks for the feedback!
2012-08-13 13:32:36
From: Footy
see if it works with yews, if not, ill make another script for yews, or an option to cut maples or yews. Thanks for the feedback!
2012-08-13 16:46:29
2012-08-13 17:27:15
2012-08-13 23:43:50
From: Footy
Seeing how this script is getting quite popular(to my standards anyways) Im going to completely redo it in the future, I apologize for the issues, ill fix them right after I finish my SRL membership script!
2012-08-14 00:14:46
2012-08-14 10:26:43
From: Footy
Not going well… Didn't use enough advanced color finding methods… Oh well, there's always next month! I'll publish v2 of this script tonorroe.
You must spread some Reputation around before giving it to Footy again.Ah well, I tried!
2012-08-14 10:29:22
2012-08-14 10:33:58
From: Footy
In V2, I will add support for all logs, hopefully normal-magic. Thanks for rep!
2012-08-14 10:51:44
2012-08-14 11:06:52
procedure Bank;
begin
Writeln('Time To Bank');
wait(randomrange(200, 300));
Mouse(326, 213 - Yoff, 4, 4, 1);
repeat
wait(randomrange(200, 500));
until (PinScreen) or (BankScreen)
repeat
if (PinScreen) then
(InPin(Players[0].Pin));
until (BankScreen);
wait(randomrange(400, 800));
Mouse(583, 277 - Yoff, 2, 2, Mouse_right);
waitoption('All', 1000) wait(randomrange(400, 500));
Mouse(102, 159 - Yoff, 2, 2, Mouse_right);
waitoption('All', 1000);
wait(randomrange(200, 400));
MMouse(490, 84 - Yoff, 2, 2);
wait(randomrange(200, 400));
if isuptext('lose') then
clickmouse2(mouse_left)
else
begin
writeln('couldnt find the close bank button, well try one more time');
MMouse(490, 84 - Yoff, 2, 2);
if isuptext('lose') then
begin
Clickmouse2(mouse_left);
writeln('We found the close bank button on the second try');
end;
end;
wait(randomrange(400, 600));
Fletched := Fletched + 28
end; edited:procedure Bank;
begin
while not (bankscreen) and not (pinscreen) do
begin
Writeln('Time To Bank');
Mouse(326, 213 - Yoff, 4, 4, 1);
wait(randomrange(500, 1000));
end;
repeat
wait(randomrange(200, 500));
until (PinScreen) or (BankScreen)
repeat
if (PinScreen) then
(InPin(Players[0].Pin));
until (BankScreen);
wait(randomrange(400, 800));
Quickdeposit(SRL_DEPOSIT_ALL);
withdraw(1,0,0);
Closebank;
wait(randomrange(400, 600));
Fletched := Fletched + 28
end;
2012-08-14 11:08:16
From: ziyilin
footy i made a few changes to your script, and tidied up a few functions
for the banking:
currently:edited:procedure Bank;
begin
Writeln('Time To Bank');
wait(randomrange(200, 300));
Mouse(326, 213 - Yoff, 4, 4, 1);
repeat
wait(randomrange(200, 500));
until (PinScreen) or (BankScreen)
repeat
if (PinScreen) then
(InPin(Players[0].Pin));
until (BankScreen);
wait(randomrange(400, 800));
Mouse(583, 277 - Yoff, 2, 2, Mouse_right);
waitoption('All', 1000) wait(randomrange(400, 500));
Mouse(102, 159 - Yoff, 2, 2, Mouse_right);
waitoption('All', 1000);
wait(randomrange(200, 400));
MMouse(490, 84 - Yoff, 2, 2);
wait(randomrange(200, 400));
if isuptext('lose') then
clickmouse2(mouse_left)
else
begin
writeln('couldnt find the close bank button, well try one more time');
MMouse(490, 84 - Yoff, 2, 2);
if isuptext('lose') then
begin
Clickmouse2(mouse_left);
writeln('We found the close bank button on the second try');
end;
end;
wait(randomrange(400, 600));
Fletched := Fletched + 28
end;procedure Bank;
begin
while not (bankscreen) and not (pinscreen) do
begin
Writeln('Time To Bank');
Mouse(326, 213 - Yoff, 4, 4, 1);
wait(randomrange(500, 1000));
end;
repeat
wait(randomrange(200, 500));
until (PinScreen) or (BankScreen)
repeat
if (PinScreen) then
(InPin(Players[0].Pin));
until (BankScreen);
wait(randomrange(400, 800));
Quickdeposit(SRL_DEPOSIT_ALL);
withdraw(1,0,0);
Closebank;
wait(randomrange(400, 600));
Fletched := Fletched + 28
end;
2012-08-14 11:29:43
2012-08-14 12:02:23
From: ziyilin
well i got a up to date version that i use, u want to upload it ?
2012-08-14 12:24:06
2012-08-14 13:22:04
2012-08-14 15:01:08
2012-08-14 20:18:43
2012-08-14 20:49:44
2012-08-19 15:47:27
2012-08-19 20:04:34