SCAR Code:
program Squigglyos_FireMakerDeluxe;
{.include Squig.txt}
{You will need a current version of Squig to run this}
{ Start in Edgevil Bank
Start with tinderbox in your first inventory slot
The rest of your inventory needs to be logs.
Logs in bank need to be in the first spot.}
{Version 2}
{This is a script created by Squigglyo
You may not pass this off as your own script
You may not sell this script
You may, use this as much as you like
For any problems, or info about future updates,
contact [email]lesser_demon_slayer@hotmail.com[/email], or pm me,
if you know where to find me}
{Squigglyo is, and always will be the owner of this script
and owns all rights to this script}
var
a, b, TotalDone, UpDown, time1 : integer;
ALog, burn, cant, time2, time3, attempt : integer;
NoMoreLogs, FirstTime, stoppingscript : boolean;
expgetting : extended;
TheStatus : string;
const
MiniWater = 12095613 ;//The stream east of the bank
WaterSymbol = 14105091 ;//The water symbol on the minimap
BankSymbol = 4639715 ;//The bank symbol color of the bank
UserName = '' ;//Your username
Password = '' ;//Your password
TotalNeeded = 345 ;//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 = 'Ranged' ;//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(RunescapeFlag2,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.