I am tryng to make a script that mines and smites in Al- Kharid but it doenst do anything ;S :
Simba Code:
Program MineAndSmith;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
var IronOre, X , Y:integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
Players[0].Active := True;
end;
Procedure TPToFurnance;
begin
If InvFull then
GameTab(Tab_Magic);
MouseBox(562, 217, 585, 240, 1);
wait(1000);
If WaitColor(191, 155, 9515824, 10, 7000) Then
Begin
MMouse(191, 155, 4, 4); // using the same coordinates with a randomness
Clickmouse2(true); // then click
Wait(10000 + Random(200));
end;
GameTab(Tab_Inv);
end;
Procedure DTMSAREPRO;
begin
IronOre := DTMFromString('m6wAAAHic42ZgYBAEYhEg5gJiJgYIYAFiHiCWBGIZIJYFYgkg5mNAAA4gFgJiUSCWhtI8UL2sQGypKAk1kTD+z0A8YCQBIwEAlqICyg==');
end;
Procedure FreeThem;
begin
FreeDTM(IronOre);
end;
Procedure WalkToThaMine;
var ToMine:Tpointarray;
x, y :Integer;
Begin
SPS_Setup(runescape_surface,['12_9', '12_8']);
ToMine := [Point(118, 401), Point(138, 388), Point(144, 371), Point(147, 355), Point(153, 339), Point(162, 324), Point(162, 304), Point(174, 278), Point(179, 252), Point(184, 233), Point(200, 207), Point(221, 179), Point(229, 146), Point(232, 120), Point(232, 92), Point(234, 61), Point(234, 36), Point(234, 18), Point(241, 451), Point(241, 422), Point(250, 389), Point(242, 363), Point(232, 351), Point(231, 333), Point(231, 316), Point(234, 312)];
sps_Walkpath(ToMine);
While sps_Walkpath(ToMine) do DebugLn('Walking to tha Mine');
end;
Procedure Hello;
begin
DebugLn('Thanks for using this script!');
end;
begin
Declareplayers;
Smart_Server := 16;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
Hello;
repeat
WalkToThaMine;
Until(False);
end.
This one actualy do something :
Simba Code:
Program SmithAndMine;
//{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
var IronOre, X , Y:integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
Players[0].Active := True;
end;
Procedure TPToFurnance;
begin
If not InvEmpty then
GameTab(Tab_Magic);
MouseBox(562, 217, 585, 240, 1);
wait(1000);
If WaitColor(365, 226, 3570850 , 10, 7000) Then
Begin
MMouse(365, 226, 4, 4); // using the same coordinates with a randomness
Clickmouse2(true); // then click
Wait(14000 + Random(200));
if FindSymbol(x, y, 'water source') then
MMouse(X, y, 4 ,4);
Clickmouse2(true);
Wait(500);
While IsMoving do Wait(50);
if FindSymbol(x, y, 'furnace') then
MMouse(X, y, 4 ,4);
Clickmouse2(true);
end;
GameTab(Tab_Inv);
end;
Procedure DTMSAREPRO;
begin
IronOre := DTMFromString('m6wAAAHic42ZgYBAEYhEg5gJiJgYIYAFiHiCWBGIZIJYFYgkg5mNAAA4gFgJiUSCWhtI8UL2sQGypKAk1kTD+z0A8YCQBIwEAlqICyg==');
end;
Procedure FreeThem;
begin
FreeDTM(IronOre);
end;
Procedure WalkToThaMine;
var ToMine:Tpointarray;
x, y :Integer;
Begin
SPS_Setup(runescape_surface,['12_9', '12_8']);
ToMine := [Point(118, 401), Point(138, 388), Point(144, 371), Point(147, 355), Point(153, 339), Point(162, 324), Point(162, 304), Point(174, 278), Point(179, 252), Point(184, 233), Point(200, 207), Point(221, 179), Point(229, 146), Point(232, 120), Point(232, 92), Point(234, 61), Point(234, 36), Point(234, 18), Point(241, 451), Point(241, 422), Point(250, 389), Point(242, 363), Point(232, 351), Point(231, 333), Point(231, 316), Point(234, 312)];
sps_Walkpath(ToMine);
While sps_Walkpath(ToMine) do DebugLn('Walking to tha Mine');
end;
Procedure Hello;
begin
DebugLn('Thanks for using this script!');
end;
begin
DeclarePlayers;
{Smart_Server := 16;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False; }
SetUpSRL;
repeat //Does the same thing as up above
TPToFurnance;
Hello;
until(AllPlayersInactive);
end.