SCAR Code:
var
a, b, TotalDone, UpDown, time1 : integer;
ALog, burn, cant, time2, time3, attempt : integer;
NoMoreLogs, FirstTime, stoppingscript : boolean;
expgetting : extended;
TheStatus : string;
const
MiniWater = 10386796 ;//The stream east of the bank
WaterSymbol = 10386795 ;//The water symbol on the minimap
BankSymbol = 3984354 ;//The bank symbol color of the bank
UserName = '' ;//Your username
Password = '' ;//Your password
TotalNeeded = 557 ;//Total Amount of logs
TinderBox = 9605789 ;//The color of the tinerbox in your inventory (sorta grey)
TypeofLog = 2 ;//0 is normal, 1 is oak, 2 is willow,
//3 is maple, 4 is yew and 5 is magic
Lamp = 'Prayer' ;//The skill you wish to train when a lamp comes
//DEBUG//
LogWait = 1 ;//Only change if you seem to be dropping logs and not burning them.
//Its the ammount of seconds to wait between logs (1 is the default value)
/////////
procedure LoadPics;
begin
ALog := BitmapFromString(34, 7,
'0000000000000000000000009D6B399867378E613383582E79522A' +
'B07000B88015B07000A87011A86800B88015B07000B0801A301F11' +
'724D28674624604022573C1F50351A3C2815372411301F11000001' +
'302020000000000000000000000000000000000000000000000000' +
'0000009D6B39D0A867C09040A87815B87022B88015B88015C0883A' +
'B87022A87815B87022C8A04EA87011B070007C552C674624604022' +
'573C1F50351A4630183C2815301F11000001302020302020000000' +
'000000000000000000000000000000000000000000000000D0B078' +
'B07000B07000A87815B87022B87022C09040A87011B08032C08018' +
'C09040B8883FA87011B070006B4926644324573C1F50351A463018' +
'422C18372411301F11000001302020000000000000000000000000' +
'000000000000000000000000000000000000C09040A87011A87011' +
'B08032B87022A86800C0883AB88015B87022A87011B87022B0801A' +
'C0883AA870116F4A266443245C3D1F50351A422C18372411301F11' +
'000001302020302020000000000000000000000000000000000000' +
'000000000000000000000000000000B88015A87815B0801AA87011' +
'B08032A87011B08032C08018573C1FB07000A87011B0801AC8A04E' +
'B07000C0801850351A422C183C28153724112A1D0D000001302020' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000D0A867A87815C0883AB08032C8A04EA87011' +
'A87011B07000C09040B88015A87011B87022B08032B87022B87022' +
'B07000B0801A3C2815301F11000001302020302020000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000B87022B87022C0883AB0801AB08032A87815' +
'C8A04EB07000B0801AB87022B8883FB08032A87011A87815B07000' +
'C090402A1D0D000001302020000000000000000000000000000000' +
'000000000000000000000000');
attempt := BitmapFromString(15, 7,
'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B9A581' +
'B9A581B9A581B9A581000000B9A581B9A581BBAE92000000000000' +
'000000BAAB8ABAAB8AB9A581000000000000000000B9A581B9A581' +
'000000000000000000000000BAAB8ABAAB8ABAAB8A000000B9A581' +
'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B9A581' +
'BBAE92000000000000000000000000B9A581B9A581000000B9A581' +
'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8ABAAB8A' +
'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B9A581' +
'000000B9A581B9A581000000B9A581B9A581BAAB8A000000BAAB8A' +
'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8ABAAB8A' +
'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
'000000B9A581BAAB8AB9A581000000000000');
Cant := BitmapFromString(24, 11,
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581BAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92BAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
'000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABBAE92' +
'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8A' +
'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB9A581' +
'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE92000000' +
'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000BAAB8A' +
'000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92BBAE92' +
'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8ABAAB8A' +
'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A000000' +
'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8A' +
'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B9A581' +
'000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000BBAE92' +
'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A' +
'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8ABAAB8A' +
'BAAB8A000000BAAB8ABAAB8ABBAE92000000000000000000000000' +
'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE92000000' +
'000000000000000000');
Burn := BitmapFromString(8, 10,
'000000B29975B29975B29975B29975B29975B9A581B9A581000000' +
'B9A581B9A581B29975B29975B29975B29975B29975000000B9A581' +
'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B29975' +
'B29975B29975B9A581B29975B29975000000000000000000B29975' +
'B29975B29975B29975000000000000B9A581B29975000000B29975' +
'B29975B29975000000000000B29975B29975B29975000000B29975' +
'B29975000000000000B29975B29975B29975000000B29975B29975' +
'000000000000B29975B9A581B9A581000000B9A581B9A581000000' +
'000000000000000000000000B9A581B9A581B9A581B9A581')
end;
procedure DeadHandler;
begin
writeln('');
writeln('');
writeln('You Are Dead');
writeln('');
writeln('');
stoppingscript:=true;
end;
procedure ChangeReport;
var
str1 : string;
int1, seconds, minits, hours : integer;
begin
seconds:=(getsystemtime-time1)/1000;
minits:=0;
hours:=0;
while(seconds>59)do
begin
seconds:=seconds-60;
minits:=minits+1;
end;
while(minits>59)do
begin
minits:=minits-60;
hours:=hours+1;
end;
str1:=floattostr(expgetting*totaldone);
int1:=pos('.',str1);
str1:=copy(str1,1,int1+2);
if(firsttime=false) then
begin
clearreport;
addtoreport('Hello ' + username + ' this is the status so far');
addtoreport('FireMaker Deluxe by Squigglyo');
addtoreport('***********************');
addtoreport('Currently: '+ (TheStatus));
addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
addtoreport('XP Gained: '+str1);
addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
addtoreport('Worked for: ' + inttostr(hours) + ' Hours and ' + inttostr(minits) + ' Minutes');
end
else
begin
clearreport;
addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
addtoreport('');
addtoreport('This is a free program so this should never be sold');
addtoreport('I hope you enjoy using this, check out my other scripts too');
addtoreport('');
addtoreport('Currently - ' + (TheStatus));
end;
end;
procedure OutOfBank;
var
a1, c, a2 : integer;
begin
TheStatus:=('Out of Bank');
Status(TheStatus);
ChangeReport;
Direction:='SE';
repeat
findrandoms;
if(fightfound=true)then
begin
MouseC(random(5)+670,random(5)+110,1);
MapFlagging;
end;
findcolor(a,b,BankSymbol,555,5,725,155);
a2:=a
a:=a+random(10)+50;
b:=b-random(10)-20;
a1:=a;
c:=0;
repeat
a1:=a1-random(3);
if(similarcolors(getcolor(a1,b),15528686,50))or(similarcolors(getcolor(a1,b),2105598,100))then
begin
a1:=a;
b:=b-5-random(2);
end;
if(b<20)then
begin
findcolor(a,b,banksymbol,555,5,725,155);
a1:=a;
c:=c+1;
a:=a+random(10)+50;
b:=b-random(10)-20;
if(c=10)then
begin
writeln('')
writeln('')
writeln('Got lost leaving the bank')
writeln('')
writeln('')
stoppingscript:=true;
exit;
end;
end;
wait(1);
until(a1<(a2-25));
MouseC(a,b,1);
wait(500+random(100));
until(findbitmaptolerancein(RunescapeFlag,a,b,550,5,735,160,100))or(findbitmaptolerancein(RunescapeFlag2,a,b,550,5,735,160,100))
MapFlagging;
wait(random(300)+800);
end;
procedure BackToBank;
var
c : integer;
begin
TheStatus:=('Back to the Bank');
Status(TheStatus);
ChangeReport;
Direction:='S'
FindRandoms;
c:=0;
while(findcolor(a,b,Banksymbol,555,5,735,155)=false)do
begin
a:=random(35)+645;
b:=random(75)+85;
MouseC(a,b,1);
wait(random(300)+300);
MapFlagging;
if(c=5)then
begin
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
TheStatus:=('Lost way to the bank');
Status(TheStatus);
ChangeReport;
stoppingscript:=true;
exit;
end;
c:=c+1;
end;
c:=0;
repeat
findcolor(a,b,BankSymbol,555,5,735,155);
MouseC(a+random(10),b+random(10),1);
c:=c+1;
if(c=25)then
begin
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
until(findbitmaptolerancein(RunescapeFlag,a,b,560,5,735,165,100))or(findbitmaptolerancein(RunescapeFlag2,a,b,560,5,735,165,100));
wait(random(300)+300);
MapFlagging;
end;
procedure MoveUp;
var
c : integer;
begin
TheStatus:='Moving back to the bank';
Status(TheStatus);
ChangeReport;
c:=0
if(findcolor(a,b,WaterSymbol,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
c:=c+1;
mouseC(475+random(5),260+random(5),1);
wait(random(300)+500);
MapFlagging;
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
until(findcolor(a,b,BankSymbol,555,5,735,160));
c:=0;
if(findcolor(a,b,MiniWater,640,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
c:=c+1;
MouseC(random(10)+120,random(10)+100,1);
wait(random(300)+500);
MapFlagging;
until(findcolor(a,b,BankSymbol,555,5,735,160));
c:=0;
if(findcolor(a,b,MiniWater,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
c:=c+1;
MouseC(random(10)+120,random(10)+100,1);
wait(random(300)+500);
MapFlagging;
until(findcolor(a,b,BankSymbol,555,5,735,160));
c:=0
if(findcolor(a,b,MiniWater,555,5,735,160)=false)and(findcolor(a,b,WaterSymbol,555,5,735,160)=false)and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
repeat
c:=c+1
MouseC(random(10)+640,random(10)+115,1);
MapFlagging;
begin
Writeln('');
writeln('');
Writeln('Lost way to the bank');
Writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
until(findcolor(a,b,BankSymbol,555,5,736,160))or(getcolor(467,286)=65535)
c:=0
if(getcolor(467,286)=65535)then
repeat
mousec(675+random(10),115+random(10),1);
MapFlagging;
c:=c+1
if(c=20)then
begin
Writeln('');
writeln('');
Writeln('Lost way to the bank');
Writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
until(findcolor(a,b,banksymbol,555,5,735,160));
repeat
c:=c+1
findcolor(a,b,banksymbol,555,5,735,160)
MouseC(a+random(10),b+random(10),1);
if(c=25)then
begin
stoppingscript:=true;
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
exit;
end;
wait(random(200)+400);
until(findbitmaptolerancein(Runescapeflag,a,b,555,5,735,160,100));
MapFlagging;
a:=random(10)+575;
b:=random(10)+215;
MouseC(a,b,2);
wait(random(300)+300);
MouseC(a+random(10),b+random(3)+52,1);
wait(random(200)+200);
OutOfBank;
end;
procedure FireMaking;
var
color1, color2, color3, c : integer;
begin
TheStatus:='Making Fires';
Status(TheStatus);
Direction:= 'SE'
MouseC(random(10)+570,random(10)+225,0);
if(IsTextAt2(9,9,'Use T',100)=false)then
begin
writeln('');
writeln('');
writeln('Couldnt find the tinerbox in your inventory');
writeln('');
writeln('');
stoppingscript:=true;
exit;
end;
repeat
c:=0;
Color1:=getcolor(262,57);
Color2:=getcolor(416,56);
Color3:=getcolor(63,182);
FindRandoms;
if(fightfound=true)then
begin
MoveUp;
exit;
end;
if(IsDead=true)then
Exit;
UseItem(1,1);
wait(random(500)+1000);
TheStatus:=('Finding the Log')
Status(TheStatus);
ChangeReport;
if(findbitmaptolerancein(ALog,a,b,560,200,735,460,100)=false)then
begin
Exit;
end;
MouseC(a+random(10)+5,b-random(10),1);
wait(random(500)+500);
repeat
c:=c+1;
wait(10);
if(findbitmaptolerancein(cant,a,b,13,413,173,435,100)=true)then wait(1000);
if(findbitmaptolerancein(cant,a,b,13,413,173,435,100)=true)then
begin
MoveUp;
if(stoppingscript=true)then
exit;
C:=150;
end;
Findrandoms;
if(fightfound=true)then
begin
MoveUp;
c:=150;
end;
until(c=150)or(findbitmaptolerancein(attempt,a,b,40,410,70,430,100))
if(c<>150)then
begin
c:=0;
repeat
Findrandoms;
if(RandomTalked=true)or(fightFound=true)then
MoveUp;
wait(100);
c:=c+1
until(c=30)or((findbitmaptolerancein(burn,a,b,233,415,249,431,100))and((color1<>getcolor(262,57))or(color2<>getcolor(416,56))or(Color3<>getcolor(63,182))));
end;
wait(random(300)+(LogWait*1000));
until(NoMoreLogs=True);
wait(random(300)+300);
end;
procedure GetMoreLogs;
begin
TheStatus:=('Getting more Logs');
Status(TheStatus);
ChangeReport;
WithDraw(1,1,0);
CloseBank;
end;
procedure FirstTime1;
begin
addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
addtoreport('');
addtoreport('This is a free program so this should never be sold');
addtoreport('I hope you enjoy using this, check out my other scripts too');
writeln('');
writeln('Thank you for using Squigglyo"s FireMaker Deluxe')
writeln('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
writeln('');
writeln('');
writeln('This is a free program so this should never be sold');
writeln('I hope you enjoy using this, check out my other scripts too');
writeln('');
end;
procedure GetExp;
begin
if(typeoflog=0)then
expgetting:=40;
if(typeoflog=1)then
expgetting:=60;
if(typeoflog=2)then
expgetting:=90;
if(typeoflog=3)then
expgetting:=135;
if(typeoflog=4)then
expgetting:=202.5;
if(typeoflog=5)then
expgetting:=303.75;
end;
procedure DepositStuff;
var
q, w, c, d : integer;
begin
repeat
TheStatus:='Putting Stuff in the Bank';
Status(TheStatus);
ChangeReport;
q:=1;
a:=random(10)+580;
b:=random(10)+255;
MoveMouseSmoothEx(a,b,1,6,15,20,20);
repeat
wait(random(10)+5);
b:=b+random(10);
MoveMouseSmoothEx(a,b,1,6,15,20,20);
if(b>455)then
begin
b:=210;
if(q=1)then
a:=random(2)+625;
if(q=2)then
a:=random(2)+670;
if(q=3)then
a:=random(2)+710;
MoveMouseSmoothEx(a,b,1,6,15,20,20);
q:=q+1;
if(q=4)then
exit;
end;
until(IsTextAt2(9,9,'Store',100))
a:=a+5;
b:=b+5;
MoveMouseSmoothEx(a,b,1,6,15,20,20);
wait(random(500)+500);
clickmouse(a,b,false);
wait(random(500)+500);
w:=0;
repeat
w:=w+1;
wait(100);
until(findbitmaptolerancein(AllText,c,d,535,170,750,475,100))or(w=50);
if(w<50)then
begin
MoveMouseSmoothEx(c+random(10),d+random(3)+3,1,6,15,20,20);
wait(random(250)+500);
clickmouse(c,d,true);
wait(random(250)+500);
a:=random(10)+580;
b:=random(10)+255;
wait(random(500)+1000);
end;
until(q=4);
end;
begin
SetupSquig;
a:=0;
Loadchars('');
clearReport;
UpDown:=1;
StoppingScript:=false;
time1:=getsystemtime;
time2:=((time1/1000)/60)+random(100)+423;
user:=username;
pass:=password;
FindRandoms;
NoMoreLogs:=False;
FirstTime1;
OpenBag;
FirstTime:=true;
LoadPics;
GetExp;
SetChat;
If(IsDead=true)then
DeadHandler;
a:=random(10)+570;
b:=random(10)+215;
MouseC(a,b,0);
if(istextat2(9,9,'Use T',100)=false)then
begin
writeln('');
writeln('');
writeln('Couldnt find the tinderbox');
writeln('');
writeln('');
stoppingscript:=true;
end;
MouseC(a,b,2);
wait(random(100)+800);
MouseC(a+random(10),b+random(5)+52,1);
repeat
if(stoppingscript=true)then
break;
OutofBank;
If(IsDead=true)then
DeadHandler;
if(stoppingscript=true)then
break;
FirstTime:=false;
FireMaking;
If(IsDead=true)then
DeadHandler;
if(stoppingscript=true)then
break;
NoMoreLogs:=False;
FindRandoms;
BackToBank;
If(IsDead=true)then
DeadHandler;
if(stoppingscript=true)then
break;
FindRandoms;
TotalDone:=TotalDone+27;
if((TotalDone+1)>TotalNeeded)then
exit;
a:=0;
while(OpenBank=false)do
begin
a:=a+1;
BackToBank;
if(a=5)then
begin
writeln('');
writeln('');
writeln('Lost way to the bank');
writeln('');
writeln('');
Break;
end;
end;
DepositStuff;
GetMoreLogs;
FindRandoms;
if((((getsystemtime-time1)/1000)/60)>time2)then
begin
a:=random(4);
writeln('');
writeln('');
time3:=(getsystemtime-time1);
if(a=0)then
begin
writeln('Taking a 5 minit break');
wait(random(120000)+300000);
writeln('');
writeln('');
end;
if(a=1)then
begin
writeln('Taking a 10 minit break');
wait(random(150000)+600000);
writeln('');
writeln('');
end;
if(a=2)then
begin
writeln('Taking a 20 minit break');
wait(random(300000)+1200000);
writeln('');
writeln('');
end;
if(a=3)then
begin
writeln('Taking a 30 minit break');
wait(random(600000)+1800000);
writeln('');
writeln('');
end;
if(a=4)then
begin
writeln('Taking a 45 minit break');
wait(random(750000)+2700000);
writeln('');
writeln('');
end;
if(a=5)then
begin
writeln('Taking an hour break');
wait(random(90000)+3600000);
writeln('');
writeln('');
end;
Login;
time1:=getsystemtime+time3;
time2:=((time1/1000)/60)+random(100)+423;
end;
if(loggedin=false)then
Login;
until(TotalNeeded<=TotalDone)or(stoppingscript=true);
Logout;
end.