SCAR Code:
program DruidHouseWalker;
{.include SRL/SRL.scar}
var
x, y, a, b : integer;
House, HouseYard, DeadSheepPlace, DoorBMP, TreesByBank : integer;
c:Tpoint;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'Juvanilekid';
Players[0].Pass := 'thisisntmypass';
Players[0].Nick := 'uva';
Players[0].Active := true;
Players[0].loc := '';
end;
Procedure LoadDTMs;
begin
House := DTMFromString('78DA63B460626088634001612EF20C5C409A1' +
'188FF0301A30B504D22A61A06A81A300D322704558D85B220A69A' +
'4C026ADC816AD251D57CF8F20C534D0C0135A6986AD0DD0C00104' +
'31104');
HouseYard := DTMFromString('78DA633460626088604001612EF20C92409A1' +
'1CA673405AA09425563A12C88AAC612A8260E554D699A39AA1A90' +
'5D8904D46801D50410506307541386AAE6C39767A86A2C806A7C0' +
'8A801B93915B79AFF40000009C01605');
end;
Procedure ToHouse;
var MMA : extended;
begin
LoadDTMs;
Writeln('Searching for Log on MiniMap...');
RadialWalk(65536, 270, 320, 70, -1, 0)
Writeln('Log found on the MiniMap!!!')
repeat
LoadDTMs;
wait(700)
Writeln('Looking for the House-Yard...')
until(FindDTMRotated(House, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA) or FindDTMRotated(HouseYard, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, MMA))
Writeln('Found it :)');
Mouse(x, y, 0, 0, true)
FreeDTM(House)
FreeDTM(HouseYard)
end;
Procedure EnterHouse;
Begin
SetAngle(True)
MakeCompass('E')
Writeln('Searching for door...');
wait(2000)
If(FindObjEx(x, y, ['Op', 'en', 'oo'], [2055030, 2453134, 2453134, 1922414], 15, 241, 173, 0.5, 58, 63, 368, 263))then
begin
Writeln('Found it, moving Closer.');
Mouse(x, y, 0, 0, true);
Flag;
wait(1000);
Writeln('Attempting to pick the lock...')
If(FindObjEx(x, y, ['Op', 'en', 'oo'], [2055030, 2453134, 2453134, 1922414], 15, 241, 173, 0.5, 58, 63, 368, 263))then
begin
repeat
wait(10);
MMouse(x, y, 0, 0)
if(IsUpText('oor'))then
wait(100);
begin
Mouse(x, y, 2, 2, false)
wait(700)
ChooseOption('Pick-')
end;
until(FindBlackChatMessage('manage'))
writeln('YAY! It worked, please post on my thread!')
end;
end;
end;
Procedure LeaveHouse;
Begin
SetAngle(True)
MakeCompass('E')
wait(2000)
If(FindObjEx(x, y, ['Op', 'en', 'oo'], [2055030, 2453134, 2453134, 1922414], 15, 241, 173, 0.5, 58, 63, 368, 263))then
begin
MMouse(x, y, 0, 0);
if(IsUptext('Op'))then Mouse(x, y, 0, 0, True);
Flag;
end;
end;
begin
SetupSRL;
DeclarePlayers;
wait(1000)
ActivateClient;
Wait(1000)
LoginPlayer;
ToHouse;
wait(1000)
EnterHouse;
wait(1000)
TypeSend('Oops.. forgot summin :o');
LeaveHouse;
end.