SCAR Code:
program PowerLogCutter;
{.include srl/srl.scar}
{.include srl/srl/core/users.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
{--------------------TheGuyWhoGotOn's Power Chopper-------------------]
[==========================Version Beta V0.4==========================}
var yougetsome, xx, yy, yourinv, users, h, m, s, nogametab1, darkness, cut, deads, lvltouse, lost: integer;
tc: array[1..10] of integer;
logs: array[1..5] of integer;
const ignorecolours = true; //Make this true if the bot is dropping your axes (If you are using a rune axe make this true, I think it may still dorp mith but I'm not sure)
//Below are all the trees you want to cut, some have the same colours
//this is just to help
const regular = true;
oak = true;
willow = true;
yew = false;
procedure setup;
begin
SRLID:= ''; //Your SRL Stats ID
SRLPASSWORD:= ''; //your SRL Stats Password
NumberOfPlayers(2); //The number of players you will be using
Players[0].Name:= 'User'
Players[0].Pass:= 'Pass'
Players[0].Nick:= 'Nick' //3-4 characters, no capitals
Players[0].Skill:= 'woodcutting' //woodcutting
Players[0].Active:= True
Players[1].Name:= 'Username'
Players[1].Pass:= 'Password'
Players[1].Nick:= 'Nick' //3-4 characters, no capitals
Players[1].Skill:= 'woodcutting' //woodcutting
Players[1].Active:= True
Setupplayers;
Users:= HowManyPlayers;
end;
procedure reports;
begin
SendSRLReport;
srlrandomsreport;
addtoreport('------Power Cutter By:-------');
addtoreport('-------TheGuyWhoGotOn--------');
addtoreport('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
ConvertTime(gettimerunning, H, M, S)
addtoreport('Time Run: ' + inttostr(H) + ':' + inttostr(M) + ':' + inttostr(S));
addtoreport('Logs Cut: ' + inttostr(cut));
addtoreport('Deaths: ' + inttostr(deads));
addtoreport('Axes Lost: ' + inttostr(lost));
addtoreport('Black Minimap: ' + inttostr(darkness));
addtoreport('-----------------------------');
end;
procedure setcb;
begin
status('Setting up colours and bitmaps');
yougetsome := BitmapFromString2(False, 'a696A378DA95945BB2C' +
'4200844B7441E2A7E621EFB5FD20DEA38520CC6EB4797D569D178' +
'42006071C0E3F28FF878B12E2BAB676739F8A123761CE68CC3E6F' +
'B9D5ADEDDBE6556DC79EE8EE67B8E00427C34B89BF5E08DFD1958' +
'13CF43E25581B66F663BDBD32BB10F37E6E302B918C341473C711' +
'19A7D508328A696CFF3EA774E990BBFE845805B5A69C3BD2AC4EB' +
'9314BBA8F3A48D1C469DECAB95FAE34CA9A3158C31934C9E10A96' +
'A49E6BDF41984932861AA8AE4D1E9CCF8E6C5FD77CE0F2E9AC804' +
'A95E2D2ED5D7C99396E73A0AF1EEDE3429416748EA25DFAD12C95' +
'221D311BCFAA4A236DE57D451FBD69EB288CC931AF79AC14B1099' +
'2635F5BE138C5E3A4555B03AF41F14343BABBEAAF642CAFADABB5' +
'53F48593D65551BFBC63F4DBFFB4B8FF4740C76FDFFF9E5B6A7FB' +
'4574FA04293DFE00D84');
if regular = true then tc[10]:= 2378820 else tc[10]:= 1
if regular = true then tc[9]:= 3367257 else tc[9]:= 1
if oak = true then tc[8]:= 4095859 else tc[8]:= 1
if oak = true then tc[7]:= 4426621 else tc[7]:= 1
if willow = true then tc[6]:= 728603 else tc[6]:= 1
if willow = true then tc[5]:= 199690 else tc[5]:= 1
if yew = true then tc[4]:= 1784368 else tc[4]:= 1
if yew = true then tc[3]:= 3823696 else tc[3]:= 1
tc[2]:= 1
tc[1]:= 1
logs[1]:= 5411248
logs[2]:= 5345198
logs[3]:= 5542835
logs[4]:= 6129318
logs[5]:= 6063524
yourinv := BitmapFromString2(False, 'aD38F378DA758C41128' +
'0300803BF84B5507A046BFFFF249BE84C4F5E76982C89881C2D64' +
'B19645EB3778F03603CF0B16104D5AA96003D56D27EABBCBD6BB5' +
'69C9F8A4427FFF1222E7DB1E9042F053B44A1B5495BB1D0065BA9' +
'3BC9BABB6CBD6B722A17EECC48CF5F5AB8478E185D3E3279001D7' +
'');
lvltouse := BitmapFromString2(False, 'a0B03378DAAD56D196842' +
'008FD25B3347AC4B2FFFFA40D68766811A7999D1EEEF1E00D950B' +
'680821ECEB01A1C001A912E6797A8E13E3100973269C906681C61' +
'19899C843DA799688618E6499B7FC1C1762CE69275C13218EC42F' +
'34AED372E050628938C22418F82B190150DB6FE188099606EA59C' +
'D9755C40E980F2C58A0FC0B111748A77F3BBBE1B684B7BD79638D' +
'EAAF356085753D4EBCC42F9C48C5ED5447C7503814BDF4B6464F1' +
'5D22D356D64F4D9C58FE67C4B53A31A4738BB3BF9BB87A4F0B19F' +
'5AC2329C1AF1D87A131DDD7CE8AA13D4E76914CC6755B878B076A' +
'34EC3A7CC7AF1911AF4FE357C6DF79867FEC732C0E679B8FC6BF6' +
'76DA0F5DA08A46E2ADC1678EBB73A3CE25264E4D5D2CC2E4DC769' +
'992F982CCB731392D3A07B4CF6EFE3738AC9AB7CAC5CEB1FA7095' +
'DBF6FBFF5E74F4F2D9D3A25B3B2F2A488FA50F08871569A8D38F9' +
'B93B16E1E5ABD94874697E86AE4AEC27D92AAEFD1CDBCF8DF528D' +
'E38015038C0D75749EF775746AC7554773940A6EDFD01153DDAC7' +
'146E16B2D84AF2DE636F9B076745E99BBEC7EED344E2DB7A11773' +
'F572EBF62B7CF1AEB0B3CE1BA3714309F3579DB97AEFB1C6D975D' +
'DA97BFFDDEEF459FFBCA38EBC3DFAEBFE005D3');
end;
procedure recievelogs;
var waited: integer;
begin
waited:= 0
repeat
status('Waiting for logs');
wait(500 + random(500));
waited:= waited + 1;
until((findbitmap(yougetsome, xx, yy))or(findbitmap(yourinv, xx, yy))or(waited = 20))
end;
function mscolour(colour: integer): boolean;
var xx, yy: integer;
begin
result:= findcolor(xx, yy, colour, 4, 4, 515, 337)
end;
procedure perfectmouse(x, y, xran, yran, xshake, yshake, delay, delran: integer; left: boolean);
var xx, yy, xx1, yy1, rand: integer;
begin
getmousepos(xx, yy);
getmousepos(xx1, yy1);
x:= x - xran + random(xran * 2)
y:= y - yran + random(yran * 2)
xx:= xx - x
yy:= yy - y
repeat
if (xx > 0)or(xx = 0) then
begin
rand:= 1 + random(xshake)
xx:= xx - (rand)
xx1:= xx1 - (rand)
end;
if xx < 0 then
begin
rand:= 1 + random(xshake)
xx:= xx + (rand)
xx1:= xx1 + (rand)
end;
if (yy > 0)or(yy = 0) then
begin
rand:= 1 + random(xshake)
yy:= yy - (rand)
yy1:= yy1 - (rand)
end;
if yy < 0 then
begin
rand:= 1 + random(xshake)
yy:= yy + (rand)
yy1:= yy1 + (rand)
end;
movemouse(xx1, yy1);
wait(delay + random(delran));
until((xx = 0)and(yy = 0))
wait(delay * 25 + random(delran * 7));
getmousepos(xx, yy);
holdmouse(xx, yy, left);
wait(31 + random(50));
releasemouse(xx, yy, left);
end;
procedure clickmscolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
if findcolor(xx, yy, colour, 4, 4, 515, 337) then
begin
wait(100 + random(200));
if ran = false then
begin
perfectmouse(xx, yy, 0, 0, 2, 2, 2, 2, true);
end;
if ran = true then
begin
perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);
end;
end;
end;
procedure clicktree;
var click: boolean;
number: integer;
begin
number:= 1
repeat
status('Clicking Tree');
click:= true
if click = true then
begin
if mscolour(tc[number]) then
begin
findcolor(xx, yy, tc[number], 4, 4, 515, 337);
findent(xx, yy, true);
clickmscolour(tc[number], true, true);
click:= false
end;
wait(10);
end;
number:= number + 1
until((click = false)or(number = 11))
end;
function findtree: boolean;
begin
if (mscolour(tc[1]))or(mscolour(tc[2]))or(mscolour(tc[3]))or(mscolour(tc[4]))or(mscolour(tc[5]))or(mscolour(tc[6]))or(mscolour(tc[7]))or(mscolour(tc[8]))or(mscolour(tc[9]))or(mscolour(tc[10])) then result:= true
end;
function lastlog: boolean;
begin
if (findcolorTolerance(xx, yy, logs[1], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[2], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[3], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[4], 694, 436, 710, 459, 75))or(findcolorTolerance(xx, yy, logs[5], 694, 436, 710, 459, 75)) then result:= true
end;
function invcolourtol(colour, tolerance: integer): boolean;
var xx, yy: integer;
begin
result:= findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance)
end;
procedure clickinvcolourtol(colour, tolerance: integer; left, ran: boolean);
var xx, yy: integer;
begin
if findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance) then
begin
wait(100 + random(200));
if ran = false then mouse(xx, yy, 0, 0, left);
if ran = true then mouse(xx, yy, 3, 3, left);
end;
end;
procedure nextaccount;
begin
if Users > 0 then
begin
status('Switching accounts');
writeln('You were logged out, next user');
nextplayer(false);
loginplayer;
wait(2000 + random(1000));
makecompass('N');
HighestAngle;
fixchat;
end;
end;
procedure droplogs;
var number: integer;
attempts: integer;
begin
number:= 3
repeat
status('Dropping logs');
if invcolourtol(logs[1], 75) then
begin
if ignorecolours = false then
begin
clickinvcolourtol(logs[1], 75, false, true);
wait(350 + random(250));
if chooseoption('rop ') then
begin
cut:= cut + 1
reportvars[0]:= 1
reports;
end;
end;
end;
wait(100 + random(100));
if invcolourtol(logs[2], 75) then
begin
if ignorecolours = false then
begin
clickinvcolourtol(logs[2], 75, false, true);
wait(350 + random(250));
if chooseoption('rop ') then
begin
cut:= cut + 1
reportvars[0]:= 1
reports;
end;
end;
end;
if invcolourtol(logs[number], 75) then
begin
clickinvcolourtol(logs[number], 75, false, true);
wait(350 + random(250));
if chooseoption('rop ') then
begin
cut:= cut + 1
reportvars[0]:= 1
reports;
end;
end;
number:= number + 1
if number = 6 then number:= 3
wait(100 + random(100));
if LoggedIn = false then
begin
if users > 0 then users:= users - 1
Nextaccount;
end;
if getcurrenttab = 4 = false then gametab(4)
attempts:= attempts + 1
if attempts = 40 then
begin
writeln('Cannot drop some kind of object, logging out');
logout;
end;
until((lastlog = false)or(loggedin = false)or(attempts = 40))
attempts:= random(10);
end;
function mmcolour(colour: integer): boolean;
var xx, yy: integer;
begin
result:= findcolor(xx, yy, colour, 572, 10, 722, 159)
end;
function events: boolean;
var xx, yy: integer;
begin
result:= false
status('Waiting for all fights and walking');
repeat
result:= false
wait(500 + random(500));
if mmcolour(255) then result:= true
if (findcolor(xx, yy, 255, 253, 150, 270, 163))or(findcolor(xx, yy, 65280, 253, 150, 270, 163)) then result:= true
until(result = false)
end;
procedure mcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
xx:= xx + random(xx2 - xx)
yy:= yy + random(yy2 - yy)
mouse(xx, yy, 0, 0, true);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi, modified by TheGuyWhoGotOn
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
begin
status('You died, going to oak tree in Lumby');
Result := True;
wait(3000 + random(1500));
mouse(633, 139, 5, 5, true);
deads:= deads + 1
reportvars[4]:= 1
reports;
end;
2: if FindMod then
begin
Result := True;
status('Found MOD, waited');
end;
3: if FindMime then
begin
status('Stupid mime, logging out');
Result := True;
if users > 0 then users:= users - 1
wait(2000 + random(1000));
makecompass('N');
HighestAngle;
fixchat;
end;
4: if FindMaze then
begin
status('In maze, logging out');
Result := True;
if users > 0 then users:= users - 1
wait(2000 + random(1000));
makecompass('N');
HighestAngle;
fixchat;
end;
5: if FindQuiz then
begin
status('Being quized, logging out');
Result := True;
if users > 0 then users:= users - 1
wait(2000 + random(1000));
makecompass('N');
HighestAngle;
fixchat;
end;
6: if FindDemon then
Result := True;
7: begin
if {NoGameTab} 1 = 0 then
begin
Result := True;
status('A Game tab is missing, logging out');
writeln('A gametab is missing! Random? Logging out...');
nogametab1:= nogametab1 + 1
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
status('In dark area, logigng out');
writeln('You are in a dark area, random? Logging out...');
darkness:= darkness + 1
reportvars[3]:= 1
reports;
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure fixrandoms;
begin
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
findnormalrandoms;
findfastrandoms;
if findfight then
begin
writeln('You are under attack');
runto('n', true);
status('Under attack, running away');
end;
if findbitmap(lvltouse, xx, yy) then
begin
writeln('You lost all your axes, logging out...');
lost:= lost + 1
reportvars[2]:= 1
reports;
logout;
end;
end;
procedure AntiBan;
var perform: integer;
begin
perform:= random(500)
if perform = 1 then HoverSkill(players[currentplayer].skill, false);
if perform = 1 - 125 then PickUpMouse;
if perform = 3 then AlmostLogout;
if perform = 4 then
begin
Wait2(4000 + random(1000), true);
wait(1000 + random(500));
makecompass('N');
end;
if perform = 5 then BoredHuman;
end;
begin
SetupSRL;
ScriptID:= '243';
setcb;
setup;
readln('WARNING, this only works with regular trees and oak trees, please try to avoid others. Will be for more trees when this script is out of beta...');
movetotray;
FindWindowBySize(766, 504)
activateclient;
mcbox(521, 5, 551, 432, true);
status('Logging in and setting up');
LoginPlayer;
wait(1500 + random(1500));
makecompass('N');
HighestAngle;
fixchat;
repeat
if users = 0 = false then
begin
if getcurrenttab = 4 = false then gametab(4)
if findtree then
begin
wait(2500 + random(1000));
clicktree;
recievelogs;
end;
events;
if lastlog then droplogs
wait(1000 + random(1000));
status('Performing anti-ban');
AntiBan;
status('Checking/fixing randoms');
fixrandoms;
if LoggedIn = false then
begin
if users > 0 then users:= users - 1
Nextaccount;
end;
end;
wait(10 + random(10));
until(Users = 0)
status('Setting Up Reports');
reports;
end.
Scar Minisize!!!
and if u want to run the script urself plz go ahead
SCAR Code:program PowerLogCutter;
Reply With Quote
Originally Posted by markus
