SCAR Code:
program VEBBurner;
{.include SRL/SRL.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'jjhgj';
Players[0].Pass := 'byy';
Players[0].Nick := 'inf'; //3 or 4 letter from your username
Players[0].Active := True;
Players[0].Strings[0] := 'Maple'; //Oak,Willow,Yew,Magik,or Log.
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Signature;
begin
Writeln('111111111111 1111111111 111111111111');
Writeln(' 111 11 1111 111111111111');
Writeln(' 111 11 1111 1111 ');
Writeln(' 111 11 1111 1111 1111 ');
Writeln(' 111 11 1111 1111 1111 ');
Writeln('111111111111 11111111111 1111 ');
Writeln(' VEBURNER Version 0.1 ');
end;
var
willows, nlog, oak, tinderbox, Magik, Yew, Maple, x, y, bankers: Integer;
procedure DeclareDtms;
begin
Willows := DTMFromString('78DA63146164606001622410E6ABC02007A44' +
'1A2FF8180911FC8E2455503918591405A0CC8E222A04616C8E224' +
'A04601D33D186A6480ACFF0CF8D5B013E11E2EC2FE0200F11F06E' +
'5');
Nlog := DTMFromString('78DA636C63646058CE80028A22CD18E480345' +
'086E13F1030D602591B18D00023032B540D983715C85A4D404D27' +
'11E65402594BF1AB010077B50B34');
Oak := DTMFromString('78DA639CC7C8C0C008C448A026C18A410E488' +
'344FF030123480D0FAA1A882C8C04D2FD4016070135AB812C4E22' +
'D4301250B316C86225A0662190C54D40CD14208B0BBF1A0093B80' +
'A94');
Tinderbox := DTMFromString('78DA633CC8C4C0B09F9101192439F330C8016' +
'990E87F2060DC08547318550D44164602E9B34035BB08A801D975' +
'92809AE340358708A8390954B38E809A9D40359BF1AB0100FFC30' +
'F66');
Magik := DTMFromString('78DA632C666460F8C780027E7F5FC92007A48' +
'1320CFF8180310DC8E2664455C4C0884402E93A208B9D809A7220' +
'8B8B809A42208B87809A4C208B0FBF1A002A5E0AAE');
Maple := DTMFromString('78DA63FCC9C0C0B09C010544DA7233C801694' +
'620FE0F048C1F808C0D0C6880118904D2BF80C446026AD881AC35' +
'04D48058EBF1AB0100BE2D0B19');
Yew := DTMFromString('78DA63DCC9C8C0B094010584D87333C80169A' +
'00CC37F20605C07646D6240038C4824903E0264AD26A0660790B5' +
'81809AE540D632026A9601596B09A8D90F642D22A0E60090B500B' +
'F1A00A3760FCE');
Bankers := DTMFromString('78DA630C666260A8614001F535650CFF81342' +
'310FF0702C630A09A2654356FDF426846289F31900835BE44A8F1' +
'24424D24504D23AA9A3F7F9850D5C4629A83AE06006CEC17B2');
end;
procedure SpecialWalKRandom; forward;
procedure BeginLightNormal; forward;
procedure BeginLightMaple; forward;
procedure BeginLightYew; forward;
procedure BeginLightMagik; forward;
procedure BeginLightOak; forward;
procedure BeginLightWillow; forward;
procedure DoLog;
begin
FixBank;
if FindDTM(nLog, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(300);
ChooseOption('All');
CloseBank;
SpecialWalkRandom;
BeginLightNormal;
end;
procedure DoOak;
begin
FixBank;
if FindDTM(Oak, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(300);
ChooseOption('All');
CloseBank;
SpecialWalkRandom;
BeginLightOak;
end;
procedure DoWillow;
begin
FixBank;
if FindDTM(Willows, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(300);
ChooseOption('All');
CloseBank;
SpecialWalkRandom;
BeginLightWillow;
end;
procedure DoMagik;
begin
FixBank;
if FindDTM(Magik, x, y, MSX1, MSY1, MSX2, MSY2) then
Mouse(x, y, 5, 5, False);
Wait(300);
ChooseOption('All');
CloseBank;
SpecialWalkRandom;
BeginLightMagik;
end;
procedure DoMaple;
begin
if FindDTM(Maple, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 5, 5, False);
Wait(300);
ChooseOption('All');
CloseBank;
SpecialWalkRandom;
BeginlightMaple;
end;
end;
procedure DoYew;
begin
FixBank;
if FindDTM(Yew, x, y, MSX1, MSY1, MSX2, MSY2) then
writeln('woot');
Mouse(x, y, 5, 5, False);
Wait(300);
ChooseOption('All');
CloseBank;
SpecialWalkRandom;
BeginLightYew;
end;
procedure WithdrawThemLogs;
begin
MakeCompass('N');
wait(300 + random(23));
OpenBankQuiet('veb');
Wait(2000);
fixbank;
case lowercase(Players[CurrentPlayer].Strings[0]) of
'Log': DoLog;
'Willow': Dowillow;
'Oak': Dooak;
'Magik': DoMagik;
'Maple': DoMaple;
'Yew': DoYew;
end;
end;
procedure SpecialWalkRandom;
begin
begin
case random(3) of
0: RadialRoadWalk(FindVarrockRoadColor, 41, 53, 56, 5, 5);
1: RadialRoadWalk(FindVarrockRoadColor, 32, 40, 56, 5, 5);
2: RadialRoadWalk(FindVarrockRoadColor, 28, 38, 48, 5, 5);
3: RadialRoadWalk(FindVarrockRoadColor, 16, 26, 36, 5, 5);
end;
end;
end;
procedure WalkOutside;
begin
SpecialWalkRandom;
end;
procedure WaitForLight; forward;
procedure BeginlightNormal;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(nLog, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
WaitForLight;
until not FindDtm(nlog, x, y, mix1, miy1, mix2, miy2)
end;
procedure BeginlightMagik;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(Magik, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
WaitForLight;
until not FindDtm(Magik, x, y, mix1, miy1, mix2, miy2)
end;
procedure BeginlightYew;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(Yew, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
WaitForLight;
until not FindDtm(Yew, x, y, mix1, miy1, mix2, miy2)
end;
procedure BeginlightMaple;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(Maple, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
WaitForLight;
until not FindDtm(Maple, x, y, mix1, miy1, mix2, miy2)
end;
procedure Beginlightoak;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(oak, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
WaitForLight;
until not FindDtm(oak, x, y, mix1, miy1, mix2, miy2)
end;
procedure Beginlightwillow;
begin
repeat
if FindDTM(Tinderbox, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 5, 5, True);
Wait(300);
if FindDTM(willows, x, y, MiX1, MiY1, MiX2, MiY2) then
Mouse(x, y, 5, 5, true);
WaitForLight;
until not FindDtm(willows, x, y, mix1, miy1, mix2, miy2)
end;
procedure WaitForLight;
begin
if InChat('att') then
repeat
Wait(300);
FindTalk;
Wait(200);
FindNormalRandoms;
Wait(300);
until InChat('catch');
end;
begin
SetupSrl;
DeclarePlayers;
DeclareDtms;
Signature;
WithdrawThemLogs;
end.