rj
2013-03-05 22:13:15
Lol, found my first script (technicly second, leeched one that someone pretty much made before back in 2010)
Look how bad it is:
LOL
Look how bad it is:
////////////////////////////////////////////////////////////////////////////////
//////////////////////////Soulsplit Log molestor Version 1.02///////////////////
/////////////////////////Made by RJJ95, Use at any bank/////////////////////////
///////////////Programed to be used at south neit, change bank color////////////
///////////if you want it to fletch somewere else. HAPPY BOTTING!!!!!!//////////
{
-Recent updates,Version 1.02-
added new feature, waits for logs to be fletched instead of waiting
-32000 miliseconds fixed bank bitmap, looks for usebank is a wider area
-searches for bank in a slightly wider area to combat camera shifting
-ADDED ANTIBAN, YOU CAN EDIT MESSAGE IT SENDS AT LINE 39,EDIT ANTIBANRATE=50 TO
WHAT EVER YOU WANT, THE HIGHER THE NUMBER, THE LESS LIKELY A BREAK WILL BE TAKEN
-added random breaktimes
}
////////////////////////////////////////////////////////////////////////////////
program Molestor;
{$i srl/srl.simba}
const
fletchlogcolor=10201131;
storebowcolor=5330965;
bank=1857394;
bankx=210;
banky=124;
bankxtwo=278;
bankytwo=164;
antibanrate=50;
minbreaktime=4; //min break time in minutes
maxbreaktime=9; // max break time in minutes
var
usebank,withall,outcome,resulte,bitch: Integer;
procedure antibanme;
begin
outcome := Random(antibanrate);
bitch := (maxbreaktime*60000)-(minbreaktime*60000);
resulte := Random(bitch)
if outcome = 1 then
begin
Writeln('Doing random antiban wait!')
TypeSend('This is boring lol');
wait(minbreaktime+resulte)
end;
end;
procedure storeall;
var
X, Y: Integer;
begin
Writeln('Looking for bow . . .')
if FindColorTolerance(X,Y,storebowcolor,557,213,722,247,19) then
begin
MouseSpeed:=15;
mmouse(x, y,1,1);
Writeln('Found bow to store.')
Wait(550 + Random(150));
ClickMouse(x, y, mouse_Right);
Wait(550 + Random(150));
FindBitmapToleranceIn(withall, X, Y,554, 210, 730, 322, 145)
mmouse(x, y,1,1);
Writeln('Storing bows . . .')
Wait(550 + Random(150));
ClickMouse(X, Y, mouse_Left)
Wait(850 + Random(150));
ClearDebug;
antibanme;
end;
end;
procedure bankit;
var
X, Y: Integer;
begin
Writeln('FLooking for bank . . .')
if FindColorTolerance(X,Y,bank,bankx,banky,bankxtwo,bankytwo,17) then
begin
MouseSpeed:=15;
mmouse(x, y,1,1);
Writeln('Found bank.')
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Right);
Wait(900 + Random(250));
FindBitmapToleranceIn(usebank, X, Y,31, 93, 455, 304, 165)
MouseSpeed:=40;
mmouse(x, y,1,1);
WriteLn('Opened Bank!');
Wait(500 + Random(120));
ClickMouse(X, Y, mouse_Left);
Wait(1500 + Random(250));
storeall;
end;
end;
procedure fletchinglogs;
var
X, Y: Integer;
begin
if FindColorTolerance(X,Y,fletchlogcolor,558,215,728,455,15) then
begin
Wait(500 + Random(150));
fletchinglogs;
end;
bankit;
end;
procedure fletchit;
var
X, Y: Integer;
begin
Writeln('Finding knife . . .')
if FindColorTolerance(X,Y,7434874,683,420,727,457,15) then
begin
Writeln('Found knife.')
MouseSpeed:=15;
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Writeln('Finding log . . .')
Wait(850 + Random(150));
FindColorTolerance(X,Y,fletchlogcolor,557,214,719,458,15)
mmouse(x, y,1,1);
Writeln('Using knife on log . . . ')
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Writeln('Waiting for fletch interface . . . ')
Wait(1400 + Random(150));
Writeln('Found fletching interface')
FindColorTolerance(X,Y,10799322,242,380,253,387,15)
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Right);
Wait(550 + Random(150));
mmouse(x, y+65,1,1);
Wait(550 + Random(150));
ClickMouse(x, y, mouse_Left);
//Writeln('Fletching logs . . . ')
//Wait(32000 + Random(2200));
//bankit;
fletchinglogs;
end;
end;
procedure closefletch;
var
X, Y: Integer;
begin
if FindColorTolerance(X,Y,8421504,423,29,491,45,15) then
begin
Writeln('Closing bank . . .')
MouseSpeed:=20;
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait(700 + Random(150));
fletchit;
end;
end;
procedure withd;
var
X, Y: Integer;
begin
if FindColorTolerance(X,Y,storebowcolor,560,213,720,457,6) then
begin
if FindColorTolerance(X,Y,3358280,18,25,499,325,6) then
begin
Writeln('LogMolestor detected bows in your inventory and is banking them!')
bankit;
end;
Writeln('LogMolestor detected your bank open and bows in your inventory!')
storeall;
end;
if FindColorTolerance(X,Y,fletchlogcolor,560,213,720,457,6) then
begin
if FindColorTolerance(X,Y,3358280,18,25,499,325,6) then
begin
Writeln('LogMolestor detected logs in your inventory and your bank open!')
closefletch;
end;
Writeln('LogMolestor detected logs in your inventory and is starting to fletch!')
fletchit
end;
if FindColorTolerance(X,Y,fletchlogcolor,16,25,502,327,6) then
begin
Writeln('Withdrawing logs . . .')
MouseSpeed:=18;
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Right);
Wait(250 + Random(150));
mmouse(x, y+72,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait(950 + Random(150));
closefletch;
end;
end;
begin
usebank := BitmapFromString(38, 13, 'meJyTUdeWoTuauuMYEOHiko3+/2' +
'dARpg2MjAwYOVSaCMEoFlKaxvR2IPQRggXjtBCBk+ko8UjBBC0Ec5' +
'GBmjiuCwlOx7xeBDNdirGI6Zf0IIaOcSIsVEGKQ8iG4JmAv7QJinl' +
'4HI2fr/gSlHEpBy00ENzNlZBglJEKqAPAgANRYUm');
withall := BitmapFromString(33, 14, 'meJyTUdeWGV5o6o5jEIQpiMlGRg' +
'4T/gMRfhG4dgYGBjRz4OJobEwDkcUxReB6kY0i1Qq4s+FcrFbgN5a' +
'gFWgI0wo0RKoVQHFMBtaAgkcHGVYA2RATaBRQREb3qBX4rYBHE1Yu' +
'LjYe7XhU0gIBAMyXctQ=');
repeat
withd;
until False;
FreeBitmap(usebank);
FreeBitmap(withall);
end.LOL