THE DDTM IS THR BANK SYMBOL
SCAR Code:
function BankDDTM: Integer;
var
BankMainPoint: TDTMPointDef;
BankSubPoints: Array [0..4] of TDTMPointDef;
BankTDTM: TDTM;
BankDTMTol : Integer;
begin
BankDTMTol := 40
BankMainPoint.x := 632;
BankMainPoint.y := 70;
BankMainPoint.AreaSize := 0;
BankMainPoint.AreaShape := 0;
BankMainPoint.Color := 5087402;
BankMainPoint.Tolerance := BankDTMTol;
BankSubPoints[0].x := 632;
BankSubPoints[0].y := 70;
BankSubPoints[0].AreaSize := 1;
BankSubPoints[0].AreaShape := 0;
BankSubPoints[0].Color := 5087402;
BankSubPoints[0].Tolerance := BankDTMTol;
BankSubPoints[1].x := 632;
BankSubPoints[1].y := 77;
BankSubPoints[1].AreaSize := 1;
BankSubPoints[1].AreaShape := 0;
BankSubPoints[1].Color := 5087402;
BankSubPoints[1].Tolerance := BankDTMTol;
BankSubPoints[2].x := 638;
BankSubPoints[2].y := 77;
BankSubPoints[2].AreaSize := 1;
BankSubPoints[2].AreaShape := 0;
BankSubPoints[2].Color := 1462373;
BankSubPoints[2].Tolerance := BankDTMTol;
BankSubPoints[3].x := 638;
BankSubPoints[3].y := 71;
BankSubPoints[3].AreaSize := 1;
BankSubPoints[3].AreaShape := 0;
BankSubPoints[3].Color := 1462373;
BankSubPoints[3].Tolerance := BankDTMTol;
BankSubPoints[4].x := 635;
BankSubPoints[4].y := 76;
BankSubPoints[4].AreaSize := 1;
BankSubPoints[4].AreaShape := 0;
BankSubPoints[4].Color := 1758693;
BankSubPoints[4].Tolerance := BankDTMTol;
BankTDTM.MainPoint := BankMainPoint;
BankTDTM.SubPoints := BankSubPoints;
Result := AddDTM(BankTDTM);
end;
function BankWalk : Boolean;
var
SearchBankSymbol, BankDTM, x, y : Integer;
begin
repeat
BankDTM := BankDDTM;
if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 3, 3, True);
Wait(450 + Random(115));
FFlag(1);
Wait(2000 + Random(2000));
FreeDTM(BankDTM);
Result := True;
end;
if (not (FindDTM(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2))) then
begin
SearchBankSymbol := SearchBankSymbol + 1;
if (SearchBankSymbol = 15) then
begin
FindSymbol(x, y, 'Bank');
Mouse(x, y, 3, 3);
FFlag(1);
Wait(330 + Random(220));
if (not (FindSymbol(x, y, 'Bank'))) then
begin
LogOut;
Writeln('Failed to find the Bank');
end;
end;
end;
until (Result = True);
SearchBankSymbol := SearchBankSymbol - SearchBankSymbol;
end;
The bank takes place in Camelot, the most annoying, crowded bank a SRL Jr. Scar Scripter could ever imagine! I tried numerous ways to enter the through fail safes and different methods such as Radial Walk etc... Nothing seems to work for me. Can anyone help me please? Fail safes are not working and i need another method....
If you solve this, you are
Cool =D