SCAR Code:
{------------------------------}
{ DTMs/BitMaps }
{------------------------------}
Procedure DtmBitMap;
begin
TreeDTM := DTMFromString('78DA6364616060606640019E05A6609A11CA6' +
'76402124C0C58015C0D1B906021600E2BA63958ED22E01E003486' +
'03E4')
end;
{------------------------------}
{ Walking To Stove }
{------------------------------}
Procedure WalkingToStove;
begin
if(not(LoggedIn))then
LoginPlayer;
SetRun(true)
MakeCompass('N')
HighestAngle;
RadialWalk(535868,381,316,65,2,2)
WriteLn('Walked To Tree!')
Wait(1456 + Random(264))
repeat
wait(572+random(104))
Tries := Tries + 1
if(Tries = 10)then
begin
Writeln('could Not Find Tree.... Switching Players');
Nextplayer;
until FindDTM(x,y,TreeDTM,MMX1,MMY1,MMX2,MMY2); //this is the Line.
Mouse(x,y,1,1,True)
WriteLn('Walking To Gate')
Wait(1109 + Random(421))
MakeCompass('S')
LowestAngle;
if FindColorTolerance(x,y,7981,MSX1,MSY1,MSX2,MSY2,20)or
FindColorTolerance(x,y,10299,MSX1,MSY1,MSX2,MSY2,20)or
FindColorTolerance(x,y,1732207,MSX1,MSY1,MSX2,MSY2,20)then
begin
IsUpText('ate')
Wait(900 - Random(354))
Mouse(X,Y,2,2,True)
if FindColorTolerance(x,y,857111,MSX1,MSY1,MSX2,MSY2,15)or
FindColorTolerance(x,y,1129293,MSX1,MSY1,MSX2,MSY2,15)or
FindColorTolerance(x,y,7205,MSX1,MSY1,MSX2,MSY2,15)then
begin
IsUpText('oor')
Wait(523 + Random(98))
Mouse(X,Y,2,2,True)
HighestAngle;
MakeCompass('N')
end;
end;
end;
end;