change the inpin2 to this:
SCAR Code:
Function InPin2(pin:String):Boolean;
Var star,i,x,y:integer;
tpt1,tpt2:array[0..3] of tpoint;
begin
if (PinScreen) then
begin
star := BitmapFromString(8, 6, 'beNpjYICD/aWyQMSAAdDEIVxMhN' +
'8cgiqhbABqrBz3');
tpt1[0]:=point(428,31);
tpt2[0]:=point(442,48);
tpt1[1]:=point(444,31);
tpt2[1]:=point(458,48);
tpt1[2]:=point(460,31);
tpt2[2]:=point(474,48);
tpt1[3]:=point(476,31);
tpt2[3]:=point(490,48);
mmouse(322,203,20,20);
for i:=0 to 3 do
begin
wait(100+random(100));
ClickText(pin[i+1], upchars, 1, 1, 512, 336, True);
wait(100+random(100))
mmouse(322,203,20,20);
repeat
wait(20)
if i=3 then
begin
repeat
wait(20)
until bankscreen
break;
end;
until FindBitmaptoleranceIn(star,x,y,tpt1[i].x,tpt1[i].y,tpt2[i].x,tpt2[i].y,20)
end;
end;
if (bankscreen) then result:=true;
freebitmap(star)
end;
edit: @dracody: doesnt matter the colour. it uses a dtm. it probably lagged and clicked the wrong thing.