SCAR Code:
/////////////////////////////////////////////////////////////////////////
////////// FireMaker By Pacmanpwns version 1.0 //////////////////////////
////////// V-Bright Setting Start in Varrock E Bank /////////////////////
////////// Logs in First bank slot Tinder Box in first inventory slot ///
////////// Start Logged OUT /////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
program FireMaker;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}
const
//// Setup
Username = ''; // Username of player
Password = ''; // Password of player
Nickname = ''; // First 3 Letters of your char name
BurnColor = 0; // The Log Color your burning
Loads = 2; // Number Of loads to do
Mspeed = 17; // ..Speed of mouse
//// DONE!
/// Do not touch
F1 = 236;
F2 = 69;
F3 = 290;
F4 = 122;
/// Do Not Touch
var i : integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :=Username;
Players[0].Pass :=Password;
Players[0].Nick :=Nickname;
Players[0].Active:= True;
end;
Procedure Setup;
begin
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
LoadFireMakingBitmaps;
Mousespeed:= Mspeed;
if not(loggedin) then
begin
LoginPlayer;
end
end;
Procedure MyFailSafe;
var x,y,bank : Integer;
begin
if(FindBitmap(Bank,x,y))then
begin
FixBank;
Mouse(x,y,2,1,false);
wait(500+random(500));
ClickOption('se-quickly',1);
Wait(1000+random(500));
Withdraw(1,1,0);
Wait(1000+random(500));
CloseBank;
end
end;
Procedure TheBank;
var x,y : integer;
begin
MakeCompass('W');
LowestAngle;
FindColorTolerance(x,y, 2050396,f1,f2,f3,f4,5);
Wait(500+random(1000));
Mouse(x,y,1,1,false);
wait(500+random(500));
ClickOption('se-quickly',1);
Wait(1000+random(500));
FixBank;
Wait(500+random(200));
Withdraw(1,1,0);
Wait(1000+random(500));
CloseBank;
If(Not(FindColorTolerance(x,y, 2050396,f1,f2,f3,f4,5))) Then
begin
MyFailSafe;
end
end;
Procedure GetToRoad;
var x,y : integer;
begin
FindColorTolerance(x,y,6250343,691,53,699,61,5);
Mouse(x,y,2,2,true);
Flag;
end;
Procedure Randoms;
begin
FindTalk;
Antiban;
end;
Procedure ScriptLoop;
begin
TheBank;
Randoms;
GetToRoad;
end;
var Bank : Integer;
begin
SetupSRL;
Setup;
SetRun(true);
Repeat ScriptLoop; Until (False);
if not(loggedin) then
begin
LoginPlayer;
end
bank := BitmapFromString(63, 9, 'z78DADD96490E83300C45AF143' +
'CC461C994FB1FA929502995312A0A115022BD058340EF9B0F9EA8' +
'73AD57E44852953DE125F4E42E6183E387A6E1AB9E397BB667519' +
'847E8347D6401AF19C00B4CBE634E7B720A0390A6755FEA313C93' +
'D5CD6BB7FB9E89A62D62C0F756CE0125AD7246ECD22A26018E389' +
'650807B089AD60C7FF9376CF3406D131722A34BAB1ECF4AB676E2' +
'8A56ABFC647E66EAF91E608392AA2622C004D3066B2772FBECF65' +
'B259FDE85EB5195943E739D79CBFC51FE5D52E66CE75FC9DCBCF1' +
'8E2C13AE799AF9FB27723029ABABADF636DBC9BA6AF69FBE29CEB' +
'91328C8E91FA384B7F9F3318D19EDBD787E01377BCAA4');
end.