For some reason the script will not move on to clicking.. it also doesn't writeLn, so i'm thinking its a problem before that. Some help would be appreciated. 
Also i would like to set the angle to high, what and where do i put in?
Simba Code:
program testbandit;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
End;
procedure StatsGuise(wat:String);
begin
StatsGuise(wat);
Disguise(wat);
end;
function Bandit: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.18, 0.21);
if not (FindColorsTolerance(arP, 1976886, MSX1, MSY1, MSX2, MSY2, 7)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
Result := arC[i];
//Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
//Writeln('AutoColor failed in finding the color.');
end;
Procedure Pickpocket;
var
x, y: integer;
begin
if(not(LoggedIn))then
Exit;
x:=MSCX;
y:=MSCY;
If FindObjTPA(x, y, Bandit, 5, 2, 5, 10, 20,['atta'])then
begin
WriteLn('Found Bandit');
GetMousePos(x, y);
Mouse(x, y, 2, 2, False);
Wait(100 + Random(100));
ChooseOption('pick');
end;
Wait(3000);
end;
begin
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetUpSRL;
DeclarePlayers;
LoginPlayer;
repeat
FindNormalRandoms;
Pickpocket;
Until(false);
end.