Simba Code:
program New;
{$DEFINE SMART}
{$i srl/srl.scar}
var x,y :integer;
var LadderPT: array[0..2] of TDTMPointDef;
var LadderMainPT: TDTMPointDef;
var Ladder: TDTM;
var Ladderx, Laddery: Integer;
var LadderDTM: Integer;
var Ang: Extended;
const
////////////////////////////////////////////////////////////
//Colors
MMLadder = 602971;
//Other options
Tolerance = 1; //Tried this from 1-10
AreaSize = 1; //Tried this from 1-10
AreaShape = 0;
Login_44 = 0; // 0 = off; 1 = on; //
////////////////////////////////////////////////////////////
/////////////////////Player Info///////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Youe Rs username
Players[0].Pass := ''; //Your RS password
Players[0].Nick := ''; //3-4 letters from name
Players[0].Active:= True;
Players[0].Pin := '';
end;
///////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
///////////////////Begining of Script///////////////////////
////////////////////////////////////////////////////////////
procedure Check_Login;
begin
if((getcolor(361, 135)=12378347)and
(getcolor(274, 165)=12378347))or
(LobbyScreen)then
begin
if(Login_44 = 1)then
begin
if(LobbyScreen)then
begin
OpenWorldScreen;
while (not Worldscreen) do sleep(100+random(100));
wait(1000+random(1000));
Mouse(123,125, 3, 3, true);//click world order arrow
wait(500+random(1000));
Mouse(686,157, 4, 0, true);//click scroll bar top
wait(1000+random(1000));
Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
wait(1000+random(1000));
Mouse(144, 281, 100, 8, true);//click world 44
wait(2000+random(1000));
Mouse(308, 452, 160, 19, true);//click login
wait(2000+random(1000));
while (not RSReady) do sleep(100+random(100));
end else
LoginPLayerToLob;
while (not LobbyScreen) do sleep(100+random(100));
OpenWorldScreen;
while (not Worldscreen) do sleep(100+random(100));
wait(1000+random(1000));
Mouse(123,125, 3, 3, true);//click world order arrow
wait(500+random(1000));
Mouse(686,157, 4, 0, true);//click scroll bar top
wait(1000+random(1000));
Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
wait(1000+random(1000));
Mouse(144, 281, 100, 8, true);//click world 44
wait(2000+random(1000));
Mouse(308, 452, 160, 19, true);//click login
wait(2000+random(1000));
while (not RSReady) do sleep(100+random(100));
end;
end else LoginPLayer;
end;
procedure SetLadderDTM;
begin
//writeln('X is:'+inttostr(MPx)+' and Y is:'+inttostr(MPy))
LadderMainPT.x:=692; // Centre Of Minimap
LadderMainPT.y:=70;
LadderMainPT.areasize:=1;
LadderMainPT.areashape:=0;
LadderMainPT.color:=0;
LadderMainPT.tolerance:=255; // Any Color
LadderPT[0].x:=688;
LadderPT[0].y:=96;
LadderPT[0].areasize:=AreaSize;
LadderPT[0].areashape:=AreaShape;
LadderPT[0].color:=MMLadder ;
LadderPT[0].tolerance:=Tolerance;
LadderPT[1].x:=689;
LadderPT[1].y:=97;
LadderPT[1].areasize:=AreaSize;
LadderPT[1].areashape:=AreaShape;
LadderPT[1].color:=MMLadder ;
LadderPT[1].tolerance:=Tolerance;
LadderPT[2].x:=688;
LadderPT[2].y:=98;
LadderPT[2].areasize:=AreaSize;
LadderPT[2].areashape:=AreaShape;
LadderPT[2].color:=MMLadder ;
LadderPT[2].tolerance:=Tolerance;
Ladder.MainPoint := LadderMainPT;
Ladder.SubPoints := LadderPT;
end;
procedure Go_to_ore;
begin
SetLadderDTM;
if(FindDtmRotated(LadderDTM, Ladderx, Laddery,
663, 67, 705, 116, -PI*2, PI*2, 0.2, Ang))then
begin
writeln('Spot found');
MMouse(Ladderx-2, Laddery-2,4,4)
end else writeln('Spot not found');
FreeDTM(LadderDTM);
end;
begin
Smart_Server := 61;
SetupSRL();
DeclarePlayers;
while (not RSReady) do
SleepAndMoveMouse(100 + Random(500));
Check_Login;
Go_to_ore;
end.