Home
works in oldschool rs using Simba with P07Include and P07UpChars font
This is 100% my coding work (not mass produced code so less detectable)
Make sure you use it at the Void Knight bank (Where the squires are - you sail there from Port Sarim)
If you want to switch from cutting logs to stringing bows you must change what's written in the "main" code.
Any questions please post here
This is 100% my coding work (not mass produced code so less detectable)
Make sure you use it at the Void Knight bank (Where the squires are - you sail there from Port Sarim)
If you want to switch from cutting logs to stringing bows you must change what's written in the "main" code.
Any questions please post here
- Spoiler:
- Program INTrigueFletch;
{
By INTrigue
Start in Secret No-random spot
}
{$i srl/srl.simba}
{$i P07Include.simba}
var
x,y,c: integer;
const
//USER CONFIGURATION
bankercolor1 = 6913940; //Use the color picker to pick the bank color
bankercolor2 = 8031123; //Use the color picker to pick the bank color
procedure Compass;
begin
if (P07_GetCompassAngle <> 355) then
begin
P07_MakeCompassNorth;
P07_MakeCameraAngleHigh;
P07_MakeCompassDegree(355);
end;
end;
procedure banker;
begin
if (P07_BankScreen = False) then repeat
writeln('Attempting to open bank...');
if P07_FindObjCustom(x,y, ['se','ank','ooth'],[bankercolor1,bankercolor2], 5) then
begin
Wait(RandomRange(34,50));
ClickMouse2(mouse_left);
Wait(RandomRange(1040,1110));
end;
until (P07_BankScreen);
end;
procedure getlogs;
begin
writeln('Banking Inventory')
if P07_BankScreen
then
repeat
P07_Deposit(2,28, True);
Wait(RandomRange(210,410));
until
(P07_InvCount < 2);
sleep(200);
begin;
writeln('Withdrawing Logs from bank slot 5');
repeat
sleep(186+random(12));
MMouse(RandomRange(271,288), RandomRange(74, 83), 0, 0);
if(not P07_isUpTextMultiCustom(['ogs','log','logs'])) then
Wait(RandomRange(500000,1001000));
if(P07_isUpTextMultiCustom(['ogs','log','logs'])) then
ClickMouse2(mouse_right);
Wait(RandomRange(37,50));
P07_ChooseOptionMulti(['All']);
sleep(400+random(15));
until
(P07_InvCount =28)
sleep(192+random(15));
end;
begin
repeat
MMouse(RandomRange(487 - 3, 487 + 3), RandomRange(41 - 3, 41 + 3), 0 ,0);
Wait(RandomRange(37,50));
if (P07_isUpTextMultiCustom(['lose'])) then
Clickmouse2(mouse_left);
until(not P07_isUpTextMultiCustom(['lose']));
Compass;
end;
end;
procedure getstrings;
begin
writeln('Banking Inventory')
if P07_BankScreen
then
repeat
P07_Deposit(1,28, True);
Wait(RandomRange(210,410));
until
(P07_InvCount = 0);
sleep(200);
writeln('Withdrawing strings from bank slot 6');
repeat
sleep(186+random(12));
MMouse(RandomRange(328 - 3, 328 - 3), RandomRange(79 - 3, 79 + 3), 0 ,0);
if(not P07_isUpTextMultiCustom(['Bow string','stri','Bow'])) then
Wait(RandomRange(300000,301000));
if(P07_isUpTextMultiCustom(['Bo','stri','Bow'])) then
ClickMouse2(mouse_right);
Wait(RandomRange(1500,2230));
P07_ChooseOptionMulti(['Withdraw X']);
Wait(RandomRange(1430,1578));
TypeSendEx(IntToStr(14), true);
Wait(RandomRange(900,1120));
if (P07_InvCount >14)
then P07_Deposit(1,28, True);
until
(P07_InvCount =14);
sleep(342+random(15));
end;
procedure getunstrung;
begin;
writeln('Withdrawing unstrung from bank slot 7');
repeat
sleep(186+random(12));
MMouse(RandomRange(378 - 3, 378 - 3), RandomRange(76 - 3, 76 + 3), 0 ,0);
if(not P07_isUpTextMultiCustom(['longbow','long','ngb'])) then
Wait(RandomRange(300000,301000));
if(P07_isUpTextMultiCustom(['longbow','long','ngb'])) then
Wait(RandomRange(37,50));
ClickMouse2(mouse_right);
Wait(RandomRange(37,50));
P07_ChooseOptionMulti(['Withdraw All']);
Wait(RandomRange(250,600));
until
(P07_InvCount =28)
or (not P07_isUpTextMultiCustom(['longbow']));
sleep(192+random(15));
repeat
MMouse(RandomRange(487 - 3, 487 + 3), RandomRange(41 - 3, 41 + 3), 0 ,0);
Wait(RandomRange(37,50));
if (P07_isUpTextMultiCustom(['lose'])) then
Clickmouse2(mouse_left);
until(not P07_isUpTextMultiCustom(['lose']));
Compass;
end;
procedure stringbows;
Begin
writeln('stringing bows')
MMouse(RandomRange(620 - 3, 620 - 3), RandomRange(339 - 3, 339 + 3), 0 ,0);
if (P07_isUpTextMultiCustom(['ring', 'ing', 'Str', 'Use', 'se S'])) then
Wait(RandomRange(45,55));
Clickmouse2(mouse_left);
Wait(RandomRange(100,15));
MMouse(RandomRange(661 + 3, 661 + 3), RandomRange(334 - 3, 334 + 3), 0 ,0);
if (P07_isUpTextMultiCustom(['ongbow', 'longbow', 'long'])) then
wait(RandomRange(37,50));
Clickmouse2(mouse_left);
wait(RandomRange(37,50));
if not (P07_isUpTextMultiCustom(['longbow', 'long']))
then wait (RandomRange (500000,510000));
MMouse(RandomRange(265 - 3, 265 + 3), RandomRange(411 - 3, 411 + 3), 0 ,0);
sleep(300+random(19));
Clickmouse2(mouse_right)
wait(RandomRange(223,468));
P07_ChooseOptionMulti(['Make All'])
Wait(RandomRange(400,600));
wait(RandomRange(16390,17290));
End;
procedure cutlogs;
Begin
writeln('cutting logs')
MMouse(RandomRange(580 - 3, 580 - 3), RandomRange(227 - 3, 227 + 3), 0 ,0);
if (P07_isUpTextMultiCustom(['nife', 'ife', 'Kni', 'Use', 'se K'])) then
Wait(RandomRange(45,55));
Clickmouse2(mouse_left);
Wait(RandomRange(100,15));
MMouse(RandomRange(619 + 3, 619 + 3), RandomRange(227 - 3, 227 + 3), 0 ,0);
if (P07_isUpTextMultiCustom(['ogs', 'log', 'logs'])) then
wait(RandomRange(37,50));
Clickmouse2(mouse_left);
wait(RandomRange(37,50));
MMouse(RandomRange(265 - 3, 265 + 3), RandomRange(411 - 3, 411 + 3), 0 ,0);
sleep(300+random(19));
Clickmouse2(mouse_right)
wait(RandomRange(37,50));
P07_ChooseOptionMulti(['Make X'])
Wait(RandomRange(250,600));
TypeSendEx(IntToStr(RandomRange(27,40)), true);
wait(RandomRange(48532,49710));
End;
Begin
SetupP07Include;
ActivateClient;
writeln('to start bot click on rs client and tap the arrow keys');
repeat
Compass;
banker;
Case Random (160) Of
1: Wait(40000 + random(7400));
2: Wait(25500 + random(8550));
3: Wait(60040 + random(6759));
4: Wait(20400 + random(2549));
end;
//getlogs;
//cutlogs;
// it either cuts logs or strings bows, not both
//if you want to cut bows
// remove the '//' in front of "get logs" and "cutlogs"
// place the '//' instead before
// "getstrings", "getunstrung", and "stringbows" to make them unreadable
getstrings;
getunstrung;
stringbows;
until(false);
End.
Last edited by Zodz on 2013-03-28, 04:45; edited 1 time in total
