How come you cant test dtm anymore?
Also do I have to put load dtms in?
Heres my script with them in, think I put in wrong place tho
Simba Code:
{$I SRL-OSR/SRL.Simba}
//------------------------------------------------------------------\\
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ; //Username goes here
Players[0].Pass := ''; //Password goes here
Players[0].Nick := 'ake'; //Character name (excluding first letter)
Players[0].Active := True;
end;
//--------------------------------------------------------------------\\
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(60) of //antiban change (20) to higher number for less antiban
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
Function FindNPC:Boolean;
var
Cts,a, y, Tries:Integer;
NPCTPA:Tpointarray;
NPCATPA:T2DPointarray;
begin
CTS:= GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.13, 1.05);
marktime(y);
repeat
if FindColorsSpiralTolerance(MSCX, MSCY, NPCTPA, 5667735, msx1, msy1, msx2, msy2, 14) then
begin
NPCATPA := SplitTPAEx(NPCTPA, 5, 5);
SortATPAFromMidPoint(NPCATPA, Point(262, 224-50))
end;
for a :=0 to high(NPCATPA) do
begin
MouseSpeed:=(Randomrange(9, 15));
MMouse(NPCTPA[a].x, NPCTPA[a].y, 3, 3);
wait(300+Random(100));
Inc(Tries);
if isUptext('ring') then // name of npc
begin
Result := True;
GetMousePos(a, y);
mouse(a,y,3,3,false);
wait(100 + random(200));
ChooseOption('rade');// choose option trade
wait(5000 + random(1000));
Break;
Exit;
end else
Result := False;
end;
Until(TimeFromMark(y) > 20000);
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(0.02, 0.02);
end;
procedure FindIron;
var
Iron, x, y: Integer;
procedure LoadDTMs;
begin
Iron := DTMFromString('mlwAAAHicY2dgYNgPxOuAeDcQnwXig0C8BYiPA3EwEEcBcRIQBwCxBxD7AXEMEHvqKgBJRqz4P5DEhbHrgGAoAABUTA8m');
end;
begin
Iron := DTMFromString('mlwAAAHicY2dgYNgPxOuAeDcQnwXig0C8BYiPA3EwEEcBcRIQBwCxBxD7AXEMEHvqKgBJRqz4P5DEhbHrgGAoAABUTA8m');
if FindDTM(Iron, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Writeln('Found Iron!')
Mouse(x,y,2,2,False)
FreeDTM(Iron);
end;
end;
begin
DeclarePlayers;
SetupSRL;
ActivateClient;
LoadDTMs;
FindNPC;
findIron;
End.
I then get a
[Error] C:\Simba\Scripts\bars.simba(113:3): 'BEGIN' expected at line 112 ---- which is this line